Cara Membuat Kalkulator Sederhana Dengan Delphi 7
Kali ini kita akan belajar bagaimana membuat kalkulator dengan Delphi 7.Tutorial yang saya bagikan kali ini masih sangat dasar/simple program yang telah dibuat.Anda masih bisa mengembangkan kalkulator ini menjadi lebih canggih lagi.Ya,ini cuman contoh saja bagi yang penasaran cara membuat kalkulator dengan software Delphi 7
Berikut ini saya kasih contoh bagaimana membuat kalkulator dengan Delphi 7
1) Buka program Delphi 7 lalu buat 3 label, 3 Edit sama 5 Button seperti ini contohnya
2) Tambahkan kode berikut di bawah var
angka1,angka2: real;
3) Klik 2 kali button1 atau tambah dan masukkan kode berikut
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
edit3.Text :=floattostr( angka1 + angka2);
4) Klik 2 kali button2 atau kurang dan masukkan kode yang hampir sama namun bedanya ganti + dengan -
Angka1 :=strtofloat(edit1.text);
Angka2:= strtofloat(edit2.text);
Edit3.text:=floattostr(angka1- angka2);
5) Klik 2 kali button3 atau kali dan masukkan kode yang hampir sama namun tandanya ganti dengan *
Angka1 :=strtofloat(edit1.text);
Angka2:=strtofloat(edit2.text);
Edit3.text:= floattostr(angka1*angka2);
6) Klik 2 kali button 4 atau bagi dan ganti tandanya dengan /
Angka1:= strtofloat(edit1.text);
Angka2:=strtofloat(edit2.text);
Edit3.text:= floattostr(angka1/angka2);
7) Klik 2 kali button 5 atau hapus dan masukkan kode ini
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
8) Sekarang coba run dulu (f9) apakah ada error atau tidak kalau normal harusnya bisa jalan seperti ini
9) Kalau mau build projectnya silahkan menuju ke Project < Build (NamaProyek) dan tunggu sampai finish buildnya
Kalau merasa tampilannya kurang menarik, anda bisa ubah ubah warna button, edit maupun formnya.Atau kalau mau yang lebih bagus anda bisa coba alpha skin yang pernah saya bagi di SINI beserta cara memasangnya
EmoticonEmoticon