PENGGAJIAN MENGGUNAKAN VB.NET

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        nik.Items.Add("kk-001")
        nik.Items.Add("ks-002")
        nik.Items.Add("as-001")
        nik.Items.Add("as-002")
        nik.Items.Add("sk-001")
        nik.Items.Add("ss-001")
        status.Items.Add("menikah")
        status.Items.Add("tidak menikah")
        anak.Items.Add("0")
        anak.Items.Add("1")
        anak.Items.Add("2")
        ANAK.Items.Add("3")
        anak.Items.Add("4")

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles nik.SelectedIndexChanged
        Dim x As String
        x = Mid(nik.Text, 2, 1)
        If x = "k" Then
            jabatan.Text = "kabag"
        ElseIf x = "s" Then
            jabatan.Text = "staf"
        Else
            jabatan.Text = "-"
        End If
        x = Mid(nik.Text, 1, 1)
        If x = "k" Then
            bagian.Text = "keuangan"
        ElseIf x = "s" Then
            bagian.Text = "security"
        ElseIf x = "a" Then
            bagian.Text = "administrasi"
        Else
            bagian.Text = "-"
        End If

        If nik.Text = "kk-001" Then
            nama.Text = "angga"
        ElseIf nik.Text = "ks-002" Then
            nama.Text = "oscar"
        ElseIf nik.Text = "as-001" Then
            nama.Text = "hendri"
        ElseIf nik.Text = "as-002" Then
            nama.Text = "joko"
        ElseIf nik.Text = "sk-001" Then
            nama.Text = "fai"
        ElseIf nik.Text = "ss-001" Then
            nama.Text = "ade"
        End If

        If jabatan.Text = "kabag" And bagian.Text = "keuangan" Then
            gaji.Text = 4000000
        ElseIf jabatan.Text = "staf" And bagian.Text = "keuangan" Then
            gaji.Text = 2000000
        ElseIf jabatan.Text = "kabag" And bagian.Text = "security" Then
            gaji.Text = 3000000
        ElseIf jabatan.Text = "staf" And bagian.Text = "security" Then
            gaji.Text = 1700000
        ElseIf jabatan.Text = "kabag" And bagian.Text = "administrasi" Then
            gaji.Text = 2500000
        ElseIf jabatan.Text = "staf" And bagian.Text = "administrasi" Then
            gaji.Text = 1900000

        End If
    End Sub

    Private Sub proses_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BPROSES.Click
        If JABATAN.Text = "kabag" Then
            TJABATAN.Text = 0.25 * Val(GAJI.Text)
        Else
            TJABATAN.Text = 0
        End If

        If STATUS.Text = "menikah" Then
            TISTRI.Text = 0.15 * Val(GAJI.Text)
        Else
            TISTRI.Text = 0
        End If

        If ANAK.Text = "0" Then
            TUNJANGANANAK.Text = "0" * 0.2 * Val(GAJI.Text)
        ElseIf ANAK.Text = "1" Then
            TUNJANGANANAK.Text = "1" * 0.2 * Val(GAJI.Text)
        ElseIf ANAK.Text = "2" Then
            TUNJANGANANAK.Text = "2" * 0.2 * Val(GAJI.Text)
        ElseIf ANAK.Text = "3" Then
            TUNJANGANANAK.Text = "3" * 0.2 * Val(GAJI.Text)
        ElseIf ANAK.Text = "4" Then
            TUNJANGANANAK.Text = "4" * 0.2 * Val(GAJI.Text)
        Else
            TUNJANGANANAK.Text = 0
        End If


        TGAJI.Text = Val(GAJI.Text) + Val(TJABATAN.Text) + Val(TISTRI.Text) + Val(TUNJANGANANAK.Text)

    End Sub

    Private Sub hapus_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BHAPUS.Click
        NIK.Text = " "
        NAMA.Text = " "
        BAGIAN.Text = " "
        JABATAN.Text = " "
        GAJI.Text = " "
        STATUS.Text = " "
        ANAK.Text = " "
        TJABATAN.Text = " "
        TISTRI.Text = " "
        TUNJANGANANAK.Text = " "
        TGAJI.Text = " "
    End Sub

    Private Sub keluar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BKELUAR.Click
        End
    End Sub

End Class