Feeds:
Pos
Komentar

Private Sub CMDBATAL_Click()
TXTNAMA.SetFocus
TXTNAMA.Text = “”
TXTNIK.Text = “”
TXTGOL.Text = “”
TXTKS.Text = “”
TXTST.Text = “”
TXTTH.Text = “”
TXTJB.Text = “”
TXTBAG.Text = “”
TXTGP.Text = “”
TXTTUN.Text = “”
TXTTG.Text = “”

End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDLAGI_Click()
TXTNAMA.SetFocus
TXTNAMA.Text = “”
TXTNIK.Text = “”
TXTGOL.Text = “”
TXTKS.Text = “”
TXTST.Text = “”
TXTTH.Text = “”
TXTJB.Text = “”
TXTBAG.Text = “”
TXTGP.Text = “”
TXTTUN.Text = “”
TXTTG.Text = “”

End Sub

Private Sub CMDPROSES_Click()
Dim NK As String

TXTGOL.Text = Mid(TXTNIK.Text, 9, 1)
NK = Mid(TXTNIK.Text, 9, 1)
If NK = “A” Then
TXTGOL.Text = “A”
TXTJB.Text = “manajer”
TXTGP.Text = “3000000”
TXTTUN.Text = “875000”
ElseIf NK = “B” Then
TXTGOL.Text = “B”
TXTJB.Text = “Ka.seksi”
TXTGP.Text = “2500000”
TXTTUN.Text = “525000”
ElseIf NK = “C” Then
TXTGOL.Text = “C”
TXTJB.Text = “staft”
TXTGP.Text = “2000000”
TXTTUN.Text = “325000”
End If
TXTTUN.SetFocus

NK = Mid(TXTNIK.Text, 5, 4)
TXTTH.Text = NK

NK = Left(TXTNIK.Text, 3)
If NK = “KEU” Then
TXTBAG.Text = “Accounting”
ElseIf NK = “ADM” Then
TXTBAG.Text = “Administrasi”
ElseIf NK = “SDM” Then
TXTBAG.Text = “General Affair”
ElseIf NK = “EDP” Then
TXTBAG.Text = “It Unit”
ElseIf NK = “SPM” Then
TXTBAG.Text = “Security”
End If

NK = Right(TXTNIK.Text, 1)
If NK = “M” Then
TXTKS.Text = “M”
TXTST.Text = “Menikah”
ElseIf NK = “S” Then
TXTKS.Text = “S”
TXTST.Text = “Single”
ElseIf NK = “D” Then
TXTKS.Text = “D”
TXTST.Text = “Duda”
ElseIf NK = “J” Then
TXTKS.Text = “J”
TXTST.Text = “Janda”
End If

TXTTG = Val(TXTGP.Text) + Val(TXTTUN.Text)
TXTTG.SetFocus

End Sub

Private Sub TXTGOL_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNAMA.SetFocus
End If
End Sub

Private Sub TXTNAMA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNIK.SetFocus
End If

End Sub

Private Sub TXTNIK_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CMDPROSES.SetFocus
End If
End Sub

Iklan

Private Sub CMDHITUNG_Click()
Dim A, B, C As Double
TXTB.Text = Val(TXTA.Text) * 0.1
TXTC.Text = Val(TXTA.Text) – Val(TXTB.Text)
End Sub

Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub CMDULANG_Click()
TXTA.Text = “”
TXTB.Text = “”
TXTC.Text = “”

End Sub

Private Sub CmdBersih_Click()
txtbil1.Text = “”
txtbil2.Text = “”
Txthasil.Text = “”
End Sub

Private Sub cmdexit_Click()
End
End Sub

Private Sub cmdHitung_Click()
Txthasil.Text = Val(txtbil1.Text) * (txtbil2.Text)
End Sub

 


Private Sub ChkMIRING_Click()
Lbl2.FontItalic = ChkMIRING.Value
End Sub

Private Sub ChkTEBAL_Click()
Lbl2.FontBold = ChkTEBAL.Value

End Sub

