Latihan_06_36110034

Deskripsi penyelesaian

Form Latihan_06_36110034  terdapat tiga object yaitu Label, Textbox, Button, checkbox, dan radiobutton :

Object Label

Terdapat tujuh  label : (makanan khas Makassar, makanan, harga, qty, jumlah, total, jumlah bersih )

Object Text Box

Terdapat 21 textbox dan semuanya berstatus readonly dan akan di rubah menjadi false dengan menggunakan rumus .(coto : harga, qty, jumlah), (pallubasa : harga, qty, jumlah), (sop konro : harga , qty, jumlah), (sop saudara : harga, qty, jumlah), (konro bakar : harga , qty, jumlah), (ulu juku’: harga, qty, jumlah).

Tombol jumlah pada setiap makanan akan menghasilkan perkalian antara harga makanan dan qty makanan .

Tombol total akan menjumlah semua nilai pada kolom jumlah keseluruhan harga makanan.

Tombol potongan akan terceklis jika pelanggan merupakan member pada rumah makan tersebut dan akan mendapat potongan sebesar 10 % .

Jumlah bersih akan menampilkan hasil akhir , yang dimana akan didapatkan dari pengurang total dengan potongan, jika mendapat potongan.  

Object checkbox.

Terdapat enam checkbox (coto, pallubasa, sop konro, sop saudara, konro bakar, dan ullu juku’)

Object radiobutton.

Terdapat dua radiobutton (potongan member 10% dan nonmember)

Script Unique 

Checkbox “coto”

Private Sub C_36110034_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C_36110034.CheckedChanged

        If C_36110034.Checked Then

            HC_36110034.ReadOnly = False

            QC_36110034.ReadOnly = False

        Else

            HC_36110034.ReadOnly = True

            QC_36110034.ReadOnly = True

        End If

    End Sub

Checkbox “pallubasa”

Private Sub P_36110034_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles P_36110034.CheckedChanged

        If P_36110034.Checked Then

            HP_36110034.ReadOnly = False

            QP_36110034.ReadOnly = False

        Else

            HP_36110034.ReadOnly = True

            QP_36110034.ReadOnly = True

        End If

    End Sub

Checkbox “sop konro”

Private Sub SK_36110034_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SK_36110034.CheckedChanged

        If SK_36110034.Checked Then

            HSK_36110034.ReadOnly = False

            QSK_36110034.ReadOnly = False

        Else

            HSK_36110034.ReadOnly = True

            QSK_36110034.ReadOnly = True

        End If

    End Sub

Checkbox “sop saudara ”

Private Sub SS_36110034_CheckedChanged(ByVal sender As Object, ByVal e As Systm.EventArgs) Handles SS_36110034.CheckedChanged

        If SS_36110034.Checked Then

            HSS_36110034.ReadOnly = False

            QSS_36110034.ReadOnly = False

        Else               

            HSS_36110034.ReadOnly = True

            QSS_36110034.ReadOnly = True

        End If

    End Sub

Checkbox “konro bakar”

Private Sub KB_36110034_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB_36110034.CheckedChanged

        If KB_36110034.Checked Then

            HKB_36110034.ReadOnly = False

            QKB_36110034.ReadOnly = False

        Else

            HKB_36110034.ReadOnly = True

            QKB_36110034.ReadOnly = True

        End If

Checkbox “ulu juku ”

Private Sub UJ_36110034_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles UJ_36110034.CheckedChanged

        If UJ_36110034.Checked Then

            HUJ_36110034.ReadOnly = False

            QUJ_36110034.ReadOnly = False

        Else

            HUJ_36110034.ReadOnly = True

            QUJ_36110034.ReadOnly = True

        End If

    End Sub

Even

ANAL_36110034_Clik

Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

 

2.   membuat form dengan menggunakan Label, Textbox,  checkbox,dan radiobutton yang ada dalam "Toolbox”.

 

3.   ganti nama textbox dan button menggunakan "Properties Window".

 

4.   Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_06_36110034.

