Senin, 20 Mei 2013

Program Listview Penggajian Karyawan

Pada Postingan saya kali ini, saya ingin berbagi tentang pembuatan program listview dengan visual basic, Program ini juga sebagai Tugas Bahasa Pemrograman saya yang diberikan oleh Dosen saya.
Pertama sekali kita buat dahulu desain tampilannya:
















Contoh Desain Awal


Kemudian Kita Buat listing programnya,Seperti berikut ini:

    Public Class Form1
    Sub BuatTabel()
        Lv.Columns.Add("NIK", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Gaji", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Status", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Tunj.Keluarga", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Pajak", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
        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(jab.Text)
        lst.SubItems.Add(gaji.Text)
        lst.SubItems.Add(stt.Text)
        lst.SubItems.Add(tunj.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")
        jab.Items.Add("Mandor")
        jab.Items.Add("Kepala bagian")
        jab.Items.Add("staf")
        stt.Items.Add("Menikah")
        stt.Items.Add("Belum Menikah")

        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 "001" : nama.Text = "oncom"
            Case "002" : nama.Text = "Udin"
            Case "003" : nama.Text = "ujang"
        End Select
    End Sub

    Private Sub jab_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jab.SelectedIndexChanged
        Select Case jab.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 stt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stt.SelectedIndexChanged
        Select Case stt.Text
            Case "Menikah" : tunj.Text = 0.15 * gaji.Text
            Case "Belum Menikah" : tunj.Text = 0
        End Select
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        total.Text = Val(gaji.Text) + Val(tunj.Text) - Val(pajak.Text)
        IsiTabel()
        Nik.Text = ""
        nama.Text = ""
        jab.Text = ""
        stt.Text = ""
        pajak.Text = ""
        tunj.Text = ""
        gaji.Text = ""
        total.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 hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        Lv.Items.Clear()
    End Sub

    Private Sub hapus1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus1.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub
End Class 
 
Setelah Listing program tersebut dibuat,maka hasilnya akan menjadi seperti berikut:
Hasil Program Listview

 
Demikianlah Postingan saya tentang cara pembuatan program listview, Semoga bermanfaat



Tugas Bahasa Pemrograman



0 komentar:

Posting Komentar