Public Class penggajian
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
nik.Items.Add("PM010")
nik.Items.Add("PS111")
nik.Items.Add("KU101")
nik.Items.Add("GD100")
jabatan.Items.Add("KEPALA DIVISI")
jabatan.Items.Add("STAFF")
jabatan.Items.Add("WAKIL KEPALA")
status.Items.Add("Menikah")
status.Items.Add("Tidak Menikah")
jumlahanak.Items.Add("0")
jumlahanak.Items.Add("1")
jumlahanak.Items.Add("2")
End Sub
Private Sub nik_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
nik.SelectedIndexChanged
Select Case nik.Text
Case
"PM010"
nama.Text = "Enda"
Case
"PS111"
nama.Text = "Mela"
Case
"KU101"
nama.Text = "Ani"
Case
Else
nama.Text = "Wimvy"
End Select
Dim p As String
p =
Microsoft.VisualBasic.Left(nik.Text, 2)
If p = "PM" Then
bagian.Text = "Pemasaran"
ElseIf
p = "PS" Then
bagian.Text = "Personalia"
ElseIf
p = "KU" Then
bagian.Text = "Keuangan"
ElseIf
p = "GD" Then
bagian.Text = "Gudang"
End If
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 DIVISI"
gajipokok.Text = "5000000"
Case
"STAFF"
gajipokok.Text = "2000000"
Case
Else
gajipokok.Text = "3500000"
End Select
pajak.Text = gajipokok.Text * 0.1
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
status.SelectedIndexChanged
Select Case status.Text
Case
"Menikah"
tunjangankeluarga.Text =
gajipokok.Text * 0.15
Case
"Tidak Menikah"
jumlahanak.Text = ""
tunjangankeluarga.Text = 0
End Select
End Sub
Private Sub jumlahanak_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
jumlahanak.KeyPress
If
e.KeyChar = Chr(13) Then
Select
Case jumlahanak.Text
Case
"0"
tunjangananak.Text = 0
Case
"1"
tunjangananak.Text =
gajipokok.Text * 0.05
Case
"2"
tunjangananak.Text =
gajipokok.Text * 0.1
Case
Else
tunjangananak.Text =
gajipokok.Text * 0.5
End
Select
End If
totalgaji.Text = (gajipokok.Text) +
Val(tunjangananak.Text) + Val(tunjangankeluarga.Text) - pajak.Text
End Sub
Private Sub btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus.Click
nama.Text = ""
nik.Text = ""
bagian.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
pajak.Text = ""
status.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
Dim
tanya As String
tanya = MsgBox("Apakah
Anda ingin Keluar?", MsgBoxStyle.YesNo)
If tanya = vbCancel Then
Me.Close()
ElseIf
tanya = vbNo Then
Me.Focus()
ElseIf
tanya = vbYes Then
Me.Close()
End If
End Sub
End Class
Gambar Hasil
Posting Komentar