Sekarang Tugas Puzzle VB.NetMembuat puzzle menggunakan VB.Net1. Buat form seperti berikut 2. Lalu lakukan setting di bagian properties object seperti berikut : Button1 Visible = false Button 2 Teks = 2 Button 3 Teks = 3 Button 4 Teks = 4 Button 5 Teks = 5 Button 6 Teks
Create Project,seperti gambar di bawah ini :Terus kita ketik Name,Location,Solution Name,kalau sudah kiat OK :
Terus akan tampil Form1.vb[Desain] yang baru seperti ini :
Lalu lakukan setting di bagian properties object seperti berikut : Button1 Visible = false Button 2 Teks = 2 Button 3 Teks = 3 Button 4 Teks = 4 Button 5 Teks = 5 Button 6 Teks
Lalu lakukan setting di bagian properties object seperti berikut :
| Button1 | Visible = false |
| Button 2 | Teks = 2 |
| Button 3 | Teks = 3 |
| Button 4 | Teks = 4 |
| Button 5 | Teks = 5 |
| Button 6 | Teks = 6 |
| Button 7 | Teks = 7 |
| Button 8 | Teks = 8 |
| Button 9 | Teks = 9 |
3. Lalu masukkan syntax berikut :
Public Class Puzzle
Private Sub Button1_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button1.Click
If Button2.Visible = False Then
Button2.Visible = True
Button1.Visible = False
Button2.Text = Button1.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button1.Visible = False
Button4.Text = Button1.Text
End If
End If
cek()
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button2.Click
If Button1.Visible = False Then
Button1.Visible = True
Button2.Visible = False
Button1.Text = Button2.Text
ElseIf Button3.Visible = False Then
Button3.Visible = True
Button2.Visible = False
Button3.Text = Button2.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button2.Visible = False
Button5.Text = Button2.Text
End If
cek()
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button3.Click
If Button2.Visible = False Then
Button2.Visible = True
Button3.Visible = False
Button2.Text = Button3.Text
Else
If Button6.Visible = False Then
Button6.Visible = True
Button3.Visible = False
Button6.Text = Button3.Text
End If
End If
cek()
End Sub
Private Sub Button4_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button4.Click
If Button1.Visible = False Then
Button1.Visible = True
Button4.Visible = False
Button1.Text = Button4.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button4.Visible = False
Button5.Text = Button4.Text
ElseIf Button7.Visible = False Then
Button7.Visible = True
Button4.Visible = False
Button7.Text = Button4.Text
End If
cek()
End Sub
Private Sub Button6_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button6.Click
If Button3.Visible = False Then
Button3.Visible = True
Button6.Visible = False
Button3.Text = Button6.Text
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button6.Visible = False
Button9.Text = Button6.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button6.Visible = False
Button5.Text = Button6.Text
End If
cek()
End Sub
Private Sub Button8_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button8.Click
If Button7.Visible = False Then
Button7.Visible = True
Button8.Visible = False
Button7.Text = Button8.Text
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button8.Visible = False
Button9.Text = Button8.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button8.Visible = False
Button5.Text = Button8.Text
End If
cek()
End Sub
Private Sub Button7_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button7.Click
If Button8.Visible = False Then
Button8.Visible = True
Button7.Visible = False
Button8.Text = Button7.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button7.Visible = False
Button4.Text = Button7.Text
End If
End If
cek()
End Sub
Private Sub Button9_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button9.Click
If Button6.Visible = False Then
Button6.Visible = True
Button9.Visible = False
Button6.Text = Button9.Text
Else
If Button8.Visible = False Then
Button8.Visible = True
Button9.Visible = False
Button8.Text = Button9.Text
End If
End If
cek()
End Sub
Private Sub Button5_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button5.Click
If Button2.Visible = False Then
Button2.Visible = True
Button5.Visible = False
Button2.Text = Button5.Text
ElseIf Button4.Visible = False Then
Button4.Visible = True
Button5.Visible = False
Button4.Text = Button5.Text
ElseIf Button6.Visible = False Then
Button6.Visible = True
Button5.Visible = False
Button6.Text = Button5.Text
ElseIf Button8.Visible = False Then
Button8.Visible = True
Button5.Visible = False
Button8.Text = Button5.Text
End If
cek()
End Sub
Private Sub cek()
If (Button1.Text = "1" And Button2.Text = "2" AndButton3.Text = "3" And Button4.Text = "4") Then
If (Button5.Text = "5" And Button6.Text = "6" AndButton7.Text = "7") Then
If (Button8.Text = "8") Then
MessageBox.Show("Selesai")
End If
End If
End If
End Sub
End Class
Tidak ada komentar:
Posting Komentar