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