Private Sub cmdbatal_Click()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
txtnpm.Text = “”
txtkls.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtup.Text = “”
txtbps.Text = “”
txtub.Text = “”
txtbpa.Text = “”
txttotal.Text = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
txtnpm.Text = “”
txtkls.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtup.Text = “”
txtbps.Text = “”
txtub.Text = “”
txtbpa.Text = “”
txttotal.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim jb As String
jb = Left(txtnpm.Text, 1)
If jb = “E” Then
txtkls.Text = “EKSEKUTIF”
ElseIf jb = “R” Then
txtkls.Text = “REGULER”
End If
jb = Mid(txtnpm.Text, 3, 2)
txttm.Text = “20” & Mid(txtnpm.Text, 3, 2)
jb = Mid(txtnpm.Text, 5, 1)
If jb = “1” Then
txtjur.Text = “Sistem informasi”
ElseIf jb = “2” Then
txtjur.Text = “Menejemen Informatika”
ElseIf jb = “3” Then
txtjur.Text = “Menejemen & Komp Akuntansi”
End If
jb = Right(txtnpm.Text, 3)
txtnu.Text = jb
If txtkls.Text = “Eksekutif” Or txtkls.Text = “Reguler” Or txtprodi.Text = “Strata Satu” Then
txtup.Text = 200000
ElseIf txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Satu” Then
txtup.Text = 150000
End If
If txtkls.Text = “Eksekutif” Or txtprodi.Text = “Starta Satu” Then
txtbps.Text = 190000
ElseIf txtprodi.Text = “Diploma Tiga” Then
txtbps.Text = 1650000
ElseIf txtprodi.Text = “Diploma Satu” Then
txtbps.Text = 1350000
End If
If txtkls.Text = “reguler” Or txtprodi.Text = “Strata Satu” Then
txtbps.Text = 1500000
ElseIf txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Satu” Then
txtbps.Text = 1250000
End If
If txtkls.Text = “Eksekutif” Or txtprodi.Text = “Starta Satu” Or txtprodi.Text = “Diploma Satu” Then
txtub.Text = 1250000
ElseIf txtkls.Text = “Eksekutif” Or txtprodi.Text = “Starta Satu” Or txtprodi.Text = “Diploma Satu” Then
txtub.Text = 1000000
End If
If txtkls.Text = “eksekutif” Or txtkls.Text = “Reguler” Or txtprodi.Text = “Strata Satu” Then
txtbpa.Text = 600000
End If
txttotal.Text = Val(txtup.Text) + Val(txtbps.Text) + Val(txtub.Text) + Val(txtbpa.Text)
txttotal.SetFocus
End Sub
Private Sub txtNAMA_Keypress(keyAscii As Integer)
If keyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub