Menghitung Gaji Karyawan

Design Program


Listing Program
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nik.Items.Add("PS010")
        nik.Items.Add("PM111")
        nik.Items.Add("KU101")
        nik.Items.Add("PS100")
        nik.Items.Add("PM011")

        jabatan.Items.Add("Kepala Divisi")
        jabatan.Items.Add("Staf")
        jabatan.Items.Add("Wakil Kepala")

        status.Items.Add("Menikah")
        status.Items.Add("Belum menikah")

        Dim x As Integer
        For x = 4 To 1 Step -1
            jlh_anak.Items.Add(x)
        Next
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "PS010"
                nama.Text = "Devi"
            Case "PM111"
                nama.Text = "Meliza"
            Case "KU101"
                nama.Text = "Dhiva"
            Case "PS100"
                nama.Text = "Bunga"
            Case Else
                nama.Text = "Meta"
        End Select

        Dim x As String
        x = Microsoft.VisualBasic.Left(nik.Text, 2)
        If x = "PM" Then
            bagian.Text = "Pemasaran"
        ElseIf x = "PS" Then
            bagian.Text = "Personalia"
        ElseIf x = "KU" Then
            bagian.Text = "Keuangan"
        ElseIf x = "Gudang" Then
        End If
    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "Kepala Divisi"
                gapok.Text = "5000000"
            Case "Staf"
                gapok.Text = "2000000"
            Case "Wakil Kepala"
                gapok.Text = "3500000"

        End Select

        pajak.Text = 0.1 * gapok.Text

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If status.Text = "Menikah" Then
            t_keluarga.Text = 0.15 * gapok.Text
        ElseIf status.Text = "Belum Menikah" Then
            t_keluarga.Text = "0"
            jlh_anak.Text = "0"
        End If
        toga.Text = Val(gapok.Text) + Val(t_keluarga.Text) + Val(t_anak.Text) - Val(pajak.Text)
    End Sub

    Private Sub jlh_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlh_anak.SelectedIndexChanged
        If jlh_anak.Text = "1" Then
            t_anak.Text = 0.05 * gapok.Text

        ElseIf jlh_anak.Text >= "2" Then
            t_anak.Text = 0.1 * gapok.Text

        Else
            t_anak.Text = "0"
        End If
        toga.Text = Val(gapok.Text) + Val(t_keluarga.Text) + Val(t_anak.Text) - Val(pajak.Text)

    End Sub

    Private Sub BTNHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHapus.Click
        nik.Text = ""
        nama.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        gapok.Text = ""
        pajak.Text = ""
        status.Text = ""
        jlh_anak.Text = ""
        t_keluarga.Text = ""
        t_anak.Text = ""
        toga.Text = ""

    End Sub

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

Hasil Program