Also…,Chromoflex funktioniert auch.
Mal sehen was ich mir da für die Glatteiszeit draus baue…
Coole Sache.
Ja … Ja … Ja!!
Ich sag ja schon nichts mehr.
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 --------------------------
}
?>