1.Memodifikasi
program IF dan CASE
Kali ini terdapat fitur tambahan,
yaitu tombol Isi Data. Dimana saat program dijalankan seluruh fungsi kontrol
tidak aktif kecuali tombol Isi Data dan Tutup. Dan apa bila tombol Isi Data di
tekan, seluruh fungsi program aktif kecuali tombol Isi Data.
Kemudian Isikan Codingnya:
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 = False
btisidata.Enabled = True
bttutup.Enabled = True
Next
cmbkode.Items.Add("SPT")
cmbkode.Items.Add("SND")
cmbkode.Items.Add("TST")
cmbkode.Items.Add("TOP")
cmbkode.Items.Add("TAS")
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged
Dim kdbarang, namabarang As String
Dim harga As Single
kdbarang = cmbkode.Text
Select Case kdbarang
Case "SPT"
namabarang = "Sepatu"
harga = 200000
Case "SND"
namabarang = "Sandal"
harga = 100000
Case "TST"
namabarang = "T-Shirt"
harga = 150000
Case "TOP"
namabarang = "Topi"
harga = 500000
Case "TAS"
namabarang = "Tas"
harga = 130000
Case Else
namabarang = "-"
harga = 0
End Select
txtnama.Text = namabarang
txtharga.Text = harga
End Sub
Private Sub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged
txttotalharga.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
txtbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text)
End Sub
Private Sub tunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunai.CheckedChanged
txtdiskon.Text = Val(txttotalharga.Text) * 10 / 100
txtbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text)
End Sub
Private Sub kredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kredit.CheckedChanged
txtdiskon.Text = 0
txtbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text)
End Sub
Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
txtbayar.Clear()
txtharga.Clear()
txtdiskon.Clear()
txtjumlah.Clear()
txtnama.Clear()
txttotalharga.Clear()
Me.tunai.Checked = False
Me.kredit.Checked = False
cmbkode.Text = ""
Dim Control As Windows.Forms.Control
For Each Control In Me.Controls
Control.Enabled = False
btisidata.Enabled = True
bttutup.Enabled = True
Next
End Sub
Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click
If MsgBox("Anda yakin akan keluar?", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then Me.Close()
End Sub
Private Sub txtharga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtharga.TextChanged
txttotalharga.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
End Sub
Private Sub ttlharga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttotalharga.TextChanged
txttotalharga.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
End Sub
Private Sub Button1_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
Next
For Each Control In Me.Controls
btisidata.Enabled = False
Next
End Sub
End Class
2.membuat Game Puzzle Sederhana
1. Pertama buka Aplikasi microsoft Visual Studio
2. Klik menu file – new – project
3. Klik Windows Forms Application, isikan nama, klik OK
4. Buat tampilan seperti dibawah ini menggunakan button
5. Ubah Text
- Pada button 1 Ã 1 (angka satu)
- Pada button 2 Ã 2 (angka dua)
- Pada button 3 Ã 3 (angka tiga)
- Pada button 4 Ã 4 (angka empat)
- Pada button 5 Ã 5 (angka lima)
- Pada button 6 Ã 6 (angka enam)
- Pada button 7 Ã 7 (angka tujuh)
- Pada button 8 Ã 8 (angka delapan)
6. Doble klik pada Form 1, kita akan mengisi koding atau perintah pada
form 1, isikan koding seperti berikut :
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
7.
Kemudian kita akan memberi perintah
untuk semuta button, button1 sampai button9, berikut perintahnya untuk setiap
button
a.
Button1
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
b.
Button2
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
c.
Button3
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
d.
Button4
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
e. Button5
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
f. Button6
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
g. Button7
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
h. Button8
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
i. Butoon9
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
8. Kemudian Tekan tombbol F5 atau klik menu Debug – Start Debugging
untuk melihat hasilnya dan bermain Puzzle
Tidak ada komentar:
Posting Komentar