Form Latihan_06_36110037 terdapat lima object yaitu Label, textbox,  button, Checkbox dan RadioButton.

Object Label

Terdapat tujuh label yang bertuliskan “Makanan Khas Makassar”, “Makanan”, “Harga”, “Qty”, “Jumlah”, “Total”, dan “Jumlah Bersih”.

  Object Textbox

Terdapat dua puluh satu textbox  yaitu “HC_36110037”, “HP_36110037”, “HSK_36110037”, “HSS_36110037”, “HKB_36110037”, “HUJ_36110037”, “QC_36110037”, “QP_36110037”, “QSK_36110037”, “QSS_36110037”, “QKB_36110037”, “QUJ_36110037”, "JC_36110037", "JP_36110037", "JSK_36110037", "JSS_36110037", "JKB_36110037", "JUJ_36110037", "Total_36110037", "Potongan_36110037", dan “Bayar_36110037”.

Object Button

Terdapat satu ubject button (“Cancel”) digunakan untuk menghapus semua isi textbox, checkbox dan radiobutton.

Object Checkbox

Terdapat enam object Checkbox ("Coto", "Pallubasa", "Sop Konro", "Sop Saudara", "Konro Bakar", dan "Ulu Juku'") yang digunakan untuk menjalan formula yang telah dibuat pada menu yang dipilih.


Object Radiobutton
Terdapat dua object Radiobutton ("Pot. Member 10%", dan "Non.Member") yang digunakan untuk menjalankan formula yang berhubungan dengan potongan pada transaksi.

Script Unique

Saat Textchanged
JP_36110037.Text = (Val(HP_36110037.Text) * Val(QP_36110037.Text))
TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) +                      Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) +              Val(JUJ_36110037.Text))
POTONGAN_36110037.Text = (Val(TOTAL_36110037.Text) * 10 / 100)
BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))

Saat mengosongkan Textbox, Checkbox dan Radiobutton
  coto_36110037.Checked = False

Event

Property textbox :

Readonly = True/False



1. buka project yang telah dibuat.
2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.


4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.

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


6. setelah form selesai, ubah nama textbox dan button menggunakan properties window


