Visual Basic

dBrong wrote:

the problem lies in the creation of the window.

Dim i As Integer
     Dim x As Integer
     'Create array
     Dim bytearray(23) As String
     For i = 0 To bytearray.Length - 1
         bytearray(i) = "0"
     Next
    
     Dim hex As String
     Dim text As String = ""
     'Change Text into ASCII
     hex = Strings.Asc(TextBox1.Text)
     'Change Ascii into HEx
     hex = Long.Parse(hex, Globalization.NumberStyles.HexNumber)
     x = 0
     'Put hex into Format
     For i = hex.Length - 1 To 0 Step -1
     bytearray((bytearray.Length - 1) - x) = hex.Substring(i, 1)
     x += 1
     Next
     'Create full formatted string to write to RFID
     If TextBox1.Text<> "" Then
     For i = 0 To bytearray.Length - 1 Step 2
     text = text + bytearray(i) + bytearray(i + 1) + " "
     Next
     text = text.Substring(0, text.Length - 1)

Sub rfid2()
    Dim maxChars As Integer = 12
    Dim Text As String = "ABC123   f"
    Console.WriteLine("Encoding """ & Text & """ in " & maxChars & " hex chars")

    Dim length As Integer = Text.Length
    Dim result As String = ""
    Dim i As Integer

    For i = 1 To maxChars - length
        result = "00 " & result
    Next

    For i = 0 To length - 1
        Dim chr As Integer = Strings.Asc(text.Substring(i, 1))
        result = result & chr.ToString("X2") & " "
    Next
    Console.WriteLine("result=" + result)
End Sub