Latihan_06_36110056

Deskripsi Latihan 06 :

Form Latihan 06 terdapat empat object yaitu Label, Textbox, CheckBox, dan RadioButton:

Object Label

Terdapat tujuh label (yang bertuliskan Makanan Khas Makassar, Makanan, Harga, Qty, Jumlah, Total,Jumlah Bersih)

Object Text Box

Terdapat dua puluh satu textbox dengan status readonly true semua, yang digunakan untuk memasukkan nilai Harga, Qty, jumlah harga dari keenam jenis makanan dan juga untuk total harga, potongan, dan jumlah bersih.

Object CheckBoxt

Terdapat enam object CheckBox (Coto, Pallubasa, Sop Konro, Sop Saudara, Konro Bakar, dan Ulu Juku’). Object CheckBoxt digunakan agar Harga dari keenam jenis makanan dan Qty dari keenam jenis makanan dapat berubah status menjadi readonly false.

Object RadioButton

Terdapat dua object RadioButton (Pot.Member10% dan Non Member). RadioButton Pot.Member10% digunakan untuk menampilkan potongan sebesar 10% dari Total. Sedangakn RadioButton Non Member digunakan jika tidak ada potongan yang diberikan. 

Script Unique 

     CheckBox Coto
If Coto_36110056.Checked Then

            Hrg1_36110056.ReadOnly = False

            Q1_36110056.ReadOnly = False

        Else

            Hrg1_36110056.ReadOnly = True

            q1_36110056.ReadOnly = True

        End If

Untuk RadioButton Pot. Member 10%:

     If Potm_36110056.Checked Then

            POT_36110056.Text = Val(TOT_36110056.Text) * (10 / 100)

            JB_36110056.Text = Val(TOT_36110056.Text) - Val(POT_36110056.Text)

Untuk RadioButton Non-Member:

If NOM_36110056.Checked Then

    POT_36110056.Text = 0

    JB_36110056.Text = Val(TOT_36110056.Text) - Val(POT_36110056.Text)

  End If

      

      Even

CheckedChanged

Property

Property TextBox ReadOnly=True

Form Latihan 06

Langkah-langkah penyelsaian :

·         Buka project yang dibuat sebelumnya

·         Pilih Add new item

·         Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

·         Buat form sesuai soal di atas dengan menggunakan Label, Textbox, CheckBox, dan RadioButton yang ada dalam Taxbox

·         Setelah form selesai, ubah nama textbox, Checkbox dan Radiobutton menggunakan properties window

·         Selanjutnya masukkan formula atau rumus untuk menjalan form :

