Tutorial VB tugas tambahan modul 3 "Pengisian Otomatis"

Konsep Pengisian Otomatis

Pada aplikasi pengisian otomatis yang dibuat menggunakan visual basic ini, data yang diinputkan akan dapat dibaca dan diartikan untuk mendapatkan suatu informasi tertentu yang dibutuhkan.
Dalam aplikasi yang kami buat, daata yang diinputkan berupa nama dan NIM.
Dengan aplikasi ini,  informasi fakultas, jurusan, tahun masuk, jalur masuk, no. urut akan dapat terbaca dari data NIM yang telah di inputkan.

Informasi fakultas didapat dari 3 digit pertama NIM, informasi jurusan didapat dari 2 digit ke empat pada NIM, yang selanjutnya akan dijelaskan dalam tutorial dibawah ini.

TUTORIAL PEMBUATAN APLIKASI PENGISIAN OTOMATIS

1.       Buka halaman awal Microsoft Visual Basic 2010, dan pilih new form

2.       Masukkan komponen toolbox berikut ini :

KOMPONEN	PROPERTIES	KETERANGAN
Form 1	Name	Form 1
	Text	Pengisian Otomatis
Button 1	Name	Button 1
	Text	REFRESH
Button 2	Name	Button 2
	Text	KELUAR
Label1	Name	Label1
	Text	Nama
Label2	Name	Label2
	Text	NIM
Label3	Name	Label3
	Text	Fakultas
Label4	Name	Label4
	Text	Jurusan
Label5	Name	Label5
	Text	Tahun Masuk
Label6	Name	Label6
	Text	Jalur Masuk
Label7	Name	Label7
	Text	No. Urut
TextBox1	Name	TextBox1
	Text
TextBox2	Name	TextBox2
	Text
TextBox3	Name	TextBox3
	Text
TextBox4	Name	TextBox4
	Text
TextBox5	Name	TextBox5
	Text
TextBox6	Name	TextBox6
	Text
TextBox7	Name	TextBox7
	Text

3.       Kombinasikan seluruh komponen toolbox tersebut seperti gambar berikut ini :

4.       Masukkan listing program berikut :

1.       Form 1 :

a.       Button1

Dalam hal ini button 1 berfungsi untuk merefresh semua data yang telah diinputkan pada textbox

              Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As               System.EventArgs) Handles Button1.Click

              TextBox1.Text = ""

              TextBox2.Text = ""

              TextBox3.Text = ""

              TextBox4.Text = ""

              TextBox5.Text = ""

              TextBox6.Text = ""

              TextBox7.Text = ""

              End Sub

b.      Button2

Dalam hal ini button2 berfungsi untuk keluar dari aplikasi form pengisian otomatis

              Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As               System.EventArgs) Handles Button2.Click

              Close()

              End Sub

c.       Textbox2

Dalam hal ini textbox2 berfungsi sebagai tempat untuk menginput data yang nanatinya akan diberikan listing agar data selanjutnya otomatis dapat terbaca

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

Dim Fakultas As String

Dim Jurusan As String

Dim TahunMasuk As String

Dim JalurMasuk As String

Fakultas = Microsoft.VisualBasic.Left(TextBox2.Text, 3)

TextBox3.Text = IIf(Fakultas = "210", "Teknik", IIf(Fakultas = "230", "peternakan", IIf(Fakultas = "220", "Hukum", IIf(Fakultas = "230", "Ekonomi", IIf(Fakultas = "240", "FISIP", "")))))
Keterangan : informasi fakultas ini di dapat dari textbox 2 (NIM) menggunakan fungsi IIf dengan mengambil 3 digit pertama dari NIM

Jurusan = Microsoft.VisualBasic.Mid(TextBox2.Text, 4, 2)

TextBox4.Text = IIf(Jurusan = "20", "Hukum", IIf(Jurusan = "30", "Ekonomi", IIf(Jurusan = "10", "Fisip", IIf(Jurusan = "40", "Teknik Sipil", IIf(Jurusan = "50", "Teknik Mesin", IIf(Jurusan = "60", "Teknik Kimia", IIf(Jurusan = "70", "Teknik Industri", "")))))))
Keterangan : informasi Jurusan ini di dapat dari textbox 2 (NIM) menggunakan fungsi IIf dengan mengambil 2 digit urutan ke empat dari NIM

TahunMasuk = Microsoft.VisualBasic.Mid(TextBox2.Text, 6, 4)

TextBox5.Text = IIf(TahunMasuk = "1101", "2010", IIf(TahunMasuk = "1111", "2011", IIf(TahunMasuk = "1112", "2012", "")))
Keterangan : informasi tahun masuk ini di dapat dari textbox 2 (NIM) menggunakan fungsi IIf dengan mengambil 4 digit urutan ke 6 dari NIM

JalurMasuk = Microsoft.VisualBasic.Mid(TextBox2.Text, 10, 2)

TextBox6.Text = IIf(JalurMasuk = "10", "PSSB", IIf(JalurMasuk = "20", "SNMPTN Undangan", IIf(JalurMasuk = "30", "SNMPTN Tulis", IIf(JalurMasuk = "40", "UM", ""))))
Keterangan : informasi jalur masuk ini di dapat dari textbox 2 (NIM) menggunakan fungsi IIf dengan mengambil 2 digit urutan ke 10 dari NIM

TextBox7.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 3)

End Sub

d.      End Class

Adapun listing End Class adalah menyatakan listing akhir yang merupakan listing penutup dari listing program.