Sub Client_MessageArrived1 (Topic As String, Payload() As Byte)
Log("Message arrived. Topic="& Topic & " payload: "& bc.stringFromBytes(Payload,"ASCII"))
Dim msg As String=bc.stringFromBytes(Payload,"ASCII")
If msg="OFFLINE" Then
Dim device(2),uid As String
device=Regex.Split("/",Topic)
uid=device(0)
status.Put(uid,"OFFLINE")
Else
Dim devicedata(4) As String
devicedata=Regex.Split(",",msg)
Dim device(2),uid As String
device=Regex.Split("/",Topic)
uid=device(0)
status.Put(uid,"ONLINE")
End If
Select Topic
Case uid&"/DATA"
'Try
date=DateTime.GetDayOfMonth(DateTime.Now)&"/"&DateTime.GetMonth(DateTime.Now)&"/"&DateTime.GetYear(DateTime.Now)
time=DateTime.time(DateTime.Now)
Dim data As String
Dim sco2low As Double
Dim stemplow As Double
Dim sco2high As Double
Dim stemphigh As Double
Dim SLOC As String
Dim mac As String
tempmap.Put(uid,devicedata(1))
co2map.Put(uid,devicedata(2))
hummap.Put(uid,devicedata(3))
lblDateTime.Text=date &" "&time
'Try
rs1 = sql1.ExecQuery("SELECT * FROM sensors WHERE UID ='"&uid&"'")
Dim recs As Int
Do While rs1.NextRow
sco2low=rs1.GetString("SETCO2_LOW")
stemplow=rs1.GetString("SETTEMP_LOW")
sco2high=rs1.GetString("SETCO2_HIGH")
stemphigh=rs1.GetString("SETTEMP_HIGH")
model1=rs1.GetString("MODEL")
SLOC=rs1.GetString("LOC")
mac=rs1.GetString("MACHINE")
recs=recs+1
Loop
rs1.Close
'Catch
'End Try
End Select
End Sub