Tugas UTS VB

Code :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Golongan.Items.Add("I")
        Golongan.Items.Add("II")
        Golongan.Items.Add("III")
        Golongan.Items.Add("IV")

        Departemen.Items.Add("Keuangan")
        Departemen.Items.Add("Persediaan")
        Departemen.Items.Add("Pembelian")
        Departemen.Items.Add("Penjualan")
        Departemen.Items.Add("Gudang")
        Departemen.Items.Add("Personalia")

        Status.Items.Add("Menikah")
        Status.Items.Add("Tidak Menikah")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Golongan.Text = "I" Then
            If Departemen.Text = "Keuangan" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4500000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 4200000
                End If
            ElseIf Departemen.Text = "Persediaan" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4400000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 4100000
                End If
            ElseIf Departemen.Text = "Pembelian" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4300000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 4000000
                End If
            ElseIf Departemen.Text = "Penjualan" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4200000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3900000
                End If
            ElseIf Departemen.Text = "Gudang" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4100000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3800000
                End If
            ElseIf Departemen.Text = "Personalia" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4000000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3700000
                End If
            End If
        ElseIf Golongan.Text = "II" Then
            If Departemen.Text = "Keuangan" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4400000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 4100000
                End If
            ElseIf Departemen.Text = "Persediaan" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4300000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 4000000
                End If
            ElseIf Departemen.Text = "Pembelian" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4200000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3900000
                End If
            ElseIf Departemen.Text = "Penjualan" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4100000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3800000
                End If
            ElseIf Departemen.Text = "Gudang" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4000000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3700000
                End If
            ElseIf Departemen.Text = "Personalia" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 3900000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3600000
                End If
            End If
        ElseIf Golongan.Text = "III" Then
            If Departemen.Text = "Keuangan" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4300000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 4000000
                End If
            ElseIf Departemen.Text = "Persediaan" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4200000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3900000
                End If
            ElseIf Departemen.Text = "Pembelian" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4100000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3800000
                End If
            ElseIf Departemen.Text = "Penjualan" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4000000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3700000
                End If
            ElseIf Departemen.Text = "Gudang" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 3900000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3600000
                End If
            ElseIf Departemen.Text = "Personalia" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 3800000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3500000
                End If
            End If
        ElseIf Golongan.Text = "IV" Then
            If Departemen.Text = "Keuangan" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4200000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3900000
                End If
            ElseIf Departemen.Text = "Persediaan" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4100000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3800000
                End If
            ElseIf Departemen.Text = "Pembelian" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 4000000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3700000
                End If
            ElseIf Departemen.Text = "Penjualan" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 3900000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3600000
                End If
            ElseIf Departemen.Text = "Gudang" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 3800000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3500000
                End If
            ElseIf Departemen.Text = "Personalia" Then
                If Status.Text = "Menikah" Then
                    Gapok.Text = 3700000
                ElseIf Status.Text = "Tidak Menikah" Then
                    Gapok.Text = 3400000
                End If
            End If
        End If

        TotalG.Text = Gapok.Text - UangT.Text - UangM.Text
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        NIP.Text = ""
        NP.Text = ""
        Golongan.Text = ""
        Departemen.Text = ""
        KoAs.Text = ""
        Status.Text = ""
        UangT.Text = ""
        UangM.Text = ""
        Gapok.Text = ""
        TotalG.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
End Class