This doesn't post anything,
Class Temperature
Shared Event GetTemp() RaiseEvent Every 30 Seconds
Dim TempC As Float = TempSensor.GetTemp
Dim TempF As Float = TempSensor.ToFarenheit(TempC)
Dim payload As ListOfByte = New ListOfByte
Dim payString As String = ""
payString = TempC.ToString()
payload.Add(payString)
Lplan.Publish("MC/TempC/Lounge", payload, QoS.ExactlyOnce)
End Event
End Class
_________
This does post but no QoS settings
Class Temperature
Shared Event GetTemp() RaiseEvent Every 30 Seconds
Dim TempC As Float = TempSensor.GetTemp
Dim TempF As Float = TempSensor.ToFarenheit(TempC)
Dim payload As ListOfByte = New ListOfByte
Dim payString As String = ""
payString = TempC.ToString()
payload.Add(payString)
Lplan.Publish("MC/TempC/Lounge", payload, QoS)
End Event
End Class
________________
This posts fine no QoS
Class Temperature
Shared Event GetTemp() RaiseEvent Every 30 Seconds
Dim TempC As Float = TempSensor.GetTemp
Dim TempF As Float = TempSensor.ToFarenheit(TempC)
Dim payload As ListOfByte = New ListOfByte
Dim payString As String = ""
payString = TempC.ToString()
payload.Add(payString)
Lplan.Publish("MC/TempC/Lounge", payload)
End Event
End Class
_______
I have double checked this with reboots, different modules etc.