Penjelasan Program :
Ada 3 jenis groupbox dalam program ini, yaitu :
- Data Pribadi Pegawai
- Daftar Kehadiran Pegawai
- Laporan Payroll Pegawai
# Beberapa keterangan yang ada pada groupbox Data Pribadi Pegawai :
1) Pada kolom nama, kita meng-input nama pegawai.
2) Pada kolom jabatan, terdapat beberapa jabatan yang sudah tersedia pada kolom tersebut, yaitu :
- Direktur
- Manager
- Ass. Manager
- Supervisor
- Officeboy
3) Pada kolom status, terdapat beberapa jenis status pegawai yang sudah tersedia pada kolom tersebut, yaitu :
· Belum Menikah
· Sudah Menikah
· Cerai
4) Pada kolom Jumlah Anak, merupakan data yang kita input sendiri, namun kolom tersebut dipengaruhi oleh kolom status. Jika statusnya adalah belum menikah, kita tidak bisa meng-input kolom tersebut. Namun, jika statusnya adalah sudah menikah atau cerai, kita dapat meng-input kolom tersebut.
# Beberapa keterangan yang ada pada groupbox Daftar Kehadiran Pegawai :
1) Pada kolom masuk kerja, kita meng-input sendiri jumlah kehadiran pegawai dalam selama satu bulan. Jika kehadiran pegawai lebih dari 20 hari, pegawai akan mendapat bonus. jika kurang dari 20 hari, tidak akan mendapat bonus.
2) Pada kolom izin / sakit dan tanpa keterangan, kita meng-input sendiri.
# Beberapa keterangan yang ada pada groupbox laporan payroll pegawai:
1) Pada kolom gaji pokok, merupakan kolom tentang gaji pokok setiap pegawai. Dalam hal ini, gaji pokok setiap pegawai berbeda. Kolom tersebut, sangat dipengaruhi oleh kolom jabatan. Berikut keterangan gaji pokok setiap pegawai :
· Direktur = Rp 20.000.000,-
· Manager = Rp 15.000.000,-
· Ass. Manager = Rp 10.000.000,-
· Supervisor = Rp 5.000.000,-
· Officeboy = Rp 1.500.000,-
2) Pada kolom tunjangan istri, merupakan kolom tentang tunjangan yang diberikan untuk pegawai yang sudah memiliki istri. Jumlah tunjangan istri adalah sebesar 5% dari gaji pokok pegawai.
3) Pada kolom tunjangan anak, merupakan kolom tentang tunjangan yang diberikan untuk pegawai yang memiliki anak. Jumlah tunjangan anak adalah sebesar jumlah banyak anak dikalikan dengan 2% dari gaji pokok pegawai.
4) Pada kolom bonus, merupakan kolom tentang bonus yang akan pegawai peroleh jika kehadiran pegawai lebih dari 20 hari dalam sebulan. Besarnya bonus adalah 5% dari gaji pokok pegawai.
5) Pada kolom PPH pasal 21, merupakan kolom tentang jumlah besarnya pajak yang harus dibayar oleh karyawan. Dalam hal ini, PPH pasal 21 akan langsung memotong gaji pegawai. Besarnya jumlah PPh pasal 21 adalah 10% dari gaji pokok + tunjangan istri + tunjangan anak + bonus.
6) Pada kolom total gaji, merupakan kolom tentang gaji beersih yang akan diterima oleh pegawai. Besarnya jumlah total gaji adalah gaji pokok + tunjangan istri + tunjangan anak + bonus – PPh pasal 21.
Selain groupbox, juga terdapat 3 jenis tombol, yaitu :
1. Tombol Proses : Tombol yang kita gunakan untuk menjalankan program setelah kita meng-input pada data pribadi pegawai dan daftar kehadiran pegawai. Setelah kita menekan tombol proses, keterangan-keterangan (output) yang ada pada laporan payroll pegawai akan muncul.
2. Tombol Batal : Tombol yang digunakan untuk membatalkan program yang sedang berjalan. Ketika kita menekan tombol batal, semua kolom-kolom akan kembali kosong seperti semula.
3. Tombol Exit : Tombol yang digunakan untuk keluar dari program,
Source Code
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
time.Text = My.Computer.Clock.LocalTime.ToLongTimeString
tanggal.Text = My.Computer.Clock.LocalTime.ToLongDateString
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
gajipokok.TextAlign = HorizontalAlignment.Center
tunjanak.TextAlign = HorizontalAlignment.Center
tunjistri.TextAlign = HorizontalAlignment.Center
bonus.TextAlign = HorizontalAlignment.Center
pph.TextAlign = HorizontalAlignment.Center
totalgaji.TextAlign = HorizontalAlignment.Center
masukkerja.TextAlign = HorizontalAlignment.Center
izin.TextAlign = HorizontalAlignment.Center
tanpaket.TextAlign = HorizontalAlignment.Center
Dim a As Integer
Dim total As Integer
gajipokok.Enabled = True
tunjistri.Enabled = True
tunjanak.Enabled = True
pph.Enabled = True
totalgaji.Enabled = True
bonus.Enabled = True
rp1.Visible = True
rp2.Visible = True
rp3.Visible = True
rp4.Visible = True
rp5.Visible = True
rp6.Visible = True
Select Case jabatan.Text
Case Is = "Direktur"
gajipokok.Text = "20000000"
a = "20000000"
Case Is = "Manager"
gajipokok.Text = "15000000"
a = "15000000"
Case Is = "Ass. Manager"
gajipokok.Text = "10000000"
a = "10000000"
Case Is = "Supervisor"
gajipokok.Text = "5000000"
a = "5000000"
Case Else
gajipokok.Text = "1500000"
a = "1500000"
End Select
Select Case status.Text
Case Is = "Belum Menikah"
tunjistri.Text = a * 0
Case Is = "Sudah Menikah"
tunjistri.Text = a * 0.05
Case Else
tunjistri.Text = a * 0
End Select
Select Case jumlahanak.Text
Case Is = ""
tunjanak.Text = 0
Case Is = "1"
tunjanak.Text = 1 * (0.02 * a)
Case Is = "2"
tunjanak.Text = 2 * (0.01 * a)
Case Is >= "3"
tunjanak.Text = jumlahanak.Text * (0.01 * a)
End Select
If adabonus.Checked = True Then
bonus.Text = 0.05 * a
ElseIf tdkbonus.Checked = True Then
bonus.Text = "0"
End If
total = a + tunjistri.Text + tunjanak.Text + bonus.Text
pph.Text = total * 0.1
totalgaji.Text = total - pph.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
adabonus.Checked = False
tdkbonus.Checked = False
jumlahanak.Enabled = False
nama.Text = ""
jumlahanak.Text = ""
gajipokok.Text = ""
tunjistri.Text = ""
tunjanak.Text = ""
pph.Text = ""
totalgaji.Text = ""
masukkerja.Text = ""
izin.Text = ""
izin.Text = ""
tanpaket.Text = ""
bonus.Text = ""
jabatan.Text = ""
status.Text = ""
nama.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CenterToScreen()
nama.Focus()
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
Select Case status.Text
Case Is = "Belum Menikah"
jumlahanak.Enabled = False
Case Is = "Sudah Menikah"
jumlahanak.Enabled = True
Case Else
jumlahanak.Enabled = True
End Select
End Sub
Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masukkerja.TextChanged
If masukkerja.Text = "" Then
tdkbonus.Checked = False
adabonus.Checked = False
ElseIf masukkerja.Text >= "20" Then
adabonus.Checked = True
tdkbonus.Checked = False
ElseIf masukkerja.Text <= "22" Then
tdkbonus.Checked = False
adabonus.Checked = False
tdkbonus.Checked = True
adabonus.Checked = False
End If
End Sub
End Class
