Membuat Kalkulator Sederhana Menggunakan Delphi 7

Kali ini saya akan membuat sebuah program” kalkulator” yang sangat-sangat sederhana menggunakan Borland Delphi 7. Bagi teman-teman yang sudah expert mohon untuk tidak mentertawakan tutorial ini.

Di dalam membuat program ini dibutuhkan :

• 1 buah Form
• 2 buah Label
• 6 buah Text Box (Edit)
• 6 buah button

Keterangan Label :

1. Bilangan 1
2. Bilangan 2

Bilangan 1, Bilangan 2 ditulis di Properties Caption pada Object Inspector

Keterangan Text Box (Edit) :

1. ebil1
2. ebil2
3. etambah
4. ekurang
5. ekali
6. ebagi

untuk ebil1, ebil2, etambah, ekurang, ekali, ebagi ditulis di Properties Name pada Object Inspector

Untuk properties text pada object inspector harap dihapus sehingga tidak ada tulisan di text area

Keterangan Button :

1. +
2. –
3. X
4. /
5. Bersih
6. Keluar

+, -, x, / ditulis di Properties Caption pada Object Inspector

+ = ditulis “btambah” di Properties Name pada Object Inspector

– = ditulis “bkurang” di Properties Name pada Object Inspector

x = ditulis “bkali” di Properties Name pada Object Inspector

/ = ditulis “bbagi” di Properties Name pada Object Inspector

Bersih =  Propeties Caption “Bersih”, Properties Name “bbersih”

Keluar = Propeties Caption “Keluar”, Properties Name “bkeluar”

“Untuk mengisi kode harap diletakkan di masing-masing tombol Button sesuai  kode yang ingin diketik dengan cara double klik tombol button tersebut misalnya : btambah, bkurang, bkali, bbagi, bbersih, bkeluar”.

Kode :

procedure TForm1.btambahClick(Sender: TObject);

var bil1,bil2,hasil:real;

begin

bil1:=strtofloat(ebil1.Text);

bil2:=strtofloat(ebil2.Text);

hasil:=bil1+bil2;

etambah.Text:=floattostr(hasil);

end;

procedure TForm1.bkurangClick(Sender: TObject);

var bil1,bil2,hasil:real;

begin

bil1:=strtofloat(ebil1.Text);

bil2:=strtofloat(ebil2.Text);

hasil:=bil1-bil2;

ekurang.Text:=floattostr(hasil);

end;

procedure TForm1.bkaliClick(Sender: TObject);

var bil1,bil2,hasil:real;

begin

bil1:=strtofloat(ebil1.Text);

bil2:=strtofloat(ebil2.Text);

hasil:=bil1*bil2;

ekali.Text:=floattostr(hasil);

end;

procedure TForm1.bbagiClick(Sender: TObject);

var bil1,bil2,hasil:real;

begin

bil1:=strtofloat(ebil1.Text);

bil2:=strtofloat(ebil2.Text);

hasil:=bil1/bil2;

ebagi.Text:=floattostr(hasil);

end;

procedure TForm1.bbersihClick(Sender: TObject);

begin

ebil1.Text:=”;

ebil2.Text:=”;

etambah.Text:=”;

ekurang.Text:=”;

ekali.Text:=”;

ebagi.Text:=”;

ebil1.SetFocus

end;

procedure TForm1.bkeluarClick(Sender: TObject);

begin

IF(Application.MessageBox(‘Yakin Mau Keluar?’,’infomasi’,mb_yesno)=idyes) then

close;

end;

Demikian program Calculator Sederhana ini telah jadi untuk mencobanya kita klik tombol Run atau tekan (F9). Semoga artikel ini dapat bermanfaat walaupun sedikit.

Untuk Kritik dan Saran berikan komentar pada artikel ini di kolom tulis komentar..

Trims

1 Komentar

Comments RSS TrackBack Identifier URI