Cara membuat software kalkulator sederhana menggunakan delphi 7

nah saya baru mendapatkan ilmu pemrograman, sebenarnya saya bukan programer handal.. hehehe saya juga masih pemula.. nah kali ini saya akan share ilmu saya kepada kalian bagaimana cara membuat kalkulator sederhana.

nah syarat yang harus dipenuhi : seperangkat komputer / laptop (wajib), software delphi 7, kopi + camilan (buat yang suka ngopi N ngemil""biar gga ngantuk"" hehehe). kalo udah siap semua, mari kita belajar.

langkah nya kya gini : Nyalakan komputer dan tunggu, kalo udah nyala, installkan delphi 7. klo udah selsai, tinggal ikutin yg bawah aja ya !!

1. Buka Delphi 7 (ada di start menu) hingga ada tampilan sbb


 2. kalo udah, buatlah from seperti ini dengan bertahap : "buat Kalkulator sederhananya, lalu penghitung segitiga, dan Penghitung Akar kuadrat. kalo ngacak juga bisa , tapi harus ada beberapa kode yang diganti."

3. Untuk Kalkulator Sederhana, Klik 2x masing masing tombol Tambah  masukkan kode dibawah ini

procedure TForm1.Button1Click(Sender: TObject);
var A,B,C:INTEGER;
begin
A:=STRTOINT(EDIT1.TEXT);
B:=STRTOINT(EDIT2.TEXT);
C:=A+B;
EDIT3.Text:=INTTOSTR(C)
end;

Note : Jangan Lupa ubah Button1Click == untuk tombol kurang "Button2Click", kali "Button3Click" dan bagi "Button4Click"

Untuk C pada tombol Kurang codenya menjadi C:=A-B;
       Pada tombol Kali codenya menjadi C:=A*B;
       Sedangkan  pada tombol Bagi codenya menjadi C:=A div B;

 4. Untuk Penghitung luas segitiga : klik 2x Tombol Hasil dan masukkan kode dibawah ini :

procedure TForm1.Button5Click(Sender: TObject);
var A,T,L:real; 
begin 
A:=STRTOFLOAT(EDIT4.TEXT); 
T:=STRTOFLOAT(EDIT5.TEXT); 
L:=0.5*A*T; 
EDIT6.Text:=FLOATTOSTR(L); 
end;

5. Untuk penghitung akar, klik 2x tombol Prosess lalu masukkan kode berikut ini

procedure TForm1.Button6Click(Sender: TObject);var x : real;AkarDariX : real;begin// ubah input dari Edit7 yg bertipe string ke tipe realx := StrToFloat (Edit7.Text);// hitung akar dari x, disimpan sbg AkarDariXAkarDariX := sqrt (x);// tampilkan keteranganLabel6.Caption := 'Akar dari ' +' ' + Edit7.Text+ ' ' + 'adalah';// hasil perhitunganLabel5.Caption := FloatToStr (AkarDariX);// memindah fokus ke Edit7Edit7.SetFocus;end; 

 note : "jika hasilnya terbalik / acak-acakan, coba ganti Label6 menjadi Label5,.. dan Label5 menjadi Label6"

Maaf ya kalo banak kekurangannya, maklum saya masih newbie hehehe..
selamat mencoba !!!!