I am new to vb.net.. I want to do something in which i should pass array of values into textbox..
that is.. I have a picturebox and textbox.. Using draw string function i get input for the textbox.. but what i actually need is to call a class which contains array of bitmap values and i have to call to my text box..
My code is like
Expand|Select|Wrap|Line Numbers
- 'this is for main window
- Public Class Form1
- Dim graph As Graphics
- Dim drawbitmap As Bitmap
- Dim brush As New Drawing.SolidBrush(Color.Black)
- Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
- drawbitmap = New Bitmap(144, 16)
- graph = Graphics.FromImage(drawbitmap)
- PictureBox1.Image = drawbitmap
- graph.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
- graph.DrawString(TextBox1.Text, TextBox1.Font, brush, PictureBox1.Location)
- End Sub
- End Class
- 'my class code is
- 'This class is used for mapping characters into BitArrays.
- 'Nothing too complicated going on here.
- 'Characters are based on a 5X7 Matrix Display.
- Public Class MatrixCharacterMapper
- Private _maps() As BitArray
- Public Sub New()
- End Sub
- Public Sub New(ByVal text As String)
- GenerateCharacterMaps(text)
- End Sub
- Default Public Property CharacterMap(ByVal index As Integer) As BitArray
- Get
- If index < 0 Or index > _maps.Length - 1 Then
- Return Nothing
- End If
- Return _maps(index)
- End Get
- Set(ByVal map As BitArray)
- If index < 0 Or index > _maps.Length - 1 Then
- Return
- End If
- _maps(index) = map
- End Set
- End Property
- Public ReadOnly Property CharacterMaps() As BitArray()
- Get
- If _maps Is Nothing Then
- Return Nothing
- End If
- Return _maps.Clone()
- End Get
- End Property
- 'we generate our bit arrays, feel free to modify these or create your own
- Public Sub GenerateCharacterMaps(ByVal text As String)
- If text.Length = 0 Then
- Return
- End If
- ReDim _maps(text.Length - 1)
- For i As Integer = 0 To text.Length - 1
- 'build this char into its relative bit array
- _maps(i) = BuildCharacterMap(text.Chars(i))
- Next
- End Sub
- 'this is just cake
- '35 bits/char 5X7 matrix display
- Private Function BuildCharacterMap(ByVal character As Char) As BitArray
- Select Case character
- 'Lower Case Characters
- Case Is = "a"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 1, 1, 1, 0, _
- 0, 0, 0, 0, 1, _
- 0, 1, 1, 1, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 1})
- Case Is = "b"
- Return BitsOn(New Integer() {1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 1, 1, 0, _
- 1, 1, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 1, 1, 1, 0})
- Case Is = "c"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0})
- Case Is = "d"
- Return BitsOn(New Integer() {0, 0, 0, 0, 1, _
- 0, 0, 0, 0, 1, _
- 0, 1, 1, 0, 1, _
- 1, 0, 0, 1, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 1})
- Case Is = "e"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 1, 1, 1, 1, _
- 1, 0, 0, 0, 0, _
- 0, 1, 1, 1, 0})
- Case Is = "f"
- Return BitsOn(New Integer() {0, 0, 1, 1, 0, _
- 0, 1, 0, 0, 1, _
- 0, 1, 0, 0, 0, _
- 1, 1, 1, 1, 0, _
- 0, 1, 0, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 1, 0, 0, 0})
- Case Is = "g"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 1, 1, 1, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 1, _
- 0, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0})
- Case Is = "h"
- Return BitsOn(New Integer() {1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 1, 1, 0, _
- 1, 1, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1})
- Case Is = "i"
- Return BitsOn(New Integer() {0, 0, 1, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 1, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 1, 1, 0})
- Case Is = "j"
- Return BitsOn(New Integer() {0, 0, 0, 1, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 1, 1, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 1, 0, _
- 1, 0, 0, 1, 0, _
- 0, 1, 1, 0, 0})
- Case Is = "k"
- Return BitsOn(New Integer() {1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 1, 0, _
- 1, 0, 1, 0, 0, _
- 1, 1, 0, 0, 0, _
- 1, 0, 1, 0, 0, _
- 1, 0, 0, 1, 0})
- Case Is = "l"
- Return BitsOn(New Integer() {0, 1, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 1, 1, 0})
- Case Is = "m"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 1, 1, 0, 1, 0, _
- 1, 0, 1, 0, 1, _
- 1, 0, 1, 0, 1, _
- 1, 0, 1, 0, 1, _
- 1, 0, 1, 0, 1})
- Case Is = "n"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 1, 0, 1, 1, 0, _
- 1, 1, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1})
- Case Is = "o"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0})
- Case Is = "p"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 1, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 1, 1, 1, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0})
- Case Is = "q"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 1, 1, 0, 1, _
- 1, 0, 0, 1, 1, _
- 0, 1, 1, 1, 1, _
- 0, 0, 0, 0, 1, _
- 0, 0, 0, 0, 1})
- Case Is = "r"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 1, 0, 1, 1, 0, _
- 1, 1, 0, 0, 1, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0})
- Case Is = "s"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 0, _
- 0, 1, 1, 1, 0, _
- 0, 0, 0, 0, 1, _
- 1, 1, 1, 1, 0})
- Case Is = "t"
- Return BitsOn(New Integer() {0, 1, 0, 0, 0, _
- 0, 1, 0, 0, 0, _
- 1, 1, 1, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 1, 0, 0, 1, _
- 0, 0, 1, 1, 0})
- Case Is = "u"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 1, 1, _
- 0, 1, 1, 0, 1})
- Case Is = "v"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 0, 1, 0, _
- 0, 0, 1, 0, 0})
- Case Is = "w"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 1, 0, 1, _
- 1, 0, 1, 0, 1, _
- 0, 1, 0, 1, 0})
- Case Is = "x"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 1, 0, 0, 0, 1, _
- 0, 1, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 1, 0, _
- 1, 0, 0, 0, 1})
- Case Is = "y"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 1, _
- 0, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0})
- Case Is = "z"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 1, 1, 1, 1, 1, _
- 0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0, _
- 1, 1, 1, 1, 1})
- 'Upper Case Characters
- Case Is = "A"
- Return BitsOn(New Integer() {0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 1, 1, 1, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1})
- Case Is = "B"
- Return BitsOn(New Integer() {1, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 1, 1, 1, 0})
- Case Is = "C"
- Return BitsOn(New Integer() {0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0})
- Case Is = "D"
- Return BitsOn(New Integer() {1, 1, 1, 0, 0, _
- 1, 0, 0, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 1, 0, _
- 1, 1, 1, 0, 0})
- Case Is = "E"
- Return BitsOn(New Integer() {1, 1, 1, 1, 1, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 1, 1, 1, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 1, 1, 1, 1})
- Case Is = "F"
- Return BitsOn(New Integer() {1, 1, 1, 1, 1, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 1, 1, 1, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0})
- Case Is = "G"
- Return BitsOn(New Integer() {0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 0, _
- 1, 0, 1, 1, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 1})
- Case Is = "H"
- Return BitsOn(New Integer() {1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 1, 1, 1, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1})
- Case Is = "I"
- Return BitsOn(New Integer() {0, 1, 1, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 1, 1, 0})
- Case Is = "J"
- Return BitsOn(New Integer() {0, 0, 1, 1, 1, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 1, 0, _
- 1, 0, 0, 1, 0, _
- 0, 1, 1, 0, 0})
- Case Is = "K"
- Return BitsOn(New Integer() {1, 0, 0, 0, 1, _
- 1, 0, 0, 1, 0, _
- 1, 0, 1, 0, 0, _
- 1, 1, 0, 0, 0, _
- 1, 0, 1, 0, 0, _
- 1, 0, 0, 1, 0, _
- 1, 0, 0, 0, 1})
- Case Is = "L"
- Return BitsOn(New Integer() {1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 1, 1, 1, 1})
- Case Is = "M"
- Return BitsOn(New Integer() {1, 0, 0, 0, 1, _
- 1, 1, 0, 1, 1, _
- 1, 0, 1, 0, 1, _
- 1, 0, 1, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1})
- Case Is = "N"
- Return BitsOn(New Integer() {1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 1, 0, 0, 1, _
- 1, 0, 1, 0, 1, _
- 1, 0, 0, 1, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1})
- Case Is = "O"
- Return BitsOn(New Integer() {0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0})
- Case Is = "P"
- Return BitsOn(New Integer() {1, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 1, 1, 1, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0})
- Case Is = "Q"
- Return BitsOn(New Integer() {0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 1, 0, 1, _
- 1, 0, 0, 1, 0, _
- 0, 1, 1, 0, 1})
- Case Is = "R"
- Return BitsOn(New Integer() {1, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 1, 1, 1, 0, _
- 1, 0, 1, 0, 0, _
- 1, 0, 0, 1, 0, _
- 1, 0, 0, 0, 1})
- Case Is = "S"
- Return BitsOn(New Integer() {0, 1, 1, 1, 1, _
- 1, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 0, 1, 1, 1, 0, _
- 0, 0, 0, 0, 1, _
- 0, 0, 0, 0, 1, _
- 1, 1, 1, 1, 0})
- Case Is = "T"
- Return BitsOn(New Integer() {1, 1, 1, 1, 1, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0})
- Case Is = "U"
- Return BitsOn(New Integer() {1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0})
- Case Is = "V"
- Return BitsOn(New Integer() {1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 0, 1, 0, _
- 0, 0, 1, 0, 0})
- Case Is = "W"
- Return BitsOn(New Integer() {1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 1, 0, 1, _
- 1, 0, 1, 0, 1, _
- 1, 0, 1, 0, 1, _
- 0, 1, 0, 1, 0})
- Case Is = "X"
- Return BitsOn(New Integer() {1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1})
- Case Is = "Y"
- Return BitsOn(New Integer() {1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0})
- Case Is = "Z"
- Return BitsOn(New Integer() {1, 1, 1, 1, 1, _
- 0, 0, 0, 0, 1, _
- 0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 1, 1, 1, 1})
- 'Numbers
- Case Is = "0"
- Return BitsOn(New Integer() {0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 1, 1, _
- 1, 0, 1, 0, 1, _
- 1, 1, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0})
- Case Is = "1"
- Return BitsOn(New Integer() {0, 0, 1, 0, 0, _
- 0, 1, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 1, 1, 0})
- Case Is = "2"
- Return BitsOn(New Integer() {0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 0, 0, 0, 0, 1, _
- 0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0, _
- 1, 1, 1, 1, 1})
- Case Is = "3"
- Return BitsOn(New Integer() {1, 1, 1, 1, 1, _
- 0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0})
- Case Is = "4"
- Return BitsOn(New Integer() {0, 0, 0, 1, 0, _
- 0, 0, 1, 1, 0, _
- 0, 1, 0, 1, 0, _
- 1, 1, 1, 1, 1, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 1, 0})
- Case Is = "5"
- Return BitsOn(New Integer() {1, 1, 1, 1, 1, _
- 1, 0, 0, 0, 0, _
- 1, 1, 1, 1, 1, _
- 0, 0, 0, 0, 1, _
- 0, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0})
- Case Is = "6"
- Return BitsOn(New Integer() {0, 0, 1, 1, 0, _
- 0, 1, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 1, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0})
- Case Is = "7"
- Return BitsOn(New Integer() {1, 1, 1, 1, 1, _
- 0, 0, 0, 0, 1, _
- 0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 1, 0, 0, 0})
- Case Is = "8"
- Return BitsOn(New Integer() {0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 0})
- Case Is = "9"
- Return BitsOn(New Integer() {0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 1, 0, 0, 0, 1, _
- 0, 1, 1, 1, 1, _
- 0, 0, 0, 0, 1, _
- 0, 0, 0, 1, 0, _
- 0, 1, 1, 0, 0})
- 'Shift + 1-9
- Case Is = "!"
- Return BitsOn(New Integer() {0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 1, 0, 0})
- Case Is = "@"
- Return BitsOn(New Integer() {0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 0, 0, 0, 0, 1, _
- 0, 1, 1, 0, 1, _
- 1, 0, 1, 0, 1, _
- 1, 0, 1, 0, 1, _
- 0, 1, 1, 1, 0})
- Case Is = "#"
- Return BitsOn(New Integer() {0, 1, 0, 1, 0, _
- 0, 1, 0, 1, 0, _
- 1, 1, 1, 1, 1, _
- 0, 1, 0, 1, 0, _
- 1, 1, 1, 1, 1, _
- 0, 1, 0, 1, 0, _
- 0, 1, 0, 1, 0})
- Case Is = "$"
- Return BitsOn(New Integer() {0, 0, 1, 0, 0, _
- 0, 1, 1, 1, 1, _
- 1, 0, 1, 0, 0, _
- 0, 1, 1, 1, 0, _
- 0, 0, 1, 0, 1, _
- 1, 1, 1, 1, 0, _
- 0, 0, 1, 0, 0})
- Case Is = "%"
- Return BitsOn(New Integer() {1, 1, 0, 0, 0, _
- 1, 1, 0, 0, 1, _
- 0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0, _
- 1, 0, 0, 1, 1, _
- 0, 0, 0, 1, 1})
- Case Is = "^"
- Return BitsOn(New Integer() {0, 0, 1, 0, 0, _
- 0, 1, 0, 1, 0, _
- 1, 0, 0, 0, 1, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0})
- Case Is = "&"
- Return BitsOn(New Integer() {0, 1, 1, 0, 0, _
- 1, 0, 0, 1, 0, _
- 1, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0, _
- 1, 0, 1, 0, 1, _
- 1, 0, 0, 1, 0, _
- 0, 1, 1, 0, 1})
- Case Is = "*"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 1, 0, 0, _
- 1, 0, 1, 0, 1, _
- 0, 1, 1, 1, 0, _
- 1, 0, 1, 0, 1, _
- 0, 0, 1, 0, 0, _
- 0, 0, 0, 0, 0})
- Case Is = "("
- Return BitsOn(New Integer() {0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 0, 1, 0})
- Case Is = ")"
- Return BitsOn(New Integer() {0, 1, 0, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0})
- 'Misc
- Case Is = " "
- Return New BitArray(35, False)
- Case Is = Chr(34)
- Return BitsOn(New Integer() {0, 1, 0, 1, 0, _
- 0, 1, 0, 1, 0, _
- 0, 1, 0, 1, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0})
- Case Is = "'"
- Return BitsOn(New Integer() {0, 0, 1, 1, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0})
- Case Is = ","
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 1, 1, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0})
- Case Is = "-"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 1, 1, 1, 1, 1, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0})
- Case Is = "_"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 1, 1, 1, 1, 1})
- Case Is = "."
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 1, 1, 0, 0, _
- 0, 1, 1, 0, 0})
- Case Is = "/"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 1, _
- 0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0})
- Case Is = "\"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 0, 1, _
- 0, 0, 0, 0, 0})
- Case Is = "="
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0, _
- 1, 1, 1, 1, 1, _
- 0, 0, 0, 0, 0, _
- 1, 1, 1, 1, 1, _
- 0, 0, 0, 0, 0, _
- 0, 0, 0, 0, 0})
- Case Is = "+"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 1, 1, 1, 1, 1, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 0, 0, 0})
- Case Is = ":"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 1, 1, 0, 0, _
- 0, 1, 1, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 1, 1, 0, 0, _
- 0, 1, 1, 0, 0, _
- 0, 0, 0, 0, 0})
- Case Is = ";"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 1, 1, 0, 0, _
- 0, 1, 1, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 1, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0})
- Case Is = "<"
- Return BitsOn(New Integer() {0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0, _
- 1, 0, 0, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 0, 1, 0})
- Case Is = ">"
- Return BitsOn(New Integer() {0, 1, 0, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 0, 1, _
- 0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0})
- Case Is = "?"
- Return BitsOn(New Integer() {0, 1, 1, 1, 0, _
- 1, 0, 0, 0, 1, _
- 0, 0, 0, 0, 1, _
- 0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 0, 0, 0, _
- 0, 0, 1, 0, 0})
- Case Is = "["
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 1, 1, 1, 0, _
- 0, 1, 0, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 1, 1, 1, 0})
- Case Is = "]"
- Return BitsOn(New Integer() {0, 0, 0, 0, 0, _
- 0, 1, 1, 1, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 0, 1, 0, _
- 0, 1, 1, 1, 0})
- Case Is = "{"
- Return BitsOn(New Integer() {0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 0, 1, 0})
- Case Is = "}"
- Return BitsOn(New Integer() {0, 1, 0, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 0, 1, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 1, 0, 0, 0})
- Case Is = "|"
- Return BitsOn(New Integer() {0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0, _
- 0, 0, 1, 0, 0})
- Case Else
- Return New BitArray(35, False)
- End Select
- End Function
- 'just a helper method, turns the corresponding bits on or in the 1 state
- Private Function BitsOn(ByVal values() As Integer) As BitArray
- Dim bits As New BitArray(values.Length, False)
- For i As Integer = 0 To bits.Length - 1
- If values(i) = 1 Then
- bits(i) = True
- End If
- Next
- Return bits
- End Function
- End Class
Thanks in advance