Form Game Sederhana Puzzle Angka VB.Net

VB.Net

Pada form ini dibuat permainan puzzle angka, ketika button ACAK ditekan maka button ACAK akan berubah nama menjadi STOP sekaligus menjalankan perintah untuk mengacak angka-angka pada gambar diatas. Ketika button STOP di tekan maka angka akan berhenti mengacak dan nama button akan kembali menjadi ACAK. Setelah angka berhasil disusun sesuai urutannya program akan mengeluarkan message box berupa ucapan selamat.

Berikut adalah gambar ketika form dijalankan :

Gambar 2.1

(Gambar ketika form dijalankan)

Gambar 2.2

(Gambar ketika urutan angka berhasil disusun sesuai urutannya)

Berikut adalah source codenya :

Public Class GameAcak

Dim jalan As Boolean = False

Private Sub BtnAcak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAcak.Click
jalan = Not jalan
Timer1.Enabled = jalan
If Timer1.Enabled = True Then
BtnAcak.Text = "STOP"
Else
BtnAcak.Text = "ACAK"
End If


End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim pindah As String
Dim warna As Color
'1
pindah = BtnFinish.Text
BtnFinish.Text = Btn6.Text
Btn6.Text = Btn3.Text
Btn3.Text = pindah
warna = BtnFinish.BackColor
BtnFinish.BackColor = Btn6.BackColor
Btn6.BackColor = Btn3.BackColor
Btn3.BackColor = warna
'2
pindah = Btn8.Text
Btn8.Text = Btn5.Text
Btn5.Text = Btn2.Text
Btn2.Text = pindah
warna = Btn8.BackColor
Btn8.BackColor = Btn5.BackColor
Btn5.BackColor = Btn2.BackColor
Btn2.BackColor = warna
'3
pindah = Btn7.Text
Btn7.Text = Btn8.Text
Btn8.Text = BtnFinish.Text
BtnFinish.Text = pindah
warna = Btn7.BackColor
Btn7.BackColor = Btn8.BackColor
Btn8.BackColor = BtnFinish.BackColor
BtnFinish.BackColor = warna
'4
pindah = Btn4.Text
Btn4.Text = Btn5.Text
Btn5.Text = Btn6.Text
Btn6.Text = pindah
warna = Btn4.BackColor
Btn4.BackColor = Btn5.BackColor
Btn5.BackColor = Btn6.BackColor
Btn6.BackColor = warna
'5
pindah = Btn7.Text
Btn7.Text = Btn4.Text
Btn4.Text = Btn1.Text
Btn1.Text = pindah
warna = Btn7.BackColor
Btn7.BackColor = Btn4.BackColor
Btn4.BackColor = Btn1.BackColor
Btn1.BackColor = warna

End Sub

Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click
If Btn2.Text = "" Then
Btn2.Text = Btn1.Text
Btn1.Text = ""
End If
If Btn4.Text = "" Then
Btn4.Text = Btn1.Text
Btn1.Text = ""
End If
End Sub

Private Sub Btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn2.Click
If Btn1.Text = "" Then
Btn1.Text = Btn2.Text
Btn2.Text = ""
End If
If Btn5.Text = "" Then
Btn5.Text = Btn2.Text
Btn2.Text = ""
End If
If Btn3.Text = "" Then
Btn3.Text = Btn2.Text
Btn2.Text = ""
End If
End Sub

Private Sub Btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn3.Click
If btn2.Text = "" Then
btn2.Text = btn3.Text
btn3.Text = ""
End If
If btn6.Text = "" Then
btn6.Text = btn3.Text
btn3.Text = ""
End If
End Sub

Private Sub Btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn4.Click
If btn1.Text = "" Then
btn1.Text = btn4.Text
btn4.Text = ""
End If
If btn5.Text = "" Then
btn5.Text = btn4.Text
btn4.Text = ""
End If
If btn7.Text = "" Then
btn7.Text = btn4.Text
btn4.Text = ""
End If
End Sub

Private Sub Btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn5.Click
If btn2.Text = "" Then
btn2.Text = btn5.Text
btn5.Text = ""
End If
If btn4.Text = "" Then
btn4.Text = btn5.Text
btn5.Text = ""
End If
If btn6.Text = "" Then
btn6.Text = btn5.Text
btn5.Text = ""
End If
If btn8.Text = "" Then
btn8.Text = btn5.Text
btn5.Text = ""
End If
End Sub

Private Sub Btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn6.Click
If btn3.Text = "" Then
btn3.Text = btn6.Text
btn6.Text = ""
End If
If btn5.Text = "" Then
btn5.Text = btn6.Text
btn6.Text = ""
End If
If btnfinish.Text = "" Then
btnfinish.Text = btn6.Text
btn6.Text = ""
End If
End Sub

Private Sub Btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn7.Click
If btn4.Text = "" Then
btn4.Text = btn7.Text
btn7.Text = ""
End If
If btn8.Text = "" Then
btn8.Text = btn7.Text
btn7.Text = ""
End If
End Sub

Private Sub Btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn8.Click
If btn5.Text = "" Then
btn5.Text = btn8.Text
btn8.Text = ""
End If
If btnfinish.Text = "" Then
btnfinish.Text = btn8.Text
btn8.Text = ""
End If
If btn7.Text = "" Then
btn7.Text = btn8.Text
btn8.Text = ""
End If

End Sub

Private Sub BtnFinish_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFinish.Click
If btn8.Text = "" Then
btn8.Text = btnfinish.Text
btnfinish.Text = ""
End If
If btn6.Text = "" Then
btn6.Text = btnfinish.Text
btnfinish.Text = ""
End If
If (btn1.Text = "1" And btn2.Text = "2" And btn3.Text = "3" And btn4.Text = "4" And btn5.Text = "5" And btn6.Text = "6" And btn7.Text = "7" And btn8.Text = "8" And btnfinish.Text = "") Then
MsgBox("Selamat Anda Berhasil!!!")

End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Me.Close()
FormMenu.Show()
End Sub
End Class

Bagikan

Jangan lewatkan

Form Game Sederhana Puzzle Angka VB.Net

4/ 5

Oleh Hery Prasetyo

Hery Prasetyo April 02, 2018 Komentar