Pertama kita buka program delphinya.,
Siapkan form1 dan beberapa komponen di form1.
Form1
|
Caption
|
Kalkulator Sederhana
|
Label1
|
Caption
|
Angka1
|
Label2
|
Caption
|
Angka2
|
Label3
|
Caption
|
Hasil
|
Button1
|
Caption
|
Tambah
|
|
Name
|
Btambah
|
Button2
|
Caption
|
Kurang
|
|
Name
|
Bkurang
|
Button3
|
Caption
|
Kali
|
|
Name
|
Bkali
|
Button4
|
Caption
|
Bagi
|
|
Name
|
Bbagi
|
Button5
|
Caption
|
Ulang
|
|
Name
|
Bulang
|
Button6
|
Caption
|
Keluar
|
|
Name
|
Bkeluar
|
Buat Tampilannya seperti gambar di bawah ini.!
Masukan Kodingnya.,!
ButtonKeluar
procedure TForm1.BkeluarClick(Sender: TObject);
begin
close;
end;
ButtonUlang
procedure TForm1.BulangClick(Sender: TObject);
begin
Eangka1.Text:='';
Eangka2.Text:='';
Ehasil.Text:='';
Eangka1.SetFocus;
end;
ButtonTambah.
procedure TForm1.BtambahClick(Sender: TObject);
var
bil1,bil2:real;
hasil:real;
begin
bil1:=StrToFloat(Eangka1.Text);
bil2:=StrToFloat(Eangka2.Text);
hasil:=bil1+bil2;
Ehasil.Text:=FloatToStr(hasil);
end;
ButtonKurang.
procedure TForm1.BkurangClick(Sender: TObject);
var
bil1,bil2:real;
hasil:real;
begin
bil1:=StrToFloat(Eangka1.Text);
bil2:=StrToFloat(Eangka2.Text);
hasil:=bil1-bil2;
Ehasil.Text:=FloatToStr(hasil);
end;
ButtonKali.
procedure TForm1.BkaliClick(Sender: TObject);
var
bil1,bil2:real;
hasil:real;
begin
bil1:=StrToFloat(Eangka1.Text);
bil2:=StrToFloat(Eangka2.Text);
hasil:=bil1*bil2;
Ehasil.Text:=FloatToStr(hasil);
ButtonBagi.
procedure TForm1.BkurangClick(Sender: TObject);
var
bil1,bil2:real;
hasil:real;
begin
bil1:=StrToFloat(Eangka1.Text);
bil2:=StrToFloat(Eangka2.Text);
hasil:=bil1/bil2;
Ehasil.Text:=FloatToStr(hasil);
end;
Keterangan:
* Perintah
Strtofloat berfungsi untuk mengkonfersikan variabel string(huruf) menjadi angka (real/integer)
---Selamat Mencoba---