Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public Serial1 As Serial
Private BC As ByteConverter
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
JoinStr
End Sub
private Sub JoinStr()
Private raf As RandomAccessFile
Dim String1 As String = "B4R "
Dim String2 As String = "is a great "
Dim String3 As String "tool"
Dim MyString As String
Dim AllStrings (19) As Byte
raf.Initialize(AllStrings, True)
raf.WriteBytes(String1.GetBytes, 0, String1.Length, raf.CurrentPosition)
raf.WriteBytes(String2.GetBytes, 0, String2.Length, raf.CurrentPosition)
raf.WriteBytes(String3.GetBytes, 0, String3.Length, raf.CurrentPosition)
MyString = BC.StringFromBytes(AllStrings)
Log(MyString)
End Sub