Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtkelas.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txtnu.Text = “”
Txtup.Text = “”
Txtbps.Text = “”
Txtub.Text = “”
Txtbpa.Text = “”
Txttb.Text = “”
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtkelas.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txtnu.Text = “”
Txtup.Text = “”
Txtbps.Text = “”
Txtub.Text = “”
Txtbpa.Text = “”
Txttb.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim S As String
S = Left(Txtnpm, 1)
If S = “E” Then
Txtkelas.Text = “Eksekutif”
Txtub.Text = “1250000”
ElseIf S = “R” Then
Txtkelas.Text = “Reguler”
Txtub.Text = “1000000”
End If
S = Mid(Txtnpm, 6, 2)
If S = “01” Then
Txtprodi.Text = “Strata Satu”
If Txtkelas.Text = “Reguler” Then
Txtbps.Text = “1500000”
Else
Txtbps.Text = “1900000”
End If
ElseIf S = “02” Then
Txtprodi.Text = “Diploma Tiga”
If Txtkelas.Text = “Reguler” Then
Txtbps.Text = “1250000”
Else
Txtbps.Text = “1650000”
End If
ElseIf S = “03” Then
Txtprodi.Text = “Diploma Satu”
If Txtkelas.Text = “Reguler” Then
Txtbps.Text = “1250000”
Else
Txtbps.Text = “1350000”
End If
End If
S = Mid(Txtnpm, 5, 1)
If S = “1” Then
Txtjur.Text = “Sistem Informasi”
ElseIf S = “2” Then
Txtjur.Text = “Manajemen Informatika”
ElseIf S = “3” Then
Txtjur.Text = “Manajemendan Komp. Akuntansi”
End If
Txttm.Text = “20” & Mid(Txtnpm.Text, 3, 2)
Txtnu.Text = Right(Txtnpm, 3)
If Txtprodi.Text = “Strata Satu” Then
Txtup.Text = “200000”
Txtbpa.Text = “600000”
Else
If Txtprodi.Text = “Diploma Tiga” Then
Txtup.Text = “150000”
Txtbpa.Text = “600000”
Else
If Txtprodi.Text = “Diploma Satu” Then
Txtup.Text = “150000”
Txtbpa.Text = “600000”
End If
End If
End If
Txttb.Text = Val(Txtup.Text) + Val(Txtbps.Text) + Val(Txtub.Text) + Val(Txtbpa.Text)
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
karimstmikpringsewu 