IPS-868 RGBW und Raumtemperatur

Also…,Chromoflex funktioniert auch.
Mal sehen was ich mir da für die Glatteiszeit draus baue…
Coole Sache.

Ja … Ja … Ja!! :slight_smile:

Ich sag ja schon nichts mehr. :wink:

@Bernardo71

Kanst Du das abgeänderte Script für deine Chromoflex-Kollegen noch mal einstellen?

Besten Dank.


<?
/*=============================================================
Temp_Visu - Martin Heinzel - 21.09.2011
Version: 1.1

Beschreibung:
Mit diesem Script wird ein Temperaturverlauf über RGB's dargestellt.

Änderungen
----------

22.09.2011 von Version 1.0 -> 1.1

Beschreibung:

Farbe Grün integriert.

================================================================*/

// Variablen Deklaration --------------------------------------

// ID's
//--------------
$id_RGB         = 22997 /*[Weitere\Administration\LED\Chromoflex III RC STRIPE]*/;
$id_IstTemp    = 19062 /*[Aussen\Eingang\Temperatur und Feuchte vorne\TEMPERATURE]*/;

// Variablen
//--------------
$TempUG        = -10.0;
$TempOG        = 35.0;

//-------------------------------------------------------------

//---------------------------- Main -----------------------------
//Einlesen der Isttemperatur
$TempAct            =  GetValueFloat($id_IstTemp);

//Berechnung der Mittentemperatur
$Center        =  $TempUG + (( $TempOG - $TempUG ) / 2);

//Rotanteil
//----------
$Rot = (int)Scaling($TempAct, $Center, $TempOG, 0.0, 255.0);
//Begrenzen Min
If ($Rot < 0)         $Rot = 0;
//Begrenzen Max
If ($Rot > 255)     $Rot = 255;
$Zeit_Rot = 0;

//Grümanteil
//----------
If ($TempAct <= $Center)
{
    $Gruen = (int)Scaling($TempAct, $TempUG, $Center, 0.0, 255.0);
}
else
{
    $Gruen = (int)Scaling($TempAct, $Center, $TempOG, 255.0, 0.0);
}
//Begrenzen Min
If ($Gruen < 0)         $Gruen = 0;
//Begrenzen Max
If ($Gruen > 255)     $Gruen = 255;
$Zeit_Gruen = 0;

//Blauanteil
//----------
$Blau = (int)Scaling($TempAct, $TempUG, $Center, 255.0, 0.0);
//Begrenzen Min
If ($Blau < 0)         $Blau = 0;
//Begrenzen Max
If ($Blau > 255)         $Blau = 255;
$Zeit_Blau = 0;

ChromoflexRC_SetColor($id_RGB,$Rot,$Gruen,$Blau,100);

//-------------------------- Main ENDE --------------------------

function Scaling($In, $InUG, $InOG, $OutUG, $OutOG)
            {
            /*=============================================================
            Scaling - Martin Heinzel - 21.09.2011
            Version: 1.0

            Beschreibung:
            Diese Funktion scaliert einen Wert nach der Form:

                  ( ( In - In_Min )                            )
            Out = (------------------- x ( Out_Max - Out_Min ) ) + Out_Min
                  (( In_Max - In_Min )                         )

            Änderungen
            ----------

            tt.mm.jjjj von Version x.x -> y.y

            Beschreibung:

            ================================================================*/

            //---------------------------- Main -----------------------------

            return ($In - $InUG) / ($InOG - $InUG) * ($OutOG - $OutUG) + $OutUG;

            //-------------------------- Main ENDE --------------------------

            }
?>