Cara Membuat Kalkulator Sederhana dengan Delphi XE. Kalkulator ini saya buat dengan menggunakan
Delphi XE,
kalkulator ini sanagat sederhana karena hanya dilengkapi dengan fungsi
penjumlahan, pengurangan, perkalian, dan pembagian. Dengan adanya
tutorial ini saya harapkan bagi anda yang sedang belajar pemerograman
Delphi
dapat belajar dan mengembangkan pemerograman delphi yang ada saat ini.
Bagi para pembaca yang sedang belajar atau mencari tutorial tentang
pemrograman Delphi, mungkin postingan ini bias bermanfaat bagi anda
meskipun hanya program sederhana.
Cara Membuat Kalkulator Sederhana dengan Delphi XE sebagai berikut:
- Buka Delphi XE dan buat project baru pilih VCL Forms Application lalu pilih OK
- Masukan 3 TLabel, 3 TEdit, dan 4 TButton seperti gambar di bawah ini

- Ubahlah Caption untuk TLabel dan TButton, untuk TEdit ubahlah Text pada kolom Obeject Inspector

- Masukan variabel nil1, nil2, hasil: real; pada bagian Code dibawah tulisan Form1: TForm1;

- Klik dua kali tombol button dan masukan code di bawah ini
Untuk tombol +
nil1:= strtofloat(edit1.text);
nil2:= strtofloat(edit2.text);
hasil:= nil1+nil2;
edit3.text:=floatToStr(hasil);
Untuk tombol - nil1:= strtofloat(edit1.text);
nil2:= strtofloat(edit2.text);
hasil:= nil1-nil2;
edit3.text:=floatToStr(hasil);
Untuk tombol X
nil1:= strtofloat(edit1.text);
nil2:= strtoint(edit2.text);
hasil:= nil1*nil2;
edit3.text:=floatToStr(hasil);
Untuk tombol :nil1:= strtofloat(edit1.text);
nil2:= strtofloat(edit2.text);
hasil:= nil1/nil2;
edit3.text:=floatToStr(hasil);
Keterangan :
strtofloat
Digunakan untuk mengubah String yang mempresentasikan data bertipe integer menjadi
sebuah nilai floatingpoint (bilangan real).
Sintaks :
Function Strtofloat (const S : String) : Extended ; overload ;
Function Strtofloat (const S : String ; Const format settings : tformat
settings) : Extended ; overload ;
Contoh : Bilangan real:= strtofloat (edit1.text) ;
Artinya mengubah data yang bertipe String di dalam komponen edit1 menjadi data yang
bertipe Extended (real) yang disimpan di variable bilangan real
floatToStr
Digunakan untuk mengubah nilai floating-point menjadi sebuah string
Sintaks :
Function floattostr (value : Extended) : String ; overload ;
Contoh :
Mystring := FloatToStr (3,14*4)
Artinya
data bertipe real (yaitu 12,56, yang merupakan hasil perhitungan
3,14*4) dirubah menjadi data bertipe string yang disimpan di variable
mystring.
- Selesai Kalkulator Sederhana dari Delphi XE siap di jalankan

Demikian tutorial dari saya semoga bermanfaat ^_^
Tidak ada komentar:
Posting Komentar