Sub Process_Globals
Public Serial1 As Serial
Private bc As ByteConverter
Private GlobalString1 As String = "000000000000000000000000" 'must be long enough to hold the string
Private GlobalString2 As String = "000000000000000000000000" 'must be long enough to hold the string
Dim tim As Timer
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Dim DynamicString1 As String = bc.StringFromBytes("m21.cloudmqtt.com".GetBytes)
bc.ObjectCopy(DynamicString1, GlobalString1, DynamicString1.Length + 1)
'Now you can use GlobalString1
Dim DynamicString2 As String = bc.StringFromBytes("test".GetBytes)
bc.ObjectCopy(DynamicString2, GlobalString2, DynamicString2.Length + 1)
'Now you can use GlobalString2
tim.Initialize("tim_Tick",1000)
tim.Enabled=True
End Sub
Sub tim_Tick
Log("1: ",GlobalString1)
Log("2: ",GlobalString2)
End Sub