Tugas Aplikasi VB

Penjelasan Program :

Ada 3 jenis groupbox dalam program ini, yaitu :

1. Data Pribadi Pegawai
2. Daftar Kehadiran Pegawai
3. 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