Deskripsi Penyelesaian Latihan_06_36110041

Deskripsi Penyelesaian

Latihan_06_36110041

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 C_36110041.Checked Then

HC_36110041.ReadOnly = False

QC_36110041.ReadOnly = False

Else

HC_36110041.ReadOnly = True

QC_36110041.ReadOnly = True

End If

Untuk RadioButton Pot. Member 10%:

If PM_36110041.Checked Then

POT_36110041.Text = Val(TOTAL_36110041.Text) * (10 / 100)

JB_36110041.Text = Val(TOTAL_36110041.Text) - Val(POT_36110041.Text)

End If

Untuk RadioButton Non Member:

If NM_36110041.Checked Then

POT_36110041.Text = 0

JB_36110041.Text = Val(TOTAL_36110041.Text) - Val(POT_36110041.Text)

End If

C.     Even

Button1_Click

KLOSE_36110041_Click

D.     Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.      Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form

2.      Kemudian beri nama dan klik Add

3.      buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

4.       Berikut ini adalah rumus untuk menjalankan form di atas

Public Class Latihan_06_36110041

    Private Sub C_36110041_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles C_36110041.CheckedChanged

        If C_36110041.Checked Then

            HC_36110041.ReadOnly = False

            QC_36110041.ReadOnly = False

        Else

            HC_36110041.ReadOnly = True

            QC_36110041.ReadOnly = True

        End If

    End Sub

    Private Sub QC_36110041_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QC_36110041.TextChanged

        JC_36110041.Text = Val(HC_36110041.Text) * Val(QC_36110041.Text)

        TOTAL_36110041.Text = Val(JC_36110041.Text) + Val(JP_36110041.Text) + Val(JSK_36110041.Text) + Val(JSS_36110041.Text) + Val(JKB_36110041.Text) + Val(JUJ_36110041.Text)

    End Sub

    Private Sub PM_36110041_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PM_36110041.CheckedChanged

        If PM_36110041.Checked Then

            POT_36110041.Text = Val(TOTAL_36110041.Text) * (10 / 100)

            JB_36110041.Text = Val(TOTAL_36110041.Text) - Val(POT_36110041.Text)

        End If

    End Sub

    Private Sub NM_36110041_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NM_36110041.CheckedChanged

        If NM_36110041.Checked Then

            POT_36110041.Text = 0

            JB_36110041.Text = Val(TOTAL_36110041.Text) - Val(POT_36110041.Text)

        End If

    End Sub

    Private Sub P_36110041_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles P_36110041.CheckedChanged

        If P_36110041.Checked Then

            HP_36110041.ReadOnly = False

            QP_36110041.ReadOnly = False

        Else

            HP_36110041.ReadOnly = True

            QP_36110041.ReadOnly = True

        End If

    End Sub

    Private Sub SK_36110041_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SK_36110041.CheckedChanged

        If SK_36110041.Checked Then

            HSK_36110041.ReadOnly = False

            QSK_36110041.ReadOnly = False

        Else

            HSK_36110041.ReadOnly = True

            QSK_36110041.ReadOnly = True

        End If

    End Sub

    Private Sub SS_36110041_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SS_36110041.CheckedChanged

        If SS_36110041.Checked Then

            HSS_36110041.ReadOnly = False

            QSS_36110041.ReadOnly = False

        Else

            HSS_36110041.ReadOnly = True

            QSS_36110041.ReadOnly = True

        End If

    End Sub

    Private Sub KB_36110041_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB_36110041.CheckedChanged

        If KB_36110041.Checked Then

            HKB_36110041.ReadOnly = False

            QKB_36110041.ReadOnly = False

        Else

            HKB_36110041.ReadOnly = True

            QKB_36110041.ReadOnly = True

        End If

    End Sub

    Private Sub UJ_36110041_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles UJ_36110041.CheckedChanged

        If UJ_36110041.Checked Then

            HUJ_36110041.ReadOnly = False

            QUJ_36110041.ReadOnly = False

        Else

            HUJ_36110041.ReadOnly = True

            QUJ_36110041.ReadOnly = True

        End If

    End Sub

    Private Sub QP_36110041_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QP_36110041.TextChanged

        JP_36110041.Text = Val(HP_36110041.Text) * Val(QP_36110041.Text)

        TOTAL_36110041.Text = Val(JC_36110041.Text) + Val(JP_36110041.Text) + Val(JSK_36110041.Text) + Val(JSS_36110041.Text) + Val(JKB_36110041.Text) + Val(JUJ_36110041.Text)

    End Sub

    Private Sub QSK_36110041_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QSK_36110041.TextChanged

        JSK_36110041.Text = Val(HSK_36110041.Text) * Val(QSK_36110041.Text)

        TOTAL_36110041.Text = Val(JC_36110041.Text) + Val(JP_36110041.Text) + Val(JSK_36110041.Text) + Val(JSS_36110041.Text) + Val(JKB_36110041.Text) + Val(JUJ_36110041.Text)

    End Sub

    Private Sub QSS_36110041_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QSS_36110041.TextChanged

        JSS_36110041.Text = Val(HSS_36110041.Text) * Val(QSS_36110041.Text)

        TOTAL_36110041.Text = Val(JC_36110041.Text) + Val(JP_36110041.Text) + Val(JSK_36110041.Text) + Val(JSS_36110041.Text) + Val(JKB_36110041.Text) + Val(JUJ_36110041.Text)

    End Sub

    Private Sub QKB_36110041_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QKB_36110041.TextChanged

        JKB_36110041.Text = Val(HKB_36110041.Text) * Val(QKB_36110041.Text)

        TOTAL_36110041.Text = Val(JC_36110041.Text) + Val(JP_36110041.Text) + Val(JSK_36110041.Text) + Val(JSS_36110041.Text) + Val(JKB_36110041.Text) + Val(JUJ_36110041.Text)

    End Sub

    Private Sub QUJ_36110041_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QUJ_36110041.TextChanged

        JUJ_36110041.Text = Val(HUJ_36110041.Text) * Val(QUJ_36110041.Text)

        TOTAL_36110041.Text = Val(JC_36110041.Text) + Val(JP_36110041.Text) + Val(JSK_36110041.Text) + Val(JSS_36110041.Text) + Val(JKB_36110041.Text) + Val(JUJ_36110041.Text)

    End Sub

End Class