Membuat Game Sederhana .

Game Sederhana dengan Visual Basic 6.0

 

Andiero pernah memposting sebuah artikel tentang bagaimana Membuat Game SederhanaDengan Visual Basic 6.0 berupa Game Acak Angka. Dan respon pembaca terhadap artikel tersebut cukup besar. Artikel kali ini juga akan membahas tentang  Membuat Game Sederhana Dengan Visual Basic 6.0 yaitu game Hit and Fun. Mau tahu cara pembuatannya…?

Tutorial Membuat Game Sederhana Dengan Visual Basic 6.0 ini andiero dapat dari seorang teman. Ia memberikan Source Code 12 Proyek Unik Menggunakan Visual Basic dan Andiero tertarik pada Game Sederhana dengan nama Lalat.

Untuk menghargai dan menghormati hasil karya cipta sang pembuat, maka Andiero mencoba mengulas kembali cara membuat game tersebut berdasarkan tutorialnya dan mengeditnya sehingga dihasilkan game Hit and Fun buatan Andiero.

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.

Gambar.2 Tampilan Game Sederhana Hit And Fun

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 Game sederhana menggunakan visual basic buatan sendiri.

Anda bisa menambahkan fungsi lainnya sehingga Game buatan anda tersebut semakin asyik untuk dimainkan. Pada proyek aslinya, si pembuat menambahkan fungsi Options sehingga kita dapat melakukan pengaturan terhadap tempo Objek dan Timing permainan.

Ya..Demikianlah Tutorial Membuat Game sederhana Menggunakan Visual Basic 6.0 yang dapat andiero berikan. Jika ada kesalahan mohon diperbaiki. Dan semoga apa yang Andiero berikan dapat bermamfaat bagi Kita semua….

Silakan meninggalkan Komentar yang membangun.

Support blog ini dengan Pasang Link Blog ini di Blog Anda.

Terima Kasih banyak…