PROGRAM6
Private Sub CmdBATAL_Click()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
TxtNPM.Text = “”
TxtJUR.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
TxtURUT.Text = “”
End Sub
Private Sub CmdKELUAR_Click()
Unload Me
End Sub
Private Sub CmdLAGI_Click()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
TxtNPM.Text = “”
TxtJUR.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
TxtURUT.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim S As String
TxtTM.Text = “20” & Left(TxtNPM.Text, 2)
S = Mid(TxtYHSNPM.Text, 3, 1)
If S = “1” Then
TxtJUR.Text = “Sistem Informasi”
ElseIf S = “2” Then
TxtYJUR.Text = “Manajemen Informatika”
End If
S = Mid(TxtNPM.Text, 4, 2)
If S = “01” Then
TxtPS.Text = “Strata Satu”
ElseIf S = “02” Then
TxtPS.Text = “Diploma Tiga”
End If
TxtURUT.Text = Right(TxtNPM.Text, 3)
End Sub
Private Sub Form_Activate()
TxtYNAMA.SetFocus
TxtNAMA.Text = “”
TxtNPM.Text = “”
TxtJUR.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
TxtURUT.Text = “”
End Sub
Private Sub TxtTM_Change()
End Sub
Private Sub TxtNAMA_Change()
If KeyAscii = 13 Then
TxtNPM.SetFocus
End If
End Sub
Private Sub TxtNAMA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNPM.SetFocus
End If
End Sub
nurfitiastmikpringsewu 