Cara Membuat Kalkulator Sederhana dengan Delphi XE

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:

1. Buka Delphi XE dan buat project baru pilih VCL Forms Application lalu pilih OK
   
   
2. Masukan 3 TLabel, 3 TEdit, dan 4 TButton  seperti gambar di bawah ini
   
   
   
3. Ubahlah Caption untuk TLabel dan TButton, untuk TEdit ubahlah Text pada kolom Obeject Inspector
   
   
4. Masukan variabel nil1, nil2, hasil: real; pada bagian Code dibawah tulisan Form1: TForm1;
   
   
   
5. 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.

6. Selesai Kalkulator Sederhana dari Delphi XE siap di jalankan
   

Demikian tutorial dari saya semoga bermanfaat ^_^