Membuat PUZZLE sederhana
tampilan PUZZLE
() bt1
Private Sub bt1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles bt1.Click
If bt2.Text = "" Then
bt2.Text = bt1.Text
bt1.Text = ""
ElseIf bt4.Text = "" Then
bt4.Text = bt1.Text
bt1.Text = ""
End If
If bt1.Text = "1" Then
If bt2.Text = "2" Then
If bt3.Text = "3" Then
If bt4.Text = "4" Then
If bt5.Text = "5" Then
If bt6.Text = "6" Then
If bt7.Text = "7" Then
If bt8.Text = "8" Then
If bt9.Text = "" Then
MessageBox.Show("Selamat Anda Berhasil", "Selamat", MessageBoxButtons.OK)
Else
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
() bt2
Private Sub bt2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles bt2.Click
If bt1.Text = "" Then
bt1.Text = bt2.Text
bt2.Text = ""
ElseIf bt3.Text = "" Then
bt3.Text = bt2.Text
bt2.Text = ""
ElseIf bt5.Text = "" Then
bt5.Text = bt2.Text
bt2.Text = ""
End If
If bt1.Text = "1" Then
If bt2.Text = "2" Then
If bt3.Text = "3" Then
If bt4.Text = "4" Then
If bt5.Text = "5" Then
If bt6.Text = "6" Then
If bt7.Text = "7" Then
If bt8.Text = "8" Then
If bt9.Text = "" Then
MessageBox.Show("Selamat Anda Berhasil", "Selamat", MessageBoxButtons.OK)
Else
End If
End If
End If
End If
End If
End If
End If
End If
End If
() bt3
Private Sub bt3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles bt3.Click
If bt2.Text = "" Then
bt2.Text = bt3.Text
bt3.Text = ""
ElseIf bt6.Text = "" Then
bt6.Text = bt3.Text
bt3.Text = ""
End If
If bt1.Text = "1" Then
If bt2.Text = "2" Then
If bt3.Text = "3" Then
If bt4.Text = "4" Then
If bt5.Text = "5" Then
If bt6.Text = "6" Then
If bt7.Text = "7" Then
If bt8.Text = "8" Then
If bt9.Text = "" Then
MessageBox.Show("Selamat Anda Berhasil", "Selamat", MessageBoxButtons.OK)
Else
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
() bt4 sama seperti diatas, dan seterusnya sampai bt8.
() bt9
Private Sub bt9_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles bt9.Click
If bt6.Text = "" Then
bt6.Text = bt9.Text
bt9.Text = ""
ElseIf bt8.Text = "" Then
bt8.Text = bt9.Text
bt9.Text = ""
End If
If bt1.Text = "1" Then
If bt2.Text = "2" Then
If bt3.Text = "3" Then
If bt4.Text = "4" Then
If bt5.Text = "5" Then
If bt6.Text = "6" Then
If bt7.Text = "7" Then
If bt8.Text = "8" Then
If bt9.Text = "" Then
MessageBox.Show("Selamat Anda Berhasil", "Selamat", MessageBoxButtons.OK)
Else
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
