Form Login
listing login:
Public Class Login
Private Sub btnIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIN.Click
If Username.Text = "fernando" And Password.Text = "123" Then
My.Forms.Menu.Show()
Me.Hide()
Else
MsgBox("Maaf!Password Salah!")
Username.Text = ""
Password.Text = ""
End If
End Sub
End Class
Form Menu
listing Menu:
Public Class Menu
Private Sub GajiPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GajiPegawaiToolStripMenuItem.Click
Me.Hide()
Penggajian_Pegawai.Show()
End Sub
End Class
Form Penggajian Pegawai
LISTING PROGRAM QUIZ ONLINE HARI RABUPublic Class Penggajian_Pegawai
Private Sub Penggajian_Pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Jabatan.Items.Add("Mandor")
Jabatan.Items.Add("Kepala Bagian")
Jabatan.Items.Add("Staff")
Statuskerja.Items.Add("Lembur")
Statuskerja.Items.Add("Tidak Lembur")
statusnikah.Items.Add("Menikah")
statusnikah.Items.Add("Tidak Menikah")
jamlembur.Items.Add("1")
jamlembur.Items.Add("2")
jamlembur.Items.Add("3")
jamlembur.Items.Add("4")
jamlembur.Items.Add("5")
tabel()
End Sub
Sub tabel()
lv.Columns.Add("Nama", 80, HorizontalAlignment.Left)
lv.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)
lv.Columns.Add("Status Kerja", 100, HorizontalAlignment.Left)
lv.Columns.Add("Status Pernikahan", 100, HorizontalAlignment.Left)
lv.Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Left)
lv.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Left)
lv.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Left)
lv.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Left)
lv.Columns.Add("Tunjangan Istri", 100, HorizontalAlignment.Left)
lv.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Left)
lv.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
lv.Columns.Add("Total Gaji", 100, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
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"
gapok.Text = "1750000"
Pajaj.Text = Val(gapok.Text * 0.015)
Case "Kepala Bagian"
gapok.Text = "2500000"
Pajaj.Text = Val(gapok.Text * 0.015)
Case "Staff"
gapok.Text = "1250000"
Pajaj.Text = Val(gapok.Text * 0.015)
End Select
End Sub
Private Sub btnProse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProse.Click
totgaji.Text = Val(gapok.Text) + Val(tunjistri.Text) + Val(tunjanak.Text) + Val(upahlembur.Text) + Val(Pajaj.Text)
Pajaj.Text = Val(gapok.Text * 0.015)
End Sub
Private Sub jmlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlhanak.TextChanged
Select Case jmlhanak.Text
Case "1"
tunjanak.Text = Val(gapok.Text * 0.13)
Case "2"
tunjanak.Text = Val(gapok.Text * 0.17)
End Select
End Sub
Private Sub Pajaj_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pajaj.TextChanged
End Sub
Private Sub statusnikah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles statusnikah.SelectedIndexChanged
Select Case statusnikah.Text
Case "Menikah"
tunjistri.Text = Val(gapok.Text * 0.19)
jmlhanak.Enabled = True
Case "Tidak Menikah"
tunjistri.Text = 0
jmlhanak.Text = 0
jmlhanak.Enabled = False
End Select
End Sub
Private Sub jamlembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamlembur.SelectedIndexChanged
If Jabatan.Text = "Mandor" Then
upahlembur.Text = 7500 * jamlembur.Text
ElseIf Jabatan.Text = "Staff" Then
upahlembur.Text = 5000 * jamlembur.Text
ElseIf Jabatan.Text = "Kepala Bagian" Then
upahlembur.Text = 10000 * jamlembur.Text
End If
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = namapegawai.Text
lst.SubItems.Add(Jabatan.Text)
lst.SubItems.Add(Statuskerja.Text)
lst.SubItems.Add(statusnikah.Text)
lst.SubItems.Add(jmlhanak.Text)
lst.SubItems.Add(gapok.Text)
lst.SubItems.Add(jamlembur.Text)
lst.SubItems.Add(upahlembur.Text)
lst.SubItems.Add(tunjistri.Text)
lst.SubItems.Add(tunjanak.Text)
lst.SubItems.Add(Pajaj.Text)
lst.SubItems.Add(totgaji.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
isitabel()
namapegawai.Text = ""
Jabatan.Text = ""
Statuskerja.Text = ""
statusnikah.Text = ""
jmlhanak.Text = ""
gapok.Text = ""
jamlembur.Text = ""
upahlembur.Text = ""
tunjistri.Text = ""
tunjanak.Text = ""
Pajaj.Text = ""
End Sub
Private Sub btnHapusdatapilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusdatapilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub Hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapussemua.Click
lv.Items.Clear()
End Sub
End Class