Mari Belajar Visual Basic dan Delphi

Game Pada Delphi 7

Bisakah kita membuat game ada Delphi? Tentu saja! Mari kita coba membuat game sederhana pada Delphi.

LISTING PROGRAM

FORM 1

LOGIKA PROGRAM

Yuk mari kita membuat GAME! Caranya? Buka Delphi 7, maka akan muncul tampilan sebagai berikut :

Nah, setelah terbuka dan siap di design, maka kita design sebuah permainan simple seperti dibawah ini :

Penjelasan design-nya :

- Tombol Button1 diganti namanya dengan tblMain dan captionnya menjadi MAIN!!!!

- Timer1 diganti namanya dengan telurTime

- Timer2 diganti namanya dengan waktuTime

- Label1 diganti namanya dengan lblWaktu dan captionnya diganti WAKTU

- Label2 diganti namanya dengan lblSkor dan captionnya diganti dengan SKOR

- Label3 diganti namanya dengan lbl60 dan captionnya diganti dengan 60

- Label4 diganti namanya dengan lblDetik dan captionnya dengan DETIK

- Label5 diganti namanya dengan lbl0 dan captionnya dengan 0

- Image1 di upload dengan gambar Telor

- Image2 diupload gambar kotak/kardus

Kodingan pertama kita masukkan pada formnya yaitu :

Nah setelah itu kita pilih panel kita lalu klik ke events disamping properties :

Nah pilih OnMouseMove setelah itu dan klik dua kali pada box kosongnya dan masukkan kodingan seperti dibawah ini :

Okay selanjutnya kita pilih Timer1 alias telorTimer kita, klik 2x dan masukkan kodingan berikut:

Selanjutnya, klik dua kali pada timer2 nya atau waktuTimer ddan masukkan kodingannya :

Dan kodingan terakhir untuk mengaktifkan permainannya! Klik dua kali pada Button Mainnya dan kita koding seperti dibawah ini :

OUTPUT

Pada saat kita run, maka akan muncul form seperti ini :

Dan apa bila kita klik MAIN!!!! Maka permainannya akan dimulaai :

Dan apabila waktu sudah berakhir maka aka nada pilihan untuk main lagi, atau tidak seperti ini :

Simple bukan? Good Luck!!!

Timer Pada Delphi

Apakah kalian tahu bahwa timer juga ada pada Delphi? Mau tau kegunaan dan cara memakainya? Yook kita coba buat animasi sederhana dengan menggunakan timer pada Delphi.

LISTING PROGRAM

LOGIKA PROGRAM

Untuk memulainya, klik dua kali pada Icon Delphi 7 pada desktop seperti dibawah ini :

Lalu akan muncul form awal seperti dibawah ini :

Design form tersebut menjadi seperti dibawah ini :

Penjelasan :

Timernya kita taruh 4 buah dan letaknya terserah dimana saja

CommandButton1 kita ganti namanya dengan Start

CommandButton2 kita ganti namanya dengan Stop

Panel1 sebagai tempatnya

Shape1 kita ubah namanya jadi Lingkaran dan Shapenya di ubah menjadi lingkaran

Setelah itu klik 2 kali pada Tombol Start dan masukkan kodingan dibawah ini :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

shape1.Shape := stCircle;

shape1.Left := shape1.Left +1;

if(shape1.left>=262) then

begin

Timer1.enabled := False;

Timer2.enabled := True;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.enabled:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

timer1.Enabled:=false;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

shape1.Shape := stRectangle;

shape1.left := shape1.left -1;

if(shape1.Left=0) then

begin

Timer1.enabled:=true;

timer2.Enabled:=false;

end;

procedure TForm1.Timer3Timer(Sender: TObject);

begin

shape1.Top:=shape1.top +1;

if (shape1.Top >=100) then

begin

timer3.Enabled:=false;

timer4.enabled:=true;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

timer3.Enabled:=true;

end;

procedure TForm1.Timer4Timer(Sender: TObject);

begin

shape1.Top:=shape1.top -1;

if (shape1.Top = 0) then

begin

timer3.Enabled:=true;

timer4.enabled:=false;

end;

end.

OUTPUT

Disaat kita memencet Start maka akan bergerak seperti ini :

Dan apabila mencapai batasnya maka akan terpantul dan memulai timer selanjutnya seperti gambar – gambar dibawah ini :

Lumayan mudah bukan? Selamat mencoba!!!

Database Pada Delphi

Database pada Delphi? Gampang atau Sulit? Mari kita coba buat bersama - sama, Ganbatte Minna-san!!!

FORM 1

DELPHI

MS. ACCESS

KODINGAN

LOGIKA PROGRAM

Pertama kita buka dulu Delphi 7 nya sehingga muncul form kosong seperti dibawah ini :

Setelah itu mari kita design form tersebut berdasarkan form dibawah ini :

Nah kalo sudah, buka Ms. Access dan create database baru, beri nama Mahasiswa dan design seperti dibawah ini :

Pada database diatas setting NPM, NAMA, KELAS, ALAMAT menjadi TEXT semua, save dan tutup Ms. Accessnya.

Next! Kita klik kanan pada ADOConnection1 dan build connectionnya kepada Ms. Access mahasiswa kita tadi :

Setelah dipilih, Test Koneksinya, apabila sudah berhasil akan muncul seperti ini :

Kalo sudah, kita klik ADOtable 1 dan rubah Connectionnya menjadi ADOConnection1 :

Klik juga pada Data Sourcenya dan rubah Data Setnya menjadi ADOTable1 :

Kalo sudah klik pada DBGrid dan rubah DataSourcenya menjadi DataSource1 :

Sip, sekarang kita klik dua kali pada ADOTable1 dan add fieldnya, sebelomnya jangan lupa table namenya kita tambahkan dulu menjadi Table1 :

Rubah Active pada Object Inspectornya ADOTable1 menjadi TRUE. Satnya ngoding, masukkan kodingan pada tombol INPUT seperti dibawah ini :

Selanjutnya pada Tombol Clear :

Dan pada Tombol Delete juga :

OUTPUT

Apabila kodingan kalian berhasil maka apabila di run, akan muncul seperti ini :

Dan apabila kita memasukkan data dan menginputnya, maka hasilnya akan seperti ini :

Untuk tombol clear berguna untuk menghapus pada tempat pengimputan datanya :

Sedang untuk tombol delete berguna untuk menghapus isi dari table yang ada :

Nah mudah bukan? Selamat mencoba!!!

Perkenalan Delphi dan Program Sederhananya

Hari ini saya mau menjelaskan tentang Delphi 7. Apa itu Delphi? Delphi adalah program aplikasi yang menggunakan Bahasa Pascal sebagai dasar pemrogramannya. Dibawah adalah bentuk design awal dari form yang akan kita buat nanti.

LISTING PROGRAM

FORM 1