PUZZLE 3x3
Public Class Form3_3
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim control As Windows.Forms.Control
For Each control In Me.Controls
If control.GetType.Name = "Button" Then
Dim rndnumber As Random
Dim number As Integer
rndnumber = New Random
number = rndnumber.Next(1, 9)
control.Text = number
If Button2.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button2.Text = number
Loop Until Button2.Text <> Button1.Text
End If
If Button3.Text = Button2.Text Or Button3.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button3.Text = number
Loop Until Button3.Text <> Button2.Text And Button3.Text <> Button1.Text
End If
If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button4.Text = number
Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text
End If
If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button4.Text = number
Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text
End If
If Button5.Text = Button4.Text Or Button5.Text = Button3.Text Or Button5.Text = Button2.Text Or Button5.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button5.Text = number
Loop Until Button5.Text <> Button4.Text And Button5.Text <> Button3.Text And Button5.Text <> Button2.Text And Button5.Text <> Button1.Text
End If
If Button6.Text = Button5.Text Or Button6.Text = Button4.Text Or Button6.Text = Button3.Text Or Button6.Text = Button2.Text Or Button6.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button6.Text = number
Loop Until Button6.Text <> Button5.Text And Button6.Text <> Button3.Text And Button6.Text <> Button2.Text And Button6.Text <> Button1.Text
End If
If Button7.Text = Button6.Text Or Button7.Text = Button5.Text Or Button7.Text = Button4.Text Or Button7.Text = Button3.Text Or Button7.Text = Button2.Text Or Button7.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button7.Text = number
Loop Until Button7.Text <> Button6.Text And Button7.Text <> Button5.Text And Button7.Text <> Button4.Text And Button7.Text <> Button3.Text And Button7.Text <> Button2.Text And Button7.Text <> Button1.Text
End If
If Button8.Text = Button7.Text Or Button8.Text = Button6.Text Or Button8.Text = Button5.Text Or Button8.Text = Button4.Text Or Button8.Text = Button3.Text Or Button8.Text = Button2.Text Or Button8.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button8.Text = number
Loop Until Button8.Text <> Button7.Text And Button8.Text <> Button6.Text And Button8.Text <> Button5.Text And Button8.Text <> Button4.Text And Button8.Text <> Button3.Text And Button8.Text <> Button2.Text And Button8.Text <> Button1.Text
End If
End If
Button9.Text = ""
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button2.Text = "" Then
Button2.Text = Button1.Text
Button1.Text = ""
ElseIf Button4.Text = "" Then
Button4.Text = Button1.Text
Button1.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Text = "" Then
Button1.Text = Button2.Text
Button2.Text = ""
ElseIf Button3.Text = "" Then
Button3.Text = Button2.Text
Button2.Text = ""
ElseIf Button5.Text = "" Then
Button5.Text = Button2.Text
Button2.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button2.Text = "" Then
Button2.Text = Button3.Text
Button3.Text = ""
ElseIf Button6.Text = "" Then
Button6.Text = Button3.Text
Button3.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button1.Text = "" Then
Button1.Text = Button4.Text
Button4.Text = ""
ElseIf Button7.Text = "" Then
Button7.Text = Button4.Text
Button4.Text = ""
ElseIf Button5.Text = "" Then
Button5.Text = Button4.Text
Button4.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button2.Text = "" Then
Button2.Text = Button5.Text
Button5.Text = ""
ElseIf Button4.Text = "" Then
Button4.Text = Button5.Text
Button5.Text = ""
ElseIf Button6.Text = "" Then
Button6.Text = Button5.Text
Button5.Text = ""
ElseIf Button8.Text = "" Then
Button8.Text = Button5.Text
Button5.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button9.Text = "" Then
Button9.Text = Button6.Text
Button6.Text = ""
ElseIf Button3.Text = "" Then
Button3.Text = Button6.Text
Button6.Text = ""
ElseIf Button5.Text = "" Then
Button5.Text = Button6.Text
Button6.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Button4.Text = "" Then
Button4.Text = Button7.Text
Button7.Text = ""
ElseIf Button8.Text = "" Then
Button8.Text = Button7.Text
Button7.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If Button7.Text = "" Then
Button7.Text = Button8.Text
Button8.Text = ""
ElseIf Button9.Text = "" Then
Button9.Text = Button8.Text
Button8.Text = ""
ElseIf Button5.Text = "" Then
Button5.Text = Button8.Text
Button8.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If Button6.Text = "" Then
Button6.Text = Button9.Text
Button9.Text = ""
ElseIf Button8.Text = "" Then
Button8.Text = Button9.Text
Button9.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
End Class
PUZZLE 4x4
Public Class Form3
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim control As Windows.Forms.Control
For Each control In Me.Controls
If control.GetType.Name = "Button" Then
Dim rndnumber As Random
Dim number As Integer
rndnumber = New Random
number = rndnumber.Next(1, 16)
control.Text = number
If Button2.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button2.Text = number
Loop Until Button2.Text <> Button1.Text
End If
If Button3.Text = Button2.Text Or Button3.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button3.Text = number
Loop Until Button3.Text <> Button2.Text And Button3.Text <> Button1.Text
End If
If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button4.Text = number
Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text
End If
If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button4.Text = number
Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text
End If
If Button5.Text = Button4.Text Or Button5.Text = Button3.Text Or Button5.Text = Button2.Text Or Button5.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button5.Text = number
Loop Until Button5.Text <> Button4.Text And Button5.Text <> Button3.Text And Button5.Text <> Button2.Text And Button5.Text <> Button1.Text
End If
If Button6.Text = Button5.Text Or Button6.Text = Button4.Text Or Button6.Text = Button3.Text Or Button6.Text = Button2.Text Or Button6.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button6.Text = number
Loop Until Button6.Text <> Button5.Text And Button6.Text <> Button3.Text And Button6.Text <> Button2.Text And Button6.Text <> Button1.Text
End If
If Button7.Text = Button6.Text Or Button7.Text = Button5.Text Or Button7.Text = Button4.Text Or Button7.Text = Button3.Text Or Button7.Text = Button2.Text Or Button7.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button7.Text = number
Loop Until Button7.Text <> Button6.Text And Button7.Text <> Button5.Text And Button7.Text <> Button4.Text And Button7.Text <> Button3.Text And Button7.Text <> Button2.Text And Button7.Text <> Button1.Text
End If
If Button8.Text = Button7.Text Or Button8.Text = Button6.Text Or Button8.Text = Button5.Text Or Button8.Text = Button4.Text Or Button8.Text = Button3.Text Or Button8.Text = Button2.Text Or Button8.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button8.Text = number
Loop Until Button8.Text <> Button7.Text And Button8.Text <> Button6.Text And Button8.Text <> Button5.Text And Button8.Text <> Button4.Text And Button8.Text <> Button3.Text And Button8.Text <> Button2.Text And Button8.Text <> Button1.Text
End If
If Button9.Text = Button8.Text Or Button9.Text = Button7.Text Or Button9.Text = Button6.Text Or Button9.Text = Button5.Text Or Button9.Text = Button4.Text Or Button9.Text = Button3.Text Or Button9.Text = Button2.Text Or Button9.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button9.Text = number
Loop Until Button9.Text <> Button8.Text And Button9.Text <> Button7.Text And Button9.Text <> Button6.Text And Button9.Text <> Button5.Text And Button9.Text <> Button4.Text And Button9.Text <> Button3.Text And Button9.Text <> Button2.Text And Button9.Text <> Button1.Text
End If
If Button10.Text = Button9.Text Or Button10.Text = Button8.Text Or Button10.Text = Button7.Text Or Button10.Text = Button6.Text Or Button10.Text = Button5.Text Or Button10.Text = Button4.Text Or Button10.Text = Button3.Text Or Button10.Text = Button2.Text Or Button10.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button10.Text = number
Loop Until Button10.Text <> Button9.Text And Button10.Text <> Button8.Text And Button10.Text <> Button7.Text And Button10.Text <> Button6.Text And Button10.Text <> Button5.Text And Button10.Text <> Button4.Text And Button10.Text <> Button3.Text And Button10.Text <> Button2.Text And Button10.Text <> Button1.Text
End If
If Button11.Text = Button10.Text Or Button11.Text = Button9.Text Or Button11.Text = Button8.Text Or Button11.Text = Button7.Text Or Button11.Text = Button6.Text Or Button11.Text = Button5.Text Or Button11.Text = Button4.Text Or Button11.Text = Button3.Text Or Button11.Text = Button2.Text Or Button11.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button11.Text = number
Loop Until Button11.Text <> Button10.Text And Button11.Text <> Button9.Text And Button11.Text <> Button8.Text And Button11.Text <> Button7.Text And Button11.Text <> Button6.Text And Button11.Text <> Button5.Text And Button11.Text <> Button4.Text And Button11.Text <> Button3.Text And Button11.Text <> Button2.Text And Button11.Text <> Button1.Text
End If
If Button12.Text = Button11.Text Or Button12.Text = Button10.Text Or Button12.Text = Button9.Text Or Button12.Text = Button8.Text Or Button12.Text = Button7.Text Or Button12.Text = Button6.Text Or Button12.Text = Button5.Text Or Button12.Text = Button4.Text Or Button12.Text = Button3.Text Or Button12.Text = Button2.Text Or Button12.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button12.Text = number
Loop Until Button12.Text <> Button11.Text And Button12.Text <> Button10.Text And Button12.Text <> Button9.Text And Button12.Text <> Button8.Text And Button12.Text <> Button7.Text And Button12.Text <> Button6.Text And Button12.Text <> Button5.Text And Button12.Text <> Button4.Text And Button12.Text <> Button3.Text And Button12.Text <> Button2.Text And Button12.Text <> Button1.Text
End If
If Button13.Text = Button12.Text Or Button13.Text = Button11.Text Or Button13.Text = Button10.Text Or Button13.Text = Button9.Text Or Button13.Text = Button8.Text Or Button13.Text = Button7.Text Or Button13.Text = Button6.Text Or Button13.Text = Button5.Text Or Button13.Text = Button4.Text Or Button13.Text = Button3.Text Or Button13.Text = Button2.Text Or Button13.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button13.Text = number
Loop Until Button13.Text <> Button12.Text And Button13.Text <> Button11.Text And Button13.Text <> Button10.Text And Button13.Text <> Button9.Text And Button13.Text <> Button8.Text And Button13.Text <> Button7.Text And Button13.Text <> Button6.Text And Button13.Text <> Button5.Text And Button13.Text <> Button4.Text And Button13.Text <> Button3.Text And Button13.Text <> Button2.Text And Button13.Text <> Button1.Text
End If
If Button14.Text = Button13.Text Or Button14.Text = Button12.Text Or Button14.Text = Button11.Text Or Button14.Text = Button10.Text Or Button14.Text = Button9.Text Or Button14.Text = Button8.Text Or Button14.Text = Button7.Text Or Button14.Text = Button6.Text Or Button14.Text = Button5.Text Or Button14.Text = Button4.Text Or Button14.Text = Button3.Text Or Button14.Text = Button2.Text Or Button14.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button14.Text = number
Loop Until Button14.Text <> Button13.Text And Button14.Text <> Button12.Text And Button14.Text <> Button11.Text And Button14.Text <> Button10.Text And Button14.Text <> Button9.Text And Button14.Text <> Button8.Text And Button14.Text <> Button7.Text And Button14.Text <> Button6.Text And Button14.Text <> Button5.Text And Button14.Text <> Button4.Text And Button14.Text <> Button3.Text And Button14.Text <> Button2.Text And Button14.Text <> Button1.Text
End If
If Button15.Text = Button14.Text Or Button15.Text = Button13.Text Or Button15.Text = Button12.Text Or Button15.Text = Button11.Text Or Button15.Text = Button10.Text Or Button15.Text = Button9.Text Or Button15.Text = Button8.Text Or Button15.Text = Button7.Text Or Button15.Text = Button6.Text Or Button15.Text = Button5.Text Or Button15.Text = Button4.Text Or Button15.Text = Button3.Text Or Button15.Text = Button2.Text Or Button15.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 16)
Button15.Text = number
Loop Until Button15.Text <> Button14.Text And Button15.Text <> Button13.Text And Button15.Text <> Button12.Text And Button15.Text <> Button11.Text And Button15.Text <> Button10.Text And Button15.Text <> Button9.Text And Button15.Text <> Button8.Text And Button15.Text <> Button7.Text And Button15.Text <> Button6.Text And Button15.Text <> Button5.Text And Button15.Text <> Button4.Text And Button15.Text <> Button3.Text And Button15.Text <> Button2.Text And Button15.Text <> Button1.Text
End If
End If
Button16.Text = ""
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button2.Text = "" Then
Button2.Text = Button1.Text
Button1.Text = ""
ElseIf Button5.Text = "" Then
Button5.Text = Button1.Text
Button1.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Text = "" Then
Button1.Text = Button2.Text
Button2.Text = ""
ElseIf Button3.Text = "" Then
Button3.Text = Button2.Text
Button2.Text = ""
ElseIf Button6.Text = "" Then
Button6.Text = Button2.Text
Button2.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button2.Text = "" Then
Button2.Text = Button3.Text
Button3.Text = ""
ElseIf Button4.Text = "" Then
Button4.Text = Button3.Text
Button3.Text = ""
ElseIf Button7.Text = "" Then
Button7.Text = Button3.Text
Button3.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button3.Text = "" Then
Button3.Text = Button4.Text
Button4.Text = ""
ElseIf Button8.Text = "" Then
Button8.Text = Button4.Text
Button4.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button1.Text = "" Then
Button1.Text = Button5.Text
Button5.Text = ""
ElseIf Button6.Text = "" Then
Button6.Text = Button5.Text
Button5.Text = ""
ElseIf Button9.Text = "" Then
Button9.Text = Button5.Text
Button5.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button2.Text = "" Then
Button2.Text = Button6.Text
Button6.Text = ""
ElseIf Button5.Text = "" Then
Button5.Text = Button6.Text
Button6.Text = ""
ElseIf Button10.Text = "" Then
Button10.Text = Button6.Text
Button6.Text = ""
ElseIf Button7.Text = "" Then
Button7.Text = Button6.Text
Button6.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Button3.Text = "" Then
Button3.Text = Button7.Text
Button7.Text = ""
ElseIf Button6.Text = "" Then
Button6.Text = Button7.Text
Button7.Text = ""
ElseIf Button11.Text = "" Then
Button11.Text = Button7.Text
Button7.Text = ""
ElseIf Button8.Text = "" Then
Button8.Text = Button6.Text
Button6.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If Button4.Text = "" Then
Button4.Text = Button8.Text
Button8.Text = ""
ElseIf Button7.Text = "" Then
Button7.Text = Button8.Text
Button8.Text = ""
ElseIf Button12.Text = "" Then
Button12.Text = Button8.Text
Button8.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If Button5.Text = "" Then
Button5.Text = Button9.Text
Button9.Text = ""
ElseIf Button10.Text = "" Then
Button10.Text = Button9.Text
Button9.Text = ""
ElseIf Button13.Text = "" Then
Button13.Text = Button9.Text
Button9.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
If Button6.Text = "" Then
Button6.Text = Button10.Text
Button10.Text = ""
ElseIf Button9.Text = "" Then
Button9.Text = Button10.Text
Button10.Text = ""
ElseIf Button11.Text = "" Then
Button11.Text = Button10.Text
Button10.Text = ""
ElseIf Button14.Text = "" Then
Button14.Text = Button10.Text
Button10.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
If Button7.Text = "" Then
Button7.Text = Button11.Text
Button11.Text = ""
ElseIf Button10.Text = "" Then
Button10.Text = Button11.Text
Button11.Text = ""
ElseIf Button15.Text = "" Then
Button15.Text = Button11.Text
Button11.Text = ""
ElseIf Button12.Text = "" Then
Button12.Text = Button11.Text
Button11.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
If Button8.Text = "" Then
Button8.Text = Button12.Text
Button12.Text = ""
ElseIf Button11.Text = "" Then
Button11.Text = Button12.Text
Button12.Text = ""
ElseIf Button16.Text = "" Then
Button16.Text = Button12.Text
Button12.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
If Button9.Text = "" Then
Button9.Text = Button13.Text
Button13.Text = ""
ElseIf Button14.Text = "" Then
Button14.Text = Button13.Text
Button13.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
If Button10.Text = "" Then
Button10.Text = Button14.Text
Button14.Text = ""
ElseIf Button13.Text = "" Then
Button13.Text = Button14.Text
Button14.Text = ""
ElseIf Button15.Text = "" Then
Button15.Text = Button14.Text
Button14.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If Button11.Text = "" Then
Button11.Text = Button15.Text
Button15.Text = ""
ElseIf Button14.Text = "" Then
Button14.Text = Button15.Text
Button15.Text = ""
ElseIf Button16.Text = "" Then
Button16.Text = Button15.Text
Button15.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
If Button12.Text = "" Then
Button12.Text = Button6.Text
Button16.Text = ""
ElseIf Button15.Text = "" Then
Button15.Text = Button16.Text
Button16.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
End Class
PUZZLE 6x6
Public Class Form_Puzzle_6x6
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim control As Windows.Forms.Control
For Each control In Me.Controls
If control.GetType.Name = "Button" Then
Dim rndnumber As Random
Dim number As Integer
rndnumber = New Random
number = rndnumber.Next(1, 36)
control.Text = number
If Button2.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button2.Text = number
Loop Until Button2.Text <> Button1.Text
End If
If Button3.Text = Button2.Text Or Button3.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button3.Text = number
Loop Until Button3.Text <> Button2.Text And Button3.Text <> Button1.Text
End If
If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button4.Text = number
Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text
End If
If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button4.Text = number
Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text
End If
If Button5.Text = Button4.Text Or Button5.Text = Button3.Text Or Button5.Text = Button2.Text Or Button5.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button5.Text = number
Loop Until Button5.Text <> Button4.Text And Button5.Text <> Button3.Text And Button5.Text <> Button2.Text And Button5.Text <> Button1.Text
End If
If Button6.Text = Button5.Text Or Button6.Text = Button4.Text Or Button6.Text = Button3.Text Or Button6.Text = Button2.Text Or Button6.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button6.Text = number
Loop Until Button6.Text <> Button5.Text And Button6.Text <> Button3.Text And Button6.Text <> Button2.Text And Button6.Text <> Button1.Text
End If
If Button7.Text = Button6.Text Or Button7.Text = Button5.Text Or Button7.Text = Button4.Text Or Button7.Text = Button3.Text Or Button7.Text = Button2.Text Or Button7.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button7.Text = number
Loop Until Button7.Text <> Button6.Text And Button7.Text <> Button5.Text And Button7.Text <> Button4.Text And Button7.Text <> Button3.Text And Button7.Text <> Button2.Text And Button7.Text <> Button1.Text
End If
If Button8.Text = Button7.Text Or Button8.Text = Button6.Text Or Button8.Text = Button5.Text Or Button8.Text = Button4.Text Or Button8.Text = Button3.Text Or Button8.Text = Button2.Text Or Button8.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button8.Text = number
Loop Until Button8.Text <> Button7.Text And Button8.Text <> Button6.Text And Button8.Text <> Button5.Text And Button8.Text <> Button4.Text And Button8.Text <> Button3.Text And Button8.Text <> Button2.Text And Button8.Text <> Button1.Text
End If
If Button9.Text = Button8.Text Or Button9.Text = Button7.Text Or Button9.Text = Button6.Text Or Button9.Text = Button5.Text Or Button9.Text = Button4.Text Or Button9.Text = Button3.Text Or Button9.Text = Button2.Text Or Button9.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button9.Text = number
Loop Until Button9.Text <> Button8.Text And Button9.Text <> Button7.Text And Button9.Text <> Button6.Text And Button9.Text <> Button5.Text And Button9.Text <> Button4.Text And Button9.Text <> Button3.Text And Button9.Text <> Button2.Text And Button9.Text <> Button1.Text
End If
If Button10.Text = Button9.Text Or Button10.Text = Button8.Text Or Button10.Text = Button7.Text Or Button10.Text = Button6.Text Or Button10.Text = Button5.Text Or Button10.Text = Button4.Text Or Button10.Text = Button3.Text Or Button10.Text = Button2.Text Or Button10.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button10.Text = number
Loop Until Button10.Text <> Button9.Text And Button10.Text <> Button8.Text And Button10.Text <> Button7.Text And Button10.Text <> Button6.Text And Button10.Text <> Button5.Text And Button10.Text <> Button4.Text And Button10.Text <> Button3.Text And Button10.Text <> Button2.Text And Button10.Text <> Button1.Text
End If
If Button11.Text = Button10.Text Or Button11.Text = Button9.Text Or Button11.Text = Button8.Text Or Button11.Text = Button7.Text Or Button11.Text = Button6.Text Or Button11.Text = Button5.Text Or Button11.Text = Button4.Text Or Button11.Text = Button3.Text Or Button11.Text = Button2.Text Or Button11.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button11.Text = number
Loop Until Button11.Text <> Button10.Text And Button11.Text <> Button9.Text And Button11.Text <> Button8.Text And Button11.Text <> Button7.Text And Button11.Text <> Button6.Text And Button11.Text <> Button5.Text And Button11.Text <> Button4.Text And Button11.Text <> Button3.Text And Button11.Text <> Button2.Text And Button11.Text <> Button1.Text
End If
If Button12.Text = Button11.Text Or Button12.Text = Button10.Text Or Button12.Text = Button9.Text Or Button12.Text = Button8.Text Or Button12.Text = Button7.Text Or Button12.Text = Button6.Text Or Button12.Text = Button5.Text Or Button12.Text = Button4.Text Or Button12.Text = Button3.Text Or Button12.Text = Button2.Text Or Button12.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button12.Text = number
Loop Until Button12.Text <> Button11.Text And Button12.Text <> Button10.Text And Button12.Text <> Button9.Text And Button12.Text <> Button8.Text And Button12.Text <> Button7.Text And Button12.Text <> Button6.Text And Button12.Text <> Button5.Text And Button12.Text <> Button4.Text And Button12.Text <> Button3.Text And Button12.Text <> Button2.Text And Button12.Text <> Button1.Text
End If
If Button13.Text = Button12.Text Or Button13.Text = Button11.Text Or Button13.Text = Button10.Text Or Button13.Text = Button9.Text Or Button13.Text = Button8.Text Or Button13.Text = Button7.Text Or Button13.Text = Button6.Text Or Button13.Text = Button5.Text Or Button13.Text = Button4.Text Or Button13.Text = Button3.Text Or Button13.Text = Button2.Text Or Button13.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button13.Text = number
Loop Until Button13.Text <> Button12.Text And Button13.Text <> Button11.Text And Button13.Text <> Button10.Text And Button13.Text <> Button9.Text And Button13.Text <> Button8.Text And Button13.Text <> Button7.Text And Button13.Text <> Button6.Text And Button13.Text <> Button5.Text And Button13.Text <> Button4.Text And Button13.Text <> Button3.Text And Button13.Text <> Button2.Text And Button13.Text <> Button1.Text
End If
If Button14.Text = Button13.Text Or Button14.Text = Button12.Text Or Button14.Text = Button11.Text Or Button14.Text = Button10.Text Or Button14.Text = Button9.Text Or Button14.Text = Button8.Text Or Button14.Text = Button7.Text Or Button14.Text = Button6.Text Or Button14.Text = Button5.Text Or Button14.Text = Button4.Text Or Button14.Text = Button3.Text Or Button14.Text = Button2.Text Or Button14.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button14.Text = number
Loop Until Button14.Text <> Button13.Text And Button14.Text <> Button12.Text And Button14.Text <> Button11.Text And Button14.Text <> Button10.Text And Button14.Text <> Button9.Text And Button14.Text <> Button8.Text And Button14.Text <> Button7.Text And Button14.Text <> Button6.Text And Button14.Text <> Button5.Text And Button14.Text <> Button4.Text And Button14.Text <> Button3.Text And Button14.Text <> Button2.Text And Button14.Text <> Button1.Text
End If
If Button15.Text = Button14.Text Or Button15.Text = Button13.Text Or Button15.Text = Button12.Text Or Button15.Text = Button11.Text Or Button15.Text = Button10.Text Or Button15.Text = Button9.Text Or Button15.Text = Button8.Text Or Button15.Text = Button7.Text Or Button15.Text = Button6.Text Or Button15.Text = Button5.Text Or Button15.Text = Button4.Text Or Button15.Text = Button3.Text Or Button15.Text = Button2.Text Or Button15.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button15.Text = number
Loop Until Button15.Text <> Button14.Text And Button15.Text <> Button13.Text And Button15.Text <> Button12.Text And Button15.Text <> Button11.Text And Button15.Text <> Button10.Text And Button15.Text <> Button9.Text And Button15.Text <> Button8.Text And Button15.Text <> Button7.Text And Button15.Text <> Button6.Text And Button15.Text <> Button5.Text And Button15.Text <> Button4.Text And Button15.Text <> Button3.Text And Button15.Text <> Button2.Text And Button15.Text <> Button1.Text
End If
If Button16.Text = Button15.Text Or Button16.Text = Button14.Text Or Button16.Text = Button13.Text Or Button16.Text = Button12.Text Or Button16.Text = Button11.Text Or Button16.Text = Button10.Text Or Button16.Text = Button9.Text Or Button16.Text = Button8.Text Or Button16.Text = Button7.Text Or Button16.Text = Button6.Text Or Button16.Text = Button5.Text Or Button16.Text = Button4.Text Or Button16.Text = Button3.Text Or Button16.Text = Button2.Text Or Button16.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button16.Text = number
Loop Until Button16.Text <> Button15.Text And Button16.Text <> Button14.Text And Button16.Text <> Button13.Text And Button16.Text <> Button12.Text And Button16.Text <> Button11.Text And Button16.Text <> Button10.Text And Button16.Text <> Button9.Text And Button16.Text <> Button8.Text And Button16.Text <> Button7.Text And Button16.Text <> Button6.Text And Button16.Text <> Button5.Text And Button16.Text <> Button4.Text And Button16.Text <> Button3.Text And Button16.Text <> Button2.Text And Button16.Text <> Button1.Text
End If
If Button17.Text = Button16.Text Or Button17.Text = Button15.Text Or Button17.Text = Button14.Text Or Button17.Text = Button13.Text Or Button17.Text = Button12.Text Or Button17.Text = Button11.Text Or Button17.Text = Button10.Text Or Button17.Text = Button9.Text Or Button17.Text = Button8.Text Or Button17.Text = Button7.Text Or Button17.Text = Button6.Text Or Button17.Text = Button5.Text Or Button17.Text = Button4.Text Or Button17.Text = Button3.Text Or Button17.Text = Button2.Text Or Button17.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button17.Text = number
Loop Until Button17.Text <> Button16.Text And Button17.Text <> Button15.Text And Button17.Text <> Button14.Text And Button17.Text <> Button13.Text And Button17.Text <> Button12.Text And Button17.Text <> Button11.Text And Button17.Text <> Button10.Text And Button17.Text <> Button9.Text And Button17.Text <> Button8.Text And Button17.Text <> Button7.Text And Button17.Text <> Button6.Text And Button17.Text <> Button5.Text And Button17.Text <> Button4.Text And Button17.Text <> Button3.Text And Button17.Text <> Button2.Text And Button17.Text <> Button1.Text
End If
If Button18.Text = Button17.Text Or Button18.Text = Button16.Text Or Button18.Text = Button15.Text Or Button18.Text = Button14.Text Or Button18.Text = Button13.Text Or Button18.Text = Button12.Text Or Button18.Text = Button11.Text Or Button18.Text = Button10.Text Or Button18.Text = Button9.Text Or Button18.Text = Button8.Text Or Button18.Text = Button7.Text Or Button18.Text = Button6.Text Or Button18.Text = Button5.Text Or Button18.Text = Button4.Text Or Button18.Text = Button3.Text Or Button18.Text = Button2.Text Or Button18.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button18.Text = number
Loop Until Button18.Text <> Button17.Text And Button18.Text <> Button16.Text And Button18.Text <> Button15.Text And Button18.Text <> Button14.Text And Button18.Text <> Button13.Text And Button18.Text <> Button12.Text And Button18.Text <> Button11.Text And Button18.Text <> Button10.Text And Button18.Text <> Button9.Text And Button18.Text <> Button8.Text And Button18.Text <> Button7.Text And Button18.Text <> Button6.Text And Button18.Text <> Button5.Text And Button18.Text <> Button4.Text And Button18.Text <> Button3.Text And Button18.Text <> Button2.Text And Button18.Text <> Button1.Text
End If
If Button19.Text = Button18.Text Or Button19.Text = Button17.Text Or Button19.Text = Button16.Text Or Button19.Text = Button15.Text Or Button19.Text = Button14.Text Or Button19.Text = Button13.Text Or Button19.Text = Button12.Text Or Button19.Text = Button11.Text Or Button19.Text = Button10.Text Or Button19.Text = Button9.Text Or Button19.Text = Button8.Text Or Button19.Text = Button7.Text Or Button19.Text = Button6.Text Or Button19.Text = Button5.Text Or Button19.Text = Button4.Text Or Button19.Text = Button3.Text Or Button19.Text = Button2.Text Or Button19.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button19.Text = number
Loop Until Button19.Text <> Button18.Text And Button19.Text <> Button17.Text And Button19.Text <> Button16.Text And Button19.Text <> Button15.Text And Button19.Text <> Button14.Text And Button19.Text <> Button13.Text And Button19.Text <> Button12.Text And Button19.Text <> Button11.Text And Button19.Text <> Button10.Text And Button19.Text <> Button9.Text And Button19.Text <> Button8.Text And Button19.Text <> Button7.Text And Button19.Text <> Button6.Text And Button19.Text <> Button5.Text And Button19.Text <> Button4.Text And Button19.Text <> Button3.Text And Button19.Text <> Button2.Text And Button19.Text <> Button1.Text
End If
If Button20.Text = Button19.Text Or Button20.Text = Button18.Text Or Button20.Text = Button17.Text Or Button20.Text = Button16.Text Or Button20.Text = Button15.Text Or Button20.Text = Button14.Text Or Button20.Text = Button13.Text Or Button20.Text = Button12.Text Or Button20.Text = Button11.Text Or Button20.Text = Button10.Text Or Button20.Text = Button9.Text Or Button20.Text = Button8.Text Or Button20.Text = Button7.Text Or Button20.Text = Button6.Text Or Button20.Text = Button5.Text Or Button20.Text = Button4.Text Or Button20.Text = Button3.Text Or Button20.Text = Button2.Text Or Button20.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button20.Text = number
Loop Until Button20.Text <> Button19.Text And Button20.Text <> Button18.Text And Button20.Text <> Button17.Text And Button20.Text <> Button16.Text And Button20.Text <> Button15.Text And Button20.Text <> Button14.Text And Button20.Text <> Button13.Text And Button20.Text <> Button12.Text And Button20.Text <> Button11.Text And Button20.Text <> Button10.Text And Button20.Text <> Button9.Text And Button20.Text <> Button8.Text And Button20.Text <> Button7.Text And Button20.Text <> Button6.Text And Button20.Text <> Button5.Text And Button20.Text <> Button4.Text And Button20.Text <> Button3.Text And Button20.Text <> Button2.Text And Button20.Text <> Button1.Text
End If
If Button21.Text = Button20.Text Or Button21.Text = Button19.Text Or Button21.Text = Button18.Text Or Button21.Text = Button17.Text Or Button21.Text = Button16.Text Or Button21.Text = Button15.Text Or Button21.Text = Button14.Text Or Button21.Text = Button13.Text Or Button21.Text = Button12.Text Or Button21.Text = Button11.Text Or Button21.Text = Button10.Text Or Button21.Text = Button9.Text Or Button21.Text = Button8.Text Or Button21.Text = Button7.Text Or Button21.Text = Button6.Text Or Button21.Text = Button5.Text Or Button21.Text = Button4.Text Or Button21.Text = Button3.Text Or Button21.Text = Button2.Text Or Button21.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button21.Text = number
Loop Until Button21.Text <> Button20.Text And Button21.Text <> Button19.Text And Button21.Text <> Button18.Text And Button21.Text <> Button17.Text And Button21.Text <> Button16.Text And Button21.Text <> Button15.Text And Button21.Text <> Button14.Text And Button21.Text <> Button13.Text And Button21.Text <> Button12.Text And Button21.Text <> Button11.Text And Button21.Text <> Button10.Text And Button21.Text <> Button9.Text And Button21.Text <> Button8.Text And Button21.Text <> Button7.Text And Button21.Text <> Button6.Text And Button21.Text <> Button5.Text And Button21.Text <> Button4.Text And Button21.Text <> Button3.Text And Button21.Text <> Button2.Text And Button21.Text <> Button1.Text
End If
If Button22.Text = Button21.Text Or Button22.Text = Button20.Text Or Button22.Text = Button19.Text Or Button22.Text = Button18.Text Or Button22.Text = Button17.Text Or Button22.Text = Button16.Text Or Button22.Text = Button15.Text Or Button22.Text = Button14.Text Or Button22.Text = Button13.Text Or Button22.Text = Button12.Text Or Button22.Text = Button11.Text Or Button22.Text = Button10.Text Or Button22.Text = Button9.Text Or Button22.Text = Button8.Text Or Button22.Text = Button7.Text Or Button22.Text = Button6.Text Or Button22.Text = Button5.Text Or Button22.Text = Button4.Text Or Button22.Text = Button3.Text Or Button22.Text = Button2.Text Or Button22.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button22.Text = number
Loop Until Button22.Text <> Button21.Text And Button22.Text <> Button20.Text And Button22.Text <> Button19.Text And Button22.Text <> Button18.Text And Button22.Text <> Button17.Text And Button22.Text <> Button16.Text And Button22.Text <> Button15.Text And Button22.Text <> Button14.Text And Button22.Text <> Button13.Text And Button22.Text <> Button12.Text And Button22.Text <> Button11.Text And Button22.Text <> Button10.Text And Button22.Text <> Button9.Text And Button22.Text <> Button8.Text And Button22.Text <> Button7.Text And Button22.Text <> Button6.Text And Button22.Text <> Button5.Text And Button22.Text <> Button4.Text And Button22.Text <> Button3.Text And Button22.Text <> Button2.Text And Button22.Text <> Button1.Text
End If
If Button23.Text = Button22.Text Or Button23.Text = Button21.Text Or Button23.Text = Button20.Text Or Button23.Text = Button19.Text Or Button23.Text = Button18.Text Or Button23.Text = Button17.Text Or Button23.Text = Button16.Text Or Button23.Text = Button15.Text Or Button23.Text = Button14.Text Or Button23.Text = Button13.Text Or Button23.Text = Button12.Text Or Button23.Text = Button11.Text Or Button23.Text = Button10.Text Or Button23.Text = Button9.Text Or Button23.Text = Button8.Text Or Button23.Text = Button7.Text Or Button23.Text = Button6.Text Or Button23.Text = Button5.Text Or Button23.Text = Button4.Text Or Button23.Text = Button3.Text Or Button23.Text = Button2.Text Or Button23.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button23.Text = number
Loop Until Button23.Text <> Button22.Text And Button23.Text <> Button21.Text And Button23.Text <> Button20.Text And Button23.Text <> Button19.Text And Button23.Text <> Button18.Text And Button23.Text <> Button17.Text And Button23.Text <> Button16.Text And Button23.Text <> Button15.Text And Button23.Text <> Button14.Text And Button23.Text <> Button13.Text And Button23.Text <> Button12.Text And Button23.Text <> Button11.Text And Button23.Text <> Button10.Text And Button23.Text <> Button9.Text And Button23.Text <> Button8.Text And Button23.Text <> Button7.Text And Button23.Text <> Button6.Text And Button23.Text <> Button5.Text And Button23.Text <> Button4.Text And Button23.Text <> Button3.Text And Button23.Text <> Button2.Text And Button23.Text <> Button1.Text
End If
If Button24.Text = Button23.Text Or Button24.Text = Button22.Text Or Button24.Text = Button21.Text Or Button24.Text = Button20.Text Or Button24.Text = Button19.Text Or Button24.Text = Button18.Text Or Button24.Text = Button17.Text Or Button24.Text = Button16.Text Or Button24.Text = Button15.Text Or Button24.Text = Button14.Text Or Button24.Text = Button13.Text Or Button24.Text = Button12.Text Or Button24.Text = Button11.Text Or Button24.Text = Button10.Text Or Button24.Text = Button9.Text Or Button24.Text = Button8.Text Or Button24.Text = Button7.Text Or Button24.Text = Button6.Text Or Button24.Text = Button5.Text Or Button24.Text = Button4.Text Or Button24.Text = Button3.Text Or Button24.Text = Button2.Text Or Button24.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button24.Text = number
Loop Until Button24.Text <> Button23.Text And Button24.Text <> Button22.Text And Button24.Text <> Button21.Text And Button24.Text <> Button20.Text And Button24.Text <> Button19.Text And Button24.Text <> Button18.Text And Button24.Text <> Button17.Text And Button24.Text <> Button16.Text And Button24.Text <> Button15.Text And Button24.Text <> Button14.Text And Button24.Text <> Button13.Text And Button24.Text <> Button12.Text And Button24.Text <> Button11.Text And Button24.Text <> Button10.Text And Button24.Text <> Button9.Text And Button24.Text <> Button8.Text And Button24.Text <> Button7.Text And Button24.Text <> Button6.Text And Button24.Text <> Button5.Text And Button24.Text <> Button4.Text And Button24.Text <> Button3.Text And Button24.Text <> Button2.Text And Button24.Text <> Button1.Text
End If
If Button25.Text = Button24.Text Or Button25.Text = Button23.Text Or Button25.Text = Button22.Text Or Button25.Text = Button21.Text Or Button25.Text = Button20.Text Or Button25.Text = Button19.Text Or Button25.Text = Button18.Text Or Button25.Text = Button17.Text Or Button25.Text = Button16.Text Or Button25.Text = Button15.Text Or Button25.Text = Button14.Text Or Button25.Text = Button13.Text Or Button25.Text = Button12.Text Or Button25.Text = Button11.Text Or Button25.Text = Button10.Text Or Button25.Text = Button9.Text Or Button25.Text = Button8.Text Or Button25.Text = Button7.Text Or Button25.Text = Button6.Text Or Button25.Text = Button5.Text Or Button25.Text = Button4.Text Or Button25.Text = Button3.Text Or Button25.Text = Button2.Text Or Button25.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button25.Text = number
Loop Until Button25.Text <> Button24.Text And Button25.Text <> Button23.Text And Button25.Text <> Button22.Text And Button25.Text <> Button21.Text And Button25.Text <> Button20.Text And Button25.Text <> Button19.Text And Button25.Text <> Button18.Text And Button25.Text <> Button17.Text And Button25.Text <> Button16.Text And Button25.Text <> Button15.Text And Button25.Text <> Button14.Text And Button25.Text <> Button13.Text And Button25.Text <> Button12.Text And Button25.Text <> Button11.Text And Button25.Text <> Button10.Text And Button25.Text <> Button9.Text And Button25.Text <> Button8.Text And Button25.Text <> Button7.Text And Button25.Text <> Button6.Text And Button25.Text <> Button5.Text And Button25.Text <> Button4.Text And Button25.Text <> Button3.Text And Button25.Text <> Button2.Text And Button25.Text <> Button1.Text
End If
If Button26.Text = Button25.Text Or Button26.Text = Button24.Text Or Button26.Text = Button23.Text Or Button26.Text = Button22.Text Or Button26.Text = Button21.Text Or Button26.Text = Button20.Text Or Button26.Text = Button19.Text Or Button26.Text = Button18.Text Or Button26.Text = Button17.Text Or Button26.Text = Button16.Text Or Button26.Text = Button15.Text Or Button26.Text = Button14.Text Or Button26.Text = Button13.Text Or Button26.Text = Button12.Text Or Button26.Text = Button11.Text Or Button26.Text = Button10.Text Or Button26.Text = Button9.Text Or Button26.Text = Button8.Text Or Button26.Text = Button7.Text Or Button26.Text = Button6.Text Or Button26.Text = Button5.Text Or Button26.Text = Button4.Text Or Button26.Text = Button3.Text Or Button26.Text = Button2.Text Or Button26.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button26.Text = number
Loop Until Button26.Text <> Button25.Text And Button26.Text <> Button24.Text And Button26.Text <> Button23.Text And Button26.Text <> Button22.Text And Button26.Text <> Button21.Text And Button26.Text <> Button20.Text And Button26.Text <> Button19.Text And Button26.Text <> Button18.Text And Button26.Text <> Button17.Text And Button26.Text <> Button16.Text And Button26.Text <> Button15.Text And Button26.Text <> Button14.Text And Button26.Text <> Button13.Text And Button26.Text <> Button12.Text And Button26.Text <> Button11.Text And Button26.Text <> Button10.Text And Button26.Text <> Button9.Text And Button26.Text <> Button8.Text And Button26.Text <> Button7.Text And Button26.Text <> Button6.Text And Button26.Text <> Button5.Text And Button26.Text <> Button4.Text And Button26.Text <> Button3.Text And Button26.Text <> Button2.Text And Button26.Text <> Button1.Text
End If
If Button27.Text = Button26.Text Or Button27.Text = Button25.Text Or Button27.Text = Button24.Text Or Button27.Text = Button23.Text Or Button27.Text = Button22.Text Or Button27.Text = Button21.Text Or Button27.Text = Button20.Text Or Button27.Text = Button19.Text Or Button27.Text = Button18.Text Or Button27.Text = Button17.Text Or Button27.Text = Button16.Text Or Button27.Text = Button15.Text Or Button27.Text = Button14.Text Or Button27.Text = Button13.Text Or Button27.Text = Button12.Text Or Button27.Text = Button11.Text Or Button27.Text = Button10.Text Or Button27.Text = Button9.Text Or Button27.Text = Button8.Text Or Button27.Text = Button7.Text Or Button27.Text = Button6.Text Or Button27.Text = Button5.Text Or Button27.Text = Button4.Text Or Button27.Text = Button3.Text Or Button27.Text = Button2.Text Or Button27.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button27.Text = number
Loop Until Button27.Text <> Button26.Text And Button27.Text <> Button25.Text And Button27.Text <> Button24.Text And Button27.Text <> Button23.Text And Button27.Text <> Button22.Text And Button27.Text <> Button21.Text And Button27.Text <> Button20.Text And Button27.Text <> Button19.Text And Button27.Text <> Button18.Text And Button27.Text <> Button17.Text And Button27.Text <> Button16.Text And Button27.Text <> Button15.Text And Button27.Text <> Button14.Text And Button27.Text <> Button13.Text And Button27.Text <> Button12.Text And Button27.Text <> Button11.Text And Button27.Text <> Button10.Text And Button27.Text <> Button9.Text And Button27.Text <> Button8.Text And Button27.Text <> Button7.Text And Button27.Text <> Button6.Text And Button27.Text <> Button5.Text And Button27.Text <> Button4.Text And Button27.Text <> Button3.Text And Button27.Text <> Button2.Text And Button27.Text <> Button1.Text
End If
If Button28.Text = Button27.Text Or Button28.Text = Button26.Text Or Button28.Text = Button25.Text Or Button28.Text = Button24.Text Or Button28.Text = Button23.Text Or Button28.Text = Button22.Text Or Button28.Text = Button21.Text Or Button28.Text = Button20.Text Or Button28.Text = Button19.Text Or Button28.Text = Button18.Text Or Button28.Text = Button17.Text Or Button28.Text = Button16.Text Or Button28.Text = Button15.Text Or Button28.Text = Button14.Text Or Button28.Text = Button13.Text Or Button28.Text = Button12.Text Or Button28.Text = Button11.Text Or Button28.Text = Button10.Text Or Button28.Text = Button9.Text Or Button28.Text = Button8.Text Or Button28.Text = Button7.Text Or Button28.Text = Button6.Text Or Button28.Text = Button5.Text Or Button28.Text = Button4.Text Or Button28.Text = Button3.Text Or Button28.Text = Button2.Text Or Button28.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button28.Text = number
Loop Until Button28.Text <> Button27.Text And Button28.Text <> Button26.Text And Button28.Text <> Button25.Text And Button28.Text <> Button24.Text And Button28.Text <> Button23.Text And Button28.Text <> Button22.Text And Button28.Text <> Button21.Text And Button28.Text <> Button20.Text And Button28.Text <> Button19.Text And Button28.Text <> Button18.Text And Button28.Text <> Button17.Text And Button28.Text <> Button16.Text And Button28.Text <> Button15.Text And Button28.Text <> Button14.Text And Button28.Text <> Button13.Text And Button28.Text <> Button12.Text And Button28.Text <> Button11.Text And Button28.Text <> Button10.Text And Button28.Text <> Button9.Text And Button28.Text <> Button8.Text And Button28.Text <> Button7.Text And Button28.Text <> Button6.Text And Button28.Text <> Button5.Text And Button28.Text <> Button4.Text And Button28.Text <> Button3.Text And Button28.Text <> Button2.Text And Button28.Text <> Button1.Text
End If
If Button29.Text = Button28.Text Or Button29.Text = Button27.Text Or Button29.Text = Button26.Text Or Button29.Text = Button25.Text Or Button29.Text = Button24.Text Or Button29.Text = Button23.Text Or Button29.Text = Button22.Text Or Button29.Text = Button21.Text Or Button29.Text = Button20.Text Or Button29.Text = Button19.Text Or Button29.Text = Button18.Text Or Button29.Text = Button17.Text Or Button29.Text = Button16.Text Or Button29.Text = Button15.Text Or Button29.Text = Button14.Text Or Button29.Text = Button13.Text Or Button29.Text = Button12.Text Or Button29.Text = Button11.Text Or Button29.Text = Button10.Text Or Button29.Text = Button9.Text Or Button29.Text = Button8.Text Or Button29.Text = Button7.Text Or Button29.Text = Button6.Text Or Button29.Text = Button5.Text Or Button29.Text = Button4.Text Or Button29.Text = Button3.Text Or Button29.Text = Button2.Text Or Button29.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button29.Text = number
Loop Until Button29.Text <> Button28.Text And Button29.Text <> Button27.Text And Button29.Text <> Button26.Text And Button29.Text <> Button25.Text And Button29.Text <> Button24.Text And Button29.Text <> Button23.Text And Button29.Text <> Button22.Text And Button29.Text <> Button21.Text And Button29.Text <> Button20.Text And Button29.Text <> Button19.Text And Button29.Text <> Button18.Text And Button29.Text <> Button17.Text And Button29.Text <> Button16.Text And Button29.Text <> Button15.Text And Button29.Text <> Button14.Text And Button29.Text <> Button13.Text And Button29.Text <> Button12.Text And Button29.Text <> Button11.Text And Button29.Text <> Button10.Text And Button29.Text <> Button9.Text And Button29.Text <> Button8.Text And Button29.Text <> Button7.Text And Button29.Text <> Button6.Text And Button29.Text <> Button5.Text And Button29.Text <> Button4.Text And Button29.Text <> Button3.Text And Button29.Text <> Button2.Text And Button29.Text <> Button1.Text
End If
If Button30.Text = Button29.Text Or Button30.Text = Button28.Text Or Button30.Text = Button27.Text Or Button30.Text = Button26.Text Or Button30.Text = Button25.Text Or Button30.Text = Button24.Text Or Button30.Text = Button23.Text Or Button30.Text = Button22.Text Or Button30.Text = Button21.Text Or Button30.Text = Button20.Text Or Button30.Text = Button19.Text Or Button30.Text = Button18.Text Or Button30.Text = Button17.Text Or Button30.Text = Button16.Text Or Button30.Text = Button15.Text Or Button30.Text = Button14.Text Or Button30.Text = Button13.Text Or Button30.Text = Button12.Text Or Button30.Text = Button11.Text Or Button30.Text = Button10.Text Or Button30.Text = Button9.Text Or Button30.Text = Button8.Text Or Button30.Text = Button7.Text Or Button30.Text = Button6.Text Or Button30.Text = Button5.Text Or Button30.Text = Button4.Text Or Button30.Text = Button3.Text Or Button30.Text = Button2.Text Or Button30.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button30.Text = number
Loop Until Button30.Text <> Button29.Text And Button30.Text <> Button28.Text And Button30.Text <> Button27.Text And Button30.Text <> Button26.Text And Button30.Text <> Button25.Text And Button30.Text <> Button24.Text And Button30.Text <> Button23.Text And Button30.Text <> Button22.Text And Button30.Text <> Button21.Text And Button30.Text <> Button20.Text And Button30.Text <> Button19.Text And Button30.Text <> Button18.Text And Button30.Text <> Button17.Text And Button30.Text <> Button16.Text And Button30.Text <> Button15.Text And Button30.Text <> Button14.Text And Button30.Text <> Button13.Text And Button30.Text <> Button12.Text And Button30.Text <> Button11.Text And Button30.Text <> Button10.Text And Button30.Text <> Button9.Text And Button30.Text <> Button8.Text And Button30.Text <> Button7.Text And Button30.Text <> Button6.Text And Button30.Text <> Button5.Text And Button30.Text <> Button4.Text And Button30.Text <> Button3.Text And Button30.Text <> Button2.Text And Button30.Text <> Button1.Text
End If
If Button31.Text = Button30.Text Or Button31.Text = Button29.Text Or Button31.Text = Button28.Text Or Button31.Text = Button27.Text Or Button31.Text = Button26.Text Or Button31.Text = Button25.Text Or Button31.Text = Button24.Text Or Button31.Text = Button23.Text Or Button31.Text = Button22.Text Or Button31.Text = Button21.Text Or Button31.Text = Button20.Text Or Button31.Text = Button19.Text Or Button31.Text = Button18.Text Or Button31.Text = Button17.Text Or Button31.Text = Button16.Text Or Button31.Text = Button15.Text Or Button31.Text = Button14.Text Or Button31.Text = Button13.Text Or Button31.Text = Button12.Text Or Button31.Text = Button11.Text Or Button31.Text = Button10.Text Or Button31.Text = Button9.Text Or Button31.Text = Button8.Text Or Button31.Text = Button7.Text Or Button31.Text = Button6.Text Or Button31.Text = Button5.Text Or Button31.Text = Button4.Text Or Button31.Text = Button3.Text Or Button31.Text = Button2.Text Or Button31.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button31.Text = number
Loop Until Button31.Text <> Button30.Text And Button31.Text <> Button29.Text And Button31.Text <> Button28.Text And Button31.Text <> Button27.Text And Button31.Text <> Button26.Text And Button31.Text <> Button25.Text And Button31.Text <> Button24.Text And Button31.Text <> Button23.Text And Button31.Text <> Button22.Text And Button31.Text <> Button21.Text And Button31.Text <> Button20.Text And Button31.Text <> Button19.Text And Button31.Text <> Button18.Text And Button31.Text <> Button17.Text And Button31.Text <> Button16.Text And Button31.Text <> Button15.Text And Button31.Text <> Button14.Text And Button31.Text <> Button13.Text And Button31.Text <> Button12.Text And Button31.Text <> Button11.Text And Button31.Text <> Button10.Text And Button31.Text <> Button9.Text And Button31.Text <> Button8.Text And Button31.Text <> Button7.Text And Button31.Text <> Button6.Text And Button31.Text <> Button5.Text And Button31.Text <> Button4.Text And Button31.Text <> Button3.Text And Button31.Text <> Button2.Text And Button31.Text <> Button1.Text
End If
If Button32.Text = Button31.Text Or Button32.Text = Button30.Text Or Button32.Text = Button29.Text Or Button32.Text = Button28.Text Or Button32.Text = Button27.Text Or Button32.Text = Button26.Text Or Button32.Text = Button25.Text Or Button32.Text = Button24.Text Or Button32.Text = Button23.Text Or Button32.Text = Button22.Text Or Button32.Text = Button21.Text Or Button32.Text = Button20.Text Or Button32.Text = Button19.Text Or Button32.Text = Button18.Text Or Button32.Text = Button17.Text Or Button32.Text = Button16.Text Or Button32.Text = Button15.Text Or Button32.Text = Button14.Text Or Button32.Text = Button13.Text Or Button32.Text = Button12.Text Or Button32.Text = Button11.Text Or Button32.Text = Button10.Text Or Button32.Text = Button9.Text Or Button32.Text = Button8.Text Or Button32.Text = Button7.Text Or Button32.Text = Button6.Text Or Button32.Text = Button5.Text Or Button32.Text = Button4.Text Or Button32.Text = Button3.Text Or Button32.Text = Button2.Text Or Button32.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button32.Text = number
Loop Until Button32.Text <> Button31.Text And Button32.Text <> Button30.Text And Button32.Text <> Button29.Text And Button32.Text <> Button28.Text And Button32.Text <> Button27.Text And Button32.Text <> Button26.Text And Button32.Text <> Button25.Text And Button32.Text <> Button24.Text And Button32.Text <> Button23.Text And Button32.Text <> Button22.Text And Button32.Text <> Button21.Text And Button32.Text <> Button20.Text And Button32.Text <> Button19.Text And Button32.Text <> Button18.Text And Button32.Text <> Button17.Text And Button32.Text <> Button16.Text And Button32.Text <> Button15.Text And Button32.Text <> Button14.Text And Button32.Text <> Button13.Text And Button32.Text <> Button12.Text And Button32.Text <> Button11.Text And Button32.Text <> Button10.Text And Button32.Text <> Button9.Text And Button32.Text <> Button8.Text And Button32.Text <> Button7.Text And Button32.Text <> Button6.Text And Button32.Text <> Button5.Text And Button32.Text <> Button4.Text And Button32.Text <> Button3.Text And Button32.Text <> Button2.Text And Button32.Text <> Button1.Text
End If
If Button33.Text = Button32.Text Or Button33.Text = Button31.Text Or Button33.Text = Button30.Text Or Button33.Text = Button29.Text Or Button33.Text = Button28.Text Or Button33.Text = Button27.Text Or Button33.Text = Button26.Text Or Button33.Text = Button25.Text Or Button33.Text = Button24.Text Or Button33.Text = Button23.Text Or Button33.Text = Button22.Text Or Button33.Text = Button21.Text Or Button33.Text = Button20.Text Or Button33.Text = Button19.Text Or Button33.Text = Button18.Text Or Button33.Text = Button17.Text Or Button33.Text = Button16.Text Or Button33.Text = Button15.Text Or Button33.Text = Button14.Text Or Button33.Text = Button13.Text Or Button33.Text = Button12.Text Or Button33.Text = Button11.Text Or Button33.Text = Button10.Text Or Button33.Text = Button9.Text Or Button33.Text = Button8.Text Or Button33.Text = Button7.Text Or Button33.Text = Button6.Text Or Button33.Text = Button5.Text Or Button33.Text = Button4.Text Or Button33.Text = Button3.Text Or Button33.Text = Button2.Text Or Button33.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button33.Text = number
Loop Until Button33.Text <> Button32.Text And Button33.Text <> Button31.Text And Button33.Text <> Button30.Text And Button33.Text <> Button29.Text And Button33.Text <> Button28.Text And Button33.Text <> Button27.Text And Button33.Text <> Button26.Text And Button33.Text <> Button25.Text And Button33.Text <> Button24.Text And Button33.Text <> Button23.Text And Button33.Text <> Button22.Text And Button33.Text <> Button21.Text And Button33.Text <> Button20.Text And Button33.Text <> Button19.Text And Button33.Text <> Button18.Text And Button33.Text <> Button17.Text And Button33.Text <> Button16.Text And Button33.Text <> Button15.Text And Button33.Text <> Button14.Text And Button33.Text <> Button13.Text And Button33.Text <> Button12.Text And Button33.Text <> Button11.Text And Button33.Text <> Button10.Text And Button33.Text <> Button9.Text And Button33.Text <> Button8.Text And Button33.Text <> Button7.Text And Button33.Text <> Button6.Text And Button33.Text <> Button5.Text And Button33.Text <> Button4.Text And Button33.Text <> Button3.Text And Button33.Text <> Button2.Text And Button33.Text <> Button1.Text
End If
If Button34.Text = Button33.Text Or Button34.Text = Button32.Text Or Button34.Text = Button31.Text Or Button34.Text = Button30.Text Or Button34.Text = Button29.Text Or Button34.Text = Button28.Text Or Button34.Text = Button27.Text Or Button34.Text = Button26.Text Or Button34.Text = Button25.Text Or Button34.Text = Button24.Text Or Button34.Text = Button23.Text Or Button34.Text = Button22.Text Or Button34.Text = Button21.Text Or Button34.Text = Button20.Text Or Button34.Text = Button19.Text Or Button34.Text = Button18.Text Or Button34.Text = Button17.Text Or Button34.Text = Button16.Text Or Button34.Text = Button15.Text Or Button34.Text = Button14.Text Or Button34.Text = Button13.Text Or Button34.Text = Button12.Text Or Button34.Text = Button11.Text Or Button34.Text = Button10.Text Or Button34.Text = Button9.Text Or Button34.Text = Button8.Text Or Button34.Text = Button7.Text Or Button34.Text = Button6.Text Or Button34.Text = Button5.Text Or Button34.Text = Button4.Text Or Button34.Text = Button3.Text Or Button34.Text = Button2.Text Or Button34.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button34.Text = number
Loop Until Button34.Text <> Button33.Text And Button34.Text <> Button32.Text And Button34.Text <> Button31.Text And Button34.Text <> Button30.Text And Button34.Text <> Button29.Text And Button34.Text <> Button28.Text And Button34.Text <> Button27.Text And Button34.Text <> Button26.Text And Button34.Text <> Button25.Text And Button34.Text <> Button24.Text And Button34.Text <> Button23.Text And Button34.Text <> Button22.Text And Button34.Text <> Button21.Text And Button34.Text <> Button20.Text And Button34.Text <> Button19.Text And Button34.Text <> Button18.Text And Button34.Text <> Button17.Text And Button34.Text <> Button16.Text And Button34.Text <> Button15.Text And Button34.Text <> Button14.Text And Button34.Text <> Button13.Text And Button34.Text <> Button12.Text And Button34.Text <> Button11.Text And Button34.Text <> Button10.Text And Button34.Text <> Button9.Text And Button34.Text <> Button8.Text And Button34.Text <> Button7.Text And Button34.Text <> Button6.Text And Button34.Text <> Button5.Text And Button34.Text <> Button4.Text And Button34.Text <> Button3.Text And Button34.Text <> Button2.Text And Button34.Text <> Button1.Text
End If
If Button35.Text = Button34.Text Or Button35.Text = Button33.Text Or Button35.Text = Button32.Text Or Button35.Text = Button31.Text Or Button35.Text = Button30.Text Or Button35.Text = Button29.Text Or Button35.Text = Button28.Text Or Button35.Text = Button27.Text Or Button35.Text = Button26.Text Or Button35.Text = Button25.Text Or Button35.Text = Button24.Text Or Button35.Text = Button23.Text Or Button35.Text = Button22.Text Or Button35.Text = Button21.Text Or Button35.Text = Button20.Text Or Button35.Text = Button19.Text Or Button35.Text = Button18.Text Or Button35.Text = Button17.Text Or Button35.Text = Button16.Text Or Button35.Text = Button15.Text Or Button35.Text = Button14.Text Or Button35.Text = Button13.Text Or Button35.Text = Button12.Text Or Button35.Text = Button11.Text Or Button35.Text = Button10.Text Or Button35.Text = Button9.Text Or Button35.Text = Button8.Text Or Button35.Text = Button7.Text Or Button35.Text = Button6.Text Or Button35.Text = Button5.Text Or Button35.Text = Button4.Text Or Button35.Text = Button3.Text Or Button35.Text = Button2.Text Or Button35.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button35.Text = number
Loop Until Button35.Text <> Button34.Text And Button35.Text <> Button33.Text And Button35.Text <> Button32.Text And Button35.Text <> Button31.Text And Button35.Text <> Button30.Text And Button35.Text <> Button29.Text And Button35.Text <> Button28.Text And Button35.Text <> Button27.Text And Button35.Text <> Button26.Text And Button35.Text <> Button25.Text And Button35.Text <> Button24.Text And Button35.Text <> Button23.Text And Button35.Text <> Button22.Text And Button35.Text <> Button21.Text And Button35.Text <> Button20.Text And Button35.Text <> Button19.Text And Button35.Text <> Button18.Text And Button35.Text <> Button17.Text And Button35.Text <> Button16.Text And Button35.Text <> Button15.Text And Button35.Text <> Button14.Text And Button35.Text <> Button13.Text And Button35.Text <> Button12.Text And Button35.Text <> Button11.Text And Button35.Text <> Button10.Text And Button35.Text <> Button9.Text And Button35.Text <> Button8.Text And Button35.Text <> Button7.Text And Button35.Text <> Button6.Text And Button35.Text <> Button5.Text And Button35.Text <> Button4.Text And Button35.Text <> Button3.Text And Button35.Text <> Button2.Text And Button35.Text <> Button1.Text
End If
End If
Button36.Text = ""
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button2.Text = "" Then
Button2.Text = Button1.Text
Button1.Text = ""
ElseIf Button7.Text = "" Then
Button7.Text = Button1.Text
Button1.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Text = "" Then
Button1.Text = Button2.Text
Button2.Text = ""
ElseIf Button3.Text = "" Then
Button3.Text = Button2.Text
Button2.Text = ""
ElseIf Button8.Text = "" Then
Button8.Text = Button2.Text
Button2.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button2.Text = "" Then
Button2.Text = Button3.Text
Button3.Text = ""
ElseIf Button4.Text = "" Then
Button4.Text = Button3.Text
Button3.Text = ""
ElseIf Button9.Text = "" Then
Button9.Text = Button3.Text
Button3.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button3.Text = "" Then
Button3.Text = Button4.Text
Button4.Text = ""
ElseIf Button5.Text = "" Then
Button5.Text = Button4.Text
Button4.Text = ""
ElseIf Button10.Text = "" Then
Button10.Text = Button4.Text
Button4.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button4.Text = "" Then
Button4.Text = Button5.Text
Button5.Text = ""
ElseIf Button6.Text = "" Then
Button6.Text = Button5.Text
Button5.Text = ""
ElseIf Button11.Text = "" Then
Button11.Text = Button5.Text
Button5.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button5.Text = "" Then
Button5.Text = Button6.Text
Button6.Text = ""
ElseIf Button12.Text = "" Then
Button12.Text = Button6.Text
Button6.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Button1.Text = "" Then
Button1.Text = Button7.Text
Button7.Text = ""
ElseIf Button8.Text = "" Then
Button8.Text = Button7.Text
Button7.Text = ""
ElseIf Button13.Text = "" Then
Button13.Text = Button7.Text
Button7.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If Button7.Text = "" Then
Button7.Text = Button8.Text
Button8.Text = ""
ElseIf Button9.Text = "" Then
Button9.Text = Button8.Text
Button8.Text = ""
ElseIf Button2.Text = "" Then
Button2.Text = Button8.Text
Button8.Text = ""
ElseIf Button14.Text = "" Then
Button14.Text = Button8.Text
Button8.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If Button3.Text = "" Then
Button3.Text = Button9.Text
Button9.Text = ""
ElseIf Button8.Text = "" Then
Button8.Text = Button9.Text
Button9.Text = ""
ElseIf Button10.Text = "" Then
Button10.Text = Button9.Text
Button9.Text = ""
ElseIf Button15.Text = "" Then
Button15.Text = Button9.Text
Button9.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
If Button4.Text = "" Then
Button4.Text = Button10.Text
Button10.Text = ""
ElseIf Button9.Text = "" Then
Button9.Text = Button10.Text
Button10.Text = ""
ElseIf Button11.Text = "" Then
Button11.Text = Button10.Text
Button10.Text = ""
ElseIf Button16.Text = "" Then
Button16.Text = Button10.Text
Button10.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
If Button5.Text = "" Then
Button5.Text = Button11.Text
Button11.Text = ""
ElseIf Button10.Text = "" Then
Button10.Text = Button11.Text
Button11.Text = ""
ElseIf Button17.Text = "" Then
Button17.Text = Button11.Text
Button11.Text = ""
ElseIf Button12.Text = "" Then
Button12.Text = Button11.Text
Button11.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
If Button6.Text = "" Then
Button6.Text = Button12.Text
Button12.Text = ""
ElseIf Button11.Text = "" Then
Button11.Text = Button12.Text
Button12.Text = ""
ElseIf Button18.Text = "" Then
Button18.Text = Button12.Text
Button12.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
If Button7.Text = "" Then
Button7.Text = Button13.Text
Button13.Text = ""
ElseIf Button19.Text = "" Then
Button19.Text = Button13.Text
Button13.Text = ""
ElseIf Button14.Text = "" Then
Button14.Text = Button13.Text
Button13.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
If Button8.Text = "" Then
Button8.Text = Button14.Text
Button14.Text = ""
ElseIf Button13.Text = "" Then
Button13.Text = Button14.Text
Button14.Text = ""
ElseIf Button20.Text = "" Then
Button20.Text = Button14.Text
Button14.Text = ""
ElseIf Button15.Text = "" Then
Button15.Text = Button14.Text
Button14.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If Button9.Text = "" Then
Button9.Text = Button15.Text
Button15.Text = ""
ElseIf Button14.Text = "" Then
Button14.Text = Button15.Text
Button15.Text = ""
ElseIf Button21.Text = "" Then
Button21.Text = Button15.Text
Button15.Text = ""
ElseIf Button16.Text = "" Then
Button16.Text = Button15.Text
Button15.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
If Button10.Text = "" Then
Button10.Text = Button6.Text
Button16.Text = ""
ElseIf Button15.Text = "" Then
Button15.Text = Button16.Text
Button16.Text = ""
ElseIf Button22.Text = "" Then
Button22.Text = Button16.Text
Button16.Text = ""
ElseIf Button17.Text = "" Then
Button17.Text = Button16.Text
Button16.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
If Button11.Text = "" Then
Button11.Text = Button17.Text
Button17.Text = ""
ElseIf Button16.Text = "" Then
Button16.Text = Button17.Text
Button17.Text = ""
ElseIf Button23.Text = "" Then
Button23.Text = Button17.Text
Button17.Text = ""
ElseIf Button18.Text = "" Then
Button18.Text = Button17.Text
Button17.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
If Button12.Text = "" Then
Button12.Text = Button18.Text
Button18.Text = ""
ElseIf Button17.Text = "" Then
Button17.Text = Button18.Text
Button18.Text = ""
ElseIf Button24.Text = "" Then
Button24.Text = Button18.Text
Button18.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
If Button13.Text = "" Then
Button13.Text = Button19.Text
Button19.Text = ""
ElseIf Button25.Text = "" Then
Button25.Text = Button19.Text
Button19.Text = ""
ElseIf Button20.Text = "" Then
Button20.Text = Button19.Text
Button19.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
If Button14.Text = "" Then
Button14.Text = Button20.Text
Button20.Text = ""
ElseIf Button19.Text = "" Then
Button19.Text = Button20.Text
Button20.Text = ""
ElseIf Button26.Text = "" Then
Button26.Text = Button20.Text
Button20.Text = ""
ElseIf Button21.Text = "" Then
Button21.Text = Button20.Text
Button20.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
If Button15.Text = "" Then
Button15.Text = Button21.Text
Button21.Text = ""
ElseIf Button20.Text = "" Then
Button20.Text = Button21.Text
Button21.Text = ""
ElseIf Button27.Text = "" Then
Button27.Text = Button21.Text
Button21.Text = ""
ElseIf Button22.Text = "" Then
Button22.Text = Button21.Text
Button21.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
If Button16.Text = "" Then
Button16.Text = Button22.Text
Button22.Text = ""
ElseIf Button21.Text = "" Then
Button21.Text = Button22.Text
Button22.Text = ""
ElseIf Button28.Text = "" Then
Button28.Text = Button22.Text
Button22.Text = ""
ElseIf Button23.Text = "" Then
Button23.Text = Button22.Text
Button22.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
If Button17.Text = "" Then
Button17.Text = Button23.Text
Button23.Text = ""
ElseIf Button22.Text = "" Then
Button22.Text = Button23.Text
Button23.Text = ""
ElseIf Button29.Text = "" Then
Button29.Text = Button23.Text
Button23.Text = ""
ElseIf Button24.Text = "" Then
Button24.Text = Button23.Text
Button23.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
If Button18.Text = "" Then
Button18.Text = Button24.Text
Button24.Text = ""
ElseIf Button23.Text = "" Then
Button23.Text = Button24.Text
Button24.Text = ""
ElseIf Button30.Text = "" Then
Button30.Text = Button24.Text
Button24.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
If Button19.Text = "" Then
Button19.Text = Button25.Text
Button25.Text = ""
ElseIf Button31.Text = "" Then
Button31.Text = Button25.Text
Button25.Text = ""
ElseIf Button26.Text = "" Then
Button26.Text = Button25.Text
Button25.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
If Button20.Text = "" Then
Button20.Text = Button26.Text
Button26.Text = ""
ElseIf Button25.Text = "" Then
Button25.Text = Button26.Text
Button26.Text = ""
ElseIf Button32.Text = "" Then
Button32.Text = Button26.Text
Button26.Text = ""
ElseIf Button27.Text = "" Then
Button27.Text = Button26.Text
Button26.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
If Button21.Text = "" Then
Button21.Text = Button27.Text
Button27.Text = ""
ElseIf Button26.Text = "" Then
Button26.Text = Button27.Text
Button27.Text = ""
ElseIf Button33.Text = "" Then
Button33.Text = Button27.Text
Button27.Text = ""
ElseIf Button28.Text = "" Then
Button28.Text = Button27.Text
Button27.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
If Button22.Text = "" Then
Button22.Text = Button28.Text
Button28.Text = ""
ElseIf Button27.Text = "" Then
Button27.Text = Button28.Text
Button28.Text = ""
ElseIf Button34.Text = "" Then
Button34.Text = Button28.Text
Button28.Text = ""
ElseIf Button29.Text = "" Then
Button29.Text = Button28.Text
Button28.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
If Button23.Text = "" Then
Button23.Text = Button29.Text
Button29.Text = ""
ElseIf Button28.Text = "" Then
Button28.Text = Button29.Text
Button29.Text = ""
ElseIf Button35.Text = "" Then
Button35.Text = Button29.Text
Button29.Text = ""
ElseIf Button30.Text = "" Then
Button30.Text = Button29.Text
Button29.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
If Button24.Text = "" Then
Button24.Text = Button30.Text
Button30.Text = ""
ElseIf Button29.Text = "" Then
Button29.Text = Button30.Text
Button30.Text = ""
ElseIf Button36.Text = "" Then
Button36.Text = Button30.Text
Button30.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
If Button25.Text = "" Then
Button25.Text = Button31.Text
Button31.Text = ""
ElseIf Button32.Text = "" Then
Button32.Text = Button31.Text
Button31.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
If Button26.Text = "" Then
Button26.Text = Button32.Text
Button32.Text = ""
ElseIf Button31.Text = "" Then
Button31.Text = Button32.Text
Button32.Text = ""
ElseIf Button33.Text = "" Then
Button33.Text = Button32.Text
Button32.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
If Button27.Text = "" Then
Button27.Text = Button33.Text
Button33.Text = ""
ElseIf Button32.Text = "" Then
Button32.Text = Button33.Text
Button33.Text = ""
ElseIf Button34.Text = "" Then
Button34.Text = Button33.Text
Button33.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click
If Button28.Text = "" Then
Button28.Text = Button34.Text
Button34.Text = ""
ElseIf Button33.Text = "" Then
Button33.Text = Button34.Text
Button34.Text = ""
ElseIf Button35.Text = "" Then
Button35.Text = Button34.Text
Button34.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
If Button29.Text = "" Then
Button29.Text = Button35.Text
Button35.Text = ""
ElseIf Button34.Text = "" Then
Button34.Text = Button35.Text
Button35.Text = ""
ElseIf Button36.Text = "" Then
Button36.Text = Button35.Text
Button35.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
If Button30.Text = "" Then
Button30.Text = Button36.Text
Button36.Text = ""
ElseIf Button35.Text = "" Then
Button35.Text = Button36.Text
Button36.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim control As Windows.Forms.Control
For Each control In Me.Controls
If control.GetType.Name = "Button" Then
Dim rndnumber As Random
Dim number As Integer
rndnumber = New Random
number = rndnumber.Next(1, 36)
control.Text = number
If Button2.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button2.Text = number
Loop Until Button2.Text <> Button1.Text
End If
If Button3.Text = Button2.Text Or Button3.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button3.Text = number
Loop Until Button3.Text <> Button2.Text And Button3.Text <> Button1.Text
End If
If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button4.Text = number
Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text
End If
If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button4.Text = number
Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text
End If
If Button5.Text = Button4.Text Or Button5.Text = Button3.Text Or Button5.Text = Button2.Text Or Button5.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button5.Text = number
Loop Until Button5.Text <> Button4.Text And Button5.Text <> Button3.Text And Button5.Text <> Button2.Text And Button5.Text <> Button1.Text
End If
If Button6.Text = Button5.Text Or Button6.Text = Button4.Text Or Button6.Text = Button3.Text Or Button6.Text = Button2.Text Or Button6.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button6.Text = number
Loop Until Button6.Text <> Button5.Text And Button6.Text <> Button3.Text And Button6.Text <> Button2.Text And Button6.Text <> Button1.Text
End If
If Button7.Text = Button6.Text Or Button7.Text = Button5.Text Or Button7.Text = Button4.Text Or Button7.Text = Button3.Text Or Button7.Text = Button2.Text Or Button7.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button7.Text = number
Loop Until Button7.Text <> Button6.Text And Button7.Text <> Button5.Text And Button7.Text <> Button4.Text And Button7.Text <> Button3.Text And Button7.Text <> Button2.Text And Button7.Text <> Button1.Text
End If
If Button8.Text = Button7.Text Or Button8.Text = Button6.Text Or Button8.Text = Button5.Text Or Button8.Text = Button4.Text Or Button8.Text = Button3.Text Or Button8.Text = Button2.Text Or Button8.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button8.Text = number
Loop Until Button8.Text <> Button7.Text And Button8.Text <> Button6.Text And Button8.Text <> Button5.Text And Button8.Text <> Button4.Text And Button8.Text <> Button3.Text And Button8.Text <> Button2.Text And Button8.Text <> Button1.Text
End If
If Button9.Text = Button8.Text Or Button9.Text = Button7.Text Or Button9.Text = Button6.Text Or Button9.Text = Button5.Text Or Button9.Text = Button4.Text Or Button9.Text = Button3.Text Or Button9.Text = Button2.Text Or Button9.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button9.Text = number
Loop Until Button9.Text <> Button8.Text And Button9.Text <> Button7.Text And Button9.Text <> Button6.Text And Button9.Text <> Button5.Text And Button9.Text <> Button4.Text And Button9.Text <> Button3.Text And Button9.Text <> Button2.Text And Button9.Text <> Button1.Text
End If
If Button10.Text = Button9.Text Or Button10.Text = Button8.Text Or Button10.Text = Button7.Text Or Button10.Text = Button6.Text Or Button10.Text = Button5.Text Or Button10.Text = Button4.Text Or Button10.Text = Button3.Text Or Button10.Text = Button2.Text Or Button10.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button10.Text = number
Loop Until Button10.Text <> Button9.Text And Button10.Text <> Button8.Text And Button10.Text <> Button7.Text And Button10.Text <> Button6.Text And Button10.Text <> Button5.Text And Button10.Text <> Button4.Text And Button10.Text <> Button3.Text And Button10.Text <> Button2.Text And Button10.Text <> Button1.Text
End If
If Button11.Text = Button10.Text Or Button11.Text = Button9.Text Or Button11.Text = Button8.Text Or Button11.Text = Button7.Text Or Button11.Text = Button6.Text Or Button11.Text = Button5.Text Or Button11.Text = Button4.Text Or Button11.Text = Button3.Text Or Button11.Text = Button2.Text Or Button11.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button11.Text = number
Loop Until Button11.Text <> Button10.Text And Button11.Text <> Button9.Text And Button11.Text <> Button8.Text And Button11.Text <> Button7.Text And Button11.Text <> Button6.Text And Button11.Text <> Button5.Text And Button11.Text <> Button4.Text And Button11.Text <> Button3.Text And Button11.Text <> Button2.Text And Button11.Text <> Button1.Text
End If
If Button12.Text = Button11.Text Or Button12.Text = Button10.Text Or Button12.Text = Button9.Text Or Button12.Text = Button8.Text Or Button12.Text = Button7.Text Or Button12.Text = Button6.Text Or Button12.Text = Button5.Text Or Button12.Text = Button4.Text Or Button12.Text = Button3.Text Or Button12.Text = Button2.Text Or Button12.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button12.Text = number
Loop Until Button12.Text <> Button11.Text And Button12.Text <> Button10.Text And Button12.Text <> Button9.Text And Button12.Text <> Button8.Text And Button12.Text <> Button7.Text And Button12.Text <> Button6.Text And Button12.Text <> Button5.Text And Button12.Text <> Button4.Text And Button12.Text <> Button3.Text And Button12.Text <> Button2.Text And Button12.Text <> Button1.Text
End If
If Button13.Text = Button12.Text Or Button13.Text = Button11.Text Or Button13.Text = Button10.Text Or Button13.Text = Button9.Text Or Button13.Text = Button8.Text Or Button13.Text = Button7.Text Or Button13.Text = Button6.Text Or Button13.Text = Button5.Text Or Button13.Text = Button4.Text Or Button13.Text = Button3.Text Or Button13.Text = Button2.Text Or Button13.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button13.Text = number
Loop Until Button13.Text <> Button12.Text And Button13.Text <> Button11.Text And Button13.Text <> Button10.Text And Button13.Text <> Button9.Text And Button13.Text <> Button8.Text And Button13.Text <> Button7.Text And Button13.Text <> Button6.Text And Button13.Text <> Button5.Text And Button13.Text <> Button4.Text And Button13.Text <> Button3.Text And Button13.Text <> Button2.Text And Button13.Text <> Button1.Text
End If
If Button14.Text = Button13.Text Or Button14.Text = Button12.Text Or Button14.Text = Button11.Text Or Button14.Text = Button10.Text Or Button14.Text = Button9.Text Or Button14.Text = Button8.Text Or Button14.Text = Button7.Text Or Button14.Text = Button6.Text Or Button14.Text = Button5.Text Or Button14.Text = Button4.Text Or Button14.Text = Button3.Text Or Button14.Text = Button2.Text Or Button14.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button14.Text = number
Loop Until Button14.Text <> Button13.Text And Button14.Text <> Button12.Text And Button14.Text <> Button11.Text And Button14.Text <> Button10.Text And Button14.Text <> Button9.Text And Button14.Text <> Button8.Text And Button14.Text <> Button7.Text And Button14.Text <> Button6.Text And Button14.Text <> Button5.Text And Button14.Text <> Button4.Text And Button14.Text <> Button3.Text And Button14.Text <> Button2.Text And Button14.Text <> Button1.Text
End If
If Button15.Text = Button14.Text Or Button15.Text = Button13.Text Or Button15.Text = Button12.Text Or Button15.Text = Button11.Text Or Button15.Text = Button10.Text Or Button15.Text = Button9.Text Or Button15.Text = Button8.Text Or Button15.Text = Button7.Text Or Button15.Text = Button6.Text Or Button15.Text = Button5.Text Or Button15.Text = Button4.Text Or Button15.Text = Button3.Text Or Button15.Text = Button2.Text Or Button15.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button15.Text = number
Loop Until Button15.Text <> Button14.Text And Button15.Text <> Button13.Text And Button15.Text <> Button12.Text And Button15.Text <> Button11.Text And Button15.Text <> Button10.Text And Button15.Text <> Button9.Text And Button15.Text <> Button8.Text And Button15.Text <> Button7.Text And Button15.Text <> Button6.Text And Button15.Text <> Button5.Text And Button15.Text <> Button4.Text And Button15.Text <> Button3.Text And Button15.Text <> Button2.Text And Button15.Text <> Button1.Text
End If
If Button16.Text = Button15.Text Or Button16.Text = Button14.Text Or Button16.Text = Button13.Text Or Button16.Text = Button12.Text Or Button16.Text = Button11.Text Or Button16.Text = Button10.Text Or Button16.Text = Button9.Text Or Button16.Text = Button8.Text Or Button16.Text = Button7.Text Or Button16.Text = Button6.Text Or Button16.Text = Button5.Text Or Button16.Text = Button4.Text Or Button16.Text = Button3.Text Or Button16.Text = Button2.Text Or Button16.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button16.Text = number
Loop Until Button16.Text <> Button15.Text And Button16.Text <> Button14.Text And Button16.Text <> Button13.Text And Button16.Text <> Button12.Text And Button16.Text <> Button11.Text And Button16.Text <> Button10.Text And Button16.Text <> Button9.Text And Button16.Text <> Button8.Text And Button16.Text <> Button7.Text And Button16.Text <> Button6.Text And Button16.Text <> Button5.Text And Button16.Text <> Button4.Text And Button16.Text <> Button3.Text And Button16.Text <> Button2.Text And Button16.Text <> Button1.Text
End If
If Button17.Text = Button16.Text Or Button17.Text = Button15.Text Or Button17.Text = Button14.Text Or Button17.Text = Button13.Text Or Button17.Text = Button12.Text Or Button17.Text = Button11.Text Or Button17.Text = Button10.Text Or Button17.Text = Button9.Text Or Button17.Text = Button8.Text Or Button17.Text = Button7.Text Or Button17.Text = Button6.Text Or Button17.Text = Button5.Text Or Button17.Text = Button4.Text Or Button17.Text = Button3.Text Or Button17.Text = Button2.Text Or Button17.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button17.Text = number
Loop Until Button17.Text <> Button16.Text And Button17.Text <> Button15.Text And Button17.Text <> Button14.Text And Button17.Text <> Button13.Text And Button17.Text <> Button12.Text And Button17.Text <> Button11.Text And Button17.Text <> Button10.Text And Button17.Text <> Button9.Text And Button17.Text <> Button8.Text And Button17.Text <> Button7.Text And Button17.Text <> Button6.Text And Button17.Text <> Button5.Text And Button17.Text <> Button4.Text And Button17.Text <> Button3.Text And Button17.Text <> Button2.Text And Button17.Text <> Button1.Text
End If
If Button18.Text = Button17.Text Or Button18.Text = Button16.Text Or Button18.Text = Button15.Text Or Button18.Text = Button14.Text Or Button18.Text = Button13.Text Or Button18.Text = Button12.Text Or Button18.Text = Button11.Text Or Button18.Text = Button10.Text Or Button18.Text = Button9.Text Or Button18.Text = Button8.Text Or Button18.Text = Button7.Text Or Button18.Text = Button6.Text Or Button18.Text = Button5.Text Or Button18.Text = Button4.Text Or Button18.Text = Button3.Text Or Button18.Text = Button2.Text Or Button18.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button18.Text = number
Loop Until Button18.Text <> Button17.Text And Button18.Text <> Button16.Text And Button18.Text <> Button15.Text And Button18.Text <> Button14.Text And Button18.Text <> Button13.Text And Button18.Text <> Button12.Text And Button18.Text <> Button11.Text And Button18.Text <> Button10.Text And Button18.Text <> Button9.Text And Button18.Text <> Button8.Text And Button18.Text <> Button7.Text And Button18.Text <> Button6.Text And Button18.Text <> Button5.Text And Button18.Text <> Button4.Text And Button18.Text <> Button3.Text And Button18.Text <> Button2.Text And Button18.Text <> Button1.Text
End If
If Button19.Text = Button18.Text Or Button19.Text = Button17.Text Or Button19.Text = Button16.Text Or Button19.Text = Button15.Text Or Button19.Text = Button14.Text Or Button19.Text = Button13.Text Or Button19.Text = Button12.Text Or Button19.Text = Button11.Text Or Button19.Text = Button10.Text Or Button19.Text = Button9.Text Or Button19.Text = Button8.Text Or Button19.Text = Button7.Text Or Button19.Text = Button6.Text Or Button19.Text = Button5.Text Or Button19.Text = Button4.Text Or Button19.Text = Button3.Text Or Button19.Text = Button2.Text Or Button19.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button19.Text = number
Loop Until Button19.Text <> Button18.Text And Button19.Text <> Button17.Text And Button19.Text <> Button16.Text And Button19.Text <> Button15.Text And Button19.Text <> Button14.Text And Button19.Text <> Button13.Text And Button19.Text <> Button12.Text And Button19.Text <> Button11.Text And Button19.Text <> Button10.Text And Button19.Text <> Button9.Text And Button19.Text <> Button8.Text And Button19.Text <> Button7.Text And Button19.Text <> Button6.Text And Button19.Text <> Button5.Text And Button19.Text <> Button4.Text And Button19.Text <> Button3.Text And Button19.Text <> Button2.Text And Button19.Text <> Button1.Text
End If
If Button20.Text = Button19.Text Or Button20.Text = Button18.Text Or Button20.Text = Button17.Text Or Button20.Text = Button16.Text Or Button20.Text = Button15.Text Or Button20.Text = Button14.Text Or Button20.Text = Button13.Text Or Button20.Text = Button12.Text Or Button20.Text = Button11.Text Or Button20.Text = Button10.Text Or Button20.Text = Button9.Text Or Button20.Text = Button8.Text Or Button20.Text = Button7.Text Or Button20.Text = Button6.Text Or Button20.Text = Button5.Text Or Button20.Text = Button4.Text Or Button20.Text = Button3.Text Or Button20.Text = Button2.Text Or Button20.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button20.Text = number
Loop Until Button20.Text <> Button19.Text And Button20.Text <> Button18.Text And Button20.Text <> Button17.Text And Button20.Text <> Button16.Text And Button20.Text <> Button15.Text And Button20.Text <> Button14.Text And Button20.Text <> Button13.Text And Button20.Text <> Button12.Text And Button20.Text <> Button11.Text And Button20.Text <> Button10.Text And Button20.Text <> Button9.Text And Button20.Text <> Button8.Text And Button20.Text <> Button7.Text And Button20.Text <> Button6.Text And Button20.Text <> Button5.Text And Button20.Text <> Button4.Text And Button20.Text <> Button3.Text And Button20.Text <> Button2.Text And Button20.Text <> Button1.Text
End If
If Button21.Text = Button20.Text Or Button21.Text = Button19.Text Or Button21.Text = Button18.Text Or Button21.Text = Button17.Text Or Button21.Text = Button16.Text Or Button21.Text = Button15.Text Or Button21.Text = Button14.Text Or Button21.Text = Button13.Text Or Button21.Text = Button12.Text Or Button21.Text = Button11.Text Or Button21.Text = Button10.Text Or Button21.Text = Button9.Text Or Button21.Text = Button8.Text Or Button21.Text = Button7.Text Or Button21.Text = Button6.Text Or Button21.Text = Button5.Text Or Button21.Text = Button4.Text Or Button21.Text = Button3.Text Or Button21.Text = Button2.Text Or Button21.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button21.Text = number
Loop Until Button21.Text <> Button20.Text And Button21.Text <> Button19.Text And Button21.Text <> Button18.Text And Button21.Text <> Button17.Text And Button21.Text <> Button16.Text And Button21.Text <> Button15.Text And Button21.Text <> Button14.Text And Button21.Text <> Button13.Text And Button21.Text <> Button12.Text And Button21.Text <> Button11.Text And Button21.Text <> Button10.Text And Button21.Text <> Button9.Text And Button21.Text <> Button8.Text And Button21.Text <> Button7.Text And Button21.Text <> Button6.Text And Button21.Text <> Button5.Text And Button21.Text <> Button4.Text And Button21.Text <> Button3.Text And Button21.Text <> Button2.Text And Button21.Text <> Button1.Text
End If
If Button22.Text = Button21.Text Or Button22.Text = Button20.Text Or Button22.Text = Button19.Text Or Button22.Text = Button18.Text Or Button22.Text = Button17.Text Or Button22.Text = Button16.Text Or Button22.Text = Button15.Text Or Button22.Text = Button14.Text Or Button22.Text = Button13.Text Or Button22.Text = Button12.Text Or Button22.Text = Button11.Text Or Button22.Text = Button10.Text Or Button22.Text = Button9.Text Or Button22.Text = Button8.Text Or Button22.Text = Button7.Text Or Button22.Text = Button6.Text Or Button22.Text = Button5.Text Or Button22.Text = Button4.Text Or Button22.Text = Button3.Text Or Button22.Text = Button2.Text Or Button22.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button22.Text = number
Loop Until Button22.Text <> Button21.Text And Button22.Text <> Button20.Text And Button22.Text <> Button19.Text And Button22.Text <> Button18.Text And Button22.Text <> Button17.Text And Button22.Text <> Button16.Text And Button22.Text <> Button15.Text And Button22.Text <> Button14.Text And Button22.Text <> Button13.Text And Button22.Text <> Button12.Text And Button22.Text <> Button11.Text And Button22.Text <> Button10.Text And Button22.Text <> Button9.Text And Button22.Text <> Button8.Text And Button22.Text <> Button7.Text And Button22.Text <> Button6.Text And Button22.Text <> Button5.Text And Button22.Text <> Button4.Text And Button22.Text <> Button3.Text And Button22.Text <> Button2.Text And Button22.Text <> Button1.Text
End If
If Button23.Text = Button22.Text Or Button23.Text = Button21.Text Or Button23.Text = Button20.Text Or Button23.Text = Button19.Text Or Button23.Text = Button18.Text Or Button23.Text = Button17.Text Or Button23.Text = Button16.Text Or Button23.Text = Button15.Text Or Button23.Text = Button14.Text Or Button23.Text = Button13.Text Or Button23.Text = Button12.Text Or Button23.Text = Button11.Text Or Button23.Text = Button10.Text Or Button23.Text = Button9.Text Or Button23.Text = Button8.Text Or Button23.Text = Button7.Text Or Button23.Text = Button6.Text Or Button23.Text = Button5.Text Or Button23.Text = Button4.Text Or Button23.Text = Button3.Text Or Button23.Text = Button2.Text Or Button23.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button23.Text = number
Loop Until Button23.Text <> Button22.Text And Button23.Text <> Button21.Text And Button23.Text <> Button20.Text And Button23.Text <> Button19.Text And Button23.Text <> Button18.Text And Button23.Text <> Button17.Text And Button23.Text <> Button16.Text And Button23.Text <> Button15.Text And Button23.Text <> Button14.Text And Button23.Text <> Button13.Text And Button23.Text <> Button12.Text And Button23.Text <> Button11.Text And Button23.Text <> Button10.Text And Button23.Text <> Button9.Text And Button23.Text <> Button8.Text And Button23.Text <> Button7.Text And Button23.Text <> Button6.Text And Button23.Text <> Button5.Text And Button23.Text <> Button4.Text And Button23.Text <> Button3.Text And Button23.Text <> Button2.Text And Button23.Text <> Button1.Text
End If
If Button24.Text = Button23.Text Or Button24.Text = Button22.Text Or Button24.Text = Button21.Text Or Button24.Text = Button20.Text Or Button24.Text = Button19.Text Or Button24.Text = Button18.Text Or Button24.Text = Button17.Text Or Button24.Text = Button16.Text Or Button24.Text = Button15.Text Or Button24.Text = Button14.Text Or Button24.Text = Button13.Text Or Button24.Text = Button12.Text Or Button24.Text = Button11.Text Or Button24.Text = Button10.Text Or Button24.Text = Button9.Text Or Button24.Text = Button8.Text Or Button24.Text = Button7.Text Or Button24.Text = Button6.Text Or Button24.Text = Button5.Text Or Button24.Text = Button4.Text Or Button24.Text = Button3.Text Or Button24.Text = Button2.Text Or Button24.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button24.Text = number
Loop Until Button24.Text <> Button23.Text And Button24.Text <> Button22.Text And Button24.Text <> Button21.Text And Button24.Text <> Button20.Text And Button24.Text <> Button19.Text And Button24.Text <> Button18.Text And Button24.Text <> Button17.Text And Button24.Text <> Button16.Text And Button24.Text <> Button15.Text And Button24.Text <> Button14.Text And Button24.Text <> Button13.Text And Button24.Text <> Button12.Text And Button24.Text <> Button11.Text And Button24.Text <> Button10.Text And Button24.Text <> Button9.Text And Button24.Text <> Button8.Text And Button24.Text <> Button7.Text And Button24.Text <> Button6.Text And Button24.Text <> Button5.Text And Button24.Text <> Button4.Text And Button24.Text <> Button3.Text And Button24.Text <> Button2.Text And Button24.Text <> Button1.Text
End If
If Button25.Text = Button24.Text Or Button25.Text = Button23.Text Or Button25.Text = Button22.Text Or Button25.Text = Button21.Text Or Button25.Text = Button20.Text Or Button25.Text = Button19.Text Or Button25.Text = Button18.Text Or Button25.Text = Button17.Text Or Button25.Text = Button16.Text Or Button25.Text = Button15.Text Or Button25.Text = Button14.Text Or Button25.Text = Button13.Text Or Button25.Text = Button12.Text Or Button25.Text = Button11.Text Or Button25.Text = Button10.Text Or Button25.Text = Button9.Text Or Button25.Text = Button8.Text Or Button25.Text = Button7.Text Or Button25.Text = Button6.Text Or Button25.Text = Button5.Text Or Button25.Text = Button4.Text Or Button25.Text = Button3.Text Or Button25.Text = Button2.Text Or Button25.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button25.Text = number
Loop Until Button25.Text <> Button24.Text And Button25.Text <> Button23.Text And Button25.Text <> Button22.Text And Button25.Text <> Button21.Text And Button25.Text <> Button20.Text And Button25.Text <> Button19.Text And Button25.Text <> Button18.Text And Button25.Text <> Button17.Text And Button25.Text <> Button16.Text And Button25.Text <> Button15.Text And Button25.Text <> Button14.Text And Button25.Text <> Button13.Text And Button25.Text <> Button12.Text And Button25.Text <> Button11.Text And Button25.Text <> Button10.Text And Button25.Text <> Button9.Text And Button25.Text <> Button8.Text And Button25.Text <> Button7.Text And Button25.Text <> Button6.Text And Button25.Text <> Button5.Text And Button25.Text <> Button4.Text And Button25.Text <> Button3.Text And Button25.Text <> Button2.Text And Button25.Text <> Button1.Text
End If
If Button26.Text = Button25.Text Or Button26.Text = Button24.Text Or Button26.Text = Button23.Text Or Button26.Text = Button22.Text Or Button26.Text = Button21.Text Or Button26.Text = Button20.Text Or Button26.Text = Button19.Text Or Button26.Text = Button18.Text Or Button26.Text = Button17.Text Or Button26.Text = Button16.Text Or Button26.Text = Button15.Text Or Button26.Text = Button14.Text Or Button26.Text = Button13.Text Or Button26.Text = Button12.Text Or Button26.Text = Button11.Text Or Button26.Text = Button10.Text Or Button26.Text = Button9.Text Or Button26.Text = Button8.Text Or Button26.Text = Button7.Text Or Button26.Text = Button6.Text Or Button26.Text = Button5.Text Or Button26.Text = Button4.Text Or Button26.Text = Button3.Text Or Button26.Text = Button2.Text Or Button26.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button26.Text = number
Loop Until Button26.Text <> Button25.Text And Button26.Text <> Button24.Text And Button26.Text <> Button23.Text And Button26.Text <> Button22.Text And Button26.Text <> Button21.Text And Button26.Text <> Button20.Text And Button26.Text <> Button19.Text And Button26.Text <> Button18.Text And Button26.Text <> Button17.Text And Button26.Text <> Button16.Text And Button26.Text <> Button15.Text And Button26.Text <> Button14.Text And Button26.Text <> Button13.Text And Button26.Text <> Button12.Text And Button26.Text <> Button11.Text And Button26.Text <> Button10.Text And Button26.Text <> Button9.Text And Button26.Text <> Button8.Text And Button26.Text <> Button7.Text And Button26.Text <> Button6.Text And Button26.Text <> Button5.Text And Button26.Text <> Button4.Text And Button26.Text <> Button3.Text And Button26.Text <> Button2.Text And Button26.Text <> Button1.Text
End If
If Button27.Text = Button26.Text Or Button27.Text = Button25.Text Or Button27.Text = Button24.Text Or Button27.Text = Button23.Text Or Button27.Text = Button22.Text Or Button27.Text = Button21.Text Or Button27.Text = Button20.Text Or Button27.Text = Button19.Text Or Button27.Text = Button18.Text Or Button27.Text = Button17.Text Or Button27.Text = Button16.Text Or Button27.Text = Button15.Text Or Button27.Text = Button14.Text Or Button27.Text = Button13.Text Or Button27.Text = Button12.Text Or Button27.Text = Button11.Text Or Button27.Text = Button10.Text Or Button27.Text = Button9.Text Or Button27.Text = Button8.Text Or Button27.Text = Button7.Text Or Button27.Text = Button6.Text Or Button27.Text = Button5.Text Or Button27.Text = Button4.Text Or Button27.Text = Button3.Text Or Button27.Text = Button2.Text Or Button27.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button27.Text = number
Loop Until Button27.Text <> Button26.Text And Button27.Text <> Button25.Text And Button27.Text <> Button24.Text And Button27.Text <> Button23.Text And Button27.Text <> Button22.Text And Button27.Text <> Button21.Text And Button27.Text <> Button20.Text And Button27.Text <> Button19.Text And Button27.Text <> Button18.Text And Button27.Text <> Button17.Text And Button27.Text <> Button16.Text And Button27.Text <> Button15.Text And Button27.Text <> Button14.Text And Button27.Text <> Button13.Text And Button27.Text <> Button12.Text And Button27.Text <> Button11.Text And Button27.Text <> Button10.Text And Button27.Text <> Button9.Text And Button27.Text <> Button8.Text And Button27.Text <> Button7.Text And Button27.Text <> Button6.Text And Button27.Text <> Button5.Text And Button27.Text <> Button4.Text And Button27.Text <> Button3.Text And Button27.Text <> Button2.Text And Button27.Text <> Button1.Text
End If
If Button28.Text = Button27.Text Or Button28.Text = Button26.Text Or Button28.Text = Button25.Text Or Button28.Text = Button24.Text Or Button28.Text = Button23.Text Or Button28.Text = Button22.Text Or Button28.Text = Button21.Text Or Button28.Text = Button20.Text Or Button28.Text = Button19.Text Or Button28.Text = Button18.Text Or Button28.Text = Button17.Text Or Button28.Text = Button16.Text Or Button28.Text = Button15.Text Or Button28.Text = Button14.Text Or Button28.Text = Button13.Text Or Button28.Text = Button12.Text Or Button28.Text = Button11.Text Or Button28.Text = Button10.Text Or Button28.Text = Button9.Text Or Button28.Text = Button8.Text Or Button28.Text = Button7.Text Or Button28.Text = Button6.Text Or Button28.Text = Button5.Text Or Button28.Text = Button4.Text Or Button28.Text = Button3.Text Or Button28.Text = Button2.Text Or Button28.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button28.Text = number
Loop Until Button28.Text <> Button27.Text And Button28.Text <> Button26.Text And Button28.Text <> Button25.Text And Button28.Text <> Button24.Text And Button28.Text <> Button23.Text And Button28.Text <> Button22.Text And Button28.Text <> Button21.Text And Button28.Text <> Button20.Text And Button28.Text <> Button19.Text And Button28.Text <> Button18.Text And Button28.Text <> Button17.Text And Button28.Text <> Button16.Text And Button28.Text <> Button15.Text And Button28.Text <> Button14.Text And Button28.Text <> Button13.Text And Button28.Text <> Button12.Text And Button28.Text <> Button11.Text And Button28.Text <> Button10.Text And Button28.Text <> Button9.Text And Button28.Text <> Button8.Text And Button28.Text <> Button7.Text And Button28.Text <> Button6.Text And Button28.Text <> Button5.Text And Button28.Text <> Button4.Text And Button28.Text <> Button3.Text And Button28.Text <> Button2.Text And Button28.Text <> Button1.Text
End If
If Button29.Text = Button28.Text Or Button29.Text = Button27.Text Or Button29.Text = Button26.Text Or Button29.Text = Button25.Text Or Button29.Text = Button24.Text Or Button29.Text = Button23.Text Or Button29.Text = Button22.Text Or Button29.Text = Button21.Text Or Button29.Text = Button20.Text Or Button29.Text = Button19.Text Or Button29.Text = Button18.Text Or Button29.Text = Button17.Text Or Button29.Text = Button16.Text Or Button29.Text = Button15.Text Or Button29.Text = Button14.Text Or Button29.Text = Button13.Text Or Button29.Text = Button12.Text Or Button29.Text = Button11.Text Or Button29.Text = Button10.Text Or Button29.Text = Button9.Text Or Button29.Text = Button8.Text Or Button29.Text = Button7.Text Or Button29.Text = Button6.Text Or Button29.Text = Button5.Text Or Button29.Text = Button4.Text Or Button29.Text = Button3.Text Or Button29.Text = Button2.Text Or Button29.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button29.Text = number
Loop Until Button29.Text <> Button28.Text And Button29.Text <> Button27.Text And Button29.Text <> Button26.Text And Button29.Text <> Button25.Text And Button29.Text <> Button24.Text And Button29.Text <> Button23.Text And Button29.Text <> Button22.Text And Button29.Text <> Button21.Text And Button29.Text <> Button20.Text And Button29.Text <> Button19.Text And Button29.Text <> Button18.Text And Button29.Text <> Button17.Text And Button29.Text <> Button16.Text And Button29.Text <> Button15.Text And Button29.Text <> Button14.Text And Button29.Text <> Button13.Text And Button29.Text <> Button12.Text And Button29.Text <> Button11.Text And Button29.Text <> Button10.Text And Button29.Text <> Button9.Text And Button29.Text <> Button8.Text And Button29.Text <> Button7.Text And Button29.Text <> Button6.Text And Button29.Text <> Button5.Text And Button29.Text <> Button4.Text And Button29.Text <> Button3.Text And Button29.Text <> Button2.Text And Button29.Text <> Button1.Text
End If
If Button30.Text = Button29.Text Or Button30.Text = Button28.Text Or Button30.Text = Button27.Text Or Button30.Text = Button26.Text Or Button30.Text = Button25.Text Or Button30.Text = Button24.Text Or Button30.Text = Button23.Text Or Button30.Text = Button22.Text Or Button30.Text = Button21.Text Or Button30.Text = Button20.Text Or Button30.Text = Button19.Text Or Button30.Text = Button18.Text Or Button30.Text = Button17.Text Or Button30.Text = Button16.Text Or Button30.Text = Button15.Text Or Button30.Text = Button14.Text Or Button30.Text = Button13.Text Or Button30.Text = Button12.Text Or Button30.Text = Button11.Text Or Button30.Text = Button10.Text Or Button30.Text = Button9.Text Or Button30.Text = Button8.Text Or Button30.Text = Button7.Text Or Button30.Text = Button6.Text Or Button30.Text = Button5.Text Or Button30.Text = Button4.Text Or Button30.Text = Button3.Text Or Button30.Text = Button2.Text Or Button30.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button30.Text = number
Loop Until Button30.Text <> Button29.Text And Button30.Text <> Button28.Text And Button30.Text <> Button27.Text And Button30.Text <> Button26.Text And Button30.Text <> Button25.Text And Button30.Text <> Button24.Text And Button30.Text <> Button23.Text And Button30.Text <> Button22.Text And Button30.Text <> Button21.Text And Button30.Text <> Button20.Text And Button30.Text <> Button19.Text And Button30.Text <> Button18.Text And Button30.Text <> Button17.Text And Button30.Text <> Button16.Text And Button30.Text <> Button15.Text And Button30.Text <> Button14.Text And Button30.Text <> Button13.Text And Button30.Text <> Button12.Text And Button30.Text <> Button11.Text And Button30.Text <> Button10.Text And Button30.Text <> Button9.Text And Button30.Text <> Button8.Text And Button30.Text <> Button7.Text And Button30.Text <> Button6.Text And Button30.Text <> Button5.Text And Button30.Text <> Button4.Text And Button30.Text <> Button3.Text And Button30.Text <> Button2.Text And Button30.Text <> Button1.Text
End If
If Button31.Text = Button30.Text Or Button31.Text = Button29.Text Or Button31.Text = Button28.Text Or Button31.Text = Button27.Text Or Button31.Text = Button26.Text Or Button31.Text = Button25.Text Or Button31.Text = Button24.Text Or Button31.Text = Button23.Text Or Button31.Text = Button22.Text Or Button31.Text = Button21.Text Or Button31.Text = Button20.Text Or Button31.Text = Button19.Text Or Button31.Text = Button18.Text Or Button31.Text = Button17.Text Or Button31.Text = Button16.Text Or Button31.Text = Button15.Text Or Button31.Text = Button14.Text Or Button31.Text = Button13.Text Or Button31.Text = Button12.Text Or Button31.Text = Button11.Text Or Button31.Text = Button10.Text Or Button31.Text = Button9.Text Or Button31.Text = Button8.Text Or Button31.Text = Button7.Text Or Button31.Text = Button6.Text Or Button31.Text = Button5.Text Or Button31.Text = Button4.Text Or Button31.Text = Button3.Text Or Button31.Text = Button2.Text Or Button31.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button31.Text = number
Loop Until Button31.Text <> Button30.Text And Button31.Text <> Button29.Text And Button31.Text <> Button28.Text And Button31.Text <> Button27.Text And Button31.Text <> Button26.Text And Button31.Text <> Button25.Text And Button31.Text <> Button24.Text And Button31.Text <> Button23.Text And Button31.Text <> Button22.Text And Button31.Text <> Button21.Text And Button31.Text <> Button20.Text And Button31.Text <> Button19.Text And Button31.Text <> Button18.Text And Button31.Text <> Button17.Text And Button31.Text <> Button16.Text And Button31.Text <> Button15.Text And Button31.Text <> Button14.Text And Button31.Text <> Button13.Text And Button31.Text <> Button12.Text And Button31.Text <> Button11.Text And Button31.Text <> Button10.Text And Button31.Text <> Button9.Text And Button31.Text <> Button8.Text And Button31.Text <> Button7.Text And Button31.Text <> Button6.Text And Button31.Text <> Button5.Text And Button31.Text <> Button4.Text And Button31.Text <> Button3.Text And Button31.Text <> Button2.Text And Button31.Text <> Button1.Text
End If
If Button32.Text = Button31.Text Or Button32.Text = Button30.Text Or Button32.Text = Button29.Text Or Button32.Text = Button28.Text Or Button32.Text = Button27.Text Or Button32.Text = Button26.Text Or Button32.Text = Button25.Text Or Button32.Text = Button24.Text Or Button32.Text = Button23.Text Or Button32.Text = Button22.Text Or Button32.Text = Button21.Text Or Button32.Text = Button20.Text Or Button32.Text = Button19.Text Or Button32.Text = Button18.Text Or Button32.Text = Button17.Text Or Button32.Text = Button16.Text Or Button32.Text = Button15.Text Or Button32.Text = Button14.Text Or Button32.Text = Button13.Text Or Button32.Text = Button12.Text Or Button32.Text = Button11.Text Or Button32.Text = Button10.Text Or Button32.Text = Button9.Text Or Button32.Text = Button8.Text Or Button32.Text = Button7.Text Or Button32.Text = Button6.Text Or Button32.Text = Button5.Text Or Button32.Text = Button4.Text Or Button32.Text = Button3.Text Or Button32.Text = Button2.Text Or Button32.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button32.Text = number
Loop Until Button32.Text <> Button31.Text And Button32.Text <> Button30.Text And Button32.Text <> Button29.Text And Button32.Text <> Button28.Text And Button32.Text <> Button27.Text And Button32.Text <> Button26.Text And Button32.Text <> Button25.Text And Button32.Text <> Button24.Text And Button32.Text <> Button23.Text And Button32.Text <> Button22.Text And Button32.Text <> Button21.Text And Button32.Text <> Button20.Text And Button32.Text <> Button19.Text And Button32.Text <> Button18.Text And Button32.Text <> Button17.Text And Button32.Text <> Button16.Text And Button32.Text <> Button15.Text And Button32.Text <> Button14.Text And Button32.Text <> Button13.Text And Button32.Text <> Button12.Text And Button32.Text <> Button11.Text And Button32.Text <> Button10.Text And Button32.Text <> Button9.Text And Button32.Text <> Button8.Text And Button32.Text <> Button7.Text And Button32.Text <> Button6.Text And Button32.Text <> Button5.Text And Button32.Text <> Button4.Text And Button32.Text <> Button3.Text And Button32.Text <> Button2.Text And Button32.Text <> Button1.Text
End If
If Button33.Text = Button32.Text Or Button33.Text = Button31.Text Or Button33.Text = Button30.Text Or Button33.Text = Button29.Text Or Button33.Text = Button28.Text Or Button33.Text = Button27.Text Or Button33.Text = Button26.Text Or Button33.Text = Button25.Text Or Button33.Text = Button24.Text Or Button33.Text = Button23.Text Or Button33.Text = Button22.Text Or Button33.Text = Button21.Text Or Button33.Text = Button20.Text Or Button33.Text = Button19.Text Or Button33.Text = Button18.Text Or Button33.Text = Button17.Text Or Button33.Text = Button16.Text Or Button33.Text = Button15.Text Or Button33.Text = Button14.Text Or Button33.Text = Button13.Text Or Button33.Text = Button12.Text Or Button33.Text = Button11.Text Or Button33.Text = Button10.Text Or Button33.Text = Button9.Text Or Button33.Text = Button8.Text Or Button33.Text = Button7.Text Or Button33.Text = Button6.Text Or Button33.Text = Button5.Text Or Button33.Text = Button4.Text Or Button33.Text = Button3.Text Or Button33.Text = Button2.Text Or Button33.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button33.Text = number
Loop Until Button33.Text <> Button32.Text And Button33.Text <> Button31.Text And Button33.Text <> Button30.Text And Button33.Text <> Button29.Text And Button33.Text <> Button28.Text And Button33.Text <> Button27.Text And Button33.Text <> Button26.Text And Button33.Text <> Button25.Text And Button33.Text <> Button24.Text And Button33.Text <> Button23.Text And Button33.Text <> Button22.Text And Button33.Text <> Button21.Text And Button33.Text <> Button20.Text And Button33.Text <> Button19.Text And Button33.Text <> Button18.Text And Button33.Text <> Button17.Text And Button33.Text <> Button16.Text And Button33.Text <> Button15.Text And Button33.Text <> Button14.Text And Button33.Text <> Button13.Text And Button33.Text <> Button12.Text And Button33.Text <> Button11.Text And Button33.Text <> Button10.Text And Button33.Text <> Button9.Text And Button33.Text <> Button8.Text And Button33.Text <> Button7.Text And Button33.Text <> Button6.Text And Button33.Text <> Button5.Text And Button33.Text <> Button4.Text And Button33.Text <> Button3.Text And Button33.Text <> Button2.Text And Button33.Text <> Button1.Text
End If
If Button34.Text = Button33.Text Or Button34.Text = Button32.Text Or Button34.Text = Button31.Text Or Button34.Text = Button30.Text Or Button34.Text = Button29.Text Or Button34.Text = Button28.Text Or Button34.Text = Button27.Text Or Button34.Text = Button26.Text Or Button34.Text = Button25.Text Or Button34.Text = Button24.Text Or Button34.Text = Button23.Text Or Button34.Text = Button22.Text Or Button34.Text = Button21.Text Or Button34.Text = Button20.Text Or Button34.Text = Button19.Text Or Button34.Text = Button18.Text Or Button34.Text = Button17.Text Or Button34.Text = Button16.Text Or Button34.Text = Button15.Text Or Button34.Text = Button14.Text Or Button34.Text = Button13.Text Or Button34.Text = Button12.Text Or Button34.Text = Button11.Text Or Button34.Text = Button10.Text Or Button34.Text = Button9.Text Or Button34.Text = Button8.Text Or Button34.Text = Button7.Text Or Button34.Text = Button6.Text Or Button34.Text = Button5.Text Or Button34.Text = Button4.Text Or Button34.Text = Button3.Text Or Button34.Text = Button2.Text Or Button34.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button34.Text = number
Loop Until Button34.Text <> Button33.Text And Button34.Text <> Button32.Text And Button34.Text <> Button31.Text And Button34.Text <> Button30.Text And Button34.Text <> Button29.Text And Button34.Text <> Button28.Text And Button34.Text <> Button27.Text And Button34.Text <> Button26.Text And Button34.Text <> Button25.Text And Button34.Text <> Button24.Text And Button34.Text <> Button23.Text And Button34.Text <> Button22.Text And Button34.Text <> Button21.Text And Button34.Text <> Button20.Text And Button34.Text <> Button19.Text And Button34.Text <> Button18.Text And Button34.Text <> Button17.Text And Button34.Text <> Button16.Text And Button34.Text <> Button15.Text And Button34.Text <> Button14.Text And Button34.Text <> Button13.Text And Button34.Text <> Button12.Text And Button34.Text <> Button11.Text And Button34.Text <> Button10.Text And Button34.Text <> Button9.Text And Button34.Text <> Button8.Text And Button34.Text <> Button7.Text And Button34.Text <> Button6.Text And Button34.Text <> Button5.Text And Button34.Text <> Button4.Text And Button34.Text <> Button3.Text And Button34.Text <> Button2.Text And Button34.Text <> Button1.Text
End If
If Button35.Text = Button34.Text Or Button35.Text = Button33.Text Or Button35.Text = Button32.Text Or Button35.Text = Button31.Text Or Button35.Text = Button30.Text Or Button35.Text = Button29.Text Or Button35.Text = Button28.Text Or Button35.Text = Button27.Text Or Button35.Text = Button26.Text Or Button35.Text = Button25.Text Or Button35.Text = Button24.Text Or Button35.Text = Button23.Text Or Button35.Text = Button22.Text Or Button35.Text = Button21.Text Or Button35.Text = Button20.Text Or Button35.Text = Button19.Text Or Button35.Text = Button18.Text Or Button35.Text = Button17.Text Or Button35.Text = Button16.Text Or Button35.Text = Button15.Text Or Button35.Text = Button14.Text Or Button35.Text = Button13.Text Or Button35.Text = Button12.Text Or Button35.Text = Button11.Text Or Button35.Text = Button10.Text Or Button35.Text = Button9.Text Or Button35.Text = Button8.Text Or Button35.Text = Button7.Text Or Button35.Text = Button6.Text Or Button35.Text = Button5.Text Or Button35.Text = Button4.Text Or Button35.Text = Button3.Text Or Button35.Text = Button2.Text Or Button35.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 36)
Button35.Text = number
Loop Until Button35.Text <> Button34.Text And Button35.Text <> Button33.Text And Button35.Text <> Button32.Text And Button35.Text <> Button31.Text And Button35.Text <> Button30.Text And Button35.Text <> Button29.Text And Button35.Text <> Button28.Text And Button35.Text <> Button27.Text And Button35.Text <> Button26.Text And Button35.Text <> Button25.Text And Button35.Text <> Button24.Text And Button35.Text <> Button23.Text And Button35.Text <> Button22.Text And Button35.Text <> Button21.Text And Button35.Text <> Button20.Text And Button35.Text <> Button19.Text And Button35.Text <> Button18.Text And Button35.Text <> Button17.Text And Button35.Text <> Button16.Text And Button35.Text <> Button15.Text And Button35.Text <> Button14.Text And Button35.Text <> Button13.Text And Button35.Text <> Button12.Text And Button35.Text <> Button11.Text And Button35.Text <> Button10.Text And Button35.Text <> Button9.Text And Button35.Text <> Button8.Text And Button35.Text <> Button7.Text And Button35.Text <> Button6.Text And Button35.Text <> Button5.Text And Button35.Text <> Button4.Text And Button35.Text <> Button3.Text And Button35.Text <> Button2.Text And Button35.Text <> Button1.Text
End If
End If
Button36.Text = ""
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button2.Text = "" Then
Button2.Text = Button1.Text
Button1.Text = ""
ElseIf Button7.Text = "" Then
Button7.Text = Button1.Text
Button1.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Text = "" Then
Button1.Text = Button2.Text
Button2.Text = ""
ElseIf Button3.Text = "" Then
Button3.Text = Button2.Text
Button2.Text = ""
ElseIf Button8.Text = "" Then
Button8.Text = Button2.Text
Button2.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button2.Text = "" Then
Button2.Text = Button3.Text
Button3.Text = ""
ElseIf Button4.Text = "" Then
Button4.Text = Button3.Text
Button3.Text = ""
ElseIf Button9.Text = "" Then
Button9.Text = Button3.Text
Button3.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button3.Text = "" Then
Button3.Text = Button4.Text
Button4.Text = ""
ElseIf Button5.Text = "" Then
Button5.Text = Button4.Text
Button4.Text = ""
ElseIf Button10.Text = "" Then
Button10.Text = Button4.Text
Button4.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button4.Text = "" Then
Button4.Text = Button5.Text
Button5.Text = ""
ElseIf Button6.Text = "" Then
Button6.Text = Button5.Text
Button5.Text = ""
ElseIf Button11.Text = "" Then
Button11.Text = Button5.Text
Button5.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button5.Text = "" Then
Button5.Text = Button6.Text
Button6.Text = ""
ElseIf Button12.Text = "" Then
Button12.Text = Button6.Text
Button6.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Button1.Text = "" Then
Button1.Text = Button7.Text
Button7.Text = ""
ElseIf Button8.Text = "" Then
Button8.Text = Button7.Text
Button7.Text = ""
ElseIf Button13.Text = "" Then
Button13.Text = Button7.Text
Button7.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If Button7.Text = "" Then
Button7.Text = Button8.Text
Button8.Text = ""
ElseIf Button9.Text = "" Then
Button9.Text = Button8.Text
Button8.Text = ""
ElseIf Button2.Text = "" Then
Button2.Text = Button8.Text
Button8.Text = ""
ElseIf Button14.Text = "" Then
Button14.Text = Button8.Text
Button8.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If Button3.Text = "" Then
Button3.Text = Button9.Text
Button9.Text = ""
ElseIf Button8.Text = "" Then
Button8.Text = Button9.Text
Button9.Text = ""
ElseIf Button10.Text = "" Then
Button10.Text = Button9.Text
Button9.Text = ""
ElseIf Button15.Text = "" Then
Button15.Text = Button9.Text
Button9.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
If Button4.Text = "" Then
Button4.Text = Button10.Text
Button10.Text = ""
ElseIf Button9.Text = "" Then
Button9.Text = Button10.Text
Button10.Text = ""
ElseIf Button11.Text = "" Then
Button11.Text = Button10.Text
Button10.Text = ""
ElseIf Button16.Text = "" Then
Button16.Text = Button10.Text
Button10.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
If Button5.Text = "" Then
Button5.Text = Button11.Text
Button11.Text = ""
ElseIf Button10.Text = "" Then
Button10.Text = Button11.Text
Button11.Text = ""
ElseIf Button17.Text = "" Then
Button17.Text = Button11.Text
Button11.Text = ""
ElseIf Button12.Text = "" Then
Button12.Text = Button11.Text
Button11.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
If Button6.Text = "" Then
Button6.Text = Button12.Text
Button12.Text = ""
ElseIf Button11.Text = "" Then
Button11.Text = Button12.Text
Button12.Text = ""
ElseIf Button18.Text = "" Then
Button18.Text = Button12.Text
Button12.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
If Button7.Text = "" Then
Button7.Text = Button13.Text
Button13.Text = ""
ElseIf Button19.Text = "" Then
Button19.Text = Button13.Text
Button13.Text = ""
ElseIf Button14.Text = "" Then
Button14.Text = Button13.Text
Button13.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
If Button8.Text = "" Then
Button8.Text = Button14.Text
Button14.Text = ""
ElseIf Button13.Text = "" Then
Button13.Text = Button14.Text
Button14.Text = ""
ElseIf Button20.Text = "" Then
Button20.Text = Button14.Text
Button14.Text = ""
ElseIf Button15.Text = "" Then
Button15.Text = Button14.Text
Button14.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If Button9.Text = "" Then
Button9.Text = Button15.Text
Button15.Text = ""
ElseIf Button14.Text = "" Then
Button14.Text = Button15.Text
Button15.Text = ""
ElseIf Button21.Text = "" Then
Button21.Text = Button15.Text
Button15.Text = ""
ElseIf Button16.Text = "" Then
Button16.Text = Button15.Text
Button15.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
If Button10.Text = "" Then
Button10.Text = Button6.Text
Button16.Text = ""
ElseIf Button15.Text = "" Then
Button15.Text = Button16.Text
Button16.Text = ""
ElseIf Button22.Text = "" Then
Button22.Text = Button16.Text
Button16.Text = ""
ElseIf Button17.Text = "" Then
Button17.Text = Button16.Text
Button16.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
If Button11.Text = "" Then
Button11.Text = Button17.Text
Button17.Text = ""
ElseIf Button16.Text = "" Then
Button16.Text = Button17.Text
Button17.Text = ""
ElseIf Button23.Text = "" Then
Button23.Text = Button17.Text
Button17.Text = ""
ElseIf Button18.Text = "" Then
Button18.Text = Button17.Text
Button17.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
If Button12.Text = "" Then
Button12.Text = Button18.Text
Button18.Text = ""
ElseIf Button17.Text = "" Then
Button17.Text = Button18.Text
Button18.Text = ""
ElseIf Button24.Text = "" Then
Button24.Text = Button18.Text
Button18.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
If Button13.Text = "" Then
Button13.Text = Button19.Text
Button19.Text = ""
ElseIf Button25.Text = "" Then
Button25.Text = Button19.Text
Button19.Text = ""
ElseIf Button20.Text = "" Then
Button20.Text = Button19.Text
Button19.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
If Button14.Text = "" Then
Button14.Text = Button20.Text
Button20.Text = ""
ElseIf Button19.Text = "" Then
Button19.Text = Button20.Text
Button20.Text = ""
ElseIf Button26.Text = "" Then
Button26.Text = Button20.Text
Button20.Text = ""
ElseIf Button21.Text = "" Then
Button21.Text = Button20.Text
Button20.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
If Button15.Text = "" Then
Button15.Text = Button21.Text
Button21.Text = ""
ElseIf Button20.Text = "" Then
Button20.Text = Button21.Text
Button21.Text = ""
ElseIf Button27.Text = "" Then
Button27.Text = Button21.Text
Button21.Text = ""
ElseIf Button22.Text = "" Then
Button22.Text = Button21.Text
Button21.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
If Button16.Text = "" Then
Button16.Text = Button22.Text
Button22.Text = ""
ElseIf Button21.Text = "" Then
Button21.Text = Button22.Text
Button22.Text = ""
ElseIf Button28.Text = "" Then
Button28.Text = Button22.Text
Button22.Text = ""
ElseIf Button23.Text = "" Then
Button23.Text = Button22.Text
Button22.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
If Button17.Text = "" Then
Button17.Text = Button23.Text
Button23.Text = ""
ElseIf Button22.Text = "" Then
Button22.Text = Button23.Text
Button23.Text = ""
ElseIf Button29.Text = "" Then
Button29.Text = Button23.Text
Button23.Text = ""
ElseIf Button24.Text = "" Then
Button24.Text = Button23.Text
Button23.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
If Button18.Text = "" Then
Button18.Text = Button24.Text
Button24.Text = ""
ElseIf Button23.Text = "" Then
Button23.Text = Button24.Text
Button24.Text = ""
ElseIf Button30.Text = "" Then
Button30.Text = Button24.Text
Button24.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
If Button19.Text = "" Then
Button19.Text = Button25.Text
Button25.Text = ""
ElseIf Button31.Text = "" Then
Button31.Text = Button25.Text
Button25.Text = ""
ElseIf Button26.Text = "" Then
Button26.Text = Button25.Text
Button25.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
If Button20.Text = "" Then
Button20.Text = Button26.Text
Button26.Text = ""
ElseIf Button25.Text = "" Then
Button25.Text = Button26.Text
Button26.Text = ""
ElseIf Button32.Text = "" Then
Button32.Text = Button26.Text
Button26.Text = ""
ElseIf Button27.Text = "" Then
Button27.Text = Button26.Text
Button26.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
If Button21.Text = "" Then
Button21.Text = Button27.Text
Button27.Text = ""
ElseIf Button26.Text = "" Then
Button26.Text = Button27.Text
Button27.Text = ""
ElseIf Button33.Text = "" Then
Button33.Text = Button27.Text
Button27.Text = ""
ElseIf Button28.Text = "" Then
Button28.Text = Button27.Text
Button27.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
If Button22.Text = "" Then
Button22.Text = Button28.Text
Button28.Text = ""
ElseIf Button27.Text = "" Then
Button27.Text = Button28.Text
Button28.Text = ""
ElseIf Button34.Text = "" Then
Button34.Text = Button28.Text
Button28.Text = ""
ElseIf Button29.Text = "" Then
Button29.Text = Button28.Text
Button28.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
If Button23.Text = "" Then
Button23.Text = Button29.Text
Button29.Text = ""
ElseIf Button28.Text = "" Then
Button28.Text = Button29.Text
Button29.Text = ""
ElseIf Button35.Text = "" Then
Button35.Text = Button29.Text
Button29.Text = ""
ElseIf Button30.Text = "" Then
Button30.Text = Button29.Text
Button29.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
If Button24.Text = "" Then
Button24.Text = Button30.Text
Button30.Text = ""
ElseIf Button29.Text = "" Then
Button29.Text = Button30.Text
Button30.Text = ""
ElseIf Button36.Text = "" Then
Button36.Text = Button30.Text
Button30.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
If Button25.Text = "" Then
Button25.Text = Button31.Text
Button31.Text = ""
ElseIf Button32.Text = "" Then
Button32.Text = Button31.Text
Button31.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
If Button26.Text = "" Then
Button26.Text = Button32.Text
Button32.Text = ""
ElseIf Button31.Text = "" Then
Button31.Text = Button32.Text
Button32.Text = ""
ElseIf Button33.Text = "" Then
Button33.Text = Button32.Text
Button32.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
If Button27.Text = "" Then
Button27.Text = Button33.Text
Button33.Text = ""
ElseIf Button32.Text = "" Then
Button32.Text = Button33.Text
Button33.Text = ""
ElseIf Button34.Text = "" Then
Button34.Text = Button33.Text
Button33.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click
If Button28.Text = "" Then
Button28.Text = Button34.Text
Button34.Text = ""
ElseIf Button33.Text = "" Then
Button33.Text = Button34.Text
Button34.Text = ""
ElseIf Button35.Text = "" Then
Button35.Text = Button34.Text
Button34.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
If Button29.Text = "" Then
Button29.Text = Button35.Text
Button35.Text = ""
ElseIf Button34.Text = "" Then
Button34.Text = Button35.Text
Button35.Text = ""
ElseIf Button36.Text = "" Then
Button36.Text = Button35.Text
Button35.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
If Button30.Text = "" Then
Button30.Text = Button36.Text
Button36.Text = ""
ElseIf Button35.Text = "" Then
Button35.Text = Button36.Text
Button36.Text = ""
End If
If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "9" And Button10.Text = "10" And Button11.Text = "11" And Button12.Text = "12" And Button13.Text = "13" And Button14.Text = "14" And Button15.Text = "15" And Button16.Text = "16" And Button17.Text = "17" And Button18.Text = "18" And Button19.Text = "19" And Button20.Text = "20" And Button21.Text = "21" And Button22.Text = "22" And Button23.Text = "23" And Button24.Text = "24" And Button25.Text = "25" And Button26.Text = "26" And Button27.Text = "27" And Button28.Text = "28" And Button29.Text = "29" And Button30.Text = "30" And Button31.Text = "31" And Button32.Text = "32" And Button33.Text = "33" And Button34.Text = "34" And Button35.Text = "35" And Button36.Text = "" Then
MsgBox("Selamat Anda Menang")
End If
End Sub
End Class
selamat mencoba kawan
No comments:
Post a Comment