Program Kalkulator delphi

Dengan adanya program kalkulator , kita akan sangat terbantu terutama dalam hal hitung-menghitung. Sebenarnya, kita bisa membuat kalkulator tersebut dengan mudah, namun dalam versi digital tentunya. Sebab, Delphi memungkinkan kita untuk membuat program kalkulator dengan cepat dan menyenangkan asalkan Anda tahu konsep dasar tentang cara kerja kalkulator.

Di bawah ini salah satu contoh program kalkulator
menggunakan delphi . Untuk membuatnya silahkan teman – teman membuat form seperti gambar berikut


Dan masukkan listing programnya,,,,,,,,

procedure  TForm1.BHItungClick(Sender: TObject); 
var 
nilai1, nilai2, hasil : integer; 

begin 
nilai1 := StrToInt(ENilai1.Text); 
nilai2 := StrToInt(ENilai2.Text); 

case rgOperator.ItemIndex of 
0 : begin 
hasil := nilai1 + nilai2; 
EHasil.Text:=inttostr(hasil); 
end; 
1 : begin 
hasil := nilai1 - nilai2; 
EHasil.Text:=inttostr(hasil); 
end; 
2 : begin 
hasil := nilai1 * nilai2; 
EHasil.Text:=inttostr(hasil); 
end; 
3 : begin 
hasil := nilai1 div nilai2; 
EHasil.Text:=inttostr(hasil); 
end; 
4 : begin 
hasil := nilai1 mod nilai2; 
EHasil.Text:=inttostr(hasil); 
end; 
end; 
end;  

procedure  TForm1.ENilai1KeyPress(Sender: TObject; var Key: Char); 
begin 
if key=#13 then 
ENilai2.SetFocus; 
end; 

procedure  TForm1.ENilai2Exit(Sender: TObject); 
begin 
rgOperator.ItemIndex:= 0; 
rgOperator.SetFocus; 
end; 

procedure  TForm1.rgWarnaPilihanClick(Sender: TObject); 
begin 
case rgWarnaPilihan.ItemIndex of 
0 : Form1.Color := clSkyBlue; 
1 : Form1.Color := clMoneyGreen; 
end; 
end; 

Program kalkulator  ini cukup mudah dibuat karena sudah tersedia logika-logika matematika yang disediakan oleh delphi..,,,,, komentar dan saran selalu saya harapkan teman – teman……….