Cara Membuat Kalkulator Sederhana

Hal yang pertama belajar pemrograman destop pasti kita hars melewati percobaan seperti dibawah ini yaitu membuat kalkulator sederhana yang bisa menambahkan, kurang, kali, dan bagi. untuk membuat kalkulator sederhana ini langkah awal membuat desain terlebih dahulu. ikuti langah demi langkah berikut ini:

Sediakan Form Desain

Klik Gambar untuk Memperjelas

                               
siapkan
Label1: TLabel;
    txtnilai1: TEdit;
    txtnilai2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    txttambah: TEdit;
    txtkali: TEdit;
    txtkurang: TEdit;
    txtbagi: TEdit;
    Label4: TLabel;
    GroupBox1: TGroupBox;
    RadioGroup1: TRadioGroup;
    Label2: TLabel;
    Label3: TLabel;
    Button5: TButton;
Saatnya coding

Untuk Tombol Tambah Klik 2x 
procedure TForm2.Button1Click(Sender: TObject);
var
nil1,nil2:real;
HasilTambah:real;
begin
nil1:=strtofloat(txtnilai1.text);
nil2:=strtofloat(txtnilai2.text);
HasilTambah:=nil1+nil2;
txtTambah.text:=floattostr(HasilTambah);
end;
Untuk Tombol Close  Klik 2x
procedure TForm2.Button5Click(Sender: TObject);
begin
close;
end;
Untuk Tombol Kali , Klik 2x
procedure TForm2.Button2Click(Sender: TObject);
var
nil1,nil2:real;
Hasilx:real;
begin
nil1:=strtofloat(txtnilai1.text);
nil2:=strtofloat(txtnilai2.text);
Hasilx:=nil1*nil2;
txtKali.text:=floattostr(Hasilx);
end;

Untuk Tombol Kurang Klik 2x
procedure TForm2.Button3Click(Sender: TObject);
var
nil1,nil2:real;
Hasilx:real;
begin
nil1:=strtofloat(txtnilai1.text);
nil2:=strtofloat(txtnilai2.text);
Hasilx:=nil1-nil2;
txtkurang.text:=floattostr(Hasilx);

end;
Untuk Tombol Bagi Klik 2x
procedure TForm2.Button4Click(Sender: TObject);
var
nil1,nil2:real;
Hasilx:real;
begin
nil1:=strtofloat(txtnilai1.text);
nil2:=strtofloat(txtnilai2.text);
Hasilx:=nil1/nil2;
txtbagi.text:=floattostr(Hasilx);

end;___