SOAL A.
MENJAWAB SOAL PROGRAM PENJUALAN
BARANG
Pertama tampilan Saat from di
jalankan semua isi tidak aktif , tombol isian tidak aktif, Tombol isi data dan
Tutup aktif , tombol clear tidak aktif . Kemudian tampilan saat menekan tombol
isi data : kode Barang,jumlah barang ,cara beli, Diskon, Total bayar, tombol
clear,tutup aktif, tombol isi data tidak aktif, Pada saat menekan tombol clear sama dengan saat
from di jalankan, kemudian jalankan lah program tersebut.
1.
1. Tampilan Saat from di jalankan semua
isi tidak aktif ,
2.
2. tampilan saat menekan tombol isi
data
3.
3. Tampilan saat
menekan tombol clear sama dengan saat from di jalankan.
LISTING
PROGRAM
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
cmbcode.Items.Add("SPT")
cmbcode.Items.Add("SND")
cmbcode.Items.Add("TST")
cmbcode.Items.Add("TOP")
cmbcode.Items.Add("TAS")
GroupBox1.Enabled
= False
End Sub
Private Sub cmbcode_SelectedIndexChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles cmbcode.SelectedIndexChanged
Dim kdbarang, namabarang As
String
Dim harga As Single
kdbarang =
cmbcode.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 = 250000
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
txttotal.Text =
Val(txtharga.Text) * Val(txtjumlah.Text)
txtbayar.Text =
Val(txttotal.Text) - Val(txtdiskon.Text)
End Sub
Private Sub radiotunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles radiotunai.CheckedChanged
txtdiskon.Text =
Val(txttotal.Text) * 10 / 100
txtbayar.Text =
Val(txttotal.Text) - Val(txtdiskon.Text)
End Sub
Private Sub radiokredit_CheckedChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles radiokredit.CheckedChanged
txtdiskon.Text =
0
txtbayar.Text =
Val(txttotal.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()
txtdiskon.Clear()
txtharga.Clear()
txtjumlah.Clear()
txtnama.Clear()
txttotal.Clear()
txtuangbayar.Clear()
Me.radiotunai.Checked = False
Me.radiokredit.Checked = False
cmbcode.Text = ""
GroupBox1.Enabled
= False
Button1.Enabled =
True
End Sub
Private Sub bttutup_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
bttutup.Click
Me.Close()
End Sub
Private Sub btkembalian_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs)
If txtuangbayar.Text = ""
Then
MessageBox.Show(txtuangbayar, "Maaf Anda Belum Memasukkan Uang Bayar")
ElseIf txtuangbayar.Text < txttotal.Text Then
MessageBox.Show(txtuangbayar, "Maaf Uang Anda Kurang")
ElseIf txtuangbayar.Text > txttotal.Text Then
End If
End Sub
Private Sub Button1_Click(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
End Class
SOAL DAN JAWABAN
1. Saat form dijalankan : semua isian tidak
aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif.
Private Sub Button1_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, cara beli, tombol clear, aktif,
tombol isidata tidak aktif.Tambahkan koding di bawah ini :
cmbcode.Items.Add("SPT")
cmbcode.Items.Add("SND")
cmbcode.Items.Add("TST")
cmbcode.Items.Add("TOP")
cmbcode.Items.Add("TAS")
GroupBox1.Enabled = False
3.
Saat ditekan
combol clear sama dengan saat form dijalankan.
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
SOAL
B
MEMBUAT GAME PUZZLE
Pertama buka visual basic 2010, lalu
buat form masukan 9 button di dalamnya dan rubah nama button itu menjadi angka missal
button 1 menjadi 1 seterusnya nyampe angka 9, kemudian masukan listing program,
dan jalankan program tersebut.
1. 1. 9 button sebelum dirubah namanya.
2.
2. 9 button setelah namanya di rubah.
3. 3. Hasil
dari program yang telah di jalankan.
LISTING
PROGRAM
6. Klik dua kali pada Form
1, lalu isikan koding program seperti di bawah ini :
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. Berikan perintah dari
Button 1 sampai Button 9
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
07.13 |
Category: |
0
komentar
