CONTOH DATA PENGGAJIAN PEGAWAI DENGAN MENGGUNAKAN VISUAL BASIC


Public Class Form1

    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")
        nik.Items.Add("PM0011")

        jabatan.Items.Add("KEPALA DIVISI")
        jabatan.Items.Add("STAFF")
        jabatan.Items.Add("WAKIL KEPALA")

        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")

        jumlaha.Items.Add("0")
        jumlaha.Items.Add("1")
        jumlaha.Items.Add("2")

        Call buattabel()
    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 = "arifin fitri yasa"
            Case "PS111"
                nama.Text = "doni arman"
            Case "KU101"
                nama.Text = "saya sendiri"
            Case "GD100"
                nama.Text = "ftannn"
            Case Else
                nama.Text = "grolll"
        End Select

        Dim a As String
        a = Microsoft.VisualBasic.Left(nik.Text, 2)
        If a = "PM" Then
            bagian.Text = "pemasaran"
        ElseIf a = "PS" Then
            bagian.Text = "personalia"
        ElseIf a = "KU" Then
            bagian.Text = "keuangan"
        ElseIf a = "GD" Then
            bagian.Text = "gudang"
        ElseIf a = "PM" Then
            bagian.Text = "pemotongan"
        End If
    End Sub

    Sub isitabel()
        Dim isi As New ListViewItem
        isi.Text = (nik.Text)
        isi.SubItems.Add(nama.Text)
        isi.SubItems.Add(bagian.Text)
        isi.SubItems.Add(jabatan.Text)
        isi.SubItems.Add(gajip.Text)
        isi.SubItems.Add(pajak.Text)
        isi.SubItems.Add(status.Text)
        isi.SubItems.Add(tunjangank.Text)
        isi.SubItems.Add(jumlaha.Text)
        isi.SubItems.Add(tunjangana.Text)
        isi.SubItems.Add(totalg.Text)
        ListView1.Items.Add(isi)


    End Sub

    Sub buattabel()
        ListView1.Columns.Add("NIK", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Nama", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Bagian", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Jabatan", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Gaji Pokok", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Pajak", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Status", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tunjangan Keluarga", 85, HorizontalAlignment.Center)
        ListView1.Columns.Add("Jumlah Anak", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tunjangan Anak", 85, HorizontalAlignment.Center)
        ListView1.Columns.Add("Total Gaji", 75, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True

    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"
                gajip.Text = "2500000"
            Case "STAFF"
                gajip.Text = "1500000"
            Case Else
                gajip.Text = "1000000"
        End Select
        pajak.Text = gajip.Text * 0.1

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "Menikah"
                tunjangank.Text = gajip.Text * 0.15
            Case "Tidak Menikah"
                jumlaha.Text = ""
                tunjangank.Text = 0
        End Select

    End Sub

    Private Sub jumlaha_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlaha.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Select Case jumlaha.Text
                Case "0"
                    tunjangana.Text = 0
                Case "1"
                    tunjangana.Text = gajip.Text * 0.05
                Case "2"
                    tunjangana.Text = gajip.Text * 0.1
                Case Else
                    tunjangana.Text = gajip.Text * 0.5
            End Select
        End If
        totalg.Text = Val(gajip.Text) + Val(tunjangana.Text) + Val(tunjangank.Text) - Val(pajak.Text)
        totalg.Enabled = False
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        nama.Text = ""
        nik.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        tunjangana.Text = ""
        tunjangank.Text = ""
        pajak.Text = ""
        status.Text = ""
        gajip.Text = ""
        totalg.Text = ""
        jumlaha.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 listview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listview.Click
        Call isitabel()
    End Sub
End Class