Program VB Net Untuk Menampilkan Tabel Bilangan ASCII

Written By Mesran 

ASCII (American Standard Code For Information Interchange) merupakan kode yang sudah di standarisasi secara internasional yang digunakan dalam pertukaran informasi pada komputer. Kode ASCII ini seperti Hex dan Unicode, tetapi ASCII lebih bersifat universal.

Kode ASCII ini sebanyak 256 kode, dimulai dari 0 sampai 255. Pada gambar di bawah ini terdapat kode kode ASCII, namun hanya di tampilkan sebanyak 127 kode saja.

 

Tertarik untuk membuat program menampilkan kode kode asci?

Nah artikel ini juga akan diberikan program vb net untuk menampilkan tabel bilangan ASCII, di bawah ini.

Designlah program vb net untuk menampilkan tabel bilangan ascii berikut ini :

Berikut listing program vb net untuk menampilkan tabel bilangan ascii

Public Class Form1

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

        With ListView1

            .Columns.Add("Desimal", 70, HorizontalAlignment.Right)

            .Columns.Add("Hexa", 40, HorizontalAlignment.Right)

            .Columns.Add("Octal", 50, HorizontalAlignment.Right)

            .Columns.Add("Biner", 70, HorizontalAlignment.Right)

            .Columns.Add("Character", 60, HorizontalAlignment.Right)

            .View = View.Details

            .GridLines = True

            .FullRowSelect = True

        End With

        Dim i As Integer

        For i = 0 To 255

            Dim lst As New ListViewItem

            lst.Text = i

            lst.SubItems.Add(Hex(i))

            lst.SubItems.Add(Oct(i))

            lst.SubItems.Add(HEX_2_BIN(Hex(i)))

            lst.SubItems.Add(ChrW(i))

            ListView1.Items.Add(lst)

        Next

    End Sub

    Function HEX_2_BIN(ByRef sHEX_DIGIT As String) As String

        Dim xBin As String

        Dim xbin2 As String

        Dim xKata As String

        Dim i As Integer

        xbin2 = ""

        For i = 1 To Len(sHEX_DIGIT)

            xBin = ""

            xKata = Mid(sHEX_DIGIT, i, 1)

            Select Case UCase(xKata)

                Case "0"

                    xBin = "0000"

                Case "1"

                    xBin = "0001"

                Case "2"

                    xBin = "0010"

                Case "3"

                    xBin = "0011"

                Case "4"

                    xBin = "0100"

                Case "5"

                    xBin = "0101"

                Case "6"

                    xBin = "0110"

                Case "7"

                    xBin = "0111"

                Case "8"

                    xBin = "1000"

                Case "9"

                    xBin = "1001"

                Case "A"

                    xBin = "1010"

                Case "B"

                    xBin = "1011"

                Case "C"

                    xBin = "1100"

                Case "D"

                    xBin = "1101"

                Case "E"

                    xBin = "1110"

                Case "F"

                    xBin = "1111"

                Case "h", "H" ' ignore (suffix).

                    xBin = ""

                Case Else

                    xBin = ""

            End Select

            xbin2 = xbin2 + xBin

        Next i

        HEX_2_BIN = xbin2

    End Function

End Class

Bila program tersebut dijalankan maka akan menampilkan form hasil seperti pada gambar berikut ini :

Mudah bukan untuk membuat program vb net menampilkan tabel bilangan ASCII?