Public Class latihan_06_36110056

    Private Sub COTO_36110056_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COTO_36110056.CheckedChanged
        If COTO_36110056.Checked = True Then
            HRG1_36110056.ReadOnly = False
            Q1_36110056.ReadOnly = False
        Else
           HRG1_36110056.ReadOnly = True
             Q1_36110056.ReadOnly = True
    End Sub

    Private Sub Q1_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Q1_36110056.TextChanged
        JML1_36110056.Text = (Val(HRG1_36110056.Text) * Val(Q1_36110056.Text))
    End Sub

    Private Sub PB_36110056_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PB_36110056.CheckedChanged
        If PB_36110056.Checked = True Then
            HRG2_36110056.ReadOnly = False
            Q2_36110056.ReadOnly = False
        Else
            HRG2_36110056.ReadOnly = True
            Q2_36110056.ReadOnly = True
        End If
    End Sub

    Private Sub Q2_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Q2_36110056.TextChanged
        JML2_36110056.Text = (Val(HRG2_36110056.Text) * Val(Q2_36110056.Text))
    End Sub

    Private Sub SK_36110056_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SK_36110056.CheckedChanged
        If SK_36110056.Checked = True Then
            HRG3_36110056.ReadOnly = False
            Q3_36110056.ReadOnly = False
        Else
            HRG3_36110056.ReadOnly = True
            Q3_36110056.ReadOnly = True
        End If
    End Sub

    Private Sub Q3_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Q3_36110056.TextChanged
        JML3_36110056.Text = (Val(HRG3_36110056.Text) * Val(Q3_36110056.Text))
    End Sub

    Private Sub SS_36110056_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SS_36110056.CheckedChanged
        If SS_36110056.Checked = True Then
            HRG4_36110056.ReadOnly = False
            Q4_36110056.ReadOnly = False
        Else
            HRG4_36110056.ReadOnly = True
            Q4_36110056.ReadOnly = True
        End If
    End Sub

    Private Sub Q4_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Q4_36110056.TextChanged
        JML4_36110056.Text = (Val(HRG4_36110056.Text) * Val(Q4_36110056.Text))
    End Sub

    Private Sub KB_36110056_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_36110056.CheckedChanged
        If KB_36110056.Checked = True Then
            HRG5_36110056.ReadOnly = False
            Q5_36110056.ReadOnly = False
        Else
            HRG5_36110056.ReadOnly = True
            Q5_36110056.ReadOnly = True
        End If
    End Sub

    Private Sub Q5_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Q5_36110056.TextChanged
        JML5_36110056.Text = (Val(HRG5_36110056.Text) * Val(Q5_36110056.Text))
    End Sub

    Private Sub UJ_36110056_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UJ_36110056.CheckedChanged
        If UJ_36110056.Checked = True Then
            HRG6_36110056.ReadOnly = False
            Q6_36110056.ReadOnly = False
        Else
            HRG6_36110056.ReadOnly = True
            Q6_36110056.ReadOnly = True
        End If
    End Sub

    Private Sub Q6_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Q6_36110056.TextChanged
        JML6_36110056.Text = (Val(HRG6_36110056.Text) * Val(Q6_36110056.Text))
    End Sub

    Private Sub JML1_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JML1_36110056.TextChanged
        TOT_36110056.Text = (Val(JML1_36110056.Text) + Val(JML2_36110056.Text) + Val(JML3_36110056.Text) + Val(JML4_36110056.Text) + Val(JML5_36110056.Text) + Val(JML6_36110056.Text))
    End Sub

    Private Sub JML2_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JML2_36110056.TextChanged
        TOT_36110056.Text = (Val(JML1_36110056.Text) + Val(JML2_36110056.Text) + Val(JML3_36110056.Text) + Val(JML4_36110056.Text) + Val(JML5_36110056.Text) + Val(JML6_36110056.Text))
    End Sub

    Private Sub JML3_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JML3_36110056.TextChanged
        TOT_36110056.Text = (Val(JML1_36110056.Text) + Val(JML2_36110056.Text) + Val(JML3_36110056.Text) + Val(JML4_36110056.Text) + Val(JML5_36110056.Text) + Val(JML6_36110056.Text))
    End Sub

    Private Sub JML4_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JML4_36110056.TextChanged
        TOT_36110056.Text = (Val(JML1_36110056.Text) + Val(JML2_36110056.Text) + Val(JML3_36110056.Text) + Val(JML4_36110056.Text) + Val(JML5_36110056.Text) + Val(JML6_36110056.Text))
    End Sub

    Private Sub JML5_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JML5_36110056.TextChanged
        TOT_36110056.Text = (Val(JML1_36110056.Text) + Val(JML2_36110056.Text) + Val(JML3_36110056.Text) + Val(JML4_36110056.Text) + Val(JML5_36110056.Text) + Val(JML6_36110056.Text))
    End Sub

    Private Sub JML6_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JML6_36110056.TextChanged
        TOT_36110056.Text = (Val(JML1_36110056.Text) + Val(JML2_36110056.Text) + Val(JML3_36110056.Text) + Val(JML4_36110056.Text) + Val(JML5_36110056.Text) + Val(JML6_36110056.Text))
    End Sub

    Private Sub POTM_36110056_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles POTM_36110056.CheckedChanged
   If POTM_36110056.Checked Then
            POT_36110056.Text = Val(TOT_36110056.Text) * (10 / 100)
            JB_36110056.Text = Val(TOT_36110056.Text) - Val(POT_36110056.Text)

    End Sub
    Private Sub NOM_36110056_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NOM_36110056.CheckedChanged
        If NOM_36110056.Checked Then
            POT_36110056.Text = 0
            JB_36110056.Text = Val(TOT_36110056.Text) - Val(POT_36110056.Text)
        End If
    End Sub


Setelah itu untuk mengujinya dapat memilih start debugging atau langsung menekan F5 pada keyboard