MENGETAHUI DATA MAHASISWA DENGAN MENGGUNAKAN FUNGSI STRING

MENGETAHUI DATA MAHASISWA DENGAN MENGGUNAKAN FUNGSI STRING

1.Design form terlebih dahulu

Menggunakan table yg ada di common controls  yang ada di ssebelah kiri toolbar

Menggunakan combobox dan  ini menggunakan textbox

Kemudian klik 2 x di form load dan isikan liting programnya

LISTING PROGRAM

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NPM.Items.Add("0911010")

        NPM.Items.Add("1002001")

        NPM.Items.Add("1102001")

        NPM.Items.Add("1111100")

        NPM.Items.Add("1202101")

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)

        Select Case x

            Case "11"

                Prodi.Text = "Teknik Informatika"

                Jenjang.Text = "S1"

            Case "02"

                Prodi.Text = "Manajemen Informatika"

                Jenjang.Text = "D3"

        End Select

        NoPendaftaran.Text = Microsoft.VisualBasic.Right(NPM.Text, 3)

        Tahun.Text = "20" & Microsoft.VisualBasic.Left(NPM.Text, 2)

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

End Class

Lalu lanjutkan dengan menekan tombol debug maka akan tampil seperti  gambar di bawah ini

Lalu isikan atau pilih kolom NPM salah satu dan seterusnya sampai ke kolom Tahun
Kemudian isikan juga nama anda. Missal Chandra Maulana MS
Nah, sudah selesai sobat.. gampangkan?

SELAMAT MENCOBA!!!!!!!!!!!!!!!!