Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Kode_randomisasi()
- End Sub
- Private Sub Kode_randomisasi()
- Dim control As Windows.Forms.Control
- For Each control In Me.Controls
- If control.GetType.Name = "Button" Then
- Dim rndnumber As Random
- rndnumber = New Random
- Dim number As Integer
- control.Text = number
- number = rndnumber.Next(1, 10)
- Bt1.Text = number
- If Bt2.Text = Bt1.Text Then
- Do
- number = rndnumber.Next(1, 10)
- Bt2.Text = number
- Loop Until Bt2.Text <> Bt1.Text
- End If
- If Bt3.Text = Bt2.Text Or Bt3.Text = Bt1.Text Then
- Do
- number = rndnumber.Next(1, 10)
- Bt3.Text = number
- Loop Until Bt3.Text <> Bt2.Text And Bt3.Text <> Bt1.Text
- End If
- If Bt4.Text = Bt3.Text Or Bt4.Text = Bt2.Text Or Bt4.Text = Bt1.Text Then
- Do
- number = rndnumber.Next(1, 10)
- Bt4.Text = number
- Loop Until Bt4.Text <> Bt3.Text And Bt4.Text <> Bt2.Text And Bt4.Text <> Bt1.Text
- End If
- If Bt5.Text = Bt4.Text Or Bt5.Text = Bt3.Text Or Bt5.Text = Bt2.Text Or Bt5.Text = Bt1.Text Then
- Do
- number = rndnumber.Next(1, 10)
- Bt5.Text = number
- Loop Until Bt5.Text <> Bt4.Text And Bt5.Text <> Bt3.Text And Bt5.Text <> Bt2.Text And Bt5.Text <> Bt1.Text
- End If
- If Bt6.Text = Bt5.Text Or Bt6.Text = Bt4.Text Or Bt6.Text = Bt3.Text Or Bt6.Text = Bt2.Text Or Bt6.Text = Bt1.Text Then
- Do
- number = rndnumber.Next(1, 10)
- Bt6.Text = number
- Loop Until Bt6.Text <> Bt5.Text And Bt6.Text <> Bt4.Text And Bt6.Text <> Bt3.Text And Bt6.Text <> Bt2.Text And Bt6.Text <> Bt1.Text
- End If
- If Bt7.Text = Bt6.Text Or Bt7.Text = Bt5.Text Or Bt7.Text = Bt4.Text Or Bt7.Text = Bt3.Text Or Bt7.Text = Bt2.Text Or Bt7.Text = Bt1.Text Then
- Do
- number = rndnumber.Next(1, 10)
- Bt7.Text = number
- Loop Until Bt7.Text <> Bt6.Text And Bt7.Text <> Bt5.Text And Bt7.Text <> Bt4.Text And Bt7.Text <> Bt3.Text And Bt7.Text <> Bt2.Text And Bt7.Text <> Bt1.Text
- End If
- If Bt8.Text = Bt7.Text Or Bt8.Text = Bt6.Text Or Bt8.Text = Bt5.Text Or Bt8.Text = Bt4.Text Or Bt8.Text = Bt3.Text Or Bt8.Text = Bt2.Text Or Bt8.Text = Bt1.Text Then
- Do
- number = rndnumber.Next(1, 10)
- Bt8.Text = number
- Loop Until Bt8.Text <> Bt7.Text And Bt8.Text <> Bt6.Text And Bt8.Text <> Bt5.Text And Bt8.Text <> Bt4.Text And Bt8.Text <> Bt3.Text And Bt8.Text <> Bt2.Text And Bt8.Text <> Bt1.Text
- End If
- If Bt9.Text = Bt8.Text Or Bt9.Text = Bt7.Text Or Bt9.Text = Bt6.Text Or Bt9.Text = Bt5.Text Or Bt9.Text = Bt4.Text Or Bt9.Text = Bt3.Text Or Bt9.Text = Bt2.Text Or Bt9.Text = Bt1.Text Then
- Do
- number = rndnumber.Next(1, 10)
- Bt9.Text = number
- Loop Until Bt9.Text <> Bt8.Text And Bt9.Text <> Bt7.Text And Bt9.Text <> Bt6.Text And Bt9.Text <> Bt5.Text And Bt9.Text <> Bt4.Text And Bt9.Text <> Bt3.Text And Bt9.Text <> Bt2.Text And Bt9.Text <> Bt1.Text
- End If
- End If
- Next
- Btacak.Text = "Acak Angka"
- If Bt1.Text = "9" Then
- Bt1.Text = ""
- End If
- If Bt2.Text = "9" Then
- Bt2.Text = ""
- End If
- If Bt3.Text = "9" Then
- Bt3.Text = ""
- End If
- If Bt4.Text = "9" Then
- Bt4.Text = ""
- End If
- If Bt5.Text = "9" Then
- Bt5.Text = ""
- End If
- If Bt6.Text = "9" Then
- Bt6.Text = ""
- End If
- If Bt7.Text = "9" Then
- Bt7.Text = ""
- End If
- If Bt8.Text = "9" Then
- Bt8.Text = ""
- End If
- If Bt9.Text = "9" Then
- Bt9.Text = ""
- End If
- End Sub
- Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click
- If Bt2.Text = "" Then
- Bt2.Text = Bt1.Text
- Bt1.Text = ""
- ElseIf Bt4.Text = "" Then
- Bt4.Text = Bt1.Text
- Bt1.Text = ""
- End If
- Berhasil()
- End Sub
- Private Sub Bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt2.Click
- If Bt1.Text = "" Then
- Bt1.Text = Bt2.Text
- Bt2.Text = ""
- ElseIf Bt3.Text = "" Then
- Bt3.Text = Bt2.Text
- Bt2.Text = ""
- ElseIf Bt5.Text = "" Then
- Bt5.Text = Bt2.Text
- Bt2.Text = ""
- End If
- Berhasil()
- End Sub
- Private Sub Bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt3.Click
- If Bt2.Text = "" Then
- Bt2.Text = Bt3.Text
- Bt3.Text = ""
- ElseIf Bt6.Text = "" Then
- Bt6.Text = Bt3.Text
- Bt3.Text = ""
- End If
- Berhasil()
- End Sub
- Private Sub Bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt4.Click
- If Bt1.Text = "" Then
- Bt1.Text = Bt4.Text
- Bt4.Text = ""
- ElseIf Bt5.Text = "" Then
- Bt5.Text = Bt4.Text
- Bt4.Text = ""
- ElseIf Bt7.Text = "" Then
- Bt7.Text = Bt4.Text
- Bt4.Text = ""
- End If
- Berhasil()
- End Sub
- Private Sub Bt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt5.Click
- If Bt2.Text = "" Then
- Bt2.Text = Bt5.Text
- Bt5.Text = ""
- ElseIf Bt4.Text = "" Then
- Bt4.Text = Bt5.Text
- Bt5.Text = ""
- ElseIf Bt6.Text = "" Then
- Bt6.Text = Bt5.Text
- Bt5.Text = ""
- ElseIf Bt8.Text = "" Then
- Bt8.Text = Bt5.Text
- Bt5.Text = ""
- End If
- Berhasil()
- End Sub
- Private Sub Bt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt6.Click
- If Bt3.Text = "" Then
- Bt3.Text = Bt6.Text
- Bt6.Text = ""
- ElseIf Bt5.Text = "" Then
- Bt5.Text = Bt6.Text
- Bt6.Text = ""
- ElseIf Bt9.Text = "" Then
- Bt9.Text = Bt6.Text
- Bt6.Text = ""
- End If
- Berhasil()
- End Sub
- Private Sub Bt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt7.Click
- If Bt4.Text = "" Then
- Bt4.Text = Bt7.Text
- Bt7.Text = ""
- ElseIf Bt8.Text = "" Then
- Bt8.Text = Bt7.Text
- Bt7.Text = ""
- End If
- Berhasil()
- End Sub
- Private Sub Bt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt8.Click
- If Bt5.Text = "" Then
- Bt5.Text = Bt8.Text
- Bt8.Text = ""
- ElseIf Bt7.Text = "" Then
- Bt7.Text = Bt8.Text
- Bt8.Text = ""
- ElseIf Bt9.Text = "" Then
- Bt9.Text = Bt8.Text
- Bt8.Text = ""
- End If
- Berhasil()
- End Sub
- Private Sub Bt9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt9.Click
- If Bt6.Text = "" Then
- Bt6.Text = Bt9.Text
- Bt9.Text = ""
- ElseIf Bt8.Text = "" Then
- Bt8.Text = Bt9.Text
- Bt9.Text = ""
- End If
- Berhasil()
- End Sub
- Private Sub Berhasil()
- If Bt1.Text = "1" And Bt2.Text = "2" And Bt3.Text = "3" And Bt4.Text = "4" And Bt5.Text = "5" And Bt6.Text = "6" And Bt7.Text = "7" And Bt8.Text = "8" And Bt9.Text = "" Then
- MessageBox.Show("Selamat Anda Berhasil")
- End If
- End Sub
- Private Sub Btacak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btacak.Click
- Kode_randomisasi()
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement