Membuat Kalkulator Sederhana

Temen - temen kali ini saya mau share cara membuat kalkulator sederhana dan disini saya masih tetep pakai delphi 7 seperti biasa hehehe.... Karena kalkulator yang akan dibuat masih yang level sederhana maka simbol matematika yang digunakan pun juga masih sebatas +, -, /, dan * saja. Seperti biasa siapkan form yang akan dipakai untuk membuat kalkulator, setelah itu siapkan beberapa komponen sebagai berikut:

• 4 buah label
• 2 buah edit
• 4 buah button

Susun komponen tersebut sesuai keinginan anda atau bisa juga seperti contoh yang saya buat di bawah ini.

Form Kalkulator

Setelah itu tuliskan listing berikut
Untuk button tambah (+):
procedure TForm1.bttambahClick(Sender: TObject);
begin
Label4.Caption:=FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text));
end;

Untuk button kurang (-):
procedure TForm1.btkurangClick(Sender: TObject);
begin
Label4.Caption:=FloatToStr(StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text));
end;

Untuk button bagi (/):
procedure TForm1.btbagiClick(Sender: TObject);
begin
Label4.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
end;

untuk button kali (*):
procedure TForm1.btkaliClick(Sender: TObject);
begin
Label4.Caption:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));
end;

Adapun keterangan yang dapat saya berikan mengenai kode - kode diatas yaitu awalnya label4 dirubah menjadi string terlebih dahulu  dan edit1 dan edit2 di rubah menjadi float / bilangan real agar dapat menghitung bilangan desimal kemudian baru dilakukan penambahan, pengurangan, pembagian ataupun perkalian.... menurut saya listing ini bisa direkomendasikan untuk membuat program penjualan atau pembelian ketika melakukan perhitungan. Dalam hal ini saya akan memberi sample kasus sebagai berikut:

Misal Ibu A ingin membeli telur 0.75 kg sedangkan standar satuan yang digunakan adalah per kg,  maka agar kasir dapat tetap melakukan transaksi yang tidak harus per kg maka kita perubahan dari float ke string seperti pada listing diatas.

Sekian dulu sharing dari saya besuk lanjut lagi ya, semoga tulisan saya dapat membantu temen - temen kalo ada kekurangan pada post saya ini saya mohon kritik dan sarannya. Sangkyu All....