latihan_6_36110052

Latihan_06_36110048

A.    Object-object dalam Latihan_6_36110052 :

1.      Object Label

Terdapat tujuh label (yang bertuliskan makanan khas makassar, makanan, harga, qty, jumlah, total, jumlah bersih).

2.      Object Textbox

Terdapat dua puluh satu textbox (semuanya status ReadOnly tetapi ada dua belas textbox yang akan menjadi status input ketika checkbox dicek). Status input tersebut digunakan untuk memasukkan nilai harga dan kuantitas. Status yang tetap ReadOnly digunakan untuk menampilkan hasil perhitungan harga dikali kuantitas, total semua harga dikali kuantitas, kuantitas dikurang potongan jika ada.

3.      Object CheckBox

Terdapat enam object checkbox (coto, pallubasa, sop konro, sop saudara, konro bakar, ulu juku’). Ketika checkbox coto dicek, maka texbox harga dan kuantitas untuk coto ReadOnlya menjadi false. Begitu juga untuk checkbox pallubasa, sop konro, sop saudara, konro bakar, dan ulu juku’.

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

Untuk CheckBox Coto:

If Coto_36110052.Checked Then

HCoto_36110052.ReadOnly = False

QCoto_36110052.ReadOnly = False

Else

HCoto_36110052.ReadOnly = True

QCoto_36110052.ReadOnly = True

End If

Untuk label quantity:

J1_36110052.Text = Val(H1_36110052.Text) * Val(Q1_36110052.Text)

J7_36110052.Text = Val(J1_36110052.Text) + Val(J2_36110052.Text) + Val(J3_36110052.Text) + Val(J4_36110052.Text) + Val(J5_36110052.Text) + Val(J6_36110052.Text)

Untuk RadioButton Pot. Member 10%:

If PM_36110052.Checked Then

POT_36110052.Text = Val(TOTAL_36110052.Text) * (10 / 100)

JB_36110052.Text = Val(TOTAL_36110052.Text) - Val(POT_36110052.Text)

End If

Untuk RadioButton Non Member:

If NM_36110052.Checked Then

POT_36110052.Text = 0

JB_36110052.Text = Val(TOTAL_36110052.Text) - Val(POT_36110052.Text)

End If

C.     Even

Coto_36110048_CheckedChanged

Q1_36110033_TextChanged

PM_36110048_CheckedChanged

D.    Property

Property TextBox ==> ReadOnly=True