Program Penggajian Karyawan di VB.NET 2008
Kali ini nalopin.com akan berbagi ilmu yang saya peroleh di kampus, yaitu pembuatan program penggajian karyawan dengan VB.NET.
Adapun langkah pertama dalam pembuatan program yaitu Medesain Program Penggajian Karyawan di Layar Form1. (Lihat Gambar Dibawah ini)
Setelah selesai mendasain, Silahkan Copy Koding Dibawah ini :
Public Class Form1
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
nik.Items.Add("KK-001")
nik.Items.Add("KS-002")
nik.Items.Add("AS-001")
nik.Items.Add("AS-002")
nik.Items.Add("SK-001")
nik.Items.Add("SS-001")
status.Items.Add("Menikah")
status.Items.Add("Tidak Menikah")
anak.Items.Add("0")
anak.Items.Add("1")
anak.Items.Add("2")
anak.Items.Add("3")
anak.Items.Add("4")
End Sub
Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
Dim x As String
x = Mid(nik.Text, 2, 1)
If x = "K" Then
jabatan.Text = "Kabag"
ElseIf x = "S" Then
jabatan.Text = "Staf"
Else
jabatan.Text = ""
End If
If nik.Text = "KK-001" Then
nama.Text = "Marbun"
ElseIf nik.Text = "KS-002" Then
nama.Text = "Nasib"
ElseIf nik.Text = "AS-001" Then
nama.Text = "Pak Fince"
ElseIf nik.Text = "AS-002" Then
nama.Text = "Pak Mesran"
ElseIf nik.Text = "SK-001" Then
nama.Text = "Messi"
Else
nama.Text = "Iniesta"
End If
x = Mid(nik.Text, 1, 1)
If x = "K" Then
bagian.Text = "Keuangan"
ElseIf x = "S" Then
bagian.Text = "Security"
ElseIf x = "A" Then
bagian.Text = "Administrasi"
Else
bagian.Text = ""
End If
If jabatan.Text = "Kabag" And bagian.Text = "Keuangan" Then
gaji.Text = 4000000
ElseIf jabatan.Text = "Staf" And bagian.Text = "Keuangan" Then
gaji.Text = 2000000
ElseIf jabatan.Text = "Kabag" And bagian.Text = "Security" Then
gaji.Text = 3000000
ElseIf jabatan.Text = "Kabag" And bagian.Text = "Administrasi" Then
gaji.Text = 2500000
ElseIf jabatan.Text = "Staf" And bagian.Text = "Security" Then
gaji.Text = 1700000
ElseIf jabatan.Text = "Staf" And bagian.Text = "Administrasi" Then
gaji.Text = 1900000
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If jabatan.Text = "Kabag" Then
tj.Text = 0.25 * Val(gaji.Text)
Else
tj.Text = 0
End If
If status.Text = "Menikah" Then
ti.Text = 0.15 * Val(gaji.Text)
Else
ti.Text = 0
End If
ta.Text = anak.Text * (0.02 * Val(gaji.Text))
tg.Text = Val(gaji.Text) + Val(tj.Text) + Val(ti.Text) + Val(ta.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
nik.Text = ""
nama.Text = ""
bagian.Text = ""
jabatan.Text = ""
gaji.Text = ""
status.Text = ""
anak.Text = ""
tj.Text = ""
ti.Text = ""
ta.Text = ""
tg.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
Langkah terakhir yaitu menjalankan Program !!!
Yuk silahkan mencoba !
Semoga bermanfaat buat anda !
Adapun langkah pertama dalam pembuatan program yaitu Medesain Program Penggajian Karyawan di Layar Form1. (Lihat Gambar Dibawah ini)
Setelah selesai mendasain, Silahkan Copy Koding Dibawah ini :
Public Class Form1
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
nik.Items.Add("KK-001")
nik.Items.Add("KS-002")
nik.Items.Add("AS-001")
nik.Items.Add("AS-002")
nik.Items.Add("SK-001")
nik.Items.Add("SS-001")
status.Items.Add("Menikah")
status.Items.Add("Tidak Menikah")
anak.Items.Add("0")
anak.Items.Add("1")
anak.Items.Add("2")
anak.Items.Add("3")
anak.Items.Add("4")
End Sub
Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
Dim x As String
x = Mid(nik.Text, 2, 1)
If x = "K" Then
jabatan.Text = "Kabag"
ElseIf x = "S" Then
jabatan.Text = "Staf"
Else
jabatan.Text = ""
End If
If nik.Text = "KK-001" Then
nama.Text = "Marbun"
ElseIf nik.Text = "KS-002" Then
nama.Text = "Nasib"
ElseIf nik.Text = "AS-001" Then
nama.Text = "Pak Fince"
ElseIf nik.Text = "AS-002" Then
nama.Text = "Pak Mesran"
ElseIf nik.Text = "SK-001" Then
nama.Text = "Messi"
Else
nama.Text = "Iniesta"
End If
x = Mid(nik.Text, 1, 1)
If x = "K" Then
bagian.Text = "Keuangan"
ElseIf x = "S" Then
bagian.Text = "Security"
ElseIf x = "A" Then
bagian.Text = "Administrasi"
Else
bagian.Text = ""
End If
If jabatan.Text = "Kabag" And bagian.Text = "Keuangan" Then
gaji.Text = 4000000
ElseIf jabatan.Text = "Staf" And bagian.Text = "Keuangan" Then
gaji.Text = 2000000
ElseIf jabatan.Text = "Kabag" And bagian.Text = "Security" Then
gaji.Text = 3000000
ElseIf jabatan.Text = "Kabag" And bagian.Text = "Administrasi" Then
gaji.Text = 2500000
ElseIf jabatan.Text = "Staf" And bagian.Text = "Security" Then
gaji.Text = 1700000
ElseIf jabatan.Text = "Staf" And bagian.Text = "Administrasi" Then
gaji.Text = 1900000
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If jabatan.Text = "Kabag" Then
tj.Text = 0.25 * Val(gaji.Text)
Else
tj.Text = 0
End If
If status.Text = "Menikah" Then
ti.Text = 0.15 * Val(gaji.Text)
Else
ti.Text = 0
End If
ta.Text = anak.Text * (0.02 * Val(gaji.Text))
tg.Text = Val(gaji.Text) + Val(tj.Text) + Val(ti.Text) + Val(ta.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
nik.Text = ""
nama.Text = ""
bagian.Text = ""
jabatan.Text = ""
gaji.Text = ""
status.Text = ""
anak.Text = ""
tj.Text = ""
ti.Text = ""
ta.Text = ""
tg.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
Langkah terakhir yaitu menjalankan Program !!!
Yuk silahkan mencoba !
Semoga bermanfaat buat anda !