Yuk ! Belajar pemograman Visual Basic dot Net di Mesran.net
Program Penggajian Karyawan
Form Awal
Berikut Kodingnya
Public Class penggajian
Private
Sub penggajian_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("Kepala Bagian")
jabatan.Items.Add("Mandor")
jabatan.Items.Add("Staff")
status.Items.Add("Menikah")
status.Items.Add("Tidak Menikah")
jamlembur.Items.Add("0")
jamlembur.Items.Add("1")
jamlembur.Items.Add("2")
jamlembur.Items.Add("3")
jamlembur.Items.Add("4")
jamlembur.Items.Add("5")
jamlembur.Items.Add("6")
jamlembur.Items.Add("7")
jamlembur.Items.Add("8")
jamlembur.Items.Add("9")
buat_table()
End
Sub
Sub
buat_table()
lv.Columns.Add("NIK", 80, HorizontalAlignment.Left)
lv.Columns.Add("Nama", 150, HorizontalAlignment.Center)
lv.Columns.Add("Jabatan", 100,
HorizontalAlignment.Center)
lv.Columns.Add("Gaij Pokok", 120,
HorizontalAlignment.Center)
lv.Columns.Add("Status", 120,
HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan Istri", 100,
HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Anak", 100,
HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan Anak", 100,
HorizontalAlignment.Center)
lv.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Center)
lv.Columns.Add("Gaji Lembur", 100,
HorizontalAlignment.Center)
lv.Columns.Add("PPh", 100, HorizontalAlignment.Center)
lv.Columns.Add("Total Gaji", 100,
HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End
Sub
Sub
isi_table()
Dim
lst As New
ListViewItem
lst.Text = nik.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jabatan.Text)
lst.SubItems.Add(gajipokok.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(tunjanganistri.Text)
lst.SubItems.Add(jumlahanak.Text)
lst.SubItems.Add(tunjangananak.Text)
lst.SubItems.Add(jamlembur.Text)
lst.SubItems.Add(gajilembur.Text)
lst.SubItems.Add(pph.Text)
lst.SubItems.Add(totalgaji.Text)
lv.Items.Add(lst)
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 = "Istanto Gultom"
Case
"002"
nama.Text = "Betaria Sonata"
Case
"003"
nama.Text = "Gustava Lima"
End
Select
End
Sub
Private
Sub jabatan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
jabatan.SelectedIndexChanged
Select
Case jabatan.Text
Case
"Kepala Bagian"
gajipokok.Text = "3000000"
pph.Text =
gajipokok.Text * 0.05
Case
"Mandor"
gajipokok.Text = "2500000"
pph.Text =
gajipokok.Text * 0.05
Case
"Staff"
gajipokok.Text = "2000000"
pph.Text =
gajipokok.Text * 0.05
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"
tunjanganistri.Text
= gajipokok.Text * 0.1
Case
"Tidak Menikah"
tunjanganistri.Text
= "0"
jumlahanak.Visible =
"0"
tunjangananak.Text =
"0"
End
Select
End
Sub
Private
Sub jamlembur_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
jamlembur.SelectedIndexChanged
If
jabatan.Text = "Kepala Bagian" Then
gajilembur.Text =
jamlembur.Text * 20000
ElseIf
jabatan.Text = "Mandor" Then
gajilembur.Text =
jamlembur.Text * 10000
ElseIf
jabatan.Text = "Staff" Then
gajilembur.Text =
jamlembur.Text * 5000
End
If
End
Sub
Private
Sub jumlahanak_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
jumlahanak.TextChanged
If
jumlahanak.Text = "1" Then
tunjangananak.Text =
0.07 * gajipokok.Text
ElseIf
jumlahanak.Text = "2" Then
tunjangananak.Text =
0.015 * gajipokok.Text
Else
tunjangananak.Text =
0.015 * gajipokok.Text
End
If
End
Sub
Private
Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles btnproses.Click
totalgaji.Text =
Val(gajipokok.Text) + Val(tunjanganistri.Text) + Val(tunjangananak.Text) +
Val(gajilembur.Text) - Val(pph.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
Dim
lst As New
ListViewItem
lst.Text = nik.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jabatan.Text)
lst.SubItems.Add(gajipokok.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(tunjanganistri.Text)
lst.SubItems.Add(jumlahanak.Text)
lst.SubItems.Add(tunjangananak.Text)
lst.SubItems.Add(jamlembur.Text)
lst.SubItems.Add(gajilembur.Text)
lst.SubItems.Add(pph.Text)
lst.SubItems.Add(totalgaji.Text)
lv.Items.Add(lst)
End
Sub
Private
Sub btnhapusdataygdipilih_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
btnhapusdataygdipilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End
Sub
Private
Sub btnhapussemuadata_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
btnhapussemuadata.Click
lv.Items.Clear()
End
Sub
Private
Sub btnbatal_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnbatal.Click
nik.Text = ""
nama.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
status.Text = ""
tunjanganistri.Text = ""
jumlahanak.Text = ""
tunjangananak.Text = ""
jamlembur.Text = ""
gajilembur.Text = ""
pph.Text = ""
totalgaji.Text = ""
End
Sub
End Class
Dan ini hasil dari programnya
Demikian Postingan saya
Nama :
Istanto Gultom
NPM :
14110062