Selasa, 16 Oktober 2012

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."

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjoSLEFMX139cMnkA5xf97PdIjpl9EAaSJFS8XUFE7tvKR5CBMt5-a0cU7lurYhJeqZnohJ5doUe5HqmlrmDhSj20JtwodZZIdGVfDxLGw5HqeuHqff6u3Vy2BaqRjkkyHlqlWlxIryr9w/s320/untitled.JPG












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

Tidak ada komentar:

Posting Komentar

kumpulan ilmu komputer