Sub Process_Globals
Public Serial1 As Serial
Private Timer1 As Timer
Private usocket As WiFiUDP
Private wifi As ESP8266WiFi
Private ip() As Byte = Array As Byte(192, 168, 0, 255)
Private port As UInt = 3661
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
If wifi.Connect2("Telstra1943", "********") = False Then
Log("Error connecting to network")
Return
Else
Log("Connected to network")
End If
usocket.Initialize(51042, "usocket_PacketArrived")
Timer1.Initialize("Timer1_Tick", 500)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick
usocket.BeginPacket(ip, port)
usocket.Write("T 9:35")
usocket.SendPacket
End Sub
Private Sub usocket_PacketArrived (Data() As Byte, ip1() As Byte, port1 As UInt)
'not used
Log("Packet arrived")
End Sub