the task of pre UTS one :)

Kalkulasi Gaji Karyawan PT.Sudah Makmur Jaya Unggul Lagi

Listing Program :




Sub aktif()
txtnip.Enabled = True
txtnama.Enabled = True
cmbgol.Enabled = True
opt1.Enabled = True
opt2.Enabled = True
opt3.Enabled = True
End Sub



Sub nonaktif()
txtnip.Enabled = False
txtnama.Enabled = False
cmbgol.Enabled = False
txttgl.Enabled = False
txtjab.Enabled = False
txtgapok.Enabled = False
txttunjab.Enabled = False
txttrans.Enabled = False
opt1.Enabled = False
opt2.Enabled = False
opt3.Enabled = False
txttunstat.Enabled = False
txtkotor.Enabled = False
txtppn.Enabled = False
txtbersih.Enabled = False
End Sub

Sub bersih()
txtnip.Text = ""
txtnama.Text = ""
cmbgol.Text = ""
txtjab.Text = ""
txtgapok.Text = ""
txttunjab.Text = ""
txttrans.Text = ""
opt1.Value = 0
opt2.Value = 0
opt3.Value = 0
txttunstat.Text = ""
txtkotor.Text = ""
txtppn.Text = ""
txtbersih.Text = ""
End Sub


Private Sub Form_Activate()
aktif
cmbgol.AddItem "I"
cmbgol.AddItem "II"
cmbgol.AddItem "III"
cmbgol.AddItem "IV"
cmbgol.AddItem "V"
txttgl.Text = Date
txtnip.SetFocus
End Sub


Private Sub cmbgol_Click()
If cmbgol.Text = "I" Then
txtjab.Text = "Paintry"
txtgapok.Text = "1000000"
txttunjab.Text = 200000
txttrans.Text = 0
ElseIf cmbgol.Text = "II" Then
txtjab.Text = "Staff"
txtgapok.Text = "1750000"
txttunjab.Text = 300000
txttrans.Text = 200000
ElseIf cmbgol.Text = "III" Then
txtjab.Text = "Supervisor"
txtgapok.Text = "2250000"
txttunjab.Text = 500000
txttrans.Text = 300000
ElseIf cmbgol.Text = "IV" Then
txtjab.Text = "Manajer"
txtgapok.Text = "500000"
txttunjab.Text = 700000
txttrans.Text = 500000
Else
txtjab.Text = "Direktur"
txtgapok.Text = "10000000"
txttunjab.Text = 1000000
txttrans.Text = 1000000
End If
End Sub


Private Sub opt1_Click()
If opt1.Value = True Then
txttunstat.Text = 300000
End If
End Sub

Private Sub opt2_Click()
If opt2.Value = True Then
txttunstat.Text = 0
End If
End Sub


Private Sub opt3_Click()
If opt3.Value = True Then
txttunstat.Text = 100000
End If
End Sub


Private Sub cmdhitung_Click()
txtkotor.Text = Val(txttunstat.Text) + Val(txttunjab.Text) + Val(txttrans.Text) + Val(txtgapok.Text)
txtppn.Text = 0.1 * Val(txtkotor.Text)
txtbersih.Text = Val(txtkotor.Text) - Val(txtppn.Text)
End Sub

Private Sub cmdkeluar_Click()
x = MsgBox("Tutup Form?", vbYesNo + vbQuestion, "Konfirmasi")
If x = vbYes Then
Unload Me
End If
End Sub