Simple Calculator With Delphi 7

Aplikasi yang sederhana untuk memahami penggunaan operasi aritmatika adalah kalkulator. Script yang digunakan untuk membuat kalkulator sederhana val dan str yang digunakan untuk mengkonversi data numeric ke string atau pun sebaliknya.
Val digunakan untuk menkonversi data string ke numeric. Format penulisannya val(variable string,variable nuberic,var kode). Untuk ‘var kode‘ tipe data yang digunakan harus integer (lihat menu help delphi).
Str digunakan untuk mengkonversi data numeric ke data string, format penulisannya str(variable numeric, varibel string). Penggunaan variable numeric bisa juga dimodifikasi dengan pemberian parameter, contoh str(hasil:5:2,StrHasil); artinya tampilan angka yang ditampilkan adalah 5 angka di sebelum koma dan 2 angka setelah koma (xxxxx,xx).

Supaya lebih jelas buat projek baru dan atur tampilannya seperti berikut:





Langkah pertama buat variable global agar bisa diakses procedure yang lainnya. Cari kode var dan atau implementation, kemudian ketikan kode deklarasi varibel seperti di bawah ini:

var
Form1: TForm1;
bil1,bil2,hasil:real;
Strbil1,Strbil2,Strhasil:string;
kode:integer;

implementation

Langkah kedua double click object Form1 dan ketikan kode berikut :
Label1.Caption:='Bilangan 1';
Label2.Caption:='Bilangan 2';
Label3.Caption:='Bilangan 3';
Label4.Caption:='Simple Calculator';

Button1.Caption:='+';
Button2.Caption:='-';
Button3.Caption:='x';
Button4.Caption:=':';
Button5.Caption:='clear';
Button6.Caption:='exit';

Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';

Langkah ketiga double click object Button5 kemudian ketikan kode berikut :
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';

Langkah keempat doble click object Button6 kemudian ketikan kode berikut :
Application.Terminate;

Langkah kelima click object Button1 kemudian ketikan kode berikut:
val(Edit1.Text,bil1,kode);
val(Edit2.Text,bil2,kode);
hasil:=bil1+bil2;
str(hasil:5:2,StrHasil);
Edit3.Text:=Strhasil;

Lakukan hal yang sama untuk object button2 sampai dengan object button4. Tapi edit tanda operator ‘+’ dengan ‘-‘ , ‘*’, dan ‘/’ . Sesuaikan dengan fungsi tombolnya.