TIKA PRADINI
11.11.2452
TI11C
PERMAINAN PUZZLE
Public Class puzzle
Dim jalan As Boolean = True
Dim sementara As String
Dim angka As String() = {"4",
"3", "2",
"1", "",
"8", "7",
"6", "5"}
Private Sub
Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button10.Click
jalan
= Not jalan
Timer1.Enabled = jalan
End Sub
Private Sub
Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Timer1.Tick
sementara = angka(0)
angka(0) = angka(8)
angka(8) = angka(1)
angka(1) = angka(7)
angka(7) = angka(2)
angka(2) = angka(6)
angka(6) = angka(3)
angka(3) = angka(5)
angka(5) = angka(4)
angka(4) = sementara
kosong.Text = angka(0)
satu.Text = angka(1)
dua.Text = angka(2)
tiga.Text = angka(3)
empat.Text = angka(4)
lima.Text = angka(5)
enam.Text = angka(6)
tujuh.Text = angka(7)
delapan.Text = angka(8)
End Sub
Private Sub
satu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
satu.Click
If dua.Text = ""
Then
dua.Text = satu.Text
satu.Text = ""
ElseIf empat.Text = ""
Then
empat.Text = satu.Text
satu.Text = ""
End If
If satu.Text = "1"
And
dua.Text = "2" And
tiga.Text = "3" And
empat.Text = "4" And
lima.Text = "5" And
enam.Text = "6" And
tujuh.Text
= "7" And
delapan.Text = "8" And
kosong.Text = "" Then
MsgBox("Selamat Anda
Berhasil!!!!!!")
End If
End Sub
Private Sub
dua_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles dua.Click
If satu.Text = ""
Then
satu.Text = dua.Text
dua.Text = ""
ElseIf tiga.Text = ""
Then
tiga.Text = dua.Text
dua.Text = ""
ElseIf lima.Text = ""
Then
lima.Text = dua.Text
dua.Text = ""
End If
End Sub
Private Sub
tiga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
tiga.Click
If dua.Text = ""
Then
dua.Text = tiga.Text
tiga.Text = ""
ElseIf enam.Text = ""
Then
enam.Text = tiga.Text
tiga.Text = ""
End If
If satu.Text = "1"
And
dua.Text = "2" And
tiga.Text = "3" And
empat.Text = "4" And
lima.Text = "5"
And
enam.Text = "6" And
tujuh.Text = "7" And
delapan.Text = "8" And
kosong.Text = "" Then
MsgBox("Selamat Anda
Berhasil!!!!!!")
End If
End Sub
Private Sub empat_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles empat.Click
If satu.Text = ""
Then
satu.Text = empat.Text
empat.Text = ""
ElseIf lima.Text = ""
Then
lima.Text = empat.Text
empat.Text = ""
ElseIf tujuh.Text = ""
Then
tujuh.Text = empat.Text
empat.Text = ""
End If
If satu.Text = "1"
And
dua.Text = "2" And
tiga.Text = "3" And
empat.Text = "4" And
lima.Text = "5" And
enam.Text = "6" And
tujuh.Text = "7" And
delapan.Text = "8" And
kosong.Text = "" Then
MsgBox("Selamat Anda
Berhasil!!!!!!")
End If
End Sub
Private Sub
lima_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
lima.Click
If dua.Text = ""
Then
dua.Text = lima.Text
lima.Text = ""
ElseIf empat.Text = ""
Then
empat.Text = lima.Text
lima.Text = ""
ElseIf enam.Text = ""
Then
enam.Text = lima.Text
lima.Text = ""
ElseIf delapan.Text = ""
Then
delapan.Text = lima.Text
lima.Text = ""
End If
If satu.Text = "1"
And
dua.Text = "2" And
tiga.Text = "3" And
empat.Text = "4" And
lima.Text = "5" And
enam.Text = "6" And
tujuh.Text = "7" And
delapan.Text = "8" And
kosong.Text
= "" Then
MsgBox("Selamat Anda
Berhasil!!!!!!")
End If
End Sub
Private Sub
enam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
enam.Click
If tiga.Text = ""
Then
tiga.Text = enam.Text
enam.Text = ""
ElseIf kosong.Text = ""
Then
kosong.Text = enam.Text
enam.Text = ""
ElseIf lima.Text = ""
Then
lima.Text = enam.Text
enam.Text = ""
End If
If satu.Text = "1"
And
dua.Text = "2" And
tiga.Text = "3" And
empat.Text = "4" And
lima.Text = "5" And
enam.Text = "6" And
tujuh.Text = "7" And
delapan.Text = "8" And
kosong.Text = ""
Then
MsgBox("Selamat Anda
Berhasil!!!!!!")
End If
End Sub
Private Sub
tujuh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
tujuh.Click
If delapan.Text = ""
Then
delapan.Text = tujuh.Text
tujuh.Text = ""
ElseIf empat.Text = ""
Then
empat.Text = tujuh.Text
tujuh.Text = ""
End If
If satu.Text = "1"
And
dua.Text = "2" And
tiga.Text = "3" And
empat.Text = "4" And
lima.Text = "5" And
enam.Text = "6" And
tujuh.Text = "7" And
delapan.Text = "8" And
kosong.Text = "" Then
MsgBox("Selamat Anda Berhasil!!!!!!")
End If
End Sub
Private Sub
delapan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
delapan.Click
If lima.Text = ""
Then
lima.Text = delapan.Text
delapan.Text = ""
ElseIf
tujuh.Text = "" Then
tujuh.Text = delapan.Text
delapan.Text = ""
ElseIf kosong.Text = ""
Then
kosong.Text = delapan.Text
delapan.Text = ""
End If
If satu.Text = "1"
And
dua.Text = "2" And
tiga.Text = "3" And
empat.Text = "4" And
lima.Text = "5" And
enam.Text = "6" And
tujuh.Text = "7" And
delapan.Text = "8" And
kosong.Text = "" Then
MsgBox("Selamat Anda
Berhasil!!!!!!")
End If
End Sub
Private Sub
kosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
kosong.Click
If enam.Text = ""
Then
enam.Text = kosong.Text
kosong.Text = ""
ElseIf delapan.Text = ""
Then
delapan.Text = kosong.Text
kosong.Text = ""
End If
If satu.Text = "1"
And
dua.Text = "2" And
tiga.Text = "3" And
empat.Text = "4" And
lima.Text = "5" And
enam.Text = "6" And
tujuh.Text = "7" And
delapan.Text = "8" And
kosong.Text = "" Then
MsgBox("Selamat
Anda Berhasil!!!!!!")
End If
End Sub
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Timer1.Enabled = jalan
End Sub
Private Sub
Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button11.Click
If MsgBox(" Anda
Yakin ? ", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
Me.Close()
End If
End Sub
MODIFIKASI PROGRAM
Public Class from1
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
control.Enabled = True
tutup.Enabled = True
hapus.Enabled = False
If control.GetType.Name = "TextBox"
Then
control.Enabled = False
End If
If control.GetType.Name = "ComboBox"
Then
control.Enabled = False
End If
If control.GetType.Name = "RadioButton"
Then
control.Enabled = False
End If
Next
kode.Items.Add("SPT")
kode.Items.Add("SND")
kode.Items.Add("TST")
kode.Items.Add("TOP")
kode.Items.Add("TAS")
End Sub
Private Sub
kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
kode.SelectedIndexChanged
Dim kdbarang, namabarang As
String
Dim harga As Single
kdbarang = kode.Text
Select Case kdbarang
Case "SPT"
namabarang = "Sepatu"
harga = 200000
Case "SND"
namabarang = "Sendal"
harga = 100000
Case "TST"
namabarang = "T-shirt"
harga = 150000
Case "TOP"
namabarang = "Topi"
harga = 50000
Case "TAS"
namabarang = "TAS"
harga = 250000
End Select
nama.Text = namabarang
hargabarang.Text = harga
End Sub
Private Sub
jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
jumlah.TextChanged
total.Text = Val(hargabarang.Text) * Val(jumlah.Text)
bayar.Text = Val(total.Text) - Val(diskon.Text)
End Sub
Private Sub
tunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
tunai.CheckedChanged
diskon.Text = Val(total.Text) * 10 / 100
bayar.Text = Val(total.Text) - Val(diskon.Text)
End Sub
Private Sub
kredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
kredit.CheckedChanged
diskon.Text = 0
bayar.Text = Val(total.Text) - Val(diskon.Text)
End Sub
Private Sub
hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
hapus.Click
Dim control As
Windows.Forms.Control
For Each control In Me.Controls
control.Enabled = True
tutup.Enabled = True
hapus.Enabled = False
If control.GetType.Name = "TextBox"
Then
control.Enabled = False
End If
If
control.GetType.Name = "ComboBox" Then
control.Enabled = False
End If
If control.GetType.Name = "RadioButton"
Then
control.Enabled = False
End If
Next
kode.Text = ""
nama.Clear()
jumlah.Clear()
hargabarang.Clear()
total.Clear()
diskon.Clear()
bayar.Clear()
Me.tunai.Checked = False
Me.kredit.Checked = False
End Sub
Private Sub
tutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
tutup.Click
If MsgBox(" Anda
Yakin ? ", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
Me.Close()
End If
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
kode.Enabled = True
jumlah.Enabled = True
kredit.Enabled = True
tunai.Enabled = True
hapus.Enabled = True
Button1.Enabled = False
End Sub
End Class
Tidak ada komentar:
Posting Komentar