Abweichung beim auslesen der Temperaturdaten des Add Ons mit Excel VBA

Gerhard_Unger

Ich habe bei meiner Heizungsanlage genau gesagt am Pufferspeicher einen Shelly Plus 2PM mit einem Add On verbaut, um mit 2 Temperatursensoren die Puffertemperatur unten und oben zu erfassen. Jetzt wollte ich mir mittels Excel VBA einen Datenlogger erstellen - was eigentlich ganz gut funktioniert, jedoch weichen die Daten welche ich aus dem JSON Container extrahiere doch einigermaßen extrem von den Werten der Weboberfläche des Shellys ab.

Vielleicht hat jemand schon die selbe Erfahrung gemacht und kann mir Tipps geben wie ich vorgehen kann!

apreick

Woher holst du die Daten?

Geht doch bestimmt über die Cloud und dort bekommst 1 Datenpunkt pro std (min/max)

Daher kommt wahrscheinlich der unterschied

Zitat von Gerhard_Unger

Tipps geben wie ich vorgehen kann!

Eigenes Übergeordnetes System, wie Homeassistant

tvbshelly

Oder zumindest die Daten per RPC direkt beim Shelly abholen.

Gerhard_Unger

Ich mache die Abfrage der Sensoren mit folgenden Code:

Code

Sub TestSensoren()
    Dim jsonStr100 As String
    Dim jsonStr101 As String
    Dim jsonObj100 As Object
    Dim jsonObj101 As Object
    Dim tC100 As Double
    Dim tC101 As Double
    
    jsonStr100 = GetHTTP("http://192.168.0.243/rpc/Temperature.GetStatus?id=100")
    jsonStr101 = GetHTTP("http://192.168.0.243/rpc/Temperature.GetStatus?id=101")
    
    ' JSON parsen
    Set jsonObj100 = ParseJson(jsonStr100)
    tC100 = jsonObj100("tC")
    Set jsonObj101 = ParseJson(jsonStr101)
    tC101 = jsonObj101("tC")
    
    MsgBox "Sensor 100: tC = " & tC100 & "°C" & vbNewLine & "Sensor 101: tC = " & tC101 & "°C"
    
End Sub

'--------------------------------------------------
' HTTP GET-Funktion
'--------------------------------------------------
Public Function GetHTTP(url As String) As String
    Dim Http As Object
    Set Http = CreateObject("MSXML2.XMLHTTP")
    Http.Open "GET", url, False
    Http.Send
    GetHTTP = Http.ResponseText
End Function

Alles anzeigen

Ich arbeite mit den JSon Coverter von GITHUB

https://github.com/VBA-tools/VBA-JSON

Jedoch erhalte ich zum Teil Temperaturabweichungen zum Webinterface von bis zu 5°C, was ich mir nicht erklären kann!

Cephalopod

Wie gesagt, die Frage ist, ob die Daten aus der Cloud (nur 1 Wert pro Stunde) oder direkt vom Gerät (1 Wert pro Minute) kommen.

Wenn man per MQTT die Daten vom Gerät holt, hat man die Minültichen Werte.