Tugas Praktikum III Pemrograman Visual

SOAL 1 !
Memoodifikasi program pada pertemuan sebelumnya menjadi gambar di bawah ini
Menambahkan kejadian berikut ini mengunakan perulangan
====================================
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


====================================

1. "Tampilan Pada saat from di jalankan semua isi tidak aktif, tombol isian tidak aktif, Tombol isi data dan Tutup aktif dan tombol clear tidak aktif"

Isi Code Program :
Private Sub btisidata_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim control As Windows.Forms.Control
For Each control In Me.Controls
If control.GetType.Name = "GroupBox" Then control.Enabled = True
Button1.Enabled = False
txtnama.Enabled = False
txtharga.Enabled = False
txttotal.Enabled = False
Next
End Sub

2. "Saat ditekan tombol isi data : kodebarang, jumlahbarang, carabeli, tombolclear, aktif dan tombol isi data tidak aktif"

Isi Code Program :
Private Sub btclear_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
txtbayar.Clear()
txtdiskon.Clear()
txtharga.Clear()
txtjumlah.Clear()
txtnama.Clear()
txttotal.Clear()
Me.radiotunai.Checked = False
Me.radiokredit.Checked = False
cmbcode.Text = ""
GroupBox1.Enabled = False
Button1.Enabled = True
End Sub

3. "Pada saat menekan tombol clear sama dengan saat from di jalankan :"

Isi Code Program :
Private Sub btisidata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btisidata.Click
Dim control As Windows.Forms.Control
For Each control In Me.Controls
control.Enabled = True
btisidata.Enabled = False
End sub


SOAL 2 !
Buatlah permainan puzzle sederhana dengan rancangan seperti gambar di bawah ini :
=============================

=============================

Buatlah design seperti di bawah ini :

Kemudian isikan kode program di bawah ini (ini adalah kode program keseluruhan dari setiap bagian2 yang ada pada tabel form) :
[/center]
Public Class Form1

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