program6
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
TxtTm.Text = “”
TxtNu.Text = “”
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
TxtTm.Text = “”
TxtNu.Text = “”
End Sub
Private Sub CmdProses_Click()
Dim S As String
TxtTm.Text = “20” & Left(Txtnpm.Text, 2)
S = Mid(Txtnpm.Text, 3, 1)
If S = “1” Then
Txtjur.Text = “Sistem Informasi”
Txtprodi = “Strata Satu”
ElseIf S = “2” Then
Txtjur.Text = “Teknik Informatika”
Txtprodi = “Diploma Empat”
ElseIf S = “3” Then
Txtjur.Text = “Manajemen Informatika”
Txtprodi = “Diploma Tiga”
ElseIf S = “4” Then
Txtjur.Text = “Komputer Akuntansi”
Txtprodi = “Diploma Dua”
End If
TxtNu.Text = Right(Txtnpm.Text, 5)
End Sub