Private Sub CMDOK_Click()
Lbl2.Caption = TXTNAMA.Text
End Sub

Private Sub CMDSLS_Click()
End
End Sub

Private Sub OptBIRU_Click()
Lbl2.ForeColor = vbBlue
End Sub

Private Sub OptRED_Click()
Lbl2.ForeColor = vbRed
End Sub

Private Sub ChkBOLD_Click()
If ChkBOLD.Value = 1 Then
LBLTEKS.FontBold = True
Else
LBLTEKS.FontBold = False
End If
End Sub

Private Sub ChkITALIC_Click()
If ChkITALIC.Value = 1 Then
LBLTEKS.FontItalic = True
Else
LBLTEKS.FontItalic = False
End If
End Sub

Private Sub ChkSTRIKE_Click()
If ChkSTRIKE.Value = 1 Then
LBLTEKS.FontStrikethru = True
Else
LBLTEKS.FontStrikethru = False
End If
End Sub

Private Sub ChkUNDER_Click()
If ChkUNDER.Value = 1 Then
LBLTEKS.FontUnderline = True
Else
LBLTEKS.FontUnderline = False
End If
End Sub

Private Sub CMDEXIT_Click()
Unload Me
End Sub

Private Sub OptBLUE_Click()
LBLTEKS.ForeColor = vbBlue

End Sub

Private Sub OptGREEN_Click()
LBLTEKS.ForeColor = vbGreen

End Sub

Private Sub OptRED_Click()
LBLTEKS.ForeColor = vbRed
End Sub

Private Sub OptYELLOW_Click()
LBLTEKS.ForeColor = vbYellow

End Sub

Private Sub CMDBATAL_Click()
TXTKB.SetFocus
TXTKB.Text = “”
TXTNB.Text = “”
TXTJS.Text = “”
TXTTJ.Text = “”
TXTHJ.Text = “”
TXTTH.Text = “”
TXTSS.Text = “”

End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDPROSES_Click()
Dim NM As String

TXTNB.Text = Right(TXTKB.Text, 1)
NM = Right(TXTKB.Text, 1)

If NM = “S” Then
TXTNB.Text = “sound sistem”
TXTHJ.Text = 350000
ElseIf NM = “C” Then
TXTNB.Text = “Compact”
TXTHJ.Text = 480000
ElseIf NM = “T” Then
TXTNB.Text = “Tape”
TXTHJ.Text = 275000
End If
TXTJS.SetFocus
End Sub

Private Sub txtjs_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTJ.SetFocus
End If

End Sub

Private Sub TXTTH_Click()
TXTTERBILANG.Text = TERBILANG(Val(TXTTH.Text))
End Sub

Private Sub TXTTJ_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim JS, TJ As Integer

TXTSS.Text = Val(TXTJS.Text) – Val(TXTTJ.Text)
TXTTH.Text = Val(TXTTJ.Text) * Val(TXTHJ.Text)
TXTTH.SetFocus
End If
End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDLAGI_Click()
TXTKT.SetFocus
TXTKT.Text = “”
TXTHT.Text = “”
TXTJK.Text = “”
TXTJB.Text = “”
TXTJT.Text = “”
TXTTP.Text = “”

End Sub

Private Sub CMDPROSES_Click()
Dim KT As String

KT = Left(TXTKT.Text, 3)
If KT = “BIM” Then
TXTHT.Text = 50000
TXTJK.Text = “BIMA”
TXTJB.Text = “16.00”

ElseIf KT = “EKO” Then
TXTHT.Text = 35000
TXTJK.Text = “EKONOMI”
TXTJB.Text = “19.00”

ElseIf KT = “MUT” Then
TXTHT.Text = 23000
TXTJK.Text = “MUTIARA”
TXTJB.Text = “17.00”

ElseIf KT = “SEN” Then
TXTHT.Text = 15000
TXTJK.Text = “SENJA”
TXTJB.Text = “20.00”
End If
TXTJT.SetFocus

End Sub

Private Sub TXTJT_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTP = Val(TXTHT.Text) * Val(TXTJT.Text)
End If

End Sub