Project VB - Form Gaji Karyawan

Berikut ini merupakan salah satu project VB yaitu Form Gaji Karyawan ;

Design form seperti gambar dibawah ini :

listing program :

Public Class Form1


    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        nik.Text = ""
        nama.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        gajipokok.Text = ""
        pajak.Text = ""
        status.Text = ""
        jumlahanak.Text = ""
        tunjangankeluarga.Text = ""
        tunjangananak.Text = ""
        totalgaji.Text = ""
    End Sub

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nik.Items.Add("PM010")
        nik.Items.Add("PS111")
        nik.Items.Add("KU101")
        nik.Items.Add("GD100")
        jabatan.Items.Add("kepala divisi")
        jabatan.Items.Add("staff")
        jabatan.Items.Add("wakil kepala")
        status.Items.Add("menikah")
        status.Items.Add("tidak menikah")

        Dim x As Byte
        For x = 1 To 5
            jumlahanak.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 "PM010"
                nama.Text = "apry"
            Case "PS111"
                nama.Text = "anita"
            Case "KU101"
                nama.Text = "tampubolon"
            Case "GD100"
                nama.Text = "aprilia"
            Case "PM011"
                nama.Text = "anitati"
        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 = "GD" Then
            bagian.Text = "Gudang"
        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"
                gajipokok.Text = 5000000
            Case "staff"
                gajipokok.Text = 2000000
            Case "wakil kepala"
                gajipokok.Text = 3500000
        End Select
        pajak.Text = 0.1 * gajipokok.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
            tunjangankeluarga.Text = 0.15 * gajipokok.Text
        Else
            tunjangankeluarga.Text = 0
        End If
    End Sub

    Private Sub jumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahanak.SelectedIndexChanged
        If jumlahanak.Text = 1 Then
            tunjangananak.Text = 0.05 * gajipokok.Text
        Else
            tunjangananak.Text = 0.1 * gajipokok.Text
        End If

        totalgaji.Text = Val(gajipokok.Text) + Val(tunjangankeluarga.Text) + Val(tunjangananak.Text) - Val(pajak.Text)

    End Sub
End Class


Maka hasil tampilan seperti berikut :

Demikian disampaikan, terimakasih.... :))