Slide1

Private Sub Cmdbatal_Click()
txtnm.SetFocus
txtnm.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
txtnm.SetFocus
txtnm.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim A, jr, ps As String
txttm.Text = “20” & Left(txtnpm.Text, 2)
A = Mid(txtnpm.Text, 3, 1)
If “A” = “1” Then
jr = “sistem informasi”
ElseIf A = “2” Then
jr = “manajemen informatika”
ElseIf A = “3” Then
jr = “teknik informatika”
ElseIf A = “4” Then
jr = “komputer akutansi”
End If
txtjur.Text = jr
A = Mid(txtnpm.Text, 4, 2)
If A = “00” Then
ps = “strata satu”
ElseIf A = “01” Then
ps = “diploma empat”
ElseIf A = “02” Then
ps = “diploma tiga”
ElseIf A = “03” Then
ps = “diploma dua”
End If
txtps.Text = ps
txtnu.Text = Right(txtnpm.Text, 3)
End Sub

Private Sub txtnm_k()

End Sub

Private Sub txtnm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

Iklan