Rabu, 31 Oktober 2012

Membuat Game sederhana dengan Delphi 7


Oke langsung aja … berikut ini adalah contoh program game yang saya buat , sbenere ini tugas akhir semester ku, dari pada ndongkrok di computerku gak ada gunanye .. sekalian tak share ke temen-temen, nih screen shotnya






Game ini Cuma game sederhana gak ada bagus-bagusnya :p, walaupun sederhana tapi buatnya tu agak rumit pren.. soalna aku Cuma pake komponen standar Delphi.. fiuuuuff…. Lima hari baru selese, dan codingnya juga semrawut.. hahaha … maklum masih amatiran…
karena script nya panjaaaaaaaaaaaaaaaaaaaaaang bgt... jadinya kalo tak tulisin disini ntar jd menuh menuhin halaman.... kalo ada yang mau … silahkan donlud source nya,,,,, crazy-icon

Selasa, 30 Oktober 2012

Cara membuat software kalkulator sederhana menggunakan delphi 7


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