Listing Program Login
Public Class login
Private Sub masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masuk.Click
If nama.Text = "syahru" And password.Text = "123" Then
TM_Syahru_Ichsan.Show()
Me.Hide()
Else
MsgBox("Unknown ID")
nama.Text = ""
password.Text = ""
nama.Focus()
End If
End Sub
End Class
Private Sub masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masuk.Click
If nama.Text = "syahru" And password.Text = "123" Then
TM_Syahru_Ichsan.Show()
Me.Hide()
Else
MsgBox("Unknown ID")
nama.Text = ""
password.Text = ""
nama.Focus()
End If
End Sub
End Class
Listing Program Menu
Public Class TM_Syahru_Ichsan
Private Sub GajiPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GajiPegawaiToolStripMenuItem.Click
Form1.MdiParent = Me
Form1.Show()
End Sub
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
End Class
Private Sub GajiPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GajiPegawaiToolStripMenuItem.Click
Form1.MdiParent = Me
Form1.Show()
End Sub
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
End Class
Listing Program Gaji Pegawai
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
jabatan.Items.Add("Kepala Bagian")
jabatan.Items.Add("Mandor")
jabatan.Items.Add("Staf")
status.Items.Add("Menikah")
status.Items.Add("Belum Menikah")
statusKerja.Items.Add("Lembur")
statusKerja.Items.Add("Tidak Lembur")
Dim i As Integer
For i = 1 To 8
jamLembur.Items.Add(i & " " & "jam")
Next
jamLembur.Enabled = False
status.Enabled = False
jmlAnak.Enabled = False
buattabel()
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"
gaji.Text = 1750000
Case "Kepala Bagian"
gaji.Text = 2500000
Case "Staf"
gaji.Text = 1250000
End Select
pajak.Text = Val(gaji.Text * 0.015)
jamLembur_SelectedIndexChanged(sender, e)
jmlAnak_TextChanged(sender, e)
status.Enabled = True
status_SelectedIndexChanged(sender, e)
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
On Error Resume Next
Select Case status.Text
Case "Menikah"
tunjanganIstri.Text = Val(gaji.Text * 0.09)
jmlAnak.Enabled = True
Case "Belum Menikah"
tunjanganIstri.Text = 0
tunjanganAnak.Text = 0
jmlAnak.Enabled = False
jmlAnak.Text = ""
End Select
End Sub
Private Sub jmlAnak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlAnak.TextChanged
On Error Resume Next
If jmlAnak.Text = 1 Then
tunjanganAnak.Text = Val(gaji.Text * 0.03)
Else
tunjanganAnak.Text = Val(gaji.Text * 0.07)
End If
If jmlAnak.Text = "" Then
tunjanganAnak.Text = 0
End If
End Sub
Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
totalGaji.Text = Val(gaji.Text) + Val(tunjanganIstri.Text) + Val(tunjanganAnak.Text) + Val(upahLembur.Text) - Val(pajak.Text)
End Sub
Private Sub statusKerja_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles statusKerja.SelectedIndexChanged
Select Case statusKerja.Text
Case "Lembur"
jamLembur.Enabled = True
Case "Tidak Lembur"
jamLembur.Enabled = False
jamLembur.Text = ""
upahLembur.Text = 0
End Select
End Sub
Private Sub jamLembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamLembur.SelectedIndexChanged
Select Case jabatan.Text
Case "Kepala Bagian"
upahLembur.Text = 10000 * Val(Microsoft.VisualBasic.Left(jamLembur.Text, 1))
Case "Mandor"
upahLembur.Text = 7500 * Val(Microsoft.VisualBasic.Left(jamLembur.Text, 1))
Case "Staf"
upahLembur.Text = 5000 * Val(Microsoft.VisualBasic.Left(jamLembur.Text, 1))
End Select
End Sub
Sub buattabel()
LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)
LV.Columns.Add("Status", 80, HorizontalAlignment.Left)
LV.Columns.Add("Jml Anak", 60, HorizontalAlignment.Left)
LV.Columns.Add("Status Kerja", 70, HorizontalAlignment.Left)
LV.Columns.Add("Jam Lembur", 80, HorizontalAlignment.Left)
LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
LV.Columns.Add("Upah Lembur", 80, HorizontalAlignment.Left)
LV.Columns.Add("Tjg Anak", 80, HorizontalAlignment.Left)
LV.Columns.Add("Tjg Istri", 80, HorizontalAlignment.Left)
LV.Columns.Add("Gaji Pokok", 90, HorizontalAlignment.Left)
LV.Columns.Add("Total Gaji", 90, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nama.Text
lst.SubItems.Add(jabatan.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(jmlAnak.Text)
lst.SubItems.Add(statusKerja.Text)
lst.SubItems.Add(jamLembur.Text)
lst.SubItems.Add("Rp. " & pajak.Text)
lst.SubItems.Add("Rp. " & upahLembur.Text)
lst.SubItems.Add("Rp. " & tunjanganAnak.Text)
lst.SubItems.Add("Rp. " & tunjanganIstri.Text)
lst.SubItems.Add("Rp. " & gaji.Text)
lst.SubItems.Add("Rp. " & totalGaji.Text)
LV.Items.Add(lst)
End Sub
Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
nama.Text = ""
jabatan.Text = ""
status.Text = ""
jmlAnak.Text = ""
statusKerja.Text = ""
jamLembur.Text = ""
pajak.Text = ""
upahLembur.Text = ""
tunjanganAnak.Text = ""
tunjanganIstri.Text = ""
gaji.Text = ""
totalGaji.Text = ""
nama.Focus()
End Sub
Private Sub HapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusPilih.Click
LV.Items.Remove(LV.FocusedItem)
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
isitabel()
End Sub
Private Sub hapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusSemua.Click
LV.Items.Clear()
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
jabatan.Items.Add("Kepala Bagian")
jabatan.Items.Add("Mandor")
jabatan.Items.Add("Staf")
status.Items.Add("Menikah")
status.Items.Add("Belum Menikah")
statusKerja.Items.Add("Lembur")
statusKerja.Items.Add("Tidak Lembur")
Dim i As Integer
For i = 1 To 8
jamLembur.Items.Add(i & " " & "jam")
Next
jamLembur.Enabled = False
status.Enabled = False
jmlAnak.Enabled = False
buattabel()
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"
gaji.Text = 1750000
Case "Kepala Bagian"
gaji.Text = 2500000
Case "Staf"
gaji.Text = 1250000
End Select
pajak.Text = Val(gaji.Text * 0.015)
jamLembur_SelectedIndexChanged(sender, e)
jmlAnak_TextChanged(sender, e)
status.Enabled = True
status_SelectedIndexChanged(sender, e)
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
On Error Resume Next
Select Case status.Text
Case "Menikah"
tunjanganIstri.Text = Val(gaji.Text * 0.09)
jmlAnak.Enabled = True
Case "Belum Menikah"
tunjanganIstri.Text = 0
tunjanganAnak.Text = 0
jmlAnak.Enabled = False
jmlAnak.Text = ""
End Select
End Sub
Private Sub jmlAnak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlAnak.TextChanged
On Error Resume Next
If jmlAnak.Text = 1 Then
tunjanganAnak.Text = Val(gaji.Text * 0.03)
Else
tunjanganAnak.Text = Val(gaji.Text * 0.07)
End If
If jmlAnak.Text = "" Then
tunjanganAnak.Text = 0
End If
End Sub
Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
totalGaji.Text = Val(gaji.Text) + Val(tunjanganIstri.Text) + Val(tunjanganAnak.Text) + Val(upahLembur.Text) - Val(pajak.Text)
End Sub
Private Sub statusKerja_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles statusKerja.SelectedIndexChanged
Select Case statusKerja.Text
Case "Lembur"
jamLembur.Enabled = True
Case "Tidak Lembur"
jamLembur.Enabled = False
jamLembur.Text = ""
upahLembur.Text = 0
End Select
End Sub
Private Sub jamLembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamLembur.SelectedIndexChanged
Select Case jabatan.Text
Case "Kepala Bagian"
upahLembur.Text = 10000 * Val(Microsoft.VisualBasic.Left(jamLembur.Text, 1))
Case "Mandor"
upahLembur.Text = 7500 * Val(Microsoft.VisualBasic.Left(jamLembur.Text, 1))
Case "Staf"
upahLembur.Text = 5000 * Val(Microsoft.VisualBasic.Left(jamLembur.Text, 1))
End Select
End Sub
Sub buattabel()
LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)
LV.Columns.Add("Status", 80, HorizontalAlignment.Left)
LV.Columns.Add("Jml Anak", 60, HorizontalAlignment.Left)
LV.Columns.Add("Status Kerja", 70, HorizontalAlignment.Left)
LV.Columns.Add("Jam Lembur", 80, HorizontalAlignment.Left)
LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
LV.Columns.Add("Upah Lembur", 80, HorizontalAlignment.Left)
LV.Columns.Add("Tjg Anak", 80, HorizontalAlignment.Left)
LV.Columns.Add("Tjg Istri", 80, HorizontalAlignment.Left)
LV.Columns.Add("Gaji Pokok", 90, HorizontalAlignment.Left)
LV.Columns.Add("Total Gaji", 90, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nama.Text
lst.SubItems.Add(jabatan.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(jmlAnak.Text)
lst.SubItems.Add(statusKerja.Text)
lst.SubItems.Add(jamLembur.Text)
lst.SubItems.Add("Rp. " & pajak.Text)
lst.SubItems.Add("Rp. " & upahLembur.Text)
lst.SubItems.Add("Rp. " & tunjanganAnak.Text)
lst.SubItems.Add("Rp. " & tunjanganIstri.Text)
lst.SubItems.Add("Rp. " & gaji.Text)
lst.SubItems.Add("Rp. " & totalGaji.Text)
LV.Items.Add(lst)
End Sub
Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
nama.Text = ""
jabatan.Text = ""
status.Text = ""
jmlAnak.Text = ""
statusKerja.Text = ""
jamLembur.Text = ""
pajak.Text = ""
upahLembur.Text = ""
tunjanganAnak.Text = ""
tunjanganIstri.Text = ""
gaji.Text = ""
totalGaji.Text = ""
nama.Focus()
End Sub
Private Sub HapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusPilih.Click
LV.Items.Remove(LV.FocusedItem)
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
isitabel()
End Sub
Private Sub hapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusSemua.Click
LV.Items.Clear()
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
End Class
Hasil Program Login
Hasil Program Menu
Hasil Program Gaji Pegawai
Posting Komentar