Microsoft Visual Studio 2008

Membuat Daftar Gaji Pegawai di suatu Perusahaan dengan menggunakan Listbox pada 

Microsoft Visual Studio 2008

Form1.vb[ design ]

Setelah program di jalankan / running maka tampilannya seprti gambar di bawah ini :

Pada Gambar di atas terdapat 4 Button yang masing-masing fungsinya berbeda, yaitu :  

1. Button Masuk fungsinya untuk memasukkan data yang sudah kita tentukan/kita pilih agar masuk kedalam listboxnya

2.Button Hapus Listbox berfungsi untuk menghapus semua daftar pada listbox tersebut

3.Button Keluar berfungsi untuk mengakhiri proses running program ( close )

4.Button Hapus isian fungsinya untuk menghapus salah satu daftar pada listbox yang akan mau di hapus

 Bahasa Programnya :

 Public Class Form1

    Private Sub Form1_Load( ... ) Handles MyBase.Load
        nip.Items.Add("123002")
        nip.Items.Add("123003")
        nip.Items.Add("123004")
        nip.Items.Add("123005")
        nip.Items.Add("123006")

        gol.Items.Add("I A")
        gol.Items.Add("II A")
        gol.Items.Add("III A")
        gol.Items.Add("IV A")
        gol.Items.Add("V A")

        jabatan.Items.Add("Ka.Bag")
        jabatan.Items.Add("Sub.Bag")

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

        Call BUAT_TABEL()
    End Sub

    Sub BUAT_TABEL()
        lv.GridLines = True
        lv.View = View.Details
        lv.FullRowSelect = True
        lv.Columns.Add("NIP")
        lv.Columns.Add("NAMA")
        lv.Columns.Add("GOL")
        lv.Columns.Add("GAJI")
        lv.Columns.Add("Jabatan")
        lv.Columns.Add("Tunj_Jabatan")
        lv.Columns.Add("Status")
        lv.Columns.Add("Jlh Anak")
        lv.Columns.Add("Tunj_Anak")
        lv.Columns.Add("Tunj_Keluarga")
        lv.Columns.Add("Total Gaji")
    End Sub

    Private Sub masuk_Click( ... ) Handles masuk.Click
        Dim lst As New ListViewItem
        lst.Text = nip.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(gol.Text)
        lst.SubItems.Add(gaji.Text)
        lst.SubItems.Add(jabatan.Text)
        lst.SubItems.Add(tunj_jabatan.Text)
        lst.SubItems.Add(status.Text)
        lst.SubItems.Add(jlh_anak.Text)
        lst.SubItems.Add(tunj_anak.Text)
        lst.SubItems.Add(tunj_kel.Text)
        lst.SubItems.Add(tot_gaji.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub nip_SelectedIndexChanged( ... ) Handles nip.SelectedIndexChanged
        If nip.Text = 123002 Then
            nama.Text = "Mufti"
        ElseIf nip.Text = 123003 Then
            nama.Text = "Amie"
        ElseIf nip.Text = 123004 Then
            nama.Text = "Kiki"
        ElseIf nip.Text = 123005 Then
            nama.Text = "Adi"
        ElseIf nip.Text = 123006 Then
            nama.Text = "Adis"
        End If
    End Sub

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

    Private Sub hapus_lv_Click( . . . ) Handles hapus_lv.Click
        lv.Items.Clear()
    End Sub

    Private Sub keluar_Click( ... ) Handles keluar.Click
        Me.Close()
    End Sub

    Private Sub gol_SelectedIndexChanged( ... ) Handles gol.SelectedIndexChanged
        If gol.Text = "I A" Then
            gaji.Text = 2500000
        ElseIf gol.Text = "II A" Then
            gaji.Text = 4000000
        ElseIf gol.Text = "III A" Then
            gaji.Text = 2000000
        ElseIf gol.Text = "IV A" Then
            gaji.Text = 1500000
        ElseIf gol.Text = "V A" Then
            gaji.Text = 1000000
        End If
    End Sub

    Private Sub status_SelectedIndexChanged( ... ) Handles status.SelectedIndexChanged
        If status.Text = "Menikah" Then
            tunj_kel.Text = 0.2 * gaji.Text
            tot_gaji.Text = Val(gaji.Text) + Val(tunj_kel.Text) + Val(tunj_anak.Text)
            jlh_anak.Items.Clear()
            jlh_anak.Text = ""
            Dim i As Integer = 0
            For i = 0 To 9
                jlh_anak.Items.Add(i)
            Next
        ElseIf status.Text = "Tidak Menikah" Then
            tunj_kel.Text = "0"
            tunj_anak.Text = "0"
            tot_gaji.Text = gaji.Text
            jlh_anak.Items.Clear()
            jlh_anak.Text = "-"
        End If
    End Sub

    Private Sub jlh_anak_SelectedIndexChanged( ... ) Handles jlh_anak.SelectedIndexChanged
        If jlh_anak.Text = "0" Then
            tunj_anak.Text = 0
        ElseIf jlh_anak.Text <= 2 Then
            tunj_anak.Text = 150000 * jlh_anak.Text
            tot_gaji.Text = Val(tunj_anak.Text) + Val(tot_gaji.Text)
        Else
            tunj_anak.Text = 150000 * 2
            tot_gaji.Text = Val(tunj_anak.Text) + Val(tot_gaji.Text)
        End If
    End Sub

    Private Sub jabatan_SelectedIndexChanged( ... ) Handles jabatan.SelectedIndexChanged
        If jabatan.Text = "Ka.Bag" Then
            tunj_jabatan.Text = 500000
        ElseIf jabatan.Text = "Sub.Bag" Then
            tunj_jabatan.Text = 250000
        End If
    End Sub
End Class

:) :) :) Selamat Mencoba :) :) :)