LATIHAN_06_36110042

Deskripsi Latihan_06_36110042

A.   Object-object dalam Latihan_06_36110042 :

1.   Object Label

Terdapat tujuh label yang bertuliskan:

a.    MAKANAN KHAS MAKASSAR

b.    Makanan

c.     Harga

d.    Qty

e.    Jumlah

f.     Total

g.     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 Qty. Status yang tetap ReadOnly digunakan untuk menampilkan hasil perhitungan Harga dikali Qty, Total semua Harga dikali Qty, Qty dikurang Potongan jika ada.

3.   Object CheckBox

Terdapat enam object checkbox, sbb:

a.    Coto

b.    Pallubasa

c.     Sop Konro

d.    Sop Saudara

e.    Konro Bakar

f.     Ulu Juku’

Ketika checkbox coto dicek, maka texbox harga dan Qty untuk coto ReadOnlynya 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_36110042.Checked = True Then

            HCOTO_36110042.ReadOnly = False

            QCOTO_36110042.ReadOnly = False

        Else

            HCOTO_36110042.ReadOnly = True

            QCOTO_36110042.ReadOnly = True

        End If

Untuk menampilkan Jumlah Perhitungan Harga dikali Qty

JCOTO_36110042.Text = Val(HCOTO_36110042.Text) * Val(QCOTO_36110042.Text)

   

Untuk menampilkan Total

TOTAL_36110042.Text = Val(JCOTO_36110042.Text) + Val(JPALLUBASA_36110042.Text) + Val(JKONRO_36110042.Text) + Val(JSOP_36110042.Text) + Val(JKONBAR_36110042.Text) + Val(JJUKU_36110042.Text)

Untuk Menampilkan perhitungan potongan

POTONGAN_36110042.Text = 10 / 100 * Val(TOTAL_36110042.Text)

       

B.   Even

COTO_36110042_CheckedChanged

QCOTO_36110042_TextChanged

MEMBER_36110042_CheckedChanged

D.  Property

Property TextBox è ReadOnly = True

Langkah-langkah mengerjakan LATIHAN 06

1.    Klik icon Add New Item pada project yang aktif.

2.    Lalu, pada kotak dialog Add New Item pilih Windows Form dan beri nama Latihan_06_36110042 seperti gambar di bawah ini.

3.    Klik Add, maka pada Solution Explorer akan muncul Latihan_06_36110042.

4.     Lalu buat form seperi pada gambar di bawah ini

5.    Berikut ini rumus untuk menjalankan form di atas

