Program robota9;
uses
System,
System.Windows.Forms;
var
x,y,t:integer;
myForm:Form;
myLabel:&Label;
mypicture:PictureBox;
myButton:Button;
myButton1:Button;
myButton2:Button;
myButton3:Button;
myButton11:Button;
myButton12:Button;
myButton13:Button;
myTextBox:TextBox;
procedure MyButtonClick(sender:Object;e:EventArgs);
begin
val(myTextBox.Text,x,t);
myTextBox.Text:='';
end;
procedure MyButton1Click(sender:Object;e:EventArgs);
begin
myTextBox.Text:=myTextBox.Text+'1';
end;
procedure MyButton2Click(sender:Object;e:EventArgs);
begin
myTextBox.Text:=myTextBox.Text+'2';
end;
procedure MyButton3Click(sender:Object;e:EventArgs);
begin
myTextBox.Text:=myTextBox.Text+'3';
end;
procedure MyButton11Click(sender:Object;e:EventArgs);
begin
myTextBox.Text:='';
end;
procedure MyButton12Click(sender:Object;e:EventArgs);
begin
val(myTextBox.Text,y,t);
if t=0 then x:=x+y;
t:=1;
myTextBox.Text:=inttostr(x);
myTextBox.Text:=myTextBox.Text+'!'
end;
procedure MyButton13Click(sender:Object;e:EventArgs);
begin
val(myTextBox.Text,x,t);
myTextBox.Text:='';
end;
begin
myForm:=new Form;
myForm.Text:='Калькулятор Третяка';
myform.Left:=500;
myform.top:=500;
myform.AutoSize:=true;
myform.Width:=300;
myform.Height:=400;
myLabel:=new &Label;
myLabel.Text:='Вікно результату';
myLabel.Left:=10;
myLabel.top:=20;
myLabel.AutoSize:=true;
myTextBox:=new TextBox;
myTextBox.Left:=90;
myTextBox.Top:=40;
myTextBox.Enabled:=true;
myTextBox.Width:=105;
myTextBox.Height:=100;
myTextBox.MaxLength:=16;
myTextBox.ReadOnly:=true;
myTextBox.Visible:=true;
myButton:=new Button;
myButton.Text:='+';
myButton.Left:=200;
myButton.top:=230;
myButton.AutoSize:=true;
myButton1:=new Button;
myButton1.Text:='1';
myButton1.Left:=10;
myButton1.top:=70;
myButton.AutoSize:=true;
myButton2:=new Button;
myButton2.Text:='2';
myButton2.Left:=50;
myButton2.top:=100;
myButton2.AutoSize:=true;
myButton3:=new Button;
myButton3.Text:='3';
myButton3.Left:=90;
myButton3.top:=130;
myButton3.AutoSize:=true;
myButton11:=new Button;
myButton11.Text:='C';
myButton11.Left:=20;
myButton11.top:=230;
myButton11.AutoSize:=true;
myButton12:=new Button;
myButton12.Text:='=';
myButton12.Left:=110;
myButton12.top:=230;
myButton12.AutoSize:=true;
myButton13:=new Button;
myButton13.Text:='/';
myButton13.Left:=200;
myButton13.top:=230;
myButton13.AutoSize:=true;
myForm.Controls.Add(myButton);
myForm.Controls.Add(myTextBox);
myForm.Controls.Add(myButton1);
myForm.Controls.Add(myButton2);
myForm.Controls.Add(myButton3);
myForm.Controls.Add(myButton11);
myForm.Controls.Add(myButton12);
myForm.Controls.Add(myButton13);
myForm.Controls.Add(mylabel);
myForm.Controls.Add(myPicture);
myButton.Click+=MyButtonClick;
myButton1.Click+=MyButton1Click;
myButton2.Click+=MyButton2Click;
myButton3.Click+=MyButton3Click;
myButton11.Click+=MyButton11Click;
myButton12.Click+=MyButton12Click;
myButton13.Click+=MyButton13Click;
Application.Run(myForm);
end.