Tips dan trik cara membuat game sederhana menggunakan vb6

Jika anda membuka app vb6 pasti anda memikirkan vb ini bisa gak ya untuk membuat game, jawabannya Ya bisa sob  tapi jika kita ingin hebat memainkan vb6 ini kita harus mempunyai logika yang tajam , Nah langsung saja ya sob saya akan menunjukan cara membuat game dengan menggunakan vb6.

Adapun langkah-langkah membuat game sederhana ini adalah sebagai berikut.
1. Buka Program Visual basic yang telah terinstall di Komputer Anda.
2. Buat Sebuah Project baru dengan memilih Standart.Exe.
3. Pada Form 1 tambahkan 6 buah label, 3 buah Command Button, Sebuah Timer, Sebuah Control Frame. Pada Control Frame tambahkan 5 buah Control image dan isikan gambar yang ada.

Name Untuk button Start : New_g
Name Untuk Button Pause : Pause_g
Name Untuk Button Stop : Stop_g

4. Susun sedemikian rupa atau kurang lebih seperti gambar berikut.

5. Buka Jendela Kode dan Ketikan Code ini
Dim e, c As Integer
Dim d As Boolean
Private Size%
Private ScreenWidth%
Private ScreenHeight%

6. Buat sebuah Fungsi Hit_Fun sebagai berikut,
Private Sub Hit_Fun(canvas As Object)
    Dim X, x2 As Integer
    Dim Y, y2 As Integer
    Dim i As Integer
    ScreenWidth = Form1.Frame1.Width
    ScreenHeight = Form1.Frame1.Height
    If Size < 1 Then Size = 5
    For i = 1 To 200 / Size / Size
        X = Rnd * ScreenWidth
        Y = Rnd * ScreenHeight
        x2 = Rnd * ScreenWidth - 100
        y2 = Rnd * ScreenHeight - 500
        Form1.Image1.Move X, Y
        Form1.Image4.Move x2, y2
    Next i
End Sub

7. Klik dua Kali Form dan tambahkan script ini
   e = 0
   c = 0
   Timer1.Enabled = False

8. klik dua kali image 1 dan tambahkan script ini
If d Then
    Dim X, Y As Integer
    X = Image1.Left
    Y = Image1.Top
    e = e + 5
    c = c + 1
    Label6.Caption = e
    Label4.Caption = c
    Image2.Move X, Y
    Image2.Visible = True
End If

9. Klik dua kali image 4 dan tambahkan Script ini
    If d Then
    Dim X, Y As Integer
    X = Image4.Left
    Y = Image4.Top
    e = e + 5
    c = c + 1
    Label6.Caption = e
    Label4.Caption = c
    Image3.Move X, Y
    Image3.Visible = True

10. Klik dua kali kontrol timer dan tambahkan script berikut.
   Image1.Visible = True
   Image4.Visible = True
   Hit_Fun Me
   Label2.Caption = Label2.Caption - 1
   If Label2.Caption = "0" Then
      Image1.Visible = False
      Image4.Visible = False
      Image2.Visible = False
      Image3.Visible = False
      Image5.Visible = True
      Timer1.Enabled = False
      new_g.Enabled = True
      stop_g.Enabled = False
      Label2.Caption = "15"
   End If

11. Klik dua kali Button start dan tambahkan script berikut.
   d = True
   Timer1.Enabled = True
   new_g.Enabled = False
   stop_g.Enabled = True
   Label6.Caption = "00"
   Label4.Caption = "00"
   Image5.Visible = False

12. Klik Dua kali button stop dan tambahkan script berikut
  Timer1.Enabled = False
   new_g.Enabled = True
   stop_g.Enabled = False
   Image1.Visible = False
   Image4.Visible = False
   Image2.Visible = False
   Image3.Visible = False
   Image5.Visible = True
   Label2.Caption = "15"
   Label6.Caption = "00"
   Label4.Caption = "00"

13. Klik dua kali button pause dan tambahkan script berikut.
   If new_g.Enabled = False Then
   If pause_g.Caption = "&Pause" Then
      Timer1.Enabled = False
      pause_g.Caption = "&Continue"
      d = False
   Else
      Timer1.Enabled = True
      pause_g.Caption = "&Pause"
      d = True
   End If
End If

14. Selesai. Jalankan Project Game Sederhana dengan Visual basic Buatan Anda sendiri. Jika ada debug, cari dan perbaiki mungkin ada kesalahan penulisan name control atau lainnya.
15. Simpan Proyek Game sederhana menggunakan visual basic buatan sendiri.

Terima kasih sudah mengunjungi blog saya, semoga bermamfaat untuk anda, :)