Thursday, May 23, 2013
Download Contoh Desain Penggajian karyawan graphic type that can be scaled to use with the Silhouette Cameo or Cricut. An SVG's size can be increased or decreased without a loss of quality. All of our downloads include an image, Silhouette file, and SVG file. It should be everything you need for your next project. Our SVG files can be used on adhesive vinyl, heat transfer and t-shirt vinyl, or any other cutting surface
Public Class Form1
Private Sub Form1_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
NIK.Items.Add("001")
NIK.Items.Add("002")
NIK.Items.Add("003")
Jabatan.Items.Add("Mandor")
Jabatan.Items.Add("Kepala Bagian")
Jabatan.Items.Add("Staff")
Status.Items.Add("Menikah")
Status.Items.Add("Tidak Menikah")
For i = 1 To 4
Jumlahanak.Items.Add(i)
Next i
For i = 1 To 10
Jamlembur.Items.Add(i)
Next i
BuatTabel()
End Sub
Private Sub Jabatan_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Jabatan.SelectedIndexChanged
Select Case Jabatan.Text
Case"Mandor" : gaji.Text = 1750000
Case"Kepala Bagian" : gaji.Text = 2500000
Case"Staff" : gaji.Text = 1250000
End Select
pajak.Text = 0.015 * gaji.Text
End Sub
Private Sub Status_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesStatus.SelectedIndexChanged
Select Case Status.Text
Case"Menikah" : tunjistri.Text = 0.09 * Gaji.Text
Case"Tidak Menikah" : tunjistri.Text = 0
End Select
End Sub
Private Sub Jumlahanak_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesJumlahanak.SelectedIndexChanged
IfJumlahanak.Text >= 2 And Status.Text = "Menikah" Then
tunjanak.Text = 0.07 * Gaji.Text
ElseIfJumlahanak.Text = 1 And Status.Text = "Tidak Menikah" Then
Jumlahanak.Text = 0.03 * Gaji.Text
Else
tunjanak.Text = 0
End If
End Sub
Private Sub Btnproses_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Btnproses.Click
IfJabatan.Text = "Mandor" Then
honorlembur.Text = Jamlembur.Text * 7500
ElseIfJabatan.Text = "Kepala Bagian" Then
honorlembur.Text = Jamlembur.Text * 310000
ElseIfJabatan.Text = "Staff" Then
honorlembur.Text = Jamlembur.Text * 5000
Else
honorlembur.Text = 0
End If
totalgaji.Text = Val(Jamlembur.Text) + Val(Gaji.Text) + Val(tunjistri.Text) + Val(tunjanak.Text) - Val(pajak.Text)
End Sub
Private Sub NIK_SelectedIndexChanged(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesNIK.SelectedIndexChanged
Select Case NIK.Text
Case"001" : nama.Text = "Yuni"
Case"002" : nama.Text = "Frengki"
Case"003" : nama.Text = "Ani"
End Select
End Sub
Private Sub Btnbaru_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Btnbaru.Click
nama.Text = ""
NIK.Text = ""
Jabatan.Text = ""
gaji.Text = ""
Status.Text = ""
tunjistri.Text = ""
Jumlahanak.Text = ""
tunjanak.Text = ""
Jamlembur.Text = ""
honorlembur.Text = ""
pajak.Text = ""
totalgaji.Text = ""
End Sub
Private Sub Keluar_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Keluar.Click
End
End Sub
Private Sub Lv_SelectedIndexChanged(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesLv.SelectedIndexChanged
End Sub
SubBuatTabel()
LV.Columns.Add("NIK", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)
LV.Columns.Add("Jabatan", 80, HorizontalAlignment.Center)
LV.Columns.Add("Gaji", 80, HorizontalAlignment.Center)
LV.Columns.Add("Status", 80, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan Istri", 80, HorizontalAlignment.Center)
LV.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan Anak", 80, HorizontalAlignment.Center)
LV.Columns.Add("Jam Lembur", 80, HorizontalAlignment.Center)
LV.Columns.Add("Honor Lembur", 80, HorizontalAlignment.Center)
LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
lv.Columns.Add("Total Gaji", 80, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
lv.FullRowSelect = True
End Sub
SubIsiTabel()
Dim Lst As NewListViewItem
Lst.Text = nik.Text
Lst.SubItems.Add(nama.Text)
Lst.SubItems.Add(jabatan.Text)
Lst.SubItems.Add(gaji.Text)
Lst.SubItems.Add(status.Text)
Lst.SubItems.Add(tunjistri.Text)
Lst.SubItems.Add(Jumlahanak.Text)
Lst.SubItems.Add(tunjanak.Text)
Lst.SubItems.Add(honorlembur.Text)
Lst.SubItems.Add(honorlembur.Text)
Lst.SubItems.Add(pajak.Text)
Lst.SubItems.Add(totalgaji.Text)
lv.Items.Add(Lst)
End Sub
Private Sub Btnsimpan_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
IsiTabel()
nik.Text = ""
nama.Text = ""
jabatan.Text = ""
gaji.Text = ""
status.Text = ""
tunjistri.Text = ""
Jumlahanak.Text = ""
tunjanak.Text = ""
Jamlembur.Text = ""
honorlembur.Text = ""
pajak.Text = ""
totalgaji.Text = ""
End Sub
End Class
Download Contoh Desain Penggajian karyawan All SVG file downloads also come bundled with DXF, PNG, and EPS file formats. All designs come with a small business commercial license. These SVG cut files are great for use with Silhouette Cameo or Cricut and other Machine Tools.