" Assalammu'alaikum warahmatullahi wabarakatuh "
Ya bisa kita saksikan sendiri Aplikasi Penggajian nya yang sederhana ini tapi bermanfaat yang sedang mengunjunginya ( hehehe ).Sekarang langsung saja kita bacok Aplikasi Penggajiannya :
Public Class Form1
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")
NIK.Items.Add("PM011")
jabattan()
stattus()
perula()
End Sub
Sub jabattan()
Jabatan.Items.Add("Kepala Dinas")
Jabatan.Items.Add("Staf")
Jabatan.Items.Add("Wakil Kepala")
End Sub
Sub stattus()
Status.Items.Add("Menikah")
Status.Items.Add("Beum Menikah")
End Sub
Sub perula()
Dim a As Integer
For a = 100 To 0 Step -1
Anak.Items.Add(a)
Next
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 = "Aokiji"
Case ("PS111")
Nama.Text = "Shank"
Case ("KU101")
Nama.Text = "Mihawk"
Case ("GD100")
Nama.Text = "Akainu"
Case ("PM011")
Nama.Text = "Kizaru"
End Select
ayam()
End Sub
Sub ayam()
Dim i As String
i = Microsoft.VisualBasic.Left(NIK.Text, 2)
If i = "PM" Then
Bagian.Text = "Pemesanan"
ElseIf i = "PS" Then
Bagian.Text = "Personalia"
ElseIf i = "KU" Then
Bagian.Text = "Keuangan"
ElseIf i = "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
If NIK.Text = "" And Nama.Text = "" And Bagian.Text = "" Then
MsgBox("Maaf, Harap Di Isi NIK Anda")
Jabatan.Items.Clear() : jabattan()
Else
Select Case Jabatan.Text
Case ("Kepala Dinas")
Gaji_Pokok.Text = 5000000
Case ("Staf")
Gaji_Pokok.Text = 2000000
Case ("Wakil Kepala")
Gaji_Pokok.Text = 3500000
End Select
Pajak.Text = 0.1 * Gaji_Pokok.Text
End If
End Sub
Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
If Jabatan.Text = "" And Gaji_Pokok.Text = "" And Pajak.Text = "" Then
MsgBox("Maaf, Harap Di Isi Jabatan Anda")
Status.Items.Clear() : stattus()
Else
goreng()
End If
End Sub
Sub goreng()
If Status.Text = "Menikah" Then
Anak.Enabled = True
Tunjangan_Anak.Enabled = True
tunjangan_Keluarga.Enabled = True
tunjangan_Keluarga.Text = 0.05 * Gaji_Pokok.Text
Tunjangan_Anak.Text = ""
Anak.Text = ""
Tunjangan_Anak.Text = ""
Else
tunjangan_Keluarga.Text = "0"
Tunjangan_Anak.Text = "0"
tunjangan_Keluarga.Enabled = False
Tunjangan_Anak.Enabled = False
Anak.Enabled = False
Total_Gaji.Enabled = True
Anak.Text = "0"
Total_Gaji.Text = Val(Gaji_Pokok.Text) + Val(tunjangan_Keluarga.Text) + Val(Tunjangan_Anak.Text) - Pajak.Text
End If
End Sub
Private Sub Jumnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Anak.SelectedIndexChanged
If Status.Text = "" Then
MsgBox("Maaf, Harap Di Isi Status Anda")
Anak.Items.Clear() : perula()
Else
If Anak.Text = 1 Then
Tunjangan_Anak.Text = 0.05 * Gaji_Pokok.Text
ElseIf Anak.Text >= 2 Then
Tunjangan_Anak.Text = 0.1 * Gaji_Pokok.Text
Else
Tunjangan_Anak.Text = 0
Tunjangan_Anak.Enabled = False
End If
total()
End If
End Sub
Sub total()
Total_Gaji.Text = Val(Gaji_Pokok.Text) + Val(tunjangan_Keluarga.Text) + Val(Tunjangan_Anak.Text) - Pajak.Text
End Sub
Sub batal()
NIK.Text = ""
Nama.Text = ""
Bagian.Text = ""
Jabatan.Text = ""
Gaji_Pokok.Text = ""
Pajak.Text = ""
Status.Text = ""
Anak.Text = ""
tunjangan_Keluarga.Text = ""
Tunjangan_Anak.Text = ""
Total_Gaji.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
batal()
End Sub
End Class
Gimana gk rumitkan hanya meng " CoPas" saja,ya kan dari bloog ini ( hehehe )
Mohon maaf apa bila ada kesalahan dari Program ku yang ala kadarnya ( hehehe )
Sekian dan Terimakasih !!!
" Walaikumsalamwarah matulahi wabarakatuh "
