Ass. Apa kabar sob hehee……
Sebelumnya saya pernah memposting bagaimna Cara Membuat Aplikasi Input Output Data Menggunakan Borland Delphi 7.
Nah sob disini saya akan mencoba berbagi pengetahuan bagaimna membuat kalkulator sederhana dengan menggunakan Borland Delphi 7. Langsung aja dech kita pembahasan hehe.
Nah sob dibawah ini adalah desain form nya.
Aturlah properties controlnya terlebih dahulu seperti pada tabel yang ada di bawah ini. 
Nama Control
|
Properties
|
Nilai Pengaturan
|
Form
|
Caption
|
Aplikasi Kalkulator Sederhana
|
Label1
|
Caption
|
KALKULATOR
|
Label2
|
Caption
|
Bilangan Ke 1
|
Label3
|
Caption
|
Bilangan ke 2
|
Label4
|
Caption
|
Hasil Hitungan
|
Text1
|
Text
|
Kosongkan
|
Text2
|
Text
|
Kosongkan
|
Text3
|
Text
|
Kosongkan
|
Button1
|
Caption
|
&Penjumlahan
|
Button2
|
Caption
|
&Pengurangan
|
Button3
|
Caption
|
&Perkalian
|
Button4
|
Caption
|
&Pembagian
|
Button2
|
Caption
|
&Ulang Bilangan
|
Button5
|
Caption
|
&Close
|
Nah kemudian ketikan kode program berikut;
1. Double Kilick Button1 dan isikan listing program dibawah ini.
procedure TForm1.BitBtn1Click(Sender: TObject);
var a,b,c:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
C:=a+b;
edit3.Text:=inttostr(c);
end;
2. Double Kilick Button2 dan isikan listing program dibawah ini.
procedure TForm1.BitBtn2Click(Sender: TObject);
var a,b,c:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
C:=a-b;
edit3.Text:=inttostr(c);
end;
3. Double Kilick Butto 3 dan isikan listing program dibawah ini.
procedure TForm1.BitBtn3Click(Sender: TObject);
var a,b,c:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
C:=a*b;
edit3.Text:=inttostr(c);
end;
4. procedure TForm1.BitBtn4Click(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
C:=a/b;
edit3.Text:=floattostr(c);
end;
end.
Nah sob,,,,,setelah kalian mengetik koding di atas coba sobat jalan kan programnya dengan cara menekan tombol F9 pada keyboard.
Kalau sukses maka hasilnya akan seperti gambar di bawah ini.
Semoaga artikel ini dapat bermanfaat ya sob....
selamat mencoba dan sukses
selamat mencoba dan sukses
gan kenapa kalo pembagian harus real? mohon pencerahannya. maklum newbie :D
ReplyDeleteAndi: hehe :) jadi gini gan...Real merupakan floating yang digunakan untuk menyatakan bilangan yang mempunayi angka desimal atau pun angka pecahan.
Deletecoba aja agan ganti variabel yang di deklarasikan di Button Pembagian tipe datanya menjadi integer....pasti program tersebut g,k bakalan jalan hehhe...
maaf bru bisa bls.. soalnya baru buka blog lagi hehe :)
gan thx bgt yaa
ReplyDeleteok sip sama-sama.... hehe :)
Delete