Membuat Kalkulator dengan Delphi 7

4 comments
Membuat Kalkulator dengan Delphi 7 dengan Operator Aritmatika, Perbandingan dan Logika - Yo, kembali lagi bertemu dengan Saya di blog sederhana ini. Pada postingan kali ini, Saya akan membagikan tutorial membuat kalkulator dengan delphi 7 dimana didalamnya terdapat 3 type operator yang berbeda. yaitu operator aritmatika, perbandingan (rasional) dan Logika. Dimana 3 operator itu nantinya terdiri dari 16 operator. Nah, bagaimana caranya hayo? wkwk pasti pada udah nungguin. Saya mengupdate artikel ini karena temen temen sekampus memaksa demi tugas yang dosen nya itu sangat royal dengan nilai. Maka dari itu, mari Kita belajar bersama untuk membuat program Kalkulator ini. Untuk Coding dengan Not masih dalam proses, sehingga tunggu update berikutnya :

1. Operator Aritmatika

Didalam Operator aritmatika, kita akan menggunakan operator sebagai berikut :


Operator
Operasi
Tipe Operand
Tipe Hasil
Contoh
+
Penjumlahan
integer, real
integer, real
X + Y
Pengurangan
integer, real
integer, real
X – Y
*
Perkalian
integer, real
integer, real
X * Y
/
Pembagian real
integer, real
real
X / Y
div
Pembagian integer
integer
integer
X div Y
mod
Sisa
integer
integer
X mod Y

2. Operator Perbandingan
Didalam Operator perbandingan, Kita akan menggunakan operator tersebut untuk menentukan hasil akhir yang berupa true atau false. yang terdiri dari =, <> , >, < ,<= dan >=.

3. Operator Logika

Untuk operator Logika, yang paling sering digunakan adalah AND, OR, XOR dan NOT. 


 BAGIAN KODING


 1. Siapkan Design seperti gambar berikut ini :

terdiri dari :

2 Label = pertama,kedua(caption)
3 edit = edit1,edit2,edit3 (TEXT=KOSONGKAN)
3 Button = Button1, Button2, Button3 (CAPTION = +,=,AND)

POINT 1

Nah, setelah desain diatas sudah selesai, maka Kita akan memasukkan kodingnya didalam button (tombol). Untuk Button yang bertuliskan '+' adalah aritmatika.

POINT 2

Untuk Button yang bertuliskan '=' adalah perbandingan. Berikut Logika perbandingan '='
Jika edit1.text = edit2.text kemudian tulis edit3 true selain itu tulis edit 3 false
Logika diatas berlaku untuk operator perbandingan lainnya.

POINT 3

Untuk Button yang bertuliskan 'And' adalah Logika. Sama dengan aritmatika tetapi hasilnya akan didapati nilai true dan false (0 dan 1).

POINT 4

 Maka berikut adalah susunan koding nya.


A. ARITMATIKA

Klick dua kali pada Button '+'

Masukkan kode berikut ini :

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z: integer;
begin
  x:=strtoint(edit1.Text);
  y:=strtoint(edit2.Text);
 
z:=x + y;
  edit3.Text:=inttostr(z);
end;
copy yang berwarna merah dan hijau saja
Masukkan kode yang berwarna merah ke dalam susunan koding. Untuk kode lainnya, lihat kode yang berwarna hijau. jika ingin menambahkan - , * , / dan operator aritmatika gantilah operatornya.

pengurangan
z:=x + y;
pembagian
z:=x / y;
Perkalian
z:=x * y;
Div
z:=x DIV y;
MOD
z:=x MOD y;

B. Operator Perbandingan

Klick Button yang bertuliskan =. kode berikut berlaku untuk semua kode perbandingan seper <> tidak sama dengan, kurang dari <, dan lain lain.. Hanya mengganti Operator tersebut saja. Berikut adalah kodenya

procedure TForm1.Button3Click(Sender: TObject);
begin
if edit1.Text = edit2.Text then edit3.Text := 'True'else edit3.Text:= 'False'; 
end; 
kopi yang berwarna merah dan hijau saja
Untuk operator lain :
Tidak Sama Dengan (<>)
edit1.Text <> edit2.Text
Kurangdari ( < )
edit1.Text < edit2.Text
Lebih Dari ( > )
edit1.Text > edit2.Text
Kurang dari sama dengan ( <= )
edit1.Text <= edit2.Text
Lebih dari Sama dengan ( >= )
edit1.Text >= edit2.Text

C. Operator Logika

Klick 2 kali Button yang bertuliskan 'And'.

Masukkan kode berikut

procedure TForm1.Button2Click(Sender: TObject);
var a,b,c:integer;begin
  a:=strtoint(edit1.Text);  b:=strtoint(edit2.Text);  c:=a and b;  edit3.Text:=inttostr(c);

end;
Copy yang berwarna merah saja.

Kode lainnya :

Operator OR
c:=a or b;
Operator XOR
c:=a xor b;


Selamat sekarang silahkan dicompile dulu. Jika berhasil maka Anda sudah teliti, tapi bagi yang belum bisa berkomentar dibawah ini.

Terimakasih atas kunjungan dan partisipasi saat membaca artikel ini. Jangan lupa follow google + Saya demi kemajuan blog ini. Salam Andriod. ALLOH ALLOH :v



4 comments :

Penting Harap Dibaca sejenak :
1. Pengunjung yang baik itu selalu meninggalkan komentar baik
2. Pengunjung yang baik itu berkata sopan
3. Pengunjung yang baik itu Berkomentaar yang Membangun
4. Terima kasih telah membaca :D