Program Kalkulator delphi

Posted by apri Puk on Thursday, 24 March 2011


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
clip_image002
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.

{ 0 comments... read them below or add one }

Post a Comment