PROGRAM CLASS

Public Class Class_payroll

Private payroll As Integer

Public Function total(ByVal gaji As Integer, ByVal istri As Integer, ByVal jabatan As Integer)

Dim jumlah As Integer

jumlah = gaji + istri + jabatan

total = jumlah

End Function

Public Function pph(ByVal salary As Integer)

Dim pajak As Integer

If salary >= 1000000 Then

pajak = 0.03 * salary

Else

pajak = 0

End If

pph = pajak

End Function

Public Function net_salary(ByVal gaji As Integer, ByVal pajak As Integer)

Dim gaji_bersih As Integer

gaji_bersih = gaji - pajak

net_salary = gaji_bersih

End Function

Public Property gaji_pegawai() As Integer

Get

gaji_pegawai = payroll

End Get

Set(ByVal value As Integer)

payroll = value

End Set

End Property

End Class

Public Class Form_payroll

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.CenterToScreen()

Dim a As Integer

For a = 1 To 5

ComboBox1.Items.Add(a)

Next

TextBox4.TextAlign = HorizontalAlignment.Center

TextBox5.TextAlign = HorizontalAlignment.Center

TextBox6.TextAlign = HorizontalAlignment.Center

TextBox7.TextAlign = HorizontalAlignment.Center

TextBox8.TextAlign = HorizontalAlignment.Center

TextBox9.TextAlign = HorizontalAlignment.Center

mulai.Focus()

mulai.Focus()

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Select Case ComboBox1.Text

Case Is = "1"

TextBox3.Text = "Manager"

TextBox4.Text = 20000000

Case Is = "2"

TextBox3.Text = "Supervisor"

TextBox4.Text = 15000000

Case Is = "3"

TextBox3.Text = "Staff"

TextBox4.Text = 10000000

Case Is = "4"

TextBox3.Text = "Ass. Staff"

TextBox4.Text = 7500000

Case Is = "5"

TextBox3.Text = "Junior Staff"

TextBox4.Text = 5000000

End Select

Select Case ComboBox1.Text

Case Is = "1"

TextBox6.Text = 0.15 * TextBox4.Text

Case Is = "2"

TextBox6.Text = 0.15 * TextBox4.Text

Case Is = "3"

TextBox6.Text = 0.05 * TextBox4.Text

Case Is = "4"

TextBox6.Text = 0.05 * TextBox4.Text

Case Else

TextBox6.Text = 0

End Select

End Sub

Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged

If ComboBox2.Text = "Menikah" And ComboBox3.Text = "Laki-laki" Then

TextBox5.Text = 0.1 * TextBox4.Text

Else : TextBox5.Text = 0

End If

Dim total_gaji As Integer

Dim objek As New Class_payroll

total_gaji = objek.total(TextBox4.Text, TextBox5.Text, TextBox6.Text)

TextBox7.Text = total_gaji

Dim pajak As Integer

Dim salary As New Class_payroll

pajak = salary.pph(TextBox7.Text)

TextBox8.Text = pajak

Dim gaji_bersih As Integer

Dim income As New Class_payroll

gaji_bersih = income.net_salary(TextBox7.Text, TextBox8.Text)

TextBox9.Text = gaji_bersih

TextBox4.ReadOnly = True

TextBox5.ReadOnly = True

TextBox6.ReadOnly = True

TextBox7.ReadOnly = True

TextBox8.ReadOnly = True

TextBox9.ReadOnly = True

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mulai.Click

TextBox1.Focus()

TextBox1.Enabled = True

TextBox2.Enabled = True

TextBox3.Enabled = True

TextBox4.Enabled = True

TextBox5.Enabled = True

TextBox6.Enabled = True

TextBox7.Enabled = True

TextBox8.Enabled = True

TextBox9.Enabled = True

ComboBox1.Enabled = True

ComboBox2.Enabled = True

ComboBox3.Enabled = True

TextBox1.Focus()

End Sub

Private Sub reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reset.Click

TextBox1.Focus()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox7.Text = ""

TextBox8.Text = ""

TextBox9.Text = ""

ComboBox1.Text = ""

ComboBox2.Text = ""

ComboBox3.Text = ""

TextBox4.ReadOnly = False

TextBox5.ReadOnly = False

TextBox6.ReadOnly = False

TextBox7.ReadOnly = False

TextBox8.ReadOnly = False

TextBox9.ReadOnly = False

End Sub

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

Dim x As Integer

x = MsgBox("Apakah anda ingin keluar?", MsgBoxStyle.OkCancel, "EXIT")

If x = vbOK Then

MsgBox("Terima kasih telah menggunakan program kami...", MsgBoxStyle.MsgBoxRight, "Informasi")

End

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label13.Text = My.Computer.Clock.LocalTime.ToLongDateString

Label14.Text = My.Computer.Clock.LocalTime.ToLongTimeString

End Sub

End Class