Contoh Cara Pembuatan Games Pada Visual Basic

Componen pada Toolbox yang kita gunakan adalah :

1.      OptionButton(3 Buah)

2.      Label(5 Buah)

3.      Shape(3 Buah)

4.      CommandButton(3 Buah)

5.      Timer (3 Buah)

Langkah Pembuatannya :

Klik 2 kali pada bagian form yang kosong. Lalu jika ada tulisan seperti dibawah ini, hapus tulisan itu.

Private Sub Form_Load()

End sub

Lalu ketikkan syntax dibawah ini :

Private Sub Command1_Click()

a = Option1

b = Option2

c = Option3

If a = True Then

    a = vbRed

    End If

If b = True Then

    b = vbGreen

    End If

If c = True Then

    c = vbBlue

    End If

   

If Label3.BackColor = a Then

    Timer1.Enabled = False

    Label4.Visible = False

    Label5.Visible = False

ElseIf Label4.BackColor = b Then

    Timer2.Enabled = False

    Label5.Visible = False

    Label3.Visible = False

ElseIf Label5.BackColor = c Then

    Timer3.Enabled = False

    Label3.Visible = False

    Label4.Visible = False

Else: MsgBox "Anda Kurang beruntung", 0, "coba lagi"

        Timer1.Enabled = True

        Timer2.Enabled = True

        Timer3.Enabled = True

    End If

   

    If Timer1.Enabled = False Or Timer2.Enabled = False Or Timer3.Enabled = False Then

    MsgBox "Jakpot", 0, "Selamat"

    End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Timer1.Enabled = True

Timer2.Enabled = True

Timer3.Enabled = True

Label3.Visible = True

Label4.Visible = True

Label5.Visible = True

End Sub

Private Sub Form_Load()

Shape1.FillColor = vbRed

Shape1.FillStyle = 0

Shape2.FillColor = vbGreen

Shape2.FillStyle = 0

Shape3.FillColor = vbBlue

Shape3.FillStyle = 0

Label1.Caption = "Games Menebak Warna"

Label2.Caption = "Pilihanlah Warna Yang Tersedia Dibawah Ini :"

Command1.Caption = "Oke"

Command2.Caption = "End"

Command3.Caption = "Coba Lagi"

End Sub

Private Sub Timer1_Timer()

warna = Int((Rnd) * 3)

If warna = 1 Then

Label3.BackColor = vbRed

ElseIf warna = 2 Then

Label3.BackColor = vbGreen

Else: Label4.BackColor = vbBlue

End If

End Sub

Private Sub Timer2_Timer()

warna = Int((Rnd) * 3)

If warna = 1 Then

Label4.BackColor = vbRed

ElseIf warna = 2 Then

Label4.BackColor = vbGreen

Else: Label4.BackColor = vbBlue

End If

End Sub

Private Sub Timer3_Timer()

warna = Int((Rnd) * 3)

If warna = 1 Then

Label5.BackColor = vbRed

ElseIf warna = 2 Then

Label5.BackColor = vbGreen

Else: Label5.BackColor = vbBlue

End If

End Sub

Setelah itu klik 1 kali pada masing” Timer (yang berbentuk seperti jam)..

Lihat dibagian kanan layar carilah kotak dialog Properties dan gantilah interval pada timer1 yaitu 10, interval pada timer2 adalah 20 dan interval pada timer3 adalah 30.