Latihan 1 Pemrograman Visual

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c:real;

begin

a:=strtofloat(edit6.Text);

b:=strtofloat(edit7.Text);

c:=a+b;

showmessage('Hello');

edit10.Text:=floattostr(c);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

edit7.Text:='';

edit8.Text:='';

edit9.Text:='';

edit10.Text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

edit8.text:=edit1.Text;

edit9.text:=edit2.text;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form1.Close;

end;

end.