Projekt Haussteuerung

[Sarek]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo emilio,

welche Sensorik verwendest du für Feuchte, Temp, und Durchfluß?

 

[emilio20]

Hallo Sarek,
ich verwende für Feuchte/Temp diese Sensoren
http://www.sensorshop24.de/Feuchtef...V-Temperatur-Passiv-Sensor-frei-waehlbar.html

für Durchfluss habe ich einfache Durchflussmesser mit Pulsausgang
http://www.voelkner.de/products/142658/Dfm-Messing-Anschluss-R-1.html

 

[duesterk]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hey,
wie hast du denn deine Lichtsteuerung realisiert? Mich würde die Einbindung der Philips HUE an die SPS interessieren.

Gruß Kevin

 

[emilio20]

Hallo duesterk
bei Philips Hue gibt es eine API
http://www.developers.meethue.com/documentation/core-concepts

Ich habe mir verschiedene VBS erstellt mit der des möglich ist den Aktuellen Status der Lampen auszulessen oder die Farben, Helligkeit, Status zu ändern.

Du must zuerst im Bride einen User anlegen. Ist in der Anleitung beschieben.
Anschließend kannst du mit diesem VBS die Farbe, Sättigung, Helligkeit ändern

Function Hue_Farbe(ByRef light, ByRef state, ByVal sat, ByVal bri, ByVal hue)

Hue_Farbe=False
'*************************************************************************************************************************************
'Funktion um Philips HUE Farben zu ändern
'*************************************************************************************************************************************
Dim sat2, hue2, bri2
Dim IP, Username
Dim MyURL , postData 
Dim winHttpReq 
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")



    IP=192.168.178.xxx
    Username=123456789

        
    MyURL = "http://"&IP&"/api/"&Username&"/lights/" & light & "/state"
        
    'Umrechung Werte
        
    bri =Round ( bri/100*255) 
    hue =Round ( hue/360*65280)
    sat =Round ( sat/100*255)
        
    'ShowSystemAlarm "bri: " & bri & " hue: " & hue & " sat: " & sat   '...
        
    'sat zu Anfrage hinzufügen wenn größer als 1
    If sat >1 Then
        sat2 = ",""sat"": "& sat &""
            
    End If 
        
        
    'bri zu Anfrage hinzufügen wenn größer als 1
    If bri >1 Then
        bri2 = ",""bri"": "& bri &""
            
    End If     
        
    'hue zu Anfrage hinzufügen wenn größer als 1
    If hue >1 Then
        hue2 = ",""hue"": "& hue &""
            
    End If     
        
    'Farbe Wechseln 
        
    postData = "{""on"":  true "&sat2&" "&bri2&" "&hue2&"}"
    winHttpReq.Open "PUT", MyURL, False
    winHttpReq.Send (postData)

        
    
Hue_Farbe=True


End Function

 

[duesterk]

Danke für die schnelle Antwort. Werde ich mal so testen
Gruß Kevin