Program Gabungan Fungsi IF dengan Fungsi String

Fungsi "IF" dalam Visual Basic biasa digunakan untuk menentukan pilihan. Sebuah parameter akan dijalankan oleh program jika pilihan tersebut bernilai benar atau "TRUE". sebagai contoh dalam sebuah kasus.

            Dalam vb terdapat beberapa jenis fungsi string. Tapi dalam kasus ini saya hanya menggunakan 4 jenis fungsi string, diantaranya yaitu:

-        Right (x,n)

Digunakan untuk mengambil karakter dari string x yang dimulai dari kanan sebanyak n.

-        Left (x,n)

Digunakan untuk mengambil karakter dari string x yang dimulai dari kiri sebanyak n.

-        Mid (x,m,n)

Digunakan untuk mengambil karakter dari string x yang dimulai dari karakter ke m sebanyak n.

-        Len (x)

Digunakan untuk menghitung jumlah karakter dari string x.

Langsung saja saya akan buat progam mahasiswa sebagai contoh dalam penggabungan fungsi IF dan fungsi String. Dan berikut tampilan programnya beserta kodenya.

Berikut kodenya:

Public Class Form2

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

        NPM.Items.Add("13110453")

        NPM.Items.Add("12110455")

        NPM.Items.Add("13021011")

        NPM.Items.Add("12021112")

    End Sub

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

        If NPM.Text = "13110453" Then

            NAMA.Text = "RIZKA"

        ElseIf NPM.Text = "12110455" Then

            NAMA.Text = "RAMA"

        ElseIf NPM.Text = "13021011" Then

            NAMA.Text = "DWI"

        ElseIf NPM.Text = "12011112" Then

            NAMA.Text = "PRATIWI"

        End If

        Dim x As String

        x = Strings.Left(NPM.Text, 2)

        If x = "12" Then

            TM.Text = "2012"

        ElseIf x = "13" Then

            TM.Text = "2013"

        End If

        x = Strings.Mid(NPM.Text, 3, 2)

        If x = "02" Then

            JENJANG.Text = "D3"

        ElseIf (x = "11") Then

            JENJANG.Text = "S1"

        End If

    End Sub

End Class