#Region Project Attributes
#AutoFlushLogs: True
#CheckArrayBounds: True
#StackBufferSize: 300
#End Region
Sub Process_Globals
Public Serial1 As Serial
Type System_Type (Resets As UInt, Sommerzeit As Boolean)
Type WLAN_Type (IP As String, SSID As String, Password As String, Chanel As Byte, BSSID As String)
Type Einstellungen (System As System_Type, WLAN As WLAN_Type)
Private bc As ByteConverter
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
Private Settings As Einstellungen
Private System1 As System_Type
Private WLAN1 As WLAN_Type
Settings.System = System1
Settings.WLAN = WLAN1
'set defaults
Settings.System.Resets = 0
Settings.System.Sommerzeit = True
Settings.WLAN.IP = "192.168.0.170"
Settings.WLAN.SSID = "Wireless1"
Settings.WLAN.Password = "@Oktober160"
Settings.WLAN.Chanel = 1
Settings.WLAN.BSSID = "CCCE1E1DC20B"
Log ("Save Size: " , SizeOf(Settings))
GlobalStore.Put(0, bc.ObjectToBytes(Settings, SizeOf(Settings))) 'store value in slot #0
CallSubPlus ("Test", 100, 0)
End Sub
Sub Test (Tag As Byte)
Log ("Load Settings: ")
Dim s As Einstellungen
Private System1 As System_Type
Private WLAN1 As WLAN_Type
s.System = System1
s.WLAN = WLAN1
s = bc.ObjectFromBytes(GlobalStore.Slot0)
Dim str As String = s.WLAN.IP
' Log("myIP: ", str) 'get the value from slot #0
End Sub