CARA MEMBUAT APLIKASI KALKULATOR

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 !!!!

Sumber Referensi : http://wildan-hilmi27.blogspot.com/2011/11/cara-membuat-software-kalkulator.html#ixzz3qHMICPSm