BERIKUT INI MERUPAKAN CONTOH PROGRAM PEMBAYARAN GAJI LENGKAP DENGAN LISTVIEW
DAN BERIKUT INI MERUPAKAN SOURCE DARI PROGRAM DI ATAS:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lv.Columns.Add("No", 30, HorizontalAlignment.Left)
lv.Columns.Add("NIK", 40, HorizontalAlignment.Left)
lv.Columns.Add("Nama Pegawai", 120, HorizontalAlignment.Left)
lv.Columns.Add("Gol", 80, HorizontalAlignment.Left)
lv.Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Left)
lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
lv.Columns.Add("Gaji Bersih", 80, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
No.Items.Add("1")
No.Items.Add("2")
No.Items.Add("3")
Nik.Items.Add("1")
Nik.Items.Add("2")
Nik.Items.Add("3")
golongan.Items.Add("1")
golongan.Items.Add("2")
golongan.Items.Add("3")
End Sub
Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged
Select Case Nik.Text
Case "1"
namaP.Text = "Hendro"
Case "2"
namaP.Text = "Dian"
Case "3"
namaP.Text = "Jhoni"
Case Else
namaP.Text = ""
End Select
End Sub
Private Sub golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongan.SelectedIndexChanged
Select Case golongan.Text
Case "1"
gajiP.Text = "1500000"
Case "2"
gajiP.Text = "2500000"
Case "3"
gajiP.Text = "3500000"
Case Else
gajiP.Text = ""
End Select
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
pajak.Text = 0.05 * gajiP.Text
gajiB.Text = Val(gajiP.Text) - Val(pajak.Text)
Dim lst As New ListViewItem
lst.Text = No.Text
lst.SubItems.Add(Nik.Text)
lst.SubItems.Add(namaP.Text)
lst.SubItems.Add(golongan.Text)
lst.SubItems.Add(gajiP.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(gajiB.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Items.Clear()
No.Text = ""
Nik.Text = ""
namaP.Text = ""
golongan.Text = ""
gajiP.Text = ""
pajak.Text = ""
gajiB.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
MsgBox("ANDA YAKIN MAU KELUAR??")
Me.Close()
End Sub
End Class
DAN BERIKUT ADALAH HASIL DARI PROGRAM YANG TELAH DIBUAT:
SEKIAN DULU PROGRAM YANG DAPAT SAYA BERIKAN LEBIH DAN KURANG SAYA MINTA MAAF
SILAHKAN DI COPAS UNTUK PARA SAHABAT ANAK LAUT
SALAM ANAK LAUT
SALAM ADMIN 2
Artikel keren lainnya:
Belum ada tanggapan untuk "Listview Pembayaran Gaji"
Post a Comment
Berikan komentar yang sopan dan sifatnya membangun ya teman