Tutorial Membuat Simple Calculator

Assalamu'alaikum wr.wb
Inilah posting pertama saya dalam membahas Pemograman dengan menggunakan aplikasi Delphi 7. Apa itu Delphi 7 bisa searching-searching aja di Google.com

Okeh pertama saya akan mengasih "Tutorial Membuat Simple Calculator" by: ZeroCool. Memang keliatannya membikin kalkulator itu susah tapi tidak ada salahnya kita mencoba membuatnya. Langkah pertama yakniLangsung saja kita mulai sebelum Kopi dan Rokok ane habis :D

Langkahnya cukup mudah yakni anda tinggal masukkan coding ini:

Masukan di button(+)
procedure Tccccccccc.Button1Click(Sender: TObject);
var a,b,hasil:real;
begin
a:=StrToFloat(edit1.text);
b:=StrTofloat(edit2.text);
hasil:=a+b;
edit3.Text:=FloatToStr(hasil);
end;

Masukan di button(-)
procedure Tccccccccc.Button2Click(Sender: TObject);
var a,b,hasil:real;
begin
a:=StrToFloat(edit1.text);
b:=StrTofloat(edit2.text);
hasil:=a-b;
edit3.Text:=FloatToStr(hasil);
end;

Masukan di button(:)
procedure Tccccccccc.Button3Click(Sender: TObject);
var a,b,hasil:real;
begin
a:=StrToFloat(edit1.text);
b:=StrTofloat(edit2.text);
hasil:=a/b;
edit3.Text:=FloatToStr(hasil);

end;

Masukan di button(X)
procedure Tccccccccc.Button4Click(Sender: TObject);
var a,b,hasil:real;
begin
a:=StrToFloat(edit1.text);
b:=StrTofloat(edit2.text);
hasil:=a*b;
edit3.Text:=FloatToStr(hasil);

end;


Terimakasih dan apabila menemukan error saat di RUN(F9) silahkan corat-coret saja di kolom komentar. See you :)