Prosedur Penyelesaian Latihan_06_36110048

1.      Klik Start lalu pilih Microsoft Visual Studio 2008

2.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.

3.      Lalu pilih New Project dan beri nama serta pilih tempat folder untuk menyimpannya.

4.      Kemudian buat form sesuai dengan form di bawah ini.

5.      Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_06_36110048

    Private Sub C_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles C_36110048.CheckedChanged

        If C_36110048.Checked Then

            HC_36110048.ReadOnly = False

            QC_36110048.ReadOnly = False

        Else

            HC_36110048.ReadOnly = True

            QC_36110048.ReadOnly = True

        End If

    End Sub

    Private Sub QC_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QC_36110048.TextChanged

        JC_36110048.Text = Val(HC_36110048.Text) * Val(QC_36110048.Text)

        TOTAL_36110048.Text = Val(JC_36110048.Text) + Val(JP_36110048.Text) + Val(JSK_36110048.Text) + Val(JSS_36110048.Text) + Val(JKB_36110048.Text) + Val(JUJ_36110048.Text)

    End Sub

    Private Sub PM_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PM_36110048.CheckedChanged

        If PM_36110048.Checked Then

            POT_36110048.Text = Val(TOTAL_36110048.Text) * (10 / 100)

            JB_36110048.Text = Val(TOTAL_36110048.Text) - Val(POT_36110048.Text)

        End If

    End Sub

    Private Sub NM_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NM_36110048.CheckedChanged

        If NM_36110048.Checked Then

            POT_36110048.Text = 0

            JB_36110048.Text = Val(TOTAL_36110048.Text) - Val(POT_36110048.Text)

        End If

    End Sub

    Private Sub P_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles P_36110048.CheckedChanged

        If P_36110048.Checked Then

            HP_36110048.ReadOnly = False

            QP_36110048.ReadOnly = False

        Else

            HP_36110048.ReadOnly = True

            QP_36110048.ReadOnly = True

        End If

    End Sub

    Private Sub SK_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SK_36110048.CheckedChanged

        If SK_36110048.Checked Then

            HSK_36110048.ReadOnly = False

            QSK_36110048.ReadOnly = False

        Else

            HSK_36110048.ReadOnly = True

            QSK_36110048.ReadOnly = True

        End If

    End Sub

    Private Sub SS_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SS_36110048.CheckedChanged

        If SS_36110048.Checked Then

            HSS_36110048.ReadOnly = False

            QSS_36110048.ReadOnly = False

        Else

            HSS_36110048.ReadOnly = True

            QSS_36110048.ReadOnly = True

        End If

    End Sub

    Private Sub KB_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB_36110048.CheckedChanged

        If KB_36110048.Checked Then

            HKB_36110048.ReadOnly = False

            QKB_36110048.ReadOnly = False

        Else

            HKB_36110048.ReadOnly = True

            QKB_36110048.ReadOnly = True

        End If

    End Sub

    Private Sub UJ_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles UJ_36110048.CheckedChanged

        If UJ_36110048.Checked Then

            HUJ_36110048.ReadOnly = False

            QUJ_36110048.ReadOnly = False

        Else

            HUJ_36110048.ReadOnly = True

            QUJ_36110048.ReadOnly = True

        End If

    End Sub

    Private Sub QP_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QP_36110048.TextChanged

        JP_36110048.Text = Val(HP_36110048.Text) * Val(QP_36110048.Text)

        TOTAL_36110048.Text = Val(JC_36110048.Text) + Val(JP_36110048.Text) + Val(JSK_36110048.Text) + Val(JSS_36110048.Text) + Val(JKB_36110048.Text) + Val(JUJ_36110048.Text)

    End Sub

    Private Sub QSK_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QSK_36110048.TextChanged

        JSK_36110048.Text = Val(HSK_36110048.Text) * Val(QSK_36110048.Text)

        TOTAL_36110048.Text = Val(JC_36110048.Text) + Val(JP_36110048.Text) + Val(JSK_36110048.Text) + Val(JSS_36110048.Text) + Val(JKB_36110048.Text) + Val(JUJ_36110048.Text)

    End Sub

    Private Sub QSS_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QSS_36110048.TextChanged

        JSS_36110048.Text = Val(HSS_36110048.Text) * Val(QSS_36110048.Text)

        TOTAL_36110048.Text = Val(JC_36110048.Text) + Val(JP_36110048.Text) + Val(JSK_36110048.Text) + Val(JSS_36110048.Text) + Val(JKB_36110048.Text) + Val(JUJ_36110048.Text)

    End Sub

    Private Sub QKB_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QKB_36110048.TextChanged

        JKB_36110048.Text = Val(HKB_36110048.Text) * Val(QKB_36110048.Text)

        TOTAL_36110048.Text = Val(JC_36110048.Text) + Val(JP_36110048.Text) + Val(JSK_36110048.Text) + Val(JSS_36110048.Text) + Val(JKB_36110048.Text) + Val(JUJ_36110048.Text)

    End Sub

    Private Sub QUJ_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QUJ_36110048.TextChanged

        JUJ_36110048.Text = Val(HUJ_36110048.Text) * Val(QUJ_36110048.Text)

        TOTAL_36110048.Text = Val(JC_36110048.Text) + Val(JP_36110048.Text) + Val(JSK_36110048.Text) + Val(JSS_36110048.Text) + Val(JKB_36110048.Text) + Val(JUJ_36110048.Text)

    End Sub

End Class

6.      Setelah itu, jalankan programnya.