Latihan_06_36110029

v Deskripsi Latihan_06_36110029

Object Label

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

  Object Textbox

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

            HC_36110029.ReadOnly = False

            QC_36110029.ReadOnly = False

        Else

            HC_36110029.ReadOnly = True

            QC_36110029.ReadOnly = True

        End If

Untuk RadioButton Pot. Member 10%:

     If PM_36110029.Checked Then

            POT_36110029.Text = Val(TOTAL_36110029.Text) * (10 / 100)

JB_36110029.Text = Val(TOTAL_36110029.Text) - Val(POT_36110029.Text)

Untuk RadioButton Non-Member:

If NM_36110029.Checked Then

    POT_36110029.Text = 0

    JB_36110029.Text = Val(TOTAL_36110029.Text) - Val(POT_36110029.Text)

  End If

  Event

PM_36110029_CheckedChanged

Property

Property TextBox ==> ReadOnly=True

v   Prosedur  Latihan_06_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_06_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_06_36110029

    Private Sub C_36110029_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles C_36110029.CheckedChanged

        If C_36110029.Checked Then

            HC_36110029.ReadOnly = False

            QC_36110029.ReadOnly = False

        Else

            HC_36110029.ReadOnly = True

            QC_36110029.ReadOnly = True

        End If

    End Sub

    Private Sub QC_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QC_36110029.TextChanged

        JC_36110029.Text = Val(HC_36110029.Text) * Val(QC_36110029.Text)

        TOTAL_36110029.Text = Val(JC_36110029.Text) + Val(JP_36110029.Text) + Val(JSK_36110029.Text) + Val(JSS_36110029.Text) + Val(JKB_36110029.Text) + Val(JUJ_36110029.Text)

    End Sub

    Private Sub PM_36110029_CheckedChanged(ByVal sender AsObject, ByVal e As System.EventArgs) Handles PM_36110029.CheckedChanged

      If PM_36110029.Checked Then

            POT_36110029.Text = Val(TOTAL_36110029.Text) * (10 / 100)

            JB_36110029.Text = Val(TOTAL_36110029.Text) - Val(POT_36110029.Text)

        End If

    End Sub

    Private Sub NM_36110029_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NM_36110029.CheckedChanged

        If NM_36110029.Checked Then

            POT_36110029.Text = 0

            JB_36110029.Text = Val(TOTAL_36110029.Text) -Val(POT_36110029.Text)

        End If

    End Sub

    Private Sub P_36110029_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles P_36110029.CheckedChanged

        If P_36110029.Checked Then

            HP_36110029.ReadOnly = False

            QP_36110029.ReadOnly = False

        Else

            HP_36110029.ReadOnly = True

            QP_36110029.ReadOnly = True

        End If

    End Sub

    Private Sub SK_36110029_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SK_36110029.CheckedChanged

        If SK_36110029.Checked Then

            HSK_36110029.ReadOnly = False

            QSK_36110029.ReadOnly = False

        Else

            HSK_36110029.ReadOnly = True

            QSK_36110029.ReadOnly = True

        End If

    End Sub

    Private Sub SS_36110029_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SS_36110029.CheckedChanged

        If SS_36110029.Checked Then

            HSS_36110029.ReadOnly = False

            QSS_36110029.ReadOnly = False

        Else

            HSS_36110029.ReadOnly = True

            QSS_36110029.ReadOnly = True

        End If

    End Sub

    Private Sub KB_36110029_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB_36110029.CheckedChanged

        If KB_36110029.Checked Then

            HKB_36110029.ReadOnly = False

            QKB_36110029.ReadOnly = False

        Else

            HKB_36110029.ReadOnly = True

            QKB_36110029.ReadOnly = True

        End If

    End Sub

    Private Sub UJ_36110029_CheckedChanged(ByVal sender AsObject, ByVal e As System.EventArgs) Handles UJ_36110029.CheckedChanged

      If UJ_36110029.Checked Then

            HUJ_36110029.ReadOnly = False

            QUJ_36110029.ReadOnly = False

        Else

            HUJ_36110029.ReadOnly = True

            QUJ_36110029.ReadOnly = True

        End If

    End Sub

    Private Sub QP_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QP_36110029.TextChanged

        JP_36110029.Text = Val(HP_36110029.Text) * Val(QP_36110029.Text)

        TOTAL_36110029.Text = Val(JC_36110029.Text) + Val(JP_36110029.Text) + Val(JSK_36110029.Text) + Val(JSS_36110029.Text) + Val(JKB_36110029.Text) + Val(JUJ_36110029.Text)

    End Sub

    Private Sub QSK_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QSK_36110029.TextChanged

        JSK_36110029.Text = Val(HSK_36110029.Text) * Val(QSK_36110029.Text)

        TOTAL_36110029.Text = Val(JC_36110029.Text) + Val(JP_36110029.Text) + Val(JSK_36110029.Text) + Val(JSS_36110029.Text) + Val(JKB_36110029.Text) + Val(JUJ_36110029.Text)

    End Sub

    Private Sub QSS_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QSS_36110029.TextChanged

        JSS_36110029.Text = Val(HSS_36110029.Text) * Val(QSS_36110029.Text)

        TOTAL_36110029.Text = Val(JC_36110029.Text) + Val(JP_36110029.Text) + Val(JSK_36110029.Text) + Val(JSS_36110029.Text) + Val(JKB_36110029.Text) + Val(JUJ_36110029.Text)

    End Sub

    Private Sub QKB_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QKB_36110029.TextChanged

        JKB_36110029.Text = Val(HKB_36110029.Text) * Val(QKB_36110029.Text)

        TOTAL_36110029.Text = Val(JC_36110029.Text) + Val(JP_36110029.Text) + Val(JSK_36110029.Text) + Val(JSS_36110029.Text) + Val(JKB_36110029.Text) + Val(JUJ_36110029.Text)

    End Sub

    Private Sub QUJ_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QUJ_36110029.TextChanged

        JUJ_36110029.Text = Val(HUJ_36110029.Text) * Val(QUJ_36110029.Text)

        TOTAL_36110029.Text = Val(JC_36110029.Text) + Val(JP_36110029.Text) + Val(JSK_36110029.Text) + Val(JSS_36110029.Text) + Val(JKB_36110029.Text) + Val(JUJ_36110029.Text)

    End Sub

    Private Sub Latihan_06_36110029_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.