Perulangan Dan Fungsi Mid Pada Program Vb.Net

Desain Form 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

Listing program

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

MUHAMMAD SYAHRIL