Memodifikasi
Program dan Membuat Permainan Puzzle
Memodifikasi Program
Program yang saya modifikasi
merupakan program yang sudah dibuat pada tugas 2 pemrograman visual Latihan if
dan case. Sehingga kali ini saya hanya akan menampilkan listing dari modifikasi
program tersebut.
1. Saat form dijalankan : semua isian tidak aktif, tombol
isi data dan tutup aktif, tombol clear tidak aktif
Berikut listing pada saat form dijalankan:
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
cmbkode.Items.Add("SPT")
cmbkode.Items.Add("SND")
cmbkode.Items.Add("TST")
cmbkode.Items.Add("TOP")
cmbkode.Items.Add("TAS")
Dim
Control As Windows.Forms.Control
For Each Control In Me.Controls
cmbkode.Enabled = False
btnclear.Enabled = False
btnisidata.Enabled = True
btntutup.Enabled = True
txtnama.Enabled = False
txtharga.Enabled = False
txtjumlah.Enabled = False
txtdiskon.Enabled = False
txttotal.Enabled = False
txtbayar.Enabled = False
radiotunai.Enabled = False
radiokredit.Enabled = False
Next
End Sub
2.
Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol
clear, aktif, tombol isidata tidak aktif
Bertikut listingnya pada saat menekan tombol isi data:
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
cmbkode.Items.Add("SPT")
cmbkode.Items.Add("SND")
cmbkode.Items.Add("TST")
cmbkode.Items.Add("TOP")
cmbkode.Items.Add("TAS")
Dim
Control As Windows.Forms.Control
For Each Control In Me.Controls
cmbkode.Enabled = False
btnclear.Enabled = False
btnisidata.Enabled = True
btntutup.Enabled = True
txtnama.Enabled = False
txtharga.Enabled = False
txtjumlah.Enabled = False
txtdiskon.Enabled = False
txttotal.Enabled = False
txtbayar.Enabled = False
radiotunai.Enabled = False
radiokredit.Enabled = False
Next
End Sub
Kemudian isi data-data tersebut seperti dibawah ini:
3. Saat ditekan combol clear sama dengan saat form dijalankan
Berikut listing pada tombol clear:
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnclear.Click
Dim
Control As Windows.Forms.Control
For Each Control In Me.Controls
cmbkode.Enabled = False
btnclear.Enabled = False
btnisidata.Enabled = True
btntutup.Enabled = True
txtnama.Enabled = False
txtharga.Enabled = False
txtjumlah.Enabled = False
txtdiskon.Enabled = False
txttotal.Enabled = False
txtbayar.Enabled = False
radiotunai.Enabled = False
radiokredit.Enabled = False
Next
txtdiskon.Clear()
txtharga.Clear()
txtjumlah.Clear()
txtnama.Clear()
txttotal.Clear()
txtbayar.Clear()
cmbkode.Text = "
"
End Sub
Permainan Puzzle
Cara membuat permainan Puzzle
langkah -langkahnya sebagai berikut:
1. Buat 1 form dan 9 Button, dengan
Name Button: btn1, btn2, btn3, btn4, btn5, btn6, btn7, btn8, dan btn9.
2. Ubah Text Form1: Puzzle, dan ubah
Text masing-masing button dari btn1: 1 seterusnya sampai btn8: 8. Untuk btn9
tidak diberi Text (kosong).
3. Pada saat form dijalankan posisi
angka acak, seperti gambar dibawah ini:
Listing programnya sebagai berikut:
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
4. Saat ditekan tombol yang terletak di dekat tombol kosong maka tombol tersebut akan menempati tombol kosong, begitu seterusnya sampai dengan angkanya tersusun dari 1 sampai 8.
Berikut listing programnya:
Private Sub
btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btn1.Click
Dim tuker
As String
If
btn2.Text = " " Then
tuker = btn1.Text
btn1.Text = btn2.Text
btn2.Text = tuker
ElseIf
btn4.Text = " " Then
tuker = btn1.Text
btn1.Text = btn4.Text
btn4.Text = tuker
End If
benar()
End Sub
Private Sub btn2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn2.Click
Dim
tuker As String
If
btn1.Text = " " Then
tuker = btn2.Text
btn2.Text = btn1.Text
btn1.Text = tuker
ElseIf
btn3.Text = " " Then
tuker = btn2.Text
btn2.Text = btn3.Text
btn3.Text = tuker
ElseIf
btn5.Text = " " Then
tuker = btn2.Text
btn2.Text = btn5.Text
btn5.Text = tuker
End If
benar()
End Sub
Private Sub btn3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn3.Click
Dim
tuker As String
If
btn2.Text = " " Then
tuker = btn3.Text
btn3.Text = btn2.Text
btn2.Text = tuker
ElseIf
btn6.Text = " " Then
tuker = btn3.Text
btn3.Text = btn6.Text
btn6.Text = tuker
End If
benar()
End Sub
Private Sub btn4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn4.Click
Dim
tuker As String
If
btn1.Text = " " Then
tuker = btn4.Text
btn4.Text = btn1.Text
btn1.Text = tuker
ElseIf
btn5.Text = " " Then
tuker = btn4.Text
btn4.Text = btn5.Text
btn5.Text = tuker
ElseIf
btn7.Text = " " Then
tuker = btn4.Text
btn4.Text = btn7.Text
btn7.Text = tuker
End If
benar()
End Sub
Private Sub btn5_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn5.Click
Dim
tuker As String
If btn2.Text
= " " Then
tuker = btn5.Text
btn5.Text = btn2.Text
btn2.Text = tuker
ElseIf
btn4.Text = " " Then
tuker = btn5.Text
btn5.Text = btn4.Text
btn4.Text = tuker
ElseIf
btn6.Text = " " Then
tuker = btn5.Text
btn5.Text = btn6.Text
btn6.Text = tuker
ElseIf
btn8.Text = " " Then
tuker = btn5.Text
btn5.Text = btn8.Text
btn8.Text = tuker
End If
benar()
End Sub
Private Sub
Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btn6.Click
Dim
tuker As String
If
btn9.Text = " " Then
tuker = btn6.Text
btn6.Text = btn9.Text
btn9.Text = tuker
ElseIf
btn3.Text = " " Then
tuker = btn6.Text
btn6.Text = btn3.Text
btn3.Text = tuker
ElseIf
btn5.Text = " " Then
tuker = btn6.Text
btn6.Text = btn5.Text
btn5.Text = tuker
End If
benar()
End Sub
Private Sub
btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btn7.Click
Dim
tuker As String
If
btn4.Text = " " Then
tuker = btn7.Text
btn7.Text = btn4.Text
btn4.Text = tuker
ElseIf
btn8.Text = " " Then
tuker = btn7.Text
btn7.Text = btn8.Text
btn8.Text = tuker
End If
benar()
End Sub
Private Sub btn8_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn8.Click
Dim
tuker As String
If
btn9.Text = " " Then
tuker = btn8.Text
btn8.Text = btn9.Text
btn9.Text = tuker
ElseIf
btn7.Text = " " Then
tuker = btn8.Text
btn8.Text = btn7.Text
btn7.Text = tuker
ElseIf
btn5.Text = " " Then
tuker = btn8.Text
btn8.Text = btn5.Text
btn5.Text = tuker
End If
benar()
End Sub
Private Sub btn9_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btn9.Click
Dim
tuker As String
If
btn6.Text = " " Then
tuker = btn9.Text
btn9.Text = btn6.Text
btn6.Text = tuker
ElseIf
btn8.Text = " " Then
tuker = btn9.Text
btn9.Text = btn8.Text
btn8.Text = tuker
End If
benar()
End Sub
5. Saat angka sudah tersusun tampilkan pesan selamat anda berhasil
Berikut listing programnya:
Private Sub
benar()
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
