Perulangan dan Fungsi Mid Pada Program VB Net

Program di bawah ini merupakan implementasi dari perulangan dan fungsi mid() serta fungsi asc() pada program vb net.

Hasil dari program untuk menampilkan deretan karakter pembentuk kalimat serta nilai desimalnya.

Designlah sebuah form perulangan dan fungsi mid pada program vb net.

Pada form terdapat Textbox dengan nama Kalimat dan listbox dengan nama Keterangan


Public Class Form1
    Private Sub Kalimat_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kalimat.TextChanged
        Dim x As String = ""
        Dim ket As String
        Keterangan.Items.Clear()
        For i = 1 To Len(Kalimat.Text)
            x = Microsoft.VisualBasic.Mid(Kalimat.Text, i, 1)
            ket = x & "=" & Asc(x)
            Keterangan.Items.Add(ket)
        Next
    End Sub

End Class

Sumber : Mesran.net