Ascii Kodlarını Yazdırmak

Ascii kodlarını textbox a yazdıracağız. Formunuza 1 adet textbox ekleyin. Aşağıdaki şekli inceleyin.

Şekil 1

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim x, y As String
        Dim i As Integer
        TextBox1.Clear()
        TextBox1.Font = New System.Drawing.Font("Courier New", 12, FontStyle.Regular)
        For i = 32 To 255
            x = i.ToString
            y = Chr(i)
            TextBox1.Text = TextBox1.Text & "chr(" & x & ")=" & y & Space(5)
            If (i - 31) Mod 7 = 0 Then
                i = i + 1
            End If
        Next i
    End Sub
End Class

Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN