Latihan_06_46110009

Gambar Latihan 6

A.     Form Latihan_06 terdapat tiga object yaitu Label, Textbox, dan Button: 

 ==> Object Label

Terdapat Tujuh label (yang bertuliskan nama; Makanan khas Makassar, makanan, harga, kuantitas, jumlah, total, jumlah bersih) 

     ==>Object Text Box

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.

   ==>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’.

   ==>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 coto46110009.Checked = True Then
            Hcoto46110009.ReadOnly = False
            Qcoto46110009.ReadOnly = False
        Else : Hcoto46110009.ReadOnly = True
            Qcoto46110009.ReadOnly = True
            Hcoto46110009.Text = ""
            Qcoto46110009.Text = ""
            Jcoto46110009.Text = ""
        End If

Untuk RadioButton Pot. Member 10%:

If Pot46110009.Checked Then
            Pot46110009.Text = Val(Total46110009.Text) * (10 / 100)
            Juber46110009.Text = Val(Total46110009.Text) - Val(Pot46110009.Text)
        End If
    End Sub

Untuk RadioButton Non Member:

If nonmember46110009.Checked Then
            Pot46110009.Text = 0
            Juber46110009.Text = Val(Total46110009.Text) - Val(Pot46110009.Text)
        End If
    End Sub

C.     Even

Button1_Click

D.     Property

Property TextBox ==> ReadOnly=True