Tutorial Pembuatan Program Pengisian Otomatis | VB 2010

TUTORIAL PEMBUATAN PENGISIAN OTOMATIS
Pencarian Data Mahasiswa

11. Buka aplikasi Visual Basic 2010, kemudian pilih New Project kemudian muncul Windows Form Application.

 Kemudian buat project seperti di bawah ini.

Dengan textbox NIM sebagai sumber informasi. Sedangkan textbox Fakultas, Jurusan, Tahun Masuk, Jalur Masuk, No. Urut Mhs. Textbox-nya di buat  true pada ReadOnly di kotak dialog Properties.

Dengan Listing programnya sebagai berikut.

Public Class Form1

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

        MsgBox("Matur Nuwun")

        Me.Close()

    End Sub

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

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Text = ""

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        TextBox8.Clear()

    End Sub

    Private Sub TextBox3_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox3.TextChanged

        Dim Fakultas As String

        Dim Jurusan As String

        Dim TahunMasuk As String

        Dim JalurMasuk As String

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

        TextBox4.Text = IIf(Fakultas = "210", "Teknik", IIf(Fakultas = "220", "Hukum", IIf(Fakultas = "230", "Ekonomi", IIf(Fakultas = "240", "FISIP", ""))))

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

        TextBox5.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", "")))))))

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

        TextBox6.Text = IIf(TahunMasuk = "1101", "2010", IIf(TahunMasuk = "1111", "2011", IIf(TahunMasuk = "1112", "2012", "")))

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

        TextBox7.Text = IIf(JalurMasuk = "10", "PSSB", IIf(JalurMasuk = "20", "SNMPTN Undangan", IIf(JalurMasuk = "30", "SNMPTN Tulis", IIf(JalurMasuk = "40", "UM", ""))))

        TextBox8.Text = Microsoft.VisualBasic.Right(TextBox3.Text, 3)

    End Sub

End Class

Selesai..

1.      

Artikel Terkait: