Membuat Program Aritmatika dengan Delphi XE

Program yang akan kita buat disini adalah aritmatika (tambah, kurang, kali dan bagi) dan source code dari program aritmatika ini bisa di dowload dibawah tulisan ini.

Buat sebuah VLC form application baru di delphi dan design seperti gambar dibawah ini

keterangan :
label1, edit1 di Angka 1
label2, edit2 di Angka 2
label3, edit3 di Hasil
Button1 : kali
Button2 : bagi
Button3 : tambah
Button4 : kurang
Button5 : clear

klik dua kali pada tombol kali dan tambahkan script dibawah ini

angka1 := StrToFloat(edit1.Text);
angka2 := StrToFloat(edit2.Text);
hasil := angka1 * angka2;
edit3.Text := FloatToStr(hasil)

klik dua kali pada tombol bagi dan tambahkan script dibawah ini

angka1 := StrToFloat(edit1.Text);
angka2 := StrToFloat(edit2.Text);
hasil := angka1 / angka2;
edit3.Text := FloatToStr(hasil)

klik dua kali pada tombol tambah dan tambahkan script dibawah ini

angka1 := StrToFloat(edit1.Text);
angka2 := StrToFloat(edit2.Text);
hasil := angka1 + angka2;
edit3.Text := FloatToStr(hasil)

klik dua kali pada tombol kurang dan tambahkan script dibawah ini

angka1 := StrToFloat(edit1.Text);
angka2 := StrToFloat(edit2.Text);
hasil := angka1 - angka2;
edit3.Text := FloatToStr(hasil)

klik dua kali pada tombol clear dan tambahkan script dibawah ini

edit1.Text := '';
edit2.Text := '';
edit3.Text := '';

jalankan dengan menekan tombol F9, hasilnya bisa dilihat dibawah ini

Download :

Download “Aplikasi Aritmatika Delphi” aritmatika.zip – Downloaded 370 times –