Kamis, 16 Juni 2011

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 Proyek 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….

5 komentar:

Need Your Comments, Please !!!