LOGIKA NPM MAHASISWA
Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
Txtjurusan.Text = “”
Txtprogramstudi.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
Txtjurusan.Text = “”
Txtprogramstudi.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
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
Txtjurusan.Text = “Sistem Informasi”
ElseIf S = “2” Then
Txtjurusan.Text = “Manajemen Informatika”
ElseIf S = “3” Then
Txtjurusan.Text = “Tehnik Informatika”
ElseIf S = “4” Then
Txtjurusan.Text = “Manajemen Komputer & Akutansi”
End If
S = Mid(txtnpm.Text, 4, 2)
If S = “00” Then
Txtprogramstudi.Text = “Strata Satu”
ElseIf S = “1” Then
Txtprogramstudi.Text = “Diploma Tiga”
ElseIf S = “02” Then
Txtprogramstudi.Text = “Diploma Empat”
ElseIf S = “03” Then
Txtprogramstudi.Text = “Diploma Dua”
End If
Txturut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Command4_Click()
End Sub
Private Sub Form_Load()
End Sub