Membuat Program kalkulator sederhana menggunakan delphi 7

Siapkan 1 Button, 1 Combobox, 3 Edit, dan 4 Label

Kemudian setting Properties seperti gambar dibawah ini :

Untuk mengisi combobox cari items di properties combobox seperti pada gambar dibawah :

Kemudian isi string list editor seperti gambar dibawah

Setelah semua selesai masukan syntax dibwah ke button 1

procedure TForm1.Button1Click(Sender: TObject);

var x,y,z: real;

begin

x:= strtofloat(edit1.Text);

y:=strtofloat(edit2.Text);

if combobox1.Text = ‘+’ then

z:=x+y

else

if combobox1.text = ‘-‘ then

z:=x-y

else

if combobox1.text=’/’ then

z:=x/y

else

if combobox1.text=’*’ then

z:=x*y;

edit3.text:=floattostr(z);

end;

Kemudian silahkan Compile :)

Catatan : Program ini memiliki kelemahan apabila dibagi 0, Karena apabila bilangan dibagi 0 hasilnya adalah tidak terhingga