- Form penggajian karyawan menggunakan vb.Net 2010
- Source code aplikasi penggajian karyawan menggunakan VB.Net 2010
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim arr(7, 2) As String
arr(0, 0) = "NIK"
arr(0, 1) = "NAMA"
arr(1, 0) = "J. KELAMIN"
arr(1, 1) = "JABATAN"
arr(2, 0) = "GAJI"
arr(2, 1) = "STATUS"
arr(3, 0) = "ANAK"
arr(3, 1) = "TUNJ. ANAK"
arr(4, 0) = "PAJAK"
arr(4, 1) = "TOTAL GAJI"
arr(5, 0) = "Laki-laki"
arr(5, 1) = "Perempuan"
arr(6, 0) = "Belum Menikah"
arr(6, 1) = "Menikah"
arr(7, 0) = "1"
arr(7, 1) = "2"
arr(7, 2) = "3"
ListView1.GridLines = True
ListView1.View = View.Details
ListView1.Columns.Add("NIK", 80)
ListView1.Columns.Add("NAMA", 100)
ListView1.Columns.Add("J. KELAMIN", 80)
ListView1.Columns.Add("JABATAN", 80)
ListView1.Columns.Add("GAJI", 90)
ListView1.Columns.Add("STATUS", 90)
ListView1.Columns.Add("ANAK", 90)
ListView1.Columns.Add("TUNJ. ANAK", 90)
ListView1.Columns.Add("PAJAK", 90)
ListView1.Columns.Add("TOTAL GAJI", 100)
For Baris = 6 To 6
For Kolom = 0 To 1
cmbstatus.Items.Add(arr(Baris,
Kolom))
Next Kolom
Next Baris
For Baris = 7 To 7
For Kolom = 0 To 2
cmbanak.Items.Add(arr(Baris, Kolom))
Next Kolom
Next Baris
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Dim arr(10) As String
arr(0) = txtNIK.Text
arr(1) = txtNama.Text
arr(2) = radiolaki.Text
arr(3) = radioperempuan.Text
arr(4) = txtjabat.Text
arr(5) = txtgaji.Text
arr(6) = cmbstatus.Text
arr(7) = cmbanak.Text
arr(8) = txttunjang.Text
arr(9) = txtpajak.Text
arr(10) = txttotal.Text
Dim listitem As ListViewItem
listitem = New ListViewItem
listitem = ListView1.Items.Add(arr(0))
listitem.SubItems.Add(arr(1))
If radiolaki.Checked =
True Then
listitem.SubItems.Add(arr(2))
End If
If
radioperempuan.Checked = True Then
listitem.SubItems.Add(arr(3))
End If
listitem.SubItems.Add(arr(4))
listitem.SubItems.Add(arr(5))
listitem.SubItems.Add(arr(6))
listitem.SubItems.Add(arr(7))
listitem.SubItems.Add(arr(8))
listitem.SubItems.Add(arr(9))
listitem.SubItems.Add(arr(10))
txtNIK.Focus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
txtpajak.Text = txtgaji.Text * 0.12
txttotal.Text = CDbl(txtgaji.Text) + CDbl(txttunjang.Text) - CDbl(txtpajak.Text)
End Sub
Private Sub cmbstatus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
cmbstatus.SelectedIndexChanged
If cmbstatus.Text = "Belum
Menikah" Then
txttunjang.Text = 0
End If
End Sub
Private Sub cmbanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
cmbanak.SelectedIndexChanged
If cmbanak.Text = "1" Then
txttunjang.Text = 25000
ElseIf cmbanak.Text = "2" Then
txttunjang.Text = 50000
ElseIf cmbanak.Text = "3" Then
txttunjang.Text = 75000
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
txtNIK.Clear()
txtNama.Clear()
txtjabat.Clear()
txtgaji.Clear()
txttunjang.Clear()
txtpajak.Clear()
txttotal.Clear()
cmbstatus.ResetText()
cmbanak.ResetText()
radiolaki.Refresh()
radioperempuan.Refresh()
End Sub
End Class
terima Kasih
terima Kasih
EmoticonEmoticon