Contoh Program Penggajian Karyawan dalam Visual Basic

Terlebih dahilu kita desain tampilan seperti ini

 Setelah itu kita buat listing seperti yang di bawah ini. Tapi perlu kita ingat, saat pemberian nama pada textbox jangan menggunakan Spasi ia agar tidak terjadi error. 2 the point aja ia. langsung saja. hehehehe

Public Class Form1
    Sub rancangtabel()
        With l_view
            .Columns.Add("NIP", 50)
            .Columns.Add("Nama Pegawai", 200)
            .Columns.Add("Golongan", 50)
            .Columns.Add("Gaji", 100)
            .Columns.Add("Pajak", 200)
            .Columns.Add("Pinjaman", 100)
            .Columns.Add("Gaji Bersih", 100)
            l_view.View = View.Details
            l_view.GridLines = True
            l_view.FullRowSelect = True
        End With
    End Sub
    Sub isitabel()
        Dim x As New ListViewItem
        With x
            .Text = (nip.Text)
            .SubItems.Add(npegawai.Text)
            .SubItems.Add(gol.Text)
            .SubItems.Add(gaji.Text)
            .SubItems.Add(pajak.Text)
            .SubItems.Add(pinjaman.Text)
            .SubItems.Add(gbersih.Text)

        End With
        l_view.Items.Add(x)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nip.Items.Add("001")
        nip.Items.Add("002")
        nip.Items.Add("003")
        gol.Items.Add("IIIA")
        gol.Items.Add("IIIB")
        gol.Items.Add("IIIC")
        rancangtabel()
        isitabel()

    End Sub

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
        If nip.Text = "001" Then
            npegawai.Text = "Vino"

        ElseIf nip.Text = "002" Then
            npegawai.Text = "Nadia"

        Else
            nip.Text = "003"
            npegawai.Text = "Rasni"


        End If
    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged
        If gol.Text = "IIIA" Then
            gaji.Text = "1500000"
            pinjaman.Text = 200000
        ElseIf gol.Text = "IIIB" Then
            gaji.Text = "2500000"
            pinjaman.Text = 150000
        Else
            gol.Text = "IIIC"
            pinjaman.Text = 100000

        End If
        pajak.Text = 0.15 * gaji.Text
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        gbersih.Text = Val(gaji.Text) - Val(pinjaman.Text) - Val(pajak.Text)
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitabel()
    End Sub

    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click
        nip.Text = ""
        npegawai.Text = ""
        gol.Text = ""
        gaji.Text = ""
        pajak.Text = ""
        pinjaman.Text = ""
        gbersih.Text = ""
    End Sub

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



Maka saat kita Debug hasilnya seperti ini. :)

Sekian dan terimakasih
Selamat Mencoba. :)