A.
Object-object yang terdapat dalam
Latihan_06_46110001
1.
Object Label
Pada form
ini Terdapat tujuah label yang bertuliskan makanan khas makassar, makanan,
harga, Qty, jumlah, total,dan jumlah bersih
2.
Object Textbox
Pada latihan
ini Terdapat dua puluh satu textbox (yang statusnya ReadOnly tetapi terdapat
dua belas textbox yang akan menjadi status input ketika checkbox dicek). Status
input tersebut digunakan untuk memasukkan kuantitas atau banyak dan harganya.
Status yang tetap ReadOnly berguna untuk menampilkan hasil perhitungan dari kuantitas
dikali harga pesanan, total semua harga, dan kuantitas dikurangi potongan jika
ada.
3. Object
CheckBox
Pada garis
yang dikelilingi oleh garis hijau Terdapat enam object checkbox yaitu (coto, pallubasa,
sop konro, sop saudara, konro bakar, ulu juku). Ketika salah satu dari checkbox
tersebut di klik/diek, maka texbox harga dan kuantitas untuk coto ReadOnlya
menjadi false.
4. Object
RadioButton
Terdapat dua object radiobutton
(Pot. Member 10% dan Non Member). RadioButton Pot. Member 10% digunakan
untuk memberikan potongan 10% dari Total. Sedangkan RadioButton Non-Member
untuk tidak memberikan potongan
B. Script Unique
Membaca nilai
TextBox Lain dan Menempatkan nilai pada TextBox tertentu
If CheckBox1_46110001.Checked = True
Then
H1_46110001.Text = 9000
Q1_46110001.Text = 0
H1_46110001.ReadOnly = False
Q1_46110001.ReadOnly = False
ElseIf CheckBox1_46110001.Checked = False Then
H1_46110001.Text = ""
Q1_46110001.Text = ""
J1_46110001.Text = ""
H1_46110001.ReadOnly = True
Q1_46110001.ReadOnly = True
End
If
Pada
script yang di blok hijau diatas digunakan sebagai syarat. artinya jika objct
tersebut di cek, maka.......(sesuai ketentuan selanjutnya)
Sedangkan
pada sript yang di blok merah diatas digunakan script ini digunakan pula
sebagai syarat. artinya jika object tersebut Tidak di cek, maka .......(sesuai
ketentuan selanjutnya)
C.
Langkah-langkah menjalankan form
1. Klik Start lalu
pilih Microsoft Visual Studio 2008
2.
pilih Add New Item pada Microsoft Visual Studio 2005/
2008
3. Setelah add
new item terbuka, pilih windows form, lalu ketik nama form dan add.
4. Kemudian
buat form seperti di bawah ini:
5. Berikut ini adalah rumus untuk
menjalankan form di atas.
Public Class Latihan_06_46110001
Private Sub CheckBox1_46110001_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
CheckBox1_46110001.CheckedChanged
If
CheckBox1_46110001.Checked = True Then
H1_46110001.Text = 9000
Q1_46110001.Text = 0
H1_46110001.ReadOnly = False
Q1_46110001.ReadOnly = False
ElseIf
CheckBox1_46110001.Checked = False Then
H1_46110001.Text = ""
Q1_46110001.Text = ""
J1_46110001.Text = ""
H1_46110001.ReadOnly = True
Q1_46110001.ReadOnly = True
End If
End Sub
Private Sub CheckBox2_46110001_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
CheckBox2_46110001.CheckedChanged
If
CheckBox1_46110001.Checked = True Then
H2_46110001.Text = 11000
Q2_46110001.Text = 0
H2_46110001.ReadOnly = False
Q2_46110001.ReadOnly = False
ElseIf
CheckBox1_46110001.Checked = False Then
H2_46110001.Text = ""
Q2_46110001.Text = ""
J2_46110001.Text = ""
H2_46110001.ReadOnly = True
Q2_46110001.ReadOnly = True
End If
End Sub
Private Sub CheckBox3_46110001_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
CheckBox3_46110001.CheckedChanged
If
CheckBox1_46110001.Checked = True Then
H3_46110001.Text = 8000
Q3_46110001.Text = 0
H3_46110001.ReadOnly = False
Q3_46110001.ReadOnly = False
ElseIf
CheckBox1_46110001.Checked = False Then
H3_46110001.Text = ""
Q3_46110001.Text = ""
J3_46110001.Text = ""
H3_46110001.ReadOnly = True
Q3_46110001.ReadOnly = True
End If
End Sub
Private Sub CheckBox4_46110001_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
CheckBox4_46110001.CheckedChanged
If
CheckBox1_46110001.Checked = True Then
H4_46110001.Text = 13450
Q4_46110001.Text = 0
H4_46110001.ReadOnly = False
Q4_46110001.ReadOnly = False
ElseIf
CheckBox1_46110001.Checked = False Then
H4_46110001.Text = ""
Q4_46110001.Text = ""
J4_46110001.Text = ""
H4_46110001.ReadOnly = True
Q4_46110001.ReadOnly = True
End If
End Sub
Private Sub CheckBox5_46110001_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
CheckBox5_46110001.CheckedChanged
If
CheckBox1_46110001.Checked = True Then
H5_46110001.Text = 12550
Q5_46110001.Text = 0
H5_46110001.ReadOnly = False
Q5_46110001.ReadOnly = False
ElseIf
CheckBox1_46110001.Checked = False Then
H5_46110001.Text = ""
Q5_46110001.Text = ""
J5_46110001.Text = ""
H5_46110001.ReadOnly = True
Q5_46110001.ReadOnly = True
End If
End Sub
Private Sub
CheckBox6_46110001_CheckedChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
CheckBox6_46110001.CheckedChanged
If
CheckBox1_46110001.Checked = True Then
H6_46110001.Text = 12000
Q6_46110001.Text = 0
H6_46110001.ReadOnly = False
Q6_46110001.ReadOnly = False
ElseIf
CheckBox1_46110001.Checked = False Then
H6_46110001.Text = ""
Q6_46110001.Text = ""
J6_46110001.Text = ""
H6_46110001.ReadOnly = True
Q6_46110001.ReadOnly = True
End If
End Sub
Private Sub Q1_46110001_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Q1_46110001.TextChanged
J1_46110001.Text =
Val(H1_46110001.Text) * Val(Q1_46110001.Text)
tot_46110001.Text =
Val(J1_46110001.Text) + Val(J2_46110001.Text) + Val(J3_46110001.Text) +
Val(J4_46110001.Text) + Val(J5_46110001.Text) + Val(J6_46110001.Text)
End Sub
Private Sub
Q2_46110001_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
Q2_46110001.TextChanged
J2_46110001.Text =
Val(H2_46110001.Text) * Val(Q2_46110001.Text)
tot_46110001.Text =
Val(J1_46110001.Text) + Val(J2_46110001.Text) + Val(J3_46110001.Text) +
Val(J4_46110001.Text) + Val(J5_46110001.Text) + Val(J6_46110001.Text)
End Sub
Private Sub Q3_46110001_TextChanged(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
Q3_46110001.TextChanged
J3_46110001.Text =
Val(H3_46110001.Text) * Val(Q3_46110001.Text)
tot_46110001.Text =
Val(J1_46110001.Text) + Val(J2_46110001.Text) + Val(J3_46110001.Text) +
Val(J4_46110001.Text) + Val(J5_46110001.Text) + Val(J6_46110001.Text)
End Sub
Private Sub Q4_46110001_TextChanged(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
Q4_46110001.TextChanged
J4_46110001.Text =
Val(H4_46110001.Text) * Val(Q4_46110001.Text)
tot_46110001.Text =
Val(J1_46110001.Text) + Val(J2_46110001.Text) + Val(J3_46110001.Text) +
Val(J4_46110001.Text) + Val(J5_46110001.Text) + Val(J6_46110001.Text)
End Sub
Private Sub Q5_46110001_TextChanged(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
Q5_46110001.TextChanged
J5_46110001.Text = Val(H5_46110001.Text) *
Val(Q5_46110001.Text)
tot_46110001.Text =
Val(J1_46110001.Text) + Val(J2_46110001.Text) + Val(J3_46110001.Text) +
Val(J4_46110001.Text) + Val(J5_46110001.Text) + Val(J6_46110001.Text)
End Sub
Private Sub Q6_46110001_TextChanged(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
Q6_46110001.TextChanged
J6_46110001.Text =
Val(H6_46110001.Text) * Val(Q6_46110001.Text)
tot_46110001.Text =
Val(J1_46110001.Text) + Val(J2_46110001.Text) + Val(J3_46110001.Text) +
Val(J4_46110001.Text) + Val(J5_46110001.Text) + Val(J6_46110001.Text)
End Sub
Private Sub pot46110001_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
pot_46110001.Click
If True Then
pot_46110001.Text = 0.1 *
Val(tot_46110001.Text)
jb_46110001.Text =
Val(tot_46110001.Text) - Val(pot_46110001.Text)
End If
End Sub
Private Sub non_46110001_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
non_46110001.CheckedChanged
If True Then
pot_46110001.Text = 0
jb_46110001.Text =
Val(tot_46110001.Text) - Val(pot_46110001.Text)
End If
End Sub
End Class
6. Tekan F5/debug
pada keyboard untuk menjalankan form,
7. Beri tanda pada cek
makanan yang diinginkan.
8. Isi qty sesuai yang di
iginkan
9. pilih pot.member 10%
atau non-member.
Postingan
0 komentar:
Posting Komentar