'Non-UI application (console / server application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#End Region
Sub Process_Globals
Dim UDPSocket1 As UDPSocket
End Sub
Sub AppStart (Args() As String)
UDPSocket1.Initialize("UDP", 1900, 8000)
Dim Packet As UDPPacket
Dim data() As Byte
data = "Hello from RaspBerry".GetBytes("UTF8")
Packet.Initialize(data, "192.168.0.99", 1900)
UDPSocket1.Send(Packet)
StartMessageLoop
End Sub
Sub UDP_PacketArrived (Packet As UDPPacket)
Dim msg As String
msg = BytesToString(Packet.Data, Packet.Offset, Packet.Length, "UTF8")
Log("Message received: " & msg)
End Sub