Jurusan akan otomatis terisi jika 2 karakter dari NPM mulai dari karakter ke 3 sesuai dengan kode jurusannya.
Search akan memunculkan inputbox dan mencari data dari file Notepad (.txt)
Contoh Code:
Public Class Form1
'procedure untuk mengosongkan textbox
Sub clearInput()
txtNPM.Text = ""
txtNama.Text = ""
txtKelas.Text = ""
txtJurusan.Text = ""
txtNPM.Focus()
End Sub
'procedure untuk membuat textbox readonly true / false
Sub makeReadOnly(ByVal tf As Boolean)
txtNPM.ReadOnly = tf
txtNama.ReadOnly = tf
txtKelas.ReadOnly = tf
End Sub
Function getJurusan(ByVal NPM As String) As String
Dim KodeJurusan, Jurusan As String
KodeJurusan = NPM.Substring(2, 2)
KodeJurusan = Microsoft.VisualBasic.Mid(NPM, 3, 2)
'0631097
'th-kd-urt
Jurusan = ""
If KodeJurusan = "11" Then
Jurusan = "Teknik Sipil"
ElseIf KodeJurusan = "21" Then
Jurusan = "Teknik Elektro"
ElseIf KodeJurusan = "31" Then
Jurusan = "Sistem Informasi"
ElseIf KodeJurusan = "41" Then
Jurusan = "Manajemen"
ElseIf KodeJurusan = "42" Then
Jurusan = "Akuntasi"
ElseIf KodeJurusan = "43" Then
Jurusan = "Manajemen Perhotelan"
ElseIf KodeJurusan = "44" Then
Jurusan = "Magister Manajemen"
ElseIf KodeJurusan = "51" Then
Jurusan = "Ilmu Hukum"
Else
Jurusan = "Belum terdaftar"
End If
Return Jurusan
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
makeReadOnly(True)
clearInput()
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
makeReadOnly(False)
clearInput()
End Sub
Private Sub txtNPM_Leave(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles txtNPM.Leave
If txtNPM.Text.Trim = "" Then Exit Sub
txtJurusan.Text = getJurusan(txtNPM.Text)
End Sub
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
Dim flag As Boolean = False
Dim NPM As String
Dim tNPM, tNama, tKelas, tJurusan As String
NPM = InputBox("Silahkan masukkan NPM", "Input")
Do While NPM.Length <> 7 And NPM.Length > 1
NPM = InputBox("Silahkan masukkan NPM", "Input")
Loop
'Do
' NPM = InputBox("Silahkan masukkan NPM", "Input")
'Loop Until NPM.Length = 7
'If NPM.Length <> 7 Then Exit Sub
Dim sr As IO.StreamReader = IO.File.OpenText("mahasiswa.txt")
Do While sr.Peek <> -1
tNPM = sr.ReadLine
tNama = sr.ReadLine
tKelas = sr.ReadLine
tJurusan = sr.ReadLine
If tNPM = NPM Then
flag = True
txtNPM.Text = tNPM
txtNama.Text = tNama
txtKelas.Text = tKelas
txtJurusan.Text = tJurusan
End If
Loop
sr.Close()
If flag = False Then
MessageBox.Show("Data tidak ditemukan")
End If
End Sub
End Class
