1.Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif
2.Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif
3.Saat ditekan combol clear sama dengan saat form dijalankan
jawaban:
Supaya memenuhi ketentuan di atas maka saya tambahkan beberapa kode, yang pertama saya tambahkan Private Sub Kontrol() yang berisi:
Selanjutnya saya tambahkan lagi untuk tombol Isi Data yang saya inisialisasikan sebagai Btisidata, seperti ini:
Saat program pertama kali dijalankan, hanya tombol Isi Data dan Tutup saja yang aktif, sedangkan yang lain dalam kondisi mati
JAWABAN TUGAS KE-2 (membuat permainan puzzle)
Untuk coding lengkapnya seperti berikut :
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
0 komentar:
Posting Komentar