CONTOH PROGRAM MENGGUNAKAN FUNGSI STRING

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("1102010")

        npm.Items.Add("1111100")

        npm.Items.Add("1202101")

        npm.Items.Add("1111111")

    End Sub

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

andles 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

        nodaftar.Text = Microsoft.VisualBasic.Left(npm.Text, 3)

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

        If npm.Text = "0911010" Then

            nama.Text = "djoko"

        ElseIf npm.Text = "10020001" Then

            nama.Text = "Aldi"

        ElseIf npm.Text = "1102010" Then

            nama.Text = "randi"

        ElseIf npm.Text = "1111100" Then

            nama.Text = "Fitri Sartika"

        ElseIf npm.Text = "1202101" Then

            nama.Text = "Rahma"

        ElseIf npm.Text = "1111111" Then

            nama.Text = "Gayus Tambunan Sitorus Korupsi"

        End If

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        Dim x As String

        huruf.Items.Clear()

        For i = 1 To Len(kalimat.Text)

            x = Microsoft.VisualBasic.Mid(kalimat.Text, i, 1)

            huruf.Items.Add(x & " = " & Asc(x))

        Next i

    End Sub

End Class

berikut ini adalah gambar tampilan pada saat di jalankan/ sedang RUNNING