7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_06_36110037
    Private Sub Latihan_06_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub coto_36110037_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles coto_36110037.CheckedChanged
        If coto_36110037.Checked = True Then
            HC_36110037.ReadOnly = True
            HC_36110037.Text = "6000"
            QC_36110037.ReadOnly = False
            QC_36110037.Text = "1"
            JC_36110037.Text = (Val(HC_36110037.Text) * Val(QC_36110037.Text))
 TOTAL_36110037.Text=(Val(JC_36110037.Text)+Val(JP_36110037.Text)+Val(JSK_361100 37.Text)+Val(JSS_36110037.Text)+Val(JKB_36110037.Text)+Val(JUJ_36110037.Text))
           BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
        Else : HC_36110037.Text = ""
            QC_36110037.Text = ""
            JC_36110037.Text = ""
            HC_36110037.ReadOnly = True
            QC_36110037.ReadOnly = True
            JC_36110037.ReadOnly = True
            TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
            BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
        End If

    End Sub

    Private Sub Pallubasa_36110037_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Pallubasa_36110037.CheckedChanged
        If Pallubasa_36110037.Checked = True Then
            HP_36110037.ReadOnly = True
            HP_36110037.Text = "7000"
            QP_36110037.ReadOnly = False
            QP_36110037.Text = "1"
            JP_36110037.Text = (Val(HP_36110037.Text) * Val(QP_36110037.Text))
            TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
            BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
        Else : HP_36110037.ReadOnly = True
            HP_36110037.Text = ""
            QP_36110037.ReadOnly = True
            QP_36110037.Text = ""
            JP_36110037.ReadOnly = True
            JP_36110037.Text = ""
            TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
            BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
        End If
    End Sub

    Private Sub Sopkonro_36110037_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Sopkonro_36110037.CheckedChanged
        If Sopkonro_36110037.Checked = True Then
            HSK_36110037.ReadOnly = True
            HSK_36110037.Text = "8000"
            QSK_36110037.ReadOnly = False
            QSK_36110037.Text = "1"
            JSK_36110037.Text = (Val(HSK_36110037.Text) * Val(QSK_36110037.Text))
            TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
            BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
        Else : HSK_36110037.ReadOnly = True
            HSK_36110037.Text = ""
            QSK_36110037.ReadOnly = True
            QSK_36110037.Text = ""
            JSK_36110037.ReadOnly = True
            JSK_36110037.Text = ""
            TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
            BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
        End If
    End Sub

    Private Sub sopsaudara_36110037_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles sopsaudara_36110037.CheckedChanged
        If sopsaudara_36110037.Checked = True Then
            HSS_36110037.ReadOnly = True
            HSS_36110037.Text = "9000"
            QSS_36110037.ReadOnly = False
            QSS_36110037.Text = "1"
            JSS_36110037.Text = (Val(HSS_36110037.Text) * Val(QSS_36110037.Text))
            TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
            BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
        Else : HSS_36110037.ReadOnly = True
            HSS_36110037.Text = ""
            QSS_36110037.ReadOnly = True
            QSS_36110037.Text = ""
            JSS_36110037.ReadOnly = True
            JSS_36110037.Text = ""
            TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
            BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
        End If
    End Sub

    Private Sub konrobakar_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles konrobakar_36110037.CheckedChanged
        If konrobakar_36110037.Checked = True Then
            HKB_36110037.ReadOnly = True
            HKB_36110037.Text = "10000"
            QKB_36110037.ReadOnly = False
            QKB_36110037.Text = "1"
            JKB_36110037.Text = (Val(HKB_36110037.Text) * Val(QKB_36110037.Text))
            TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
            BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
        Else : HKB_36110037.ReadOnly = True
            HKB_36110037.Text = ""
            QKB_36110037.ReadOnly = True
            QKB_36110037.Text = ""
            JKB_36110037.ReadOnly = True
            JKB_36110037.Text = ""
            TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
            BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
        End If
    End Sub

    Private Sub ulujuku_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ulujuku_36110037.CheckedChanged
        If ulujuku_36110037.Checked = True Then
            HUJ_36110037.ReadOnly = True
            HUJ_36110037.Text = "20000"
            QUJ_36110037.ReadOnly = False
            QUJ_36110037.Text = "1"
            JUJ_36110037.Text = (Val(HUJ_36110037.Text) * Val(QUJ_36110037.Text))
            TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
            BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
        Else : HUJ_36110037.ReadOnly = True
            HUJ_36110037.Text = ""
            QUJ_36110037.ReadOnly = True
            QUJ_36110037.Text = ""
            JUJ_36110037.ReadOnly = True
            JUJ_36110037.Text = ""
            TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
            BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
        End If
    End Sub

    Private Sub Member_36110037_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Member_36110037.CheckedChanged
        POTONGAN_36110037.Text = (Val(TOTAL_36110037.Text) * 10 / 100)
        BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
    End Sub

    Private Sub Nonmember_36110037_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Nonmember_36110037.CheckedChanged
        POTONGAN_36110037.Text = ""
        BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
    End Sub

    Private Sub QC_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QC_36110037.TextChanged
        JC_36110037.Text = (Val(HC_36110037.Text) * Val(QC_36110037.Text))
        TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
        POTONGAN_36110037.Text = (Val(TOTAL_36110037.Text) * 10 / 100)
        BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
    End Sub

    Private Sub Cancel_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Cancel_36110037.Click
        coto_36110037.Checked = False
        Pallubasa_36110037.Checked = False
        Sopkonro_36110037.Checked = False
        sopsaudara_36110037.Checked = False
        konrobakar_36110037.Checked = False
        ulujuku_36110037.Checked = False
        TOTAL_36110037.Text = ""
        POTONGAN_36110037.Text = ""
        BAYAR_36110037.Text = ""
        Member_36110037.Checked = False
        Nonmember_36110037.Checked = False
    End Sub

    Private Sub QP_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QP_36110037.TextChanged
        JP_36110037.Text = (Val(HP_36110037.Text) * Val(QP_36110037.Text))
        TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
        POTONGAN_36110037.Text = (Val(TOTAL_36110037.Text) * 10 / 100)
        BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
    End Sub

    Private Sub QSK_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QSK_36110037.TextChanged
        JSK_36110037.Text = (Val(HSK_36110037.Text) * Val(QSK_36110037.Text))
        TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
        POTONGAN_36110037.Text = (Val(TOTAL_36110037.Text) * 10 / 100)
        BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
    End Sub

    Private Sub QSS_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QSS_36110037.TextChanged
        JSS_36110037.Text = (Val(HSS_36110037.Text) * Val(QSS_36110037.Text))
        TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
        POTONGAN_36110037.Text = (Val(TOTAL_36110037.Text) * 10 / 100)
        BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
    End Sub

    Private Sub QKB_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QKB_36110037.TextChanged
        JKB_36110037.Text = (Val(HKB_36110037.Text) * Val(QKB_36110037.Text))
        TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
        POTONGAN_36110037.Text = (Val(TOTAL_36110037.Text) * 10 / 100)
        BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
    End Sub

    Private Sub QUJ_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QUJ_36110037.TextChanged
        JUJ_36110037.Text = (Val(HUJ_36110037.Text) * Val(QUJ_36110037.Text))
        TOTAL_36110037.Text = (Val(JC_36110037.Text) + Val(JP_36110037.Text) + Val(JSK_36110037.Text) + Val(JSS_36110037.Text) + Val(JKB_36110037.Text) + Val(JUJ_36110037.Text))
        POTONGAN_36110037.Text = (Val(TOTAL_36110037.Text) * 10 / 100)
        BAYAR_36110037.Text = (Val(TOTAL_36110037.Text) - Val(POTONGAN_36110037.Text))
    End Sub
End Class
8. Uji program dengan mengklik "Start Debugging".

9. Save program dengan mengklik icon "save".

10. Selesai.