Share My Creation eBreathalyzer : wifi enabled cheap eBAC sensor

Sub Process_Globals
    Dim UDPSocket1 As UDPSocket
    Dim Server As ServerSocket
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim ButtonSend As Button
    Dim EditData As EditText
    Dim EditDest As EditText
    Dim LbReceived As Label
    Dim Timer1 As Timer
    Dim DestAddress As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        UDPSocket1.Initialize("UDP", 6000, 8000)
    End If
    Activity.LoadLayout("udp")
End Sub

Sub Activity_Resume
    Timer1.Initialize("Timer1", 400)
    UDPConnect
End Sub

Sub Activity_Pause (UserClosed As Boolean)
    Timer1.Enabled = False
End Sub

Sub UDP_PacketArrived (Packet As UDPPacket)
    Dim msg As String
   
    msg = BytesToString(Packet.Data, Packet.Offset, Packet.Length, "UTF8")
    'Msgbox("Message received: " & msg , "")
    LbReceived.Text = msg
    Try
        'Msgbox(" from host " & Packet.HostAddress, "")
    Catch
        Msgbox(" error from host ", "")
    End Try
    If msg = "eBreathalyzer" Then
        Timer1.Enabled = True
        DestAddress = Packet.HostAddress
    End If
   
End Sub

Sub ButtonSend_Click
    UDPConnect
    ToastMessageShow("Message send = " &EditData.Text, False)
End Sub

Sub Timer1_Tick
    Dim Packet As UDPPacket
    Dim Dest As String
    Dim data() As Byte
    data = EditData.text.GetBytes("UTF8")
    Dest = DestAddress
    Packet.Initialize(data, Dest, 6000)
    UDPSocket1.Send(Packet)
    'ToastMessageShow("Message send = " &EditData.Text, False)
End Sub

Sub UDPConnect
    Dim Packet As UDPPacket
    Dim Dest As String
    Dim data() As Byte
    data = "ID".GetBytes("UTF8")
    Dest = "255.255.255.255"
    Packet.Initialize(data, Dest, 6000)
    UDPSocket1.Send(Packet)
End Sub