Public Class Latihan_06_36110042

    Private Sub COTO_36110042_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COTO_36110042.CheckedChanged

        If COTO_36110042.Checked = True Then

            HCOTO_36110042.ReadOnly = False

            QCOTO_36110042.ReadOnly = False

        Else

            HCOTO_36110042.ReadOnly = True

            QCOTO_36110042.ReadOnly = True

        End If

    End Sub

    Private Sub PALLUBASA_36110042_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PALLUBASA_36110042.CheckedChanged

        If PALLUBASA_36110042.Checked = True Then

            HPALLUBASA_36110042.ReadOnly = False

            QPALLUBASA_36110042.ReadOnly = False

        Else

            HPALLUBASA_36110042.ReadOnly = True

            QPALLUBASA_36110042.ReadOnly = True

        End If

    End Sub

    Private Sub KONRO_36110042_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KONRO_36110042.CheckedChanged

        If KONRO_36110042.Checked = True Then

            HKONRO_36110042.ReadOnly = False

            QKONRO_36110042.ReadOnly = False

        Else

            HKONRO_36110042.ReadOnly = True

            QKONRO_36110042.ReadOnly = True

        End If

    End Sub

    Private Sub SOP_36110042_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SOP_36110042.CheckedChanged

        If SOP_36110042.Checked = True Then

            HSOP_36110042.ReadOnly = False

            QSOP_36110042.ReadOnly = False

        Else

            HSOP_36110042.ReadOnly = True

            QSOP_36110042.ReadOnly = True

        End If

    End Sub

    Private Sub KONROBAKAR_36110042_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KONROBAKAR_36110042.CheckedChanged

        If KONROBAKAR_36110042.Checked = True Then

            HKONBAR_36110042.ReadOnly = False

            QKONBAR_36110042.ReadOnly = False

        Else

            HKONBAR_36110042.ReadOnly = True

            QKONBAR_36110042.ReadOnly = True

        End If

    End Sub

    Private Sub JUKU_36110042_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUKU_36110042.CheckedChanged

        If JUKU_36110042.Checked = True Then

            HJUKU_36110042.ReadOnly = False

            QJUKU_36110042.ReadOnly = False

        Else

            HJUKU_36110042.ReadOnly = True

            QJUKU_36110042.ReadOnly = True

        End If

    End Sub

    Private Sub QCOTO_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QCOTO_36110042.TextChanged

        JCOTO_36110042.Text = Val(HCOTO_36110042.Text) * Val(QCOTO_36110042.Text)

    End Sub

    Private Sub JCOTO_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JCOTO_36110042.TextChanged

        TOTAL_36110042.Text = Val(JCOTO_36110042.Text) + Val(JPALLUBASA_36110042.Text) + Val(JKONRO_36110042.Text) + Val(JSOP_36110042.Text) + Val(JKONBAR_36110042.Text) + Val(JJUKU_36110042.Text)

    End Sub

    Private Sub QPALLUBASA_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QPALLUBASA_36110042.TextChanged

        JPALLUBASA_36110042.Text = Val(HPALLUBASA_36110042.Text) * Val(QPALLUBASA_36110042.Text)

    End Sub

    Private Sub QKONRO_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QKONRO_36110042.TextChanged

        JKONRO_36110042.Text = Val(HKONRO_36110042.Text) * Val(QKONRO_36110042.Text)

    End Sub

    Private Sub QSOP_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QSOP_36110042.TextChanged

        JSOP_36110042.Text = Val(HSOP_36110042.Text) * Val(QSOP_36110042.Text)

    End Sub

    Private Sub QKONBAR_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QKONBAR_36110042.TextChanged

        JKONBAR_36110042.Text = Val(HKONBAR_36110042.Text) * Val(QKONBAR_36110042.Text)

    End Sub

    Private Sub QJUKU_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QJUKU_36110042.TextChanged

        JJUKU_36110042.Text = Val(HJUKU_36110042.Text) * Val(QJUKU_36110042.Text)

    End Sub

    Private Sub JPALLUBASA_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JPALLUBASA_36110042.TextChanged

        TOTAL_36110042.Text = Val(JCOTO_36110042.Text) + Val(JPALLUBASA_36110042.Text) + Val(JKONRO_36110042.Text) + Val(JSOP_36110042.Text) + Val(JKONBAR_36110042.Text) + Val(JJUKU_36110042.Text)

    End Sub

    Private Sub JKONRO_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JKONRO_36110042.TextChanged

        TOTAL_36110042.Text = Val(JCOTO_36110042.Text) + Val(JPALLUBASA_36110042.Text) + Val(JKONRO_36110042.Text) + Val(JSOP_36110042.Text) + Val(JKONBAR_36110042.Text) + Val(JJUKU_36110042.Text)

    End Sub

    Private Sub JSOP_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JSOP_36110042.TextChanged

        TOTAL_36110042.Text = Val(JCOTO_36110042.Text) + Val(JPALLUBASA_36110042.Text) + Val(JKONRO_36110042.Text) + Val(JSOP_36110042.Text) + Val(JKONBAR_36110042.Text) + Val(JJUKU_36110042.Text)

    End Sub

    Private Sub JKONBAR_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JKONBAR_36110042.TextChanged

        TOTAL_36110042.Text = Val(JCOTO_36110042.Text) + Val(JPALLUBASA_36110042.Text) + Val(JKONRO_36110042.Text) + Val(JSOP_36110042.Text) + Val(JKONBAR_36110042.Text) + Val(JJUKU_36110042.Text)

    End Sub

    Private Sub JJUKU_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JJUKU_36110042.TextChanged

        TOTAL_36110042.Text = Val(JCOTO_36110042.Text) + Val(JPALLUBASA_36110042.Text) + Val(JKONRO_36110042.Text) + Val(JSOP_36110042.Text) + Val(JKONBAR_36110042.Text) + Val(JJUKU_36110042.Text)

    End Sub

    Private Sub NONMEMBER_36110042_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NONMEMBER_36110042.CheckedChanged

        If NONMEMBER_36110042.Checked = True Then

            POTONGAN_36110042.Text = 0

        End If

    End Sub

    Private Sub POTONGAN_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles POTONGAN_36110042.TextChanged

        JUMLAHBERSIH_36110042.Text = TOTAL_36110042.Text - POTONGAN_36110042.Text

    End Sub

    Private Sub MEMBER_36110042_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MEMBER_36110042.CheckedChanged

        If MEMBER_36110042.Checked = True Then

            POTONGAN_36110042.Text = 10 / 100 * Val(TOTAL_36110042.Text)

        End If

    End Sub

End Class

6.    Untuk menjalankan aplikasi dari form di atas maka, klik icon Start Debugging.