Kalkulator Dengan Delphi

Untuk Kesempatan kali ini saya coba meng'expost membuat kalkulator sederhana menggunakan Delphi. gusah banyak ngomong langsung aja praktek,,

Sebelumnya saya kasih komoponen yang di gunakan dalam  pembuatan Kalkulator sederhana. yang harus disiapkan antara lain :

1. 3 buah Edit
2. 8 buah Button
3. 4 buah Label

selanjutnya Tinggal Design aja Sperti di bawah ini :

Untuk Source Code nya  tinggal COPAS ajah di bawah ini :


procedure TForm1.ClearClick(Sender: TObject);
begin
edit1.clear;
edit2.clear;
edit3.clear;
edit1.SetFocus;
end;

procedure TForm1.TambahClick(Sender: TObject);

begin

if edit1.Text=''then

  begin

  beep;ShowMessage('Angka 1 belum di isi');

  edit1.setfocus;

  end else

if edit2.Text=''then

  begin

  beep;ShowMessage('Angka 2 belum di isi');

  edit2.setfocus;

  end else

  begin

  a:=strtoint(edit1.Text);

  b:=strtoint(edit2.Text);

    c:=a+b;

    edit3.Text:=inttostr(c);

    end;

end;

Untuk Operator tinggal ganti ajah Source Code yang di c:=a+b; Untuk Operator yang laen + di ganti dengan -,*,/, div dan mod.
Selesai dech....


met mencoba Semoga Sukses......