PERULANGAN dan FUNGSI MID

Public Class Form1

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    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

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

    End Sub
End Class

Author : Unknown

Share this

Related Posts