Ascii Kodlarını Yazdırmak-VisualBasic.Net

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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.