nah kali ini penulis akan membahas tentang belajar borland delphi 7....
disini penulis akan membuat sebuah kalkulator sederhana menggunakan delphi 7 karena penulis mempelajarinya juga menggunakan delphi 7..
langkah-langkah membuat sebuah kalkulator pada delphi yaitu :
1. buka borland delphi 7
2. setelah itu buat program seperti kotak dibawah ini :
program diatas terdiri dari 3 buah label, 3 buah text box (edit) dan 5 buah button. setelah itu pada label beri nama dengan Bilangan 1, Bilangan 2, dan Hasil.
dan pada tombol button ganti menjadi 1. + (tambah)
2. - (kurang)
3. x (kali)
4. : (bagi)
3. kemudian setelah seperti gambar diatas, double klik pada tanda :
- + (tambah) dan kemudian copy paste program dibawah ini :
ed3:=strtoint(edit1.Text)+strtoint(edit2.Text);
edit3.Text:=floattostr(ed3);
end;
- - (kurang) dan kemudian copy paste program dibawah ini :
ed3:=strtoint(edit1.Text)-strtoint(edit2.Text);
edit3.Text:=floattostr(ed3);
end;
- x (kali) dan kemudian copy paste program dibawah ini :
ed3:=strtoint(edit1.Text)*strtoint(edit2.Text);
edit3.Text:=floattostr(ed3);
end;
- : (bagi) dan kemudian copy paste program dibawah ini :
ed3:=strtoint(edit1.Text) /strtoint(edit2.Text);
edit3.Text:=floattostr(ed3);
end;
- pada tombol exit ketikkan program:
close;
lalu pada program dibawah ini edit menjadi ed3:real;
var
Form1: TForm1;
ed3:real;
seehingga program tersebut menjadi gambar dibawah ini :
setelah selesai kemudian jalankan program tersebut deengan mengklik run atau F9.dan kemudian akan keluar seperti gambar dibawah ini :
kemudian ketikkan angka yang kalian inginkan,dan kemudian klik salah satu tombol yang anda inginkan...seperti contoh pada gambar perkalian dibawah ini :
sekian belajar delphi kali ini...semoga bermanfaat....


























![[V16.png]](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjC-40fdU_Bz6tTyGb0z-dTUx5IMbY9VRTaMl_FPcIuts5Kl6SCI5R8S_WBJHReGB6lfZlOa6Hm24w5wDqkY8tNx1RF6UEOeh5KF71z7T32U73TZukY9ld4JnPGPop8-dHCY37MMHPcdGkH/s1600/V16.png)
![[V17.png]](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRiuZhQeF2SpeAICb93lfk5k9aCVFm56CLBQL4eYtd9RLYxDQ5GQsx5ZQsgprbxOTdEyhGi02rp9GWsj5iu5-2kWujQffRFtAadk0KDYSqf8ukkSab06frIOrBILTsQTve3NF0LZ8iXfN-/s1600/V17.png)
![[V18.png]](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgtI7B5SgbibBhKH3k5W9i0gn4ib3oG8ev_P5VxSTWs3njPcar6T9uOZjOshVbTVqpk87Beu4foDMKj36LiIfRvgGA8sJI_1e8LbqB54xLXiiYaw1SL3TO1vRm8zvtNr-giB1f7GqTk4RkE/s1600/V18.png)
![[V19.png]](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfw6eJEbQRAyBxVr3rGU4J-l36kEvu4sT88FaJ5JOh4Gz9cvBhR3KMUdFcmCqVy_X9IaQs-D6YPFbXy1OSG4yznTpiBqS-Exd0DSAQ-ryQdDox_xatsIL6WNODpS3WuonxdTZCJVFBwiDM/s1600/V19.png)




