TUGAS KE -3 PEMROGRAMAN VISUAL
ANWAR SIDIK
09.11.1131
TI11S
Program pada tugas sebelumnya yang belum di modifikasi :
Soal no 1. Hasil perubahan coding programnya seperti gambar di bawah :
Dan di bawah adalah koding yang di rubah :
Soal no 2. Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif
Soal no 3. Saat ditekan combol clear sama dengan saat form dijalankan
Dan ini tugas ke 2 Membuat permainan puzzle sederhana
Public Class Form1
Public simpan As String
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
btn1.Text = "6"
btn2.Text = "1"
btn3.Text = "8"
btn4.Text = "7"
btn5.Text = "5"
btn6.Text = "2"
btn7.Text = "4"
btn8.Text = "3"
btn9.Text = " "
End If
Next
End Sub
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
If btn2.Text = " " Then
simpan = btn1.Text
btn1.Text = btn2.Text
btn2.Text = simpan
ElseIf btn4.Text = " " Then
simpan = btn1.Text
btn1.Text = btn4.Text
btn4.Text = simpan
End If
berhasil()
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
If btn1.Text = " " Then
simpan = btn2.Text
btn2.Text = btn1.Text
btn1.Text = simpan
ElseIf btn3.Text = " " Then
simpan = btn2.Text
btn2.Text = btn3.Text
btn3.Text = simpan
ElseIf btn5.Text = " " Then
simpan = btn2.Text
btn2.Text = btn5.Text
btn5.Text = simpan
End If
berhasil()
End Sub
Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
If btn2.Text = " " Then
simpan = btn3.Text
btn3.Text = btn2.Text
btn2.Text = simpan
ElseIf btn6.Text = " " Then
simpan = btn3.Text
btn3.Text = btn6.Text
btn6.Text = simpan
End If
berhasil()
End Sub
Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
If btn1.Text = " " Then
simpan = btn4.Text
btn4.Text = btn1.Text
btn1.Text = simpan
ElseIf btn5.Text = " " Then
simpan = btn4.Text
btn4.Text = btn5.Text
btn5.Text = simpan
ElseIf btn7.Text = " " Then
simpan = btn4.Text
btn4.Text = btn7.Text
btn7.Text = simpan
End If
berhasil()
End Sub
Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
If btn2.Text = " " Then
simpan = btn5.Text
btn5.Text = btn2.Text
btn2.Text = simpan
ElseIf btn4.Text = " " Then
simpan = btn5.Text
btn5.Text = btn4.Text
btn4.Text = simpan
ElseIf btn6.Text = " " Then
simpan = btn5.Text
btn5.Text = btn6.Text
btn6.Text = simpan
ElseIf btn8.Text = " " Then
simpan = btn5.Text
btn5.Text = btn8.Text
btn8.Text = simpan
End If
berhasil()
End Sub
Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
If btn9.Text = " " Then
simpan = btn6.Text
btn6.Text = btn9.Text
btn9.Text = simpan
ElseIf btn3.Text = " " Then
simpan = btn6.Text
btn6.Text = btn3.Text
btn3.Text = simpan
ElseIf btn5.Text = " " Then
simpan = btn6.Text
btn6.Text = btn5.Text
btn5.Text = simpan
End If
berhasil()
End Sub
Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
If btn4.Text = " " Then
simpan = btn7.Text
btn7.Text = btn4.Text
btn4.Text = simpan
ElseIf btn8.Text = " " Then
simpan = btn7.Text
btn7.Text = btn8.Text
btn8.Text = simpan
End If
berhasil()
End Sub
Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
If btn9.Text = " " Then
simpan = btn8.Text
btn8.Text = btn9.Text
btn9.Text = simpan
ElseIf btn7.Text = " " Then
simpan = btn8.Text
btn8.Text = btn7.Text
btn7.Text = simpan
ElseIf btn5.Text = " " Then
simpan = btn8.Text
btn8.Text = btn5.Text
btn5.Text = simpan
End If
berhasil()
End Sub
Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
If btn6.Text = " " Then
simpan = btn9.Text
btn9.Text = btn6.Text
btn6.Text = simpan
ElseIf btn8.Text = " " Then
simpan = btn9.Text
btn9.Text = btn8.Text
btn8.Text = simpan
End If
berhasil()
End Sub
Private Sub berhasil()
If btn1.Text = "1" And btn2.Text = "2" And btn3.Text = "3" And btn4.Text = "4" And btn5.Text = "5" And btn6.Text = "6" And btn7.Text = "7" And btn8.Text = "8" 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
Dim jalan As Integer
If btAcak.Text = "&ACAK" Then
btAcak.Text = "&STOP"
ElseIf btAcak.Text = "&STOP" Then
btAcak.Text = "&ACAK"
End If
Timer1.Enabled = jalan
jalan = Not jalan
Dim a As Windows.Forms.Control
For Each a In Me.Controls
If a.Tag = "1" Then
a.Enabled = True
End If
Next
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim jalan As Integer
jalan = Rnd() * 10
btn1.Text = jalan
Timer1.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If MsgBox("Apakah Anda ingin keluar ? ", 4 + 32 + 256, _
"Keluar") = vbYes Then
Me.Close()
End If
End Sub
End Class
Hanya ini yang bisa saya kerjakan, semoga bermanfaat.
Terimakasih