Program PENGGAJIAN KARYAWAN dengan Visual Basic/VB

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        NIK.Items.Add("001")
        NIK.Items.Add("002")
        NIK.Items.Add("003")

        JABATAN.Items.Add("TEKNISI")
        JABATAN.Items.Add("ASISTEN")
        JABATAN.Items.Add("MANAJER")

        STATUS.Items.Add("MENIKAH")
        STATUS.Items.Add("BLM MENIKAH")
    End Sub

    Private Sub NIK_SelectedIndexChanged(sender As Object, e As EventArgs) Handles NIK.SelectedIndexChanged
        Select Case NIK.Text
            Case "001" : NAMA.Text = "YUNUS"
            Case "002" : NAMA.Text = "DEDI"
            Case "003" : NAMA.Text = "SHINTA"

        End Select
    End Sub

    Private Sub JABATAN_SelectedIndexChanged(sender As Object, e As EventArgs) Handles JABATAN.SelectedIndexChanged
        Select Case JABATAN.Text
            Case "TEKNISI" : GAJI.Text = 1750000
            Case "ASISTEN" : GAJI.Text = 2500000
            Case "MANAJER" : GAJI.Text = 1250000

        End Select
    End Sub

    Private Sub TUNJANGAN_TextChanged(sender As Object, e As EventArgs) Handles TUNJANGAN.TextChanged
        PAJAK.Text = 0.15 * GAJI.Text

    End Sub

    Private Sub STATUS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles STATUS.SelectedIndexChanged
        Select Case STATUS.Text
            Case "MENIKAH" : TUNJANGAN.Text = 0.1 * GAJI.Text
            Case "BLM MENIKAH" : TUNJANGAN.Text = 0

        End Select
    End Sub

    Private Sub BtnPROSES_Click(sender As Object, e As EventArgs) Handles BtnPROSES.Click
        GJBERSIH.Text = Val(GAJI.Text) + Val(TUNJANGAN.Text) - Val(PAJAK.Text)
    End Sub

    Private Sub BtnKELUAR_Click(sender As Object, e As EventArgs) Handles BtnKELUAR.Click
        End

    End Sub

    Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
        NIK.Text = ""
        NAMA.Text = ""
        JABATAN.Text = ""
        STATUS.Text = ""
        TUNJANGAN.Text = ""
        GAJI.Text = ""
        PAJAK.Text = ""
        GJBERSIH.Text = ""
    End Sub
End Class