KETENTUAN SOAL
- Buat sub-sub yang dibutuhakan
- Pada saat form dijalankan,objek dalam kondisi aktif. textbox tanggal berisi tanggal hari ini.kursor berada pada textbox nip.
- Pilih golongan,akan tampil jabatan ,gapok,tunj,jabatan dan transport,dengan ketentuan sebagai berikut:
Gol
|
JABATAN
|
GAPOK
|
TUJ.JABATAN
|
TRANSPORT
|
I
|
PAINTRY
|
1000000
|
200000
|
0
|
II
|
SATFF
|
17500000
|
300000
|
200000
|
III
|
SUPERVISOR
|
22500000
|
500000
|
300000
|
IV
|
MANEJAR
|
5000000
|
700000
|
500000
|
V
|
DIREKTUR
|
10000000
|
1000000
|
1000000
|
4.Pilih status pernikahan,maka
akan tampil tunjangan status,gaji kotor,pph dan gaji bersih dengan ketentuan
sbb;
Status pernikahan tunjangan status
Menikah Rp.300000,-
Belum menikah Rp.0,-
Janda/duda Rp.100000,-
Gaji kotor-gapok+tujangan.
jb = transport + tnj.status
ü
Pph-10%*gaji kotor
ü
Gaji bersih =gaji kotor - pph
5. klik tombol hitung lagi,bersih
& kotor di nip.tombol keluar u/ keluar dari form.
listing
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
txtjab.Enabled = False
txtgapok.Enabled = False
txttunj.Enabled = False
txttrans.Enabled = False
opt1.Enabled = False
opt2.Enabled = False
opt3.Enabled = False
txtstat.Enabled = False
txtbruto.Enabled = False
txtpph.Enabled = False
txtnett.Enabled = False
txttgl.Enabled = False
End Sub
Sub bersih()
txtnip.Text = ""
txtnama.Text = ""
Cmbgol.Text = ""
txtjab.Text = ""
txtgapok.Text = ""
txttunj.Text = ""
txttrans.Text = ""
opt1.Value = 0
opt2.Value = 0
opt3.Value = 0
txtstat.Text = ""
txtbruto.Text = ""
txtpph.Text = ""
txtnett.Text = ""
End Sub
Private Sub cmbgol_Click()
If Cmbgol.Text = "I" Then
txtjab.Text = "Paintry"
txtgapok.Text = 1000000
txttunj.Text = 200000
txttrans.Text = 0
ElseIf Cmbgol.Text = "II" Then
txtjab.Text = "Staff"
txtgapok.Text = 1750000
txttunj.Text = 300000
txttrans.Text = 200000
ElseIf Cmbgol.Text = "III" Then
txtjab.Text = "Supervisor"
txtgapok.Text = 2250000
txttunj.Text = 500000
txttrans.Text = 300000
ElseIf Cmbgol.Text = "IV" Then
txtjab.Text = "Manajer"
txtgapok.Text = 5000000
txttunj.Text = 700000
txttrans.Text = 500000
Elsetxtjab.Text = "Direktur"
txtgapok.Text = 10000000
txttunj.Text = 1000000
txttrans.Text = 1000000
End If
End Sub
Private Sub cmdhitung_Click()
bersih
aktif
txtnip.SetFocus
Cmbgol.Text = "-Pilih-"
End Sub
Private Sub cmdkeluar_Click()
x = MsgBox("Anda Ingin Keluar?", vbYesNo +
vbQuestion, "Konfirmasi")
If x = vbYes Then
Unload Me
End If
End Sub
Private Sub Form_Activate()
bersih
aktif
txttgl.Text = Date
Cmbgol.AddItem "I"
Cmbgol.AddItem "II"
Cmbgol.AddItem "III"
Cmbgol.AddItem "IV"
Cmbgol.AddItem "V"
cmdhitung.Enabled = True
cmdkeluar.Enabled = True
End Sub
Private Sub opt1_Click()
If opt1.Value = True Then
txtstat.Text = 300000
txtbruto.Text = Val(txtgapok.Text) + Val(txttunj.Text) +
Val(txttrans.Text) + Val(txtstat.Text)
txtpph.Text = 0.1 * Val(txtbruto.Text)
txtnett.Text = Val(txtbruto.Text) - Val(txtpph.Text)
End If
End Sub
Private Sub opt2_Click()
If opt2.Value = True Then
txtstat.Text = 0
txtbruto.Text = Val(txtgapok.Text) + Val(txttunj.Text) +
Val(txttrans.Text) + Val(txtstat.Text)
txtpph.Text = 0.1 * Val(txtbruto.Text)
End Sub
Tidak ada komentar:
Posting Komentar