Listing Program :
Public Class Form1
Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
If Username.Text = “ZELYHARDI” And Password.Text = “1002236″ Then
MenuUtama.Show()
Me.Hide()
Else
MsgBox(“Maaf Username/Password Salah!”)
Username.Text = “”
Password.Text = “”
End If
End Sub
End Class
Hasil Program Login :
Listing Program Menu Utama :
Public Class MenuUtama
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click
DataKaryawan.Show()
End Sub
End Class
Contoh Menu Utama :
Listing Program Data Karyawan :
Public Class DataKaryawan
Private Sub DataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Tabel()
End Sub
Sub Tabel()
LV.Columns.Add(“Nama”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Jabatan”, 70, HorizontalAlignment.Left)
LV.Columns.Add(“Gaji”, 70, HorizontalAlignment.Left)
LV.Columns.Add(“Status”, 70, HorizontalAlignment.Left)
LV.Columns.Add(“Tunjangan Istri”, 100, HorizontalAlignment.Left)
LV.Columns.Add(“Anak”, 50, HorizontalAlignment.Left)
LV.Columns.Add(“Tunjangan Anak”, 100, HorizontalAlignment.Left)
LV.Columns.Add(“Jam Lembur”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Lembur”, 50, HorizontalAlignment.Left)
LV.Columns.Add(“Pajak”, 50, HorizontalAlignment.Left)
LV.Columns.Add(“Total Gaji”, 80, 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(Gaji.Text)
Lst.SubItems.Add(Status.Text)
Lst.SubItems.Add(TunjanganIstri.Text)
Lst.SubItems.Add(Anak.Text)
Lst.SubItems.Add(TunjanganAnak.Text)
Lst.SubItems.Add(JamLembur.Text)
Lst.SubItems.Add(Lembur.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
Jabatan.Items.Add(“Kepala Bagian”)
Jabatan.Items.Add(“Mandor”)
Jabatan.Items.Add(“Staff”)
Status.Items.Add(“Belum Menikah”)
Status.Items.Add(“Menikah”)
Anak.Items.Add(“1″)
Anak.Items.Add(“2″)
Dim Jam As Byte
For Jam = 1 To 24
JamLembur.Items.Add(Jam)
Next
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
IsiTabel()
Nama.Text = “”
Jabatan.Text = “”
Gaji.Text = “”
Status.Text = “”
TunjanganIstri.Text = “”
Anak.Text = “”
TunjanganAnak.Text = “”
JamLembur.Text = “”
Lembur.Text = “”
Pajak.Text = “”
Total.Text = “”
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
MenuUtama.Show()
Me.Hide()
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”
Gaji.Text = “2500000″
Case “Mandor”
Gaji.Text = “1750000″
Case “Staff”
Gaji.Text = “1250000″
End Select
If Jabatan.Text = “Kepala Bagian” Then
Pajak.Text = Gaji.Text * 0.015
End If
If Jabatan.Text = “Mandor” Then
Pajak.Text = Gaji.Text * 0.015
End If
If Jabatan.Text = “Staff” Then
Pajak.Text = Gaji.Text * 0.015
End If
End Sub
Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
If Jabatan.Text = “Kepala Bagian” Then
If Status.Text = “Menikah” Then
TunjanganIstri.Text = Gaji.Text * 0.09
Else
TunjanganIstri.Text = 0
End If
ElseIf Jabatan.Text = “Mandor” Then
If Status.Text = “Menikah” Then
TunjanganIstri.Text = Gaji.Text * 0.09
Else
TunjanganIstri.Text = 0
End If
ElseIf Jabatan.Text = “Staff” Then
If Status.Text = “Menikah” Then
TunjanganIstri.Text = Gaji.Text * 0.09
Else
TunjanganIstri.Text = 0
End If
End If
End Sub
Private Sub Anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Anak.SelectedIndexChanged
If Jabatan.Text = “Kepala Bagian” Then
If Anak.Text = “1″ Then
TunjanganAnak.Text = Gaji.Text * 0.03
ElseIf Anak.Text = “2″ Then
TunjanganAnak.Text = Gaji.Text * 0.07
Else
TunjanganIstri.Text = 0
End If
ElseIf Jabatan.Text = “Mandor” Then
If Anak.Text = “1″ Then
TunjanganAnak.Text = Gaji.Text * 0.03
ElseIf Anak.Text = “2″ Then
TunjanganAnak.Text = Gaji.Text * 0.07
Else
TunjanganIstri.Text = 0
End If
ElseIf Jabatan.Text = “Staff” Then
If Anak.Text = “1″ Then
TunjanganAnak.Text = Gaji.Text * 0.03
ElseIf Anak.Text = “2″ Then
TunjanganAnak.Text = Gaji.Text * 0.07
Else
TunjanganIstri.Text = 0
End If
End If
End Sub
Private Sub Jam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JamLembur.SelectedIndexChanged
If Jabatan.Text = “Kepala Bagian” Then
If JamLembur.Text >= “1″ Then
Lembur.Text = JamLembur.Text * 10000
End If
End If
If Jabatan.Text >= “Mandor” Then
If JamLembur.Text >= “1″ Then
Lembur.Text = JamLembur.Text * 7500
End If
End If
If Jabatan.Text = “Staff” Then
If JamLembur.Text >= “1″ Then
Lembur.Text = JamLembur.Text * 5000
End If
End If
End Sub
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
Total.Text = Val(Gaji.Text) + Val(TunjanganIstri.Text) + Val(TunjanganAnak.Text) + Val(Lembur.Text) – Val(Pajak.Text)
End Sub
Private Sub BtnHapusData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusData.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
End Class
Hasil Program Data Karyawan 1 :
Hasil Program Data Karyawan 2 :
Hasil Program Data Karyawan 3 :
zellyhardy 