Private Sub Combo1_Click()
Dim nama, jurusan, HM As String
Select Case Combo1.Text
Case “12100144”
Text1 = “SITI NURLAILA”
Text2 = “Sistem Informasi”
Case “09200048”
Text1 = “AMALIA AMANAH”
Text2 = “Manajemen Informatika”
Case “09300024”
Text1 = “SASKIA MECHA”
Text2 = “Tehnik Informatika”
End Select
Text1.Text = Text1
Text2.Text = Text2
Text3.SetFocus
End Sub
Private Sub command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command1_Click()
Dim NA As Integer
Dim HM As String
Text7.Text = Val((Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)) / 4
Text8.Text = “NA”
Select Case Text8.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
Text8.Text = HM
End Sub
Private Sub Form_Load()
Combo1.AddItem “12100144”
Combo1.AddItem “09200048”
Combo1.AddItem “09300024”
End Sub
Private Sub text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub
Private Sub text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub
Private Sub text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub
Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub
Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub
Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label2.Caption = Text2.Text
End Sub
Private Sub Form_load()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
End Sub
Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub combo1_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Combo1.Text
Case “1”
Text3 = 1500000
Text4 = 150000
Case “II”
Text3 = 2000000
Text4 = 200000
Case “III”
Text3 = 2500000
Text4 = 250000
Case “IV”
Text3 = 3000000
Text4 = 300000
Case Else
Text3 = 0
Text4 = 0
End Select
Text6 = Val(Text3.Text) + Val(Text4.Text)
Text5 = Val(Text6.Text) * 0.1
Text6.Text = Val(Text6.Text) – Val(Text5.Text)
End Sub
Private Sub text1_keypress(keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub
Private Sub Command1_Click()
Dim S As String
Text5.Text = “20” & Left(Text2.Text, 2)
S = Mid(Text2.Text, 3, 1)
If S = “1” Then
Text3.Text = “Sistem Informasi”
ElseIf S = “2” Then
Text3.Text = “Manajemen Informatika”
ElseIf S = “3” Then
Text3.Text = “Tehnik Informatika”
ElseIf S = “4” Then
Text3.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Text2.Text, 4, 2)
If S = “00” Then
Text4.Text = “Strata Satu”
ElseIf S = “01” Then
Text4.Text = “Diploma Tiga”
ElseIf S = “02” Then
Text4.Text = “Diploma Empat”
ElseIf S = “03” Then
Text4.Text = “Diploma Dua”
End If
Text6.Text = Right(Text2.Text, 3)
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Command1_Click()
Dim A, JB, TT, PE, HG
Text4.Text = “20” & Right(Text1.Text, 2)
A = Mid(Text1.Text, 3, 3)
If A = “SIM” Then
Text2.Text = “sistem informasi manajemen”
Text3.Text = “Andra Setiawan”
Text6.Text = 75900
ElseIf A = “EDP” Then
Text2.Text = “elektronik data prosessing”
Text3.Text = “Desi Istiqomah”
Text6.Text = 62000
ElseIf A = “MNJ” Then
Text2.Text = “manajemen”
Text3.Text = “Sendy Fitrajaya”
Text6.Text = 42000
ElseIf A = “CDR” Then
Text2.Text = “corel-drau”
Text3.Text = “Tri Indahsari”
Text6.Text = 53000
ElseIf A = “RPL” Then
Text2.Text = “rekayasa perangkat lunak”
Text3.Text = “Ernita”
Text6.Text = 83000
End If
A = Left(Text1.Text, 1)
If A = “A” Then
Text5.Text = “andi offset yogyakarta”
ElseIf A = “I” Then
Text5.Text = “indah surabaya”
ElseIf A = “S” Then
Text5.Text = “salemba empat”
ElseIf A = “E” Then
Text5.Text = “elek media komputindo”
ElseIf A = “M” Then
Text5.Text = “maxicom”
End If
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub
Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub Command1_Click()
Dim A, JB, TT, PE, HG
Text4.Text = “20” & Mid(Text1.Text, 5, 2)
A = Left(Text1.Text, 3)
If A = “SIM” Then
Text2.Text = “sistem informasi manajemen”
Text3.Text = “fadia ulfa”
Text6.Text = 75900
ElseIf A = “EDP” Then
Text2.Text = “elektronik data prosessing”
Text3.Text = “nur agustina”
Text6.Text = 62000
ElseIf A = “MNJ” Then
Text2.Text = “manajemen”
Text3.Text = “rian hidayat”
Text6.Text = 42000
ElseIf A = “CDR” Then
Text2.Text = “corel-drau”
Text3.Text = “siti nurkhotimah”
Text6.Text = 53000
ElseIf A = “RPL” Then
Text2.Text = “rekayasa perangkat lunak”
Text3.Text = “winda erlianti”
Text6.Text = 83000
End If
A = Right(Text1.Text, 1)
If A = “A” Then
Text5.Text = “andi offset yogyakarta”
ElseIf A = “I” Then
Text5.Text = “indah surabaya”
ElseIf A = “S” Then
Text5.Text = “salemba empat”
ElseIf A = “E” Then
Text5.Text = “elek media komputindo”
ElseIf A = “M” Then
Text5.Text = “maxicom”
End If
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub
Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub Command1_Click()
Dim A, G, KS, T, S, B, J, GP
Text4.Text = Left(Text11, 4)
A = Mid(Text11.Text, 5, 1)
If A = “A” Then
Text1.Text = “A”
Text5.Text = “manager”
Text7.Text = 4000000
Text8.Text = 1025000
ElseIf A = “B” Then
Text1.Text = “B”
Text5.Text = “ka. seksi”
Text7.Text = 3500000
Text8.Text = 975000
ElseIf A = “C” Then
Text1.Text = “C”
Text5.Text = “staf”
Text7.Text = 3000000
Text8.Text = 925000
End If
A = Mid(Text11.Text, 7, 1)
If A = “S” Then
Text2.Text = “S”
Text3.Text = “singgle”
ElseIf A = “M” Then
Text2.Text = “M”
Text3.Text = “menikah”
ElseIf A = “M” Then
Text2.Text = “J”
Text3.Text = “janda”
ElseIf A = “D” Then
Text2.Text = “D”
Text3.Text = “duda”
End If
A = Right(Text11.Text, 3)
If A = “KEU” Then
Text6.Text = “accounting”
ElseIf A = “ADM” Then
Text6.Text = “administrasi”
ElseIf A = “SDM” Then
Text6.Text = “general attair”
ElseIf A = “EDP” Then
Text6.Text = “it unit”
ElseIf A = “SPM” Then
Text6.Text = “securiti”
End If
Text9.Text = Val((Text7.Text) + Val(Text8.Text))
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text11.SetFocus
End If
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
End Sub
Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
End Sub
Private Sub Command4_Click()
Unload Me
End Sub