Ini merupakan tulisan pertama saya di JagoCoding... Saya akan membahas tentang cara Membuat Aplikasi Kalkulator sederhana dengan Delphi7.

Membuat Aplikasi Kalkulator sederhana dengan Delphi7

 

Ini merupakan tulisan pertama saya di JagoCoding... Saya akan membahas tentang cara Membuat Aplikasi Kalkulator sederhana dengan Delphi7.

1. Jalankan terlebih dahulu program Delphi7

2.Tambahkan Edit 2buah, Label 3buah, Button 4buah

3. Bentuk Menjadi sedemikian rupa

 

4. Tambahkan Kode

Kode untuk button1(Tambah) :

procedure TForm1.Button1Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1+angka2;
label3.caption := floattostr(hasil);
end;

Kode untuk button2(Kurang) :

procedure TForm1.Button2Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1-angka2;
label3.caption := floattostr(hasil);
end;

Kode untuk button3 (Kali) :

procedure TForm1.Button3Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1*angka2;
label3.caption := floattostr(hasil);
end;

Kode untuk button4(Bagi) :

procedure TForm1.Button4Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1/angka2;
label3.caption := floattostr(hasil);
end;

5. Jalankan program

 

link download: http://www.4shared.com/rar/7omDBY5Dba/Kalkulator.html

 

 

 


About Author

Hizrian

Saya adalah seorang siswa SMK2 Banda Aceh jurusan TKJ


Comment & Discussions

    Please LOGIN before if you want to give the comment.