Type TServerData (Temperature As Int, Humidity As Int, Command As Int, CommandData As Int)
Private ServerData As TServerData
Advertise to HA
ServerData.Temperature = DHT.GetTemperature * 100
ServerData.Humidity = DHT.GetHumidity * 100
ServerData.Command = -1
ServerData.CommandData = -1
'Advertise as serialized objects
Dim data() As Byte = ser.ConvertArrayToBytes(Array(ServerData.Temperature, ServerData.Humidity, ServerData.Command, ServerData.CommandData))
BLEServer_Write(data)