aplikasi komputer 4: LATIHAN 06

Deskripsi latihan_06_36110043

Form Latihan 06 Terdapat empat Object yaitu : Label, TextBox, CheckBox dan RadioButton

Object Label

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

Object Text Box

Terdapat dua puluh satu textbox (semuanya status ReadOnly, ketika checkbox dicek maka ada dua belas textbox yang akan menjadi status input), Yaitu untuk mengisi harga dan kuantitasnya.

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.

Script Unique

Untuk CheckBox Coto:

If Coto36110043.Checked Then

HCoto36110043.ReadOnly = False

QCoto36110043.ReadOnly = False

Else

HCoto36110043.ReadOnly = True

QCoto36110043.ReadOnly = True

End If
Untuk RadioButton Pot. Member 10%:

If Member36110043.Checked Then

POTONGAN36110043.Text = Val(TOTAL36110043.Text) * (10 / 100)

JUMLAHBERSIH36110043.Text = Val(TOTAL36110043.Text) - Val(POTONGAN36110043.Text)

Untuk RadioButton Non-Member:

If NOMember_36110043.Checked Then

POTONGAN36110043.Text = 0

JUMLAHBERSIH36110043.Text = Val(TOTAL36110043.Text) - Val(POTONGAN36110043.Text)

End If

Even

Checkchanged

Textchanged

Property

Property TextBox ==> ReadOnly=True

Langkah-Langkah latihan_06_36110043

Click icon "Add new Item"

2. Pada kolom Categories dan Templates pilih Windows Form, isi kolom name dengan
Latihan_06_36110043.vb kemudian klik add.

3. Akan muncul tampilan awal Design Form

4. Dibawah ini adalah Form yang akan kita buat

5. Buat design Form seperti di atas dengan menggunakan object Label, TextBox, CheckBox dan RadioButton yang terdapat di dalam ToolBox {lihat latihan 1 untuk pengenalan Object yang terdapat di dalam ToolBox}

6. Setelah selesai lanjutkan dengan menulis SCRIPTnya
7. SCRIPTnya adalah

Public Class latihan_06_36110043

Private Sub COTO36110043_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COTO36110043.CheckedChanged

If COTO36110043.Checked Then

HCOTO36110043.ReadOnly = False

QCOTO36110043.ReadOnly = False

Else : HCOTO36110043.ReadOnly = True

QCOTO36110043.ReadOnly = True

End If

End Sub

Private Sub PALLUBASA36110043_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PALLUBASA36110043.CheckedChanged

If PALLUBASA36110043.Checked Then

HPALLUBASA36110043.ReadOnly = False

QPALLUBASA36110043.ReadOnly = False

Else : HPALLUBASA36110043.ReadOnly = True

QPALLUBASA36110043.ReadOnly = True

End If

End Sub

Private Sub KONRO36110043_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KONRO36110043.CheckedChanged

If KONRO36110043.Checked Then

HKONRO36110043.ReadOnly = False

QKONRO36110043.ReadOnly = False

Else : HKONRO36110043.ReadOnly = True

QKONRO36110043.ReadOnly = True

End If

End Sub

Private Sub SOP36110043_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SOP36110043.CheckedChanged

If SOP36110043.Checked Then

HSOP36110043.ReadOnly = False

QSOP36110043.ReadOnly = False

Else

HSOP36110043.ReadOnly = True

QSOP36110043.ReadOnly = True

End If

End Sub

Private Sub KOBAR36110043_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KOBAR36110043.CheckedChanged

If KOBAR36110043.Checked Then

HKOBAR36110043.ReadOnly = False

QKOBAR36110043.ReadOnly = False

Else

HKOBAR36110043.ReadOnly = True

QKOBAR36110043.ReadOnly = True

End If

End Sub

Private Sub ULJUKU36110043_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ULJUKU36110043.CheckedChanged

If ULJUKU36110043.Checked Then

HULJUK36110043.ReadOnly = False

QULJUK36110043.ReadOnly = False

Else

HULJUK36110043.ReadOnly = True

QULJUK36110043.ReadOnly = True

End If

End Sub

Private Sub QCOTO36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QCOTO36110043.TextChanged

JCOTO36110043.Text = Val(HCOTO36110043.Text) * Val(QCOTO36110043.Text)

End Sub

Private Sub QPALLUBASA36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QPALLUBASA36110043.TextChanged

JPALLUBASA36110043.Text = Val(HPALLUBASA36110043.Text) * Val(QPALLUBASA36110043.Text)

End Sub

Private Sub QKONRO36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QKONRO36110043.TextChanged

JKONRO36110043.Text = Val(HKONRO36110043.Text) * Val(QKONRO36110043.Text)

End Sub

Private Sub QSOP36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QSOP36110043.TextChanged

JSOP36110043.Text = Val(HSOP36110043.Text) * Val(QSOP36110043.Text)

End Sub

Private Sub QKOBAR36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QKOBAR36110043.TextChanged

JKOBAR36110043.Text = Val(HKOBAR36110043.Text) * Val(QKOBAR36110043.Text)

End Sub

Private Sub QULJUK36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QULJUK36110043.TextChanged

JULJUK36110043.Text = Val(HULJUK36110043.Text) * Val(QULJUK36110043.Text)

End Sub

Private Sub JCOTO36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JCOTO36110043.TextChanged

TOTAL36110043.Text = Val(JCOTO36110043.Text) + Val(JPALLUBASA36110043.Text) + Val(JKONRO36110043.Text) + Val(KOBAR36110043.Text) + Val(JULJUK36110043.Text) + Val(JSOP36110043.Text)

End Sub

Private Sub JPALLUBASA36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JPALLUBASA36110043.TextChanged