Public Class latihan_06_36110034

    Private Sub C_36110034_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C_36110034.CheckedChanged

        If C_36110034.Checked Then

            HC_36110034.ReadOnly = False

            QC_36110034.ReadOnly = False

        Else

            HC_36110034.ReadOnly = True

            QC_36110034.ReadOnly = True

        End If

    End Sub

    Private Sub QC_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QC_36110034.TextChanged

        JC_36110034.Text = Val(HC_36110034.Text) * Val(QC_36110034.Text)

        TOT_36110034.Text = Val(JC_36110034.Text) + Val(JP_36110034.Text) + Val(JSK_36110034.Text) + Val(JSS_36110034.Text) + Val(JKB_36110034.Text) + Val(JUJ_36110034.Text)

    End Sub

    Private Sub PM_36110034_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PM_36110034.CheckedChanged

        If PM_36110034.Checked Then

            POT_36110034.Text = Val(TOT_36110034.Text) * (10 / 100)

            JB_36110034.Text = Val(TOT_36110034.Text) - Val(POT_36110034.Text)

        End If

    End Sub

    Private Sub NM_36110034_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NM_36110034.CheckedChanged

        If NM_36110034.Checked Then

            POT_36110034.Text = 0

            JB_36110034.Text = Val(TOT_36110034.Text) - Val(POT_36110034.Text)

        End If

    End Sub

    Private Sub P_36110034_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles P_36110034.CheckedChanged

        If P_36110034.Checked Then

            HP_36110034.ReadOnly = False

            QP_36110034.ReadOnly = False

        Else

            HP_36110034.ReadOnly = True

            QP_36110034.ReadOnly = True

        End If

    End Sub

    Private Sub SK_36110034_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SK_36110034.CheckedChanged

        If SK_36110034.Checked Then

            HSK_36110034.ReadOnly = False

            QSK_36110034.ReadOnly = False

        Else

            HSK_36110034.ReadOnly = True

            QSK_36110034.ReadOnly = True

        End If

    End Sub

    Private Sub SS_36110034_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SS_36110034.CheckedChanged

        If SS_36110034.Checked Then

            HSS_36110034.ReadOnly = False

            QSS_36110034.ReadOnly = False

        Else               

            HSS_36110034.ReadOnly = True

            QSS_36110034.ReadOnly = True

        End If

    End Sub

    Private Sub KB_36110034_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB_36110034.CheckedChanged

        If KB_36110034.Checked Then

            HKB_36110034.ReadOnly = False

            QKB_36110034.ReadOnly = False

        Else

            HKB_36110034.ReadOnly = True

            QKB_36110034.ReadOnly = True

        End If

    End Sub

    Private Sub UJ_36110034_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles UJ_36110034.CheckedChanged

        If UJ_36110034.Checked Then

            HUJ_36110034.ReadOnly = False

            QUJ_36110034.ReadOnly = False

        Else

            HUJ_36110034.ReadOnly = True

            QUJ_36110034.ReadOnly = True

        End If

    End Sub

    Private Sub QP_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles UJ_36110034.TextChanged

        JP_36110034.Text = Val(HP_36110034.Text) * Val(QP_36110034.Text)

        TOT_36110034.Text = Val(JC_36110034.Text) + Val(JP_36110034.Text) + Val(JSK_36110034.Text) + Val(JSS_36110034.Text) + Val(JKB_36110034.Text) + Val(JUJ_36110034.Text)

    End Sub

    Private Sub QSK_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QP_36110034.TextChanged

        JSK_36110034.Text = Val(HSK_36110034.Text) * Val(QSK_36110034.Text)

        TOT_36110034.Text = Val(JC_36110034.Text) + Val(JP_36110034.Text) + Val(JSK_36110034.Text) + Val(JSS_36110034.Text) + Val(JKB_36110034.Text) + Val(JUJ_36110034.Text)

    End Sub

    Private Sub QSS_36110034_TextChanged1(ByVal sender As Object, ByVal e As System.EventArgs) Handles QSS_36110034.TextChanged

        JSS_36110034.Text = Val(HSS_36110034.Text) * Val(QSS_36110034.Text)

        TOT_36110034.Text = Val(JC_36110034.Text) + Val(JP_36110034.Text) + Val(JSK_36110034.Text) + Val(JSS_36110034.Text) + Val(JKB_36110034.Text) + Val(JUJ_36110034.Text)

    End Sub

    Private Sub QKB_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QKB_36110034.TextChanged

        JKB_36110034.Text = Val(HKB_36110034.Text) * Val(QKB_36110034.Text)

        TOT_36110034.Text = Val(JC_36110034.Text) + Val(JP_36110034.Text) + Val(JSK_36110034.Text) + Val(JSS_36110034.Text) + Val(JKB_36110034.Text) + Val(JUJ_36110034.Text)

    End Sub

    Private Sub QUJ_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QUJ_36110034.TextChanged

        JUJ_36110034.Text = Val(HUJ_36110034.Text) * Val(QUJ_36110034.Text)

        TOT_36110034.Text = Val(JC_36110034.Text) + Val(JP_36110034.Text) + Val(JSK_36110034.Text) + Val(JSS_36110034.Text) + Val(JKB_36110034.Text) + Val(JUJ_36110034.Text)

    End Sub

    Private Sub latihan_06_36110034_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Private Sub JB_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles JB_36110034.TextChanged

    End Sub

End Class

5.    Jalankan program dengan “start debugging”.

 

6.    Selesai.