Selasa, 17 April 2012

tugas pra uts-1.hardiyanto(11100567)


     KETENTUAN SOAL
  1.  Buat sub-sub yang dibutuhakan
  2. Pada saat  form dijalankan,objek dalam kondisi aktif. textbox tanggal berisi tanggal hari ini.kursor berada pada textbox nip. 
  3. 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