Fungsi String

Fungsi string sangat efisien dalam hal pengolahan data,karna dengan string kita dapat menampilkan beberapa data hanya dengan 1 variable,bisa berupa kumpulan angka,huruf ataupun gabungan angka dan huruf. Kumpulan angka dan huruf itu bisa dijadikan sebuah kode atau ketetapan untuk menampilkan variable yang lain. Di bawah ini contoh pengunaan string pada pemograman VB, mari kita pelajari dan kita pahami.

Langkah-langkah

1.      Kita disain project,buat didalam form tampilan program kita beri nama saja dengan pendataan mahasiswa seperti contoh lihat disain dibawah ini :

2.      Ubahlah text pada label,button sesuai dengan gambar diatas,kemudian ubah pula name pada tools yang digunakan sesuai dengan nama text label disampingnya agar kita tidak bngung.

3.      Setelah siap dalam pendisaian mari kita buat perintahnya :

a.      Klik 2x pada combobox “npm” ketikkan perintah dibawah ini

Dim x As String

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

        Select Case x

            Case "11"

                prody.Text = "teknik informatika"

                jenjang.Text = "S1"

            Case "02"

                prody.Text = "manajeman informatika"

                jenjang.Text = "D3"

        End Select

        daftar.Text = Microsoft.VisualBasic.Right(npm.Text, 3)

      tahun.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

        If npm.Text = "1011167" Then nama.Text = "chayrizarahman"

        If npm.Text = "0902168" Then nama.Text = "Prasetiawan"

        If npm.Text = "1011334" Then nama.Text = "Wilda sari"

        If npm.Text = "0902190" Then nama.Text = "Akbarabsanjani"

    End Sub

Penjelasan :

-    “x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)” ketikan berwarna merah diartikan 2 digit pada urutan ke 3 dari depan contoh : 1011167 = 1 dan 1. Sehingga apabila 2 digit pada urutan ke 3 “11” maka otomatis tampil pada textbox prody teknik informatika dan jenjang S1. Apabila 2 digit pada urutan ke 3 dari depan “02” maka otomatis tampil pada textbox prody manajemen informatika dan jenjang D3.

-    “daftar.Text = Microsoft.VisualBasic.Right(npm.Text, 3)” ketikkan yang berwarna merah dapat diartikan dengan pada nomor NPM 3 digit dari kanan, nomor itulah yang akan muncul pada textbox no pendaftaran. Contoh : 1011168 maka yang akan tampil “168”

-    tahun.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2) ketikan yang berwarna merah dapat diartikan tampil angka 20 pada tahun.text dan 2 digit dari kiri pada no npm menjadi tampilan disebelah angka 20. Contoh : 0902190 = “maka tampilkan 20 dan berurut kemudian 09 menjadi “2009”

-    If npm.Text = "1011167" Then nama.Text = "chayrizarahman" Perintah ini berarti jika no NPM 1011167 maka nama akan otomatis tampil chayriza rahman

b.      Sebagai tools tambahan kita masukkan tombol “hapus” dan “Keluar” dengan klik 2x button “Keluar” ketikkan didalamnya :

  npm.Text = ""

        nama.Text = ""

        prody.Text = ""

        jenjang.Text = ""

        daftar.Text = ""

        tahun.Text = ""

Perintah menyatakan kosongkan text pa semu tools

c.       Klik 2x keluar dan ketikkan END maka perintah untuk keluar dari tampilan hasil