TAMPILAN DAN LISTING PRA UTS_1

Private Sub cgol_Click()

If cgol.Text = "I" Then

tjab.Text = "Paintry"

tgapok = 1000000

ttunjab = 200000

ttrans = 0

ElseIf cgol.Text = "II" Then

tjab.Text = "Staff"

tgapok = 1750000

ttunjab = 300000

ttrans = 200000

ElseIf cgol.Text = "III" Then

tjab.Text = "Supervisor"

tgapok = 2250000

ttunjab = 500000

ttrans = 300000

ElseIf cgol.Text = "IV" Then

tjab.Text = "Manager"

tgapok = 5000000

ttunjab = 700000

ttrans = 500000

Else

tjab.Text = "Direktur"

tgapok = 10000000

ttunjab = 1000000

ttrans = 1000000

End If

End Sub

Private Sub clagi_Click()

aktif

bersih

tnip.SetFocus

clagi.Enabled = True

cluar.Enabled = True

End Sub

Private Sub cluar_Click()

Unload Me

End Sub

Private Sub Form_Activate()

aktif

bersih

tnip.SetFocus

ttgl.Text = Date

cgol.AddItem "I"

cgol.AddItem "II"

cgol.AddItem "III"

cgol.AddItem "IV"

cgol.AddItem "V"

clagi.Enabled = True

cluar.Enabled = True

End Sub

Sub aktif()

tnip.Enabled = True

tnama.Enabled = True

cgol.Enabled = True

opt1.Enabled = True

opt2.Enabled = True

opt3.Enabled = True

End Sub

Sub nonaktif()

tnip.Enabled = False

tnama.Enabled = False

cgol.Enabled = False

opt1.Enabled = False

opt2.Enabled = False

opt3.Enabled = False

tjab.Enabled = False

tgapok.Enabled = False

ttunjab.Enabled = False

ttrans.Enabled = False

ttunstat.Enabled = False

tgator.Enabled = False

tpph.Enabled = False

tgaber.Enabled = False

ttgl.Enabled = False

End Sub

Sub bersih()

tnip.Text = ""

tnama.Text = ""

cgol.Text = ""

opt1.Value = 0

opt2.Value = 0

opt3.Value = 0

tjab.Text = ""

tgapok.Text = ""

ttunjab.Text = ""

ttrans.Text = ""

ttunstat.Text = ""

tgator.Text = ""

tpph.Text = ""

tgaber.Text = ""

End Sub

Private Sub opt1_Click()

If opt1.Value = True Then

ttunstat.Text = 300000

tgator.Text = Val(tgapok.Text) + Val(ttunjab.Text) + Val(ttrans.Text) + Val(ttunstat.Text)

tpph = 0.1 * Val(tgator.Text)

tgaber.Text = Val(tgator.Text) - Val(tpph.Text)

End If

End Sub

Private Sub opt2_Click()

If opt2.Value = True Then

ttunstat.Text = 0

tgator.Text = Val(tgapok.Text) + Val(ttunjab.Text) + Val(ttrans.Text) + Val(ttunstat.Text)

tpph = 0.1 * Val(tgator.Text)

tgaber.Text = Val(tgator.Text) - Val(tpph.Text)

End If

End Sub

Private Sub opt3_Click()

If opt3.Value = True Then

ttunstat.Text = 100000

tgator.Text = Val(tgapok.Text) + Val(ttunjab.Text) + Val(ttrans.Text) + Val(ttunstat.Text)

tpph = 0.1 * Val(tgator.Text)

tgaber.Text = Val(tgator.Text) - Val(tpph.Text)

End If

End Sub