<?
/*
*******************************
 IP-SYMCON Event Scripting
*******************************
File     : ws300_auslesen.ips.php
Trigger  :
Interval : alle 120 sec?? (update WS300 alle 5 min?)

Kommunikationsparameter:
    Baudrate: 19.200
    Datenbits: 8
    Stopbits: 1
    Parität: even
    RTS: disabeld
    DTR: clr
    Flowcontrol: none
    Break: Disable

grundsätzlich gilt: die kommunikation der ws300 erfolgt im hexadezimalen
Zahlenbereich. Die werte der station erhält man durch umrechnen in dezimal

Anforderungssequenz an WS300:
    FE 31 FC: holt den  nächsten Datensatz im Speicher   (254 49 252)
    FE 32 FC: ist eine Status abfrage                    (... 50 ...)
    FE 33 FC: holt den aktuellen datensatz               (... 51 ...)
    FE 34 FC: holt die Firmwareversion                   (... 52 ...)

Die Kennzeichnung der Antworten erfolgt durch 2 Byte am Anfang (z.B. FE 31)
und dem EndByte (FC)

"nächster Datensatz":
43 Bytes Beginnt mit "FE 31" -- Endet mit "FC"

"aktueller Datensatz":
40 Bytes Geginnt mit "FE 33" -- Endet mit "FC"

!!ACHTUNG!! sind im Antwortstring Wertgrößen = Steuerzeichen, werden diese
"geescaped". Dadurch wird der String länger, das Escapezeichen muss gelöscht
und der folgende Wert um 1 reduziert werden.

*/

// Sequenzcodes:
$ESCAPEZEICHEN = 248;
$STARTZEICHEN = 254;
$ENDEZEICHEN = 252;
$AKTUELLER_DATENSATZ = 51;
$NAECHSTER_DATENSATZ = 49;

//"WS300_AusleseString" ist die Variable in "Variables"
$WS300SYMString = "WS300_AusleseString";

$debugging = true;
$clearMemory = true;  // unklar ob es sinnvoll ist den WS300-Speicher zu löschen

//ab hier Programmcode:---------------------------------------------------------

function makeWord($hiByte, $loByte) {
	if (ord($hiByte) > 127) {
		return( ( ( (255-ord($hiByte))*256+(255-ord($loByte))) *-1) - 1 );
	} else {
		return (ord($hiByte)*256)+ord($loByte);
	}
}

// ?? sicher ist sicher; muss man den "Einlesestring vor Benutzung leeren" ??
$unescapedStr ="";

// >>> den aktuellen Datensatz von der WS300 anfordern
if (RegVar_SendBuffer(10893, Chr($STARTZEICHEN).Chr($AKTUELLER_DATENSATZ).Chr($ENDEZEICHEN)))
	if ($debugging) echo "WS300Abruf:ok ";
else
	if ($debugging) echo "WS300Abruf:Error ";

usleep(100);  // ?? 0,1 sec. Zeit für die Übertragung - ob mann´s braucht ??

// <<< die Antwort der Ws300
$buffer_ws300_string = getvaluestring ($WS300SYMString);

if (ord($buffer_ws300_string{0}) != $STARTZEICHEN) die("WS300StartChar:(".ord($buffer_ws300_string{0})." != ".$STARTZEICHEN.")");

if ($debugging) echo "\nUnescaped (1): ";

 //Antwort "unescapen"
for($i=2; $i<strlen($buffer_ws300_string)-1; $i++) {

   switch($buffer_ws300_string{$i}):
	case $ESCAPEZEICHEN:
		$i++; // ESCAPEZEICHEN überspringen
	    $unescapedStr .= $buffer_ws300_string{$i}-1;
	    if ($debugging) echo "ESC, ";
	    if ($debugging) echo dechex(ord($buffer_ws300_string{$i})).", ";
	    break;
	default:
		$unescapedStr .= $buffer_ws300_string{$i};
		if ($debugging) echo dechex(ord($buffer_ws300_string{$i})).", ";
   endswitch;
}

if (strlen($unescapedStr) != 37) die("Antwortstring unplausibel! Länge falsch(".strlen($unescapedStr).")");

if ($debugging) echo "\nEscaped (2)    : ";

//alle Funksensoren in Arrays schreiben
$j=1;
for ($i=0; $i<25; $i = $i+3) {
	$temperatur[$j] = makeWord($unescapedStr{$i},$unescapedStr{$i+1});
	$feuchte[$j] = ord($unescapedStr{$i+2});
	if ($debugging) echo dechex(ord($unescapedStr{$i})).", ";
	if ($debugging) echo dechex(ord($unescapedStr{$i+1})).", ";
	if ($debugging) echo dechex(ord($unescapedStr{$i+2}))."; ";
	$j++;
}
//... und jetzt die "Standardsensoren";
$rain = makeWord($unescapedStr{$i++},$unescapedStr{$i++});
   if ($debugging) echo $rain.", ";
$wind = makeWord($unescapedStr{$i++},$unescapedStr{$i++});
   if ($debugging) echo $wind.", ";
$temperatur[0] = makeWord($unescapedStr{$i++},$unescapedStr{$i++});
   if ($debugging) echo $temperatur[0].", ";
$feuchte[0] = ord($unescapedStr{$i++});
   if ($debugging) echo $feuchte[0].", ";
$luftdruck = makeWord($unescapedStr{$i++},$unescapedStr{$i++});
   if ($debugging) echo $luftdruck.", ";
   
// Anpassung Luftdruck auf "Meereshöhe" (NN)
//--------------------------------------------
// ein paar bekannte Konstanten aus der Natur:
$g = 9.811;
$R = 287.05;
$pi = $feuchte[9];
$Ch = 0.12;
$a = 0.0065;

$hoehe = 137;//(in m) wie hoch steht die Station über NN

$temp_Kel = $temperatur[9] + 273.15; // Umrechnung Celsius in Kelvin

// das kommt vom "Wetteramt"
if ($temperatur[9] < 9.1)
   $E = 5.6402 * (-0.0916 + exp (0.06 * $temperatur[9]) );
else
   $E = 18.2194 * (1.0463 - exp (-0.066 * $temperatur[9]) );

$luftdruck_reduk = $luftdruck * exp( ($g / ($R * ($temp_Kel + $Ch * $E + $a * $hoehe / 2) ) ) * $hoehe );
$wetterstatus = ord($unescapedStr{$i++});

// den Speicher im WS300 leeren ??
if ($clearMemory) {
$i = 0;
   do {
    SetValueString ($WS300SYMString, "\0");
	usleep(100);
	 echo "\n";
    echo "lösche...";
    RegVar_SendBuffer(10893, Chr($STARTZEICHEN).Chr($NAECHSTER_DATENSATZ).Chr($ENDEZEICHEN));
	$i++;
   } while ( (strlen(getvaluestring ($WS300SYMString)) > 5) && ($i < 20) );
}
SetValueString ($WS300SYMString, "\0");

// IPS-Zuweisungen: die "WS300.." sind die in IPS definierten Variablen
SetValueFloat ("WS300_InnenTemperatur", ($temperatur[0]/10));
SetValueFloat ("WS300_InnenFeuchte", $feuchte[0]);

SetValueFloat ("WS300_Sensor1_Temp", ($temperatur[1]/10));
SetValueFloat ("WS300_Sensor1_Feuchte", $feuchte[1]);

SetValueFloat ("WS300_Sensor2_Temp", ($temperatur[2]/10));
SetValueFloat ("WS300_Sensor2_Feuchte", $feuchte[2]);

SetValueFloat ("WS300_Sensor3_Temp", ($temperatur[3]/10));
SetValueFloat ("WS300_Sensor3_Feuchte", $feuchte[3]);

SetValueFloat ("WS300_Sensor4_Temp", ($temperatur[4]/10));
SetValueFloat ("WS300_Sensor4_Feuchte", $feuchte[4]);

SetValueFloat ("WS300_Sensor5_Temp", ($temperatur[5]/10));
SetValueFloat ("WS300_Sensor5_Feuchte", $feuchte[5]);

SetValueFloat ("WS300_Sensor6_Temp", ($temperatur[6]/10));
SetValueFloat ("WS300_Sensor6_Feuchte", $feuchte[6]);

SetValueFloat ("WS300_Sensor7_Temp", ($temperatur[7]/10));
SetValueFloat ("WS300_Sensor7_Feuchte", $feuchte[7]);

SetValueFloat ("WS300_Sensor8_Temp", ($temperatur[8]/10));
SetValueFloat ("WS300_Sensor8_Feuchte", $feuchte[8]);

SetValueFloat ("WS300_Aussentemperatur", ($temperatur[9]/10));
SetValueFloat ("WS300_AussenFeuchte", $feuchte[9]);

SetValueFloat ("WS300_Luftdruck", $luftdruck_reduk);
SetValueFloat ("WS300_Luftdruck_raw", $luftdruck);
SetValueFloat ("WS300_Windgeschwindigkeit", $wind/10);
SetValueFloat ("WS300_RegenmengenZaehler", $rain);

// HILFE!
echo "\n";
echo ("Innentemperatur: ".($temperatur[0]/10)."° //  ");
echo ("Innenfeuchte: ".$feuchte[0]."%");
echo "\nLuftdruck Meereshöhe: ";
echo ceil($luftdruck_reduk);
echo "  //  Luftdruck Station: ";
echo $luftdruck;
echo "\n";
echo "Wind: ";
echo $wind/10 ;
echo "\n";
echo "Wippen: ";
echo $rain;
?>