Kalkulator Sederhana Menggunakan Delphi

Sugeng Sonten Gan...



Pada kesempatan kali ini aku ingin menulis tentang cara membuat kalkulator sderhana menggunakan Delphi. OK,langsung saja...CEKIDOT

Untuk langkah awal membuat design kalkulator sederhana yang terdiri dari : a. 4 label b. 3 edit untuk menempatkan bilangan pertama, kedua, dan hasil operasi bilangan c. 4 button untuk tombol penjumlahan, pengurangan, perkalian, dan pembagian. Contoh designnya seperti di bawah ini  :

Gambar 1. Design Kalkulator

• Edit 1 ubah name-nya menjadi EdBil1, Edit 2 ubah name-nya menjadi EdBil2, Edit 3 ubah name-nya menjadi EdHasil. Kemudian untuk Text-nya dikosongkan semua ya ? (Name dan Text dicari di object inspector ya ?)
• Button 1 ubah caption-nya menjadi "Jumlah", Button 2 ubah caption-nya menjadi "Kurang", Button 3 ubah caption-nya menjadi "Bagi" dan Button 4 ubah caption-nya menjadi "Kali" (Caption dicari di object inspector masing-masing object ya Gan?)
• Label 1 ubah caption-nya menjadi Bilangan A, Label 2 ubah caption-nya menjadi Bilangan B, Label 3 ubah caption-nya menjadi Hasil

Selanjutnya kita akan mulai memberikan coding. Pada tahap ini saya harap sampeyan-sampeyan bisa lebih teliti dalam menulis coding, karena salah sedikit saja akan berakibat fatal sefatal-fatalnya...hehehehe (sorry,agak berlebihan dikit). Lanjut...CEKIDOD

1. Double klik Button 1 (caption Jumlah), kita isikan coding penjumlahan seperti di bawah ini  :


procedure TForm1.Button1Click(Sender: TObject);
var bil_a:integer;
bil_b:integer;
hasil:integer;
begin
bil_a:=strtoint(EdBil1.Text);
bil_b:=strtoint(EdBil2.Text);
hasil:=bil_a+bil_b;
EdHasil.Text:=inttostr(hasil);
end;



2. Sekarang klik di Button 2 (caption Kurang). Masukkan coding di bawah ini :


procedure TForm1.Button2Click(Sender: TObject);
var bil_a,bil_b,hasil:integer;
begin
bil_a:=strtoint(EdBil1.Text);
bil_b:=strtoint(EdBil2.Text);
hasil:=bil_a - bil_b;
EdHasil.Text:=inttostr(hasil);
end; 



3. Klik Button 4 (caption Kali). Masukkan coding di bawah ini :


procedure TForm1.Button4Click(Sender: TObject);
var bil_a,bil_b,hasil:integer;
begin
bil_a:=strtoint(EdBil1.Text);
bil_b:=strtoint(EdBil2.Text);
hasil:=bil_a * bil_b;
EdHasil.Text:=inttostr(hasil);
end;


4. Klik Button 3 (caption Bagi). Masukkan coding di bawah ini :


procedure TForm1.Button3Click(Sender: TObject);
var bil_a, bil_b:integer;
hasil:real;
begin
bil_a:=strtoint(EdBil1.Text);
bil_b:=strtoint(EdBil2.Text);
hasil:=bil_a / bil_b;
EdHasil.Text:=floattostr(hasil);
end;


Sekarang saatnya kita run program kita. Hasilnya seperti di bawah ini :

Gambar 2. Hasil Kalkulator Sederhana

Jrengg...jreng... Mudah kan? Sampeyan juga bisa menambahkan operator yang lain untuk membuat kalkulator agan lebih lengkap. Berikut Jenis operator yang bisa agan tambahkan :
* Derajat Operator :
1.  @, not
2.  *,/,div,mod,and,shl,shr,as
3.  +,-,or,xor
4.  =,<,>,<=,>=,<>,in,is

* Operator Assigment:

Operator Fungsi Tipe yang diproses Tipe hasil proses
* >> Perkalian >> Integer, real Integer, Real
/  >> Pembagian >> real Integer, real Integer, Real
+ >> Penjumlahan >> Integer, real Integer, Real
- >> Pengurangan >> Integer, real Integer, Real
Div >> Pembagian >> integer Integer Integer
Mod >> Sisa hasil bagi >> Integer integer
//Contoh penerapan :
Angka : = 15 * 2, {Hasil 30}
Angka : = 18 / 2, {Hasil 9}
Angka : = 5 + 2, {Hasil 7}
Angka : = 5 - 2, {Hasil 3}
Angka : = 10 Div 2; {Hasil 5}
Angka : = 10 mod 2; {Hasil 0}

* Operator Relasi :

Operator relasi berfungsi untuk membandingkan suatu nilai (ekspresi) dengan nilai (ekspresi) lain yang akan menghasilkan suatu nilai logika (boolean) yaitu True atau False. Kedua data nilai yang dibandingkan tersebut harus memiliki tipe data yang sama.

*Operator Logika :

AND >> Dan >> Integer Boolean
OR >> Atau >> Integer Boolean
Not >> Tidak >> Integer Boolean
Xor >> Exclusive Or >> Integer Boolean
Shl >> Geser Ke kiri >> Integer Boolean
Shr >> Geser ke Kanan >> Integer Boolean

*Operator Boolean :

And >> Dan >> Boolean Boolean
Or >> Atau >> Boolean Boolean
Not >>Tidak >> Boolean Boolean
Xor >> Exclusive Or >> Boolean Boolean

*Berikut contoh konversi tipe data dalam delphi.
• String ke Integer Strtoint
• String ke Real strtofloat
• String ke currency strtocurr
• Integer ke String inttostr
• Real ke String floattostr
• Currency ke String currtostr

Selamat Mencoba dan Sugeng Sonten Gan....