Program Penggajian (Visual Basic)

Scrip Program :

Public Class Form1
    Sub buattabel()
        lv.Columns.Add("Nik", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 119, HorizontalAlignment.Left)
        lv.Columns.Add("jabatan", 80, HorizontalAlignment.Left)
        lv.Columns.Add("gaji", 80, HorizontalAlignment.Left)
        lv.Columns.Add("status", 80, HorizontalAlignment.Left)
        lv.Columns.Add("tunjangan", 80, HorizontalAlignment.Left)
        lv.Columns.Add("pajak", 80, HorizontalAlignment.Left)
        lv.Columns.Add("total", 80, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nik.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(jabatan.Text)
        lst.SubItems.Add(gaji.Text)
        lst.SubItems.Add(status.Text)
        lst.SubItems.Add(tunjangan.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(total.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nik.Items.Add("001")
        nik.Items.Add("002")
        nik.Items.Add("003")
        jabatan.Items.Add("mandor")
        jabatan.Items.Add("kepala bagian")
        jabatan.Items.Add("staf")
        status.Items.Add("menikah")
        status.Items.Add("tidak menikah")
    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "mandor" : gaji.Text = 1750000
            Case "kepala bagian" : gaji.Text = 2500000
            Case "staf" : gaji.Text = 1250000

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

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "001" : nama.Text = "Johanes"
            Case "002" : nama.Text = "Sitorus"
            Case "003" : nama.Text = "Hatchim"
        End Select
    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" : tunjangan.Text = 0.15 * gaji.Text
            Case "tidak menikah" : tunjangan.Text = 0
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        total.Text = Val(gaji.Text) + Val(tunjangan.Text) - Val(pajak.Text)
    End Sub

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

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        buattabel()
        isitabel()
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjangan.Text = ""
        pajak.Text = ""
        total.Text = ""

    End Sub

    Private Sub Btnhapus1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus1.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        lv.Items.Clear()
    End Sub
End Class

http://mesran.blogspot.com/2013/05/tugas-ti-p1101.html