latihan_06_36110040

Langkah-langkah mengerjakan latihan 06

Saya mulai dengan membaca basmalah

1.       Klik start kemudian pilih microsoft visual studio 2008

2.       Klik file kemudian new project kemudian tempatkan pada lokasi yang di inginkan lalu muncullah form1

3.       Kemudian buat form sesuai yg di bawah ini

4.  Kemudian masukkan rumusnya: Public Class latihan_06_36110040

Private Sub coto_36110040_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles coto_36110040.CheckedChanged

        If coto_36110040.Checked = True Then

            Qcoto_36110040.ReadOnly = False

            hcoto_36110040.ReadOnly = False

        Else

            Qcoto_36110040.ReadOnly = True

            hcoto_36110040.ReadOnly = True

        End If

    End Sub

Private Sub pallubasa_36110040_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pallubasa_36110040.CheckedChanged

        If pallubasa_36110040.Checked = True Then

            Qpallub_36110040.ReadOnly = False

            hpallub_36110040.ReadOnly = False

        Else

            Qpallub_36110040.ReadOnly = True

            hpallub_36110040.ReadOnly = True

        End If

    End Sub

Private Sub sopkonro_36110040_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sopkonro_36110040.CheckedChanged

        If sopkonro_36110040.Checked = True Then

            Qsopk_36110040.ReadOnly = False

            hsopk_36110040.ReadOnly = False

        Else

            Qsopk_36110040.ReadOnly = True

            hsopk_36110040.ReadOnly = True

        End If

    End Sub

Private Sub sopsaudara_36110040_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sopsaudara_36110040.CheckedChanged

        If sopsaudara_36110040.Checked = True Then

            Qsops_36110040.ReadOnly = False

            hsops_36110040.ReadOnly = False

        Else

            Qsops_36110040.ReadOnly = True

            hsops_36110040.ReadOnly = True

        End If

    End Sub

Private Sub konrobakar_36110040_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles konrobakar_36110040.CheckedChanged

        If konrobakar_36110040.Checked = True Then

            Qkonrob_36110040.ReadOnly = False

            hkonrob_36110040.ReadOnly = False

        Else

            Qkonrob_36110040.ReadOnly = True

            hkonrob_36110040.ReadOnly = True

        End If

    End Sub

Private Sub ulujuku_36110040CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ulujuku_36110040.CheckedChanged

        If ulujuku_36110040.Checked = True Then

            Quluj_36110040.ReadOnly = False

            huluj_36110040.ReadOnly = False

        Else

            Quluj_36110040.ReadOnly = True

            huluj_36110040.ReadOnly = True

        End If

    End Sub

Private Sub Qcoto_3611040_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Qcoto_36110040.TextChanged

        jcoto_36110040.Text = Val(Qcoto_36110040.Text) * Val(hcoto_36110040.Text)

        tot_36110040.Text = Val(jcoto_36110040.Text) + Val(jpallub_36110040.Text) + Val(jsopk_36110040.Text) + Val(jsops_36110040.Text) + Val(jkonrob_36110040.Text) + Val(juluj_36110040.Text)

    End Sub

Private Sub Qpallub_36110040_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Qpallub_36110040.TextChanged

        jpallub_36110040.Text = Val(Qpallub_36110040.Text) * Val(hpallub_36110040.Text)

        tot_36110040.Text = Val(jcoto_36110040.Text) + Val(jpallub_36110040.Text) + Val(jsopk_36110040.Text) + Val(jsops_36110040.Text) + Val(jkonrob_36110040.Text) + Val(juluj_36110040.Text)

    End Sub

Private Sub Qsopk_36110040_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Qsopk_36110040.TextChanged

        jsopk_36110040.Text = Val(Qsopk_36110040.Text) * Val(hsopk_36110040.Text)

        tot_36110040.Text = Val(jcoto_36110040.Text) + Val(jpallub_36110040.Text) + Val(jsopk_36110040.Text) + Val(jsops_36110040.Text) + Val(jkonrob_36110040.Text) + Val(juluj_36110040.Text)

    End Sub

Private Sub Qsops_36110040_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Qsops_36110040.TextChanged

        jsops_36110040.Text = Val(Qsops_36110040.Text) * Val(hsops_36110040.Text)

        tot_36110040.Text = Val(jcoto_36110040.Text) + Val(jpallub_36110040.Text) + Val(jsopk_36110040.Text) + Val(jsops_36110040.Text) + Val(jkonrob_36110040.Text) + Val(juluj_36110040.Text)

    End Sub

Private Sub Qkonrob_36110040_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Qkonrob_36110040.TextChanged

        jkonrob_36110040.Text = Val(Qkonrob_36110040.Text) * Val(hkonrob_36110040.Text)

        tot_36110040.Text = Val(jcoto_36110040.Text) + Val(jpallub_36110040.Text) + Val(jsopk_36110040.Text) + Val(jsops_36110040.Text) + Val(jkonrob_36110040.Text) + Val(juluj_36110040.Text)

    End Sub

Private Sub Quluj_36110040_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quluj_36110040.TextChanged

        juluj_36110040.Text = Val(Quluj_36110040.Text) * Val(huluj_36110040.Text)

        tot_36110040.Text = Val(jcoto_36110040.Text) + Val(jpallub_36110040.Text) + Val(jsopk_36110040.Text) + Val(jsops_36110040.Text) + Val(jkonrob_36110040.Text) + Val(juluj_36110040.Text)

    End Sub

Private Sub pot_36110040_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pot_36110040.CheckedChanged

        If True Then

            potongan_36110040.Text = 0.1 * Val(tot_36110040.Text)

            jb_36110040.Text = Val(tot_36110040.Text) - Val(potongan_36110040.Text)

        End If

    End Sub

Private Sub Nonpot_36110040_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nonpot_36110040.CheckedChanged

        If True Then

            potongan_36110040.Text = 0

            jb_36110040.Text = Val(tot_36110040.Text) - Val(potongan_36110040.Text)

        End If

    End Sub

End Class

5.       Kemudian simpan dan klik start debuggin

6.        Kemudian masukkan data dan jalankan