Deskripsi Latihan_06_36110048

A.    Object-object dalam Latihan_06_36110048 :

1.                         Object Label

Terdapat tujuah 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 C_36110048.Checked Then

HC_36110048.ReadOnly = False

QC_36110048.ReadOnly = False

Else

HC_36110048.ReadOnly = True

QC_36110048.ReadOnly = True

End If

Untuk RadioButton Pot. Member 10%:

If PM_36110048.Checked Then

POT_36110048.Text = Val(TOTAL_36110048.Text) * (10 / 100)

JB_36110048.Text = Val(TOTAL_36110048.Text) - Val(POT_36110048.Text)

End If

Untuk RadioButton Non Member:

If NM_36110048.Checked Then

POT_36110048.Text = 0

JB_36110048.Text = Val(TOTAL_36110048.Text) - Val(POT_36110048.Text)

End If

C.     Even

C_36110048_CheckedChanged

PM_36110048_CheckedChanged

D.    Property

Property TextBox ==> ReadOnly=True