Membuat Kalkulator Dengan Delphi

 







Berikut ini adalah scriptnya:
Button Tambah:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c : integer; begin
a := strtoint (edit1.Text);
b := strtoint (edit2.Text);
c := a + b;
edit3.Text := inttostr (c);
end; Button Kurang:
procedure TForm1.Button2Click(Sender: TObject);
var a,b,c : integer; begin
a := strtoint (edit1.Text);
b := strtoint (edit2.Text);
c := a - b;
edit3.Text := inttostr (c);
end;
Button Kali
procedure TForm1.Button3Click(Sender: TObject);
var a,b,c : integer; begin
a := strtoint (edit1.Text);
b := strtoint (edit2.Text);
c := a * b;
edit3.Text := inttostr (c);
end;
Button Bagi
procedure TForm1.Button4Click(Sender: TObject);
var a,b,c : double; begin
a := strtofloat (edit1.Text);
b := strtofloat (edit2.Text);
c := a / b;
edit3.Text := floattostr (c);
end;
Button DIV
procedure TForm1.Button5Click(Sender: TObject);
var a,b,c : integer; begin
a := strtoint (edit1.Text);
b := strtoint (edit2.Text);
c := a div b;
edit3.Text := inttostr (c);
end;
Button MOD
procedure TForm1.Button6Click(Sender: TObject);
var a,b,c : integer; begin
a := strtoint (edit1.Text);
b := strtoint (edit2.Text);
c := a mod b;
edit3.Text := inttostr (c);
end;
Button Keluar
procedure TForm1.Button7Click(Sender: TObject);
begin
close; end;

Catatan : Yang diketik hanya tulisan yang miring saja!
Terima kasih dan selamat mencoba :)

Leave a Reply

Terima kasih sudah memberi komentar,
komentar anda sangat berguna untuk menjadikan blog ane lebih baik lagi..
jangan lupa berkunjung kembali..