Cara membuat kalkulator sederhana! Bilangan Pecahan Menggunakan Delphi7

Cara membuat kalkulator sederhana, bilangan Pecahan!!!

Procedure TForm1.Button1Click(Sender: TObject);

Var a,b,c:real;

begin

a:= strtofloat(edit1.Text);

b:= strtofloat(edit2.Text);

c:=a+b;

edit3.Text:=floattoStr(c);

 end;

Procedure TForm1.Button2Click(Sender: TObject);

Var a,b,c:real;

begin

a:= strtofloat(edit1.Text);

b:= strtofloat(edit2.Text);

c:=a/b;

edit3.Text:=floattoStr(c);

end;

Procedure TForm1.Button3Click(Sender: TObject);

Var a,b,c:real;

begin

a:= strtofloat(edit1.Text);

b:= strtofloat(edit2.Text);

c:=a-b;

edit3.Text:=floattoStr(c);

end;

Procedure TForm1.Button4Click(Sender: TObject);

Var a,b,c:real;

begin

a:= strtofloat(edit1.Text);

b:= strtofloat(edit2.Text);

c:=a*b;

edit3.Text:=floattoStr(c);

end;

Procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Text:='  ';

Edit2.Text:='  ';

Edit3.Text:='  ';

end;

end.

Hai...

Kalian hanya perlu meng-Copy tulisan yang ada di bawah setiap gambar diatas lalu mem-Pastekannya ke lembar kerja kalian *Unit1.pas* yang akan muncul setelah kalian men-double klik tombol '+' , '/' , '-' dan '*'.

Ingat!! Jangan salah copy yah, lihat di tombol apa yang kalian double klik maka disitulah kalian pastekan tulisan diatas.

Saya pikir, kalau kalian teliti, kalian pasti sudah mengerti!

Semoga membantu!

Jangan lupa tinggalkan komentar dan +G

Byeeee :)