Contoh program Penggajian karyawan
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
NIK.Items.Add("001")
NIK.Items.Add("002")
NIK.Items.Add("003")
JABATAN.Items.Add("STAF")
JABATAN.Items.Add("Manager")
JABATAN.Items.Add("Kabag")
STATUS.Items.Add("MENIKAH")
STATUS.Items.Add("BELUM MENIKAH")
JANAK.Items.Add("1")
JANAK.Items.Add("2")
JANAK.Items.Add("3")
End Sub
Private Sub NAMA_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles NAMA.TextChanged
End Sub
Private Sub NIK_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles NIK.SelectedIndexChanged
If
NIK.Text = "001" Then
NAMA.Text = "OBI MAULIGHEN"
ElseIf
NIK.Text = "002" Then
NAMA.Text = "IRWANSYAH"
ElseIf
NIK.Text = "003" Then
NAMA.Text = "ARTHA"
End If
End Sub
Private Sub JABATAN_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
JABATAN.SelectedIndexChanged
If
JABATAN.Text = "STAF" Then
GAJI.Text = 3000000
ElseIf
JABATAN.Text = "Manager" Then
GAJI.Text = 4000000
ElseIf
JABATAN.Text = "Kabag" Then
GAJI.Text = 6000000
End If
End Sub
Private Sub HAPUS_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles HAPUS.Click
NIK.Text = ""
NAMA.Text = ""
JABATAN.Text = ""
GAJI.Text = ""
STATUS.Text = ""
JANAK.Text = ""
TANAK.Text = ""
TISTRI.Text = ""
TGAJI.Text = ""
End Sub
Private Sub KELUAR_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles KELUAR.Click
End
End Sub
Private Sub PROSES_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles PROSES.Click
TGAJI.Text = Val(GAJI.Text) +
Val(TISTRI.Text) + Val(TANAK.Text)
End Sub
Private Sub JANAK_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
JANAK.SelectedIndexChanged
If
JANAK.Text = "1" Then
TANAK.Text = Val(0.05) *
Val(GAJI.Text) * Val(JANAK.Text)
ElseIf
JANAK.Text = "2" Then
TANAK.Text = Val(0.05) *
Val(GAJI.Text) * Val(JANAK.Text)
ElseIf
JANAK.Text = "3" Then
TANAK.Text = Val(0.05) *
Val(GAJI.Text) * Val(JANAK.Text)
End If
End Sub
Private Sub STATUS_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
STATUS.SelectedIndexChanged
If
STATUS.Text = "MENIKAH" Then
TISTRI.Text = GAJI.Text * 0.1
ElseIf
STATUS.Text = "Belum Menika" Then
TISTRI.Text = 0
JANAK.Text = 0
End If
End Sub
End Class
0 komentar:
Posting Komentar