Script Hilfe für Abfrage Serielle Kommunikation gesucht!

wendy2702

OK.

Kabel ist kein Problem. Aber da die Heizung im Garagen Anbau steht … brrr... ist mir das heute zu kühl mit einem Kurzen Kabel.

Morgen komme ich an mein 10 m Kabel. Da kann ich im warmen sitzen bleiben

pafra

Noch ein kleiner Tipp:

Probier's vielleicht erst mal über ein Terminal-Programm.

Hterm z.B.

Dann weißt Du zumindest, dass die Hardware funktioniert.

Und Du musst in der WP den Fernzugriff einschalten.

Wenn nix geht, dann schau mal in der WP, ob das Flachbandkabel am Resümat angesteckt ist.

Viel Erfolg morgen!

Gruß

Franz

wendy2702

Hi Franz,

abfrage mit HTERM klappt nach Kabel anstecken und freischalten des Fernzugangs.

Script läuft aber auf dem alten Testrechner der jetzt an der WP steht nicht.

Muss das Teilchen mal auf den aktuellen Stand bringen und dann testen.

Mirko

pafra

Hallo Mirko,

das hört sich doch schon mal gut an.

Bin schon gespannt.

Gruß

Franz

pafra

Hallo Mirko,

ich habe gestern jetzt selber noch etwas probiert und hätte jetzt eventuell eine Ausweichlösung mit einem Python-Script.

Das muss ich jetzt erst aber erst ausführlich testen.

Falls das also direkt mit JavaScript mit dem iobroker nicht funktionieren sollte, dann könnten wir hier weitermachen.

Gruß

Franz

wendy2702

Hi Franz,

als du mit deinem Script die Werte ausgelesen hast, wurde die Ausgabe dann komplett in der Console angezeigt?

Ich kann aktuell mit Sniffer sehen das die Antwort der WP am Serialport ankommt aber das Javascript zeigt mir das nicht in der Console an.

Benutze aktuell einen PI3 mit USB Serial Konverter mit PL2303 Chip.

Mirko

Homoran

~~@wendy2702:~~

aber das Javascript zeigt mir das nicht in der Console an. `
Das liegt evtl. an einem Bug in der aktuellen version des js-Adapters.

Bitte im Reiter log nachsehen.

Gruß

Rainer

wendy2702

Hi Rainer,

den Bug kenne ich. Im Log erscheint es leider auch nicht deshalb vermute ich das Problem woanders.

Schreibe gerade ein neues Thema dazu.

Mirko

pafra

Hallo Mirko,

ich habe das Script nur mit einem zweiten PC getestet, auf dem hterm gelaufen ist.

Ob die Wärmepumpe darauf wirklich antwortet kann ich Dir leider nicht sagen…

Gruß

Franz

pafra

Hallo Mirko,

ich arbeite gerade an dem Javascript zur Konvertierung der Rückantwort der Wärmepumpe.

Als Input dafür braucht das Script die reine Rückantwort der WP ohne Leerzeichen im Objekt Waterkotte.Daten.Rohdaten

Also: FF100200171FBE180B060105011010D2A33EA8F5923F782A0B3F5B0F00427208FE41BA1F1442ECFF4742721C4E425238DEC200007041705363412DCF32419A4D89410BB1B3410000A0410000000000000000000000005B0F00427208FE41000090417208FE41721C4E42081715170212E154B545EC27AA453C1BB44310100600230101010101010101010101010000000000AF630000080628140E0B021200A1280000986BC7404D357141664A404105528141D6BCF441614CF3413BFAC0415953724203000000A04100000000000000002769030000002800050000568B000000000000000050080C003713060A0811012700BB01270028351210031BD0FF

Für alle Werte brauche ich aber noch etwas, da das ja auch einige sind.

Die, die ich bisher gemacht habe, funktionieren aber schon einwandfrei.

Gruß

Franz

wendy2702

Da bist du weiter als ich.

Unter iobroker gelingt es mir mit meinen rudimentären Javascript Kenntnissen nicht die Ausgabe der WP zu bekommen.

Läuft das bei dir unter iobroker oder testest du noch extern?

Mirko

pafra

Hallo Mirko,

die Sache mit der RS232 über iobroker habe ich jetzt nicht mehr weiter verfolgt, da Du Dich ja dem angenommen hast.

Da habe ich also nichts mehr damit gemacht.

Wie oben bereits geschrieben habe ich jetzt ein Python Script mit dem ich die WP auslesen kann.

Das ist aber echt nur quick and dirty - aber es geht zumindest.

Wie zuverlässig das ist muss ich aber erst noch testen.

Das Python Script schickt mir den Rohdaten-String dann in "Waterkotte.Daten.Rohdaten"

Das Extrahieren der Werte mache ich mit dem iobroker unter Javascript.

Da bin ich aber auch noch dran.

Wenn Du also mit der seriellen Abfrage direkt über den iobroker nicht weiter kommst, dann kannst Du das Python Script und das Javascript von mir haben.

Ich möchte zum Abschluss sowieso ein Howto hier im Forum posten.

Gruß

Franz

wendy2702

Hi Franz,

Ausgabe der WP Daten kommen jetzt. Allerdings schreibt er die noch nicht komplett in den Datenpunkt.

Wenn du mir irgendwann mal die Scripte zur Verfügung stellst wäre das super.

Ich bleibe aber weiterhin am Ball.

Gruß

Mirko

pafra

Hi Mirko,

hört sich doch schon mal gut an.

Das, was ich bisher mit dem JavaScript umgesetzt habe, scheint auch zu funktionieren.

Siehe Anhang.

Ist aber noch viel Arbeit…

Ideal wäre jetzt natürlich, dass sowohl das Auslesen als auch die Umwandlung direkt mit dem iobroker gehen würde.

Das Python Script funktioniert zwar, liefert aber manchmal nicht die komplette Antwort der Wärmepumpe.

Macht aber nicht unbedingt so viel aus, da die (zumindest für mich) wichtigen Daten im vorderen Teil stehen.

Gruß

Franz

wendy2702

Das sieht ja schon richtig gut aus.

Denke das mit dem JavaScript und/oder NodeRed klappt auch bald.

Bei beiden kommen die Daten scheinbar relativ zuverlässig komplett raus.

Muss es nur nach schaffen das alle Daten in Datenpunkten landen.

Gesendet von iPhone mit Tapatalk Pro

wendy2702

Hi Franz,

die Daten liegen jetzt mit diesem Script komplett im Datenpunkt: (funktioniert zumindest bei mir )

>! 
createState('Waterkotte.Daten.Rohdaten');
>! // To use the `ByteLength` parser:
const SerialPort = require('serialport');
const ByteLength = SerialPort.parsers.ByteLength;
>! var buffer = new Buffer(12);
buffer[0] = 0x10;
buffer[1] = 0x02;
buffer[2] = 0x01;
buffer[3] = 0x15;
buffer[4] = 0x00;
buffer[5] = 0x00;
buffer[6] = 0x00;
buffer[7] = 0xf3;
buffer[8] = 0x10;
buffer[9] = 0x03;
buffer[10] = 0x7c;
buffer[11] = 0x32;
const port = new SerialPort("/dev/ttyUSB0", {
    baudRate: 9600,
    dataBits : 8,
    parity : 'none',
    stopBits: 1
//  flowControl : false
}, function (err) {
    if (err) {
        return console.log('Error1: ', err.message);
    }
>!     const parser = port.pipe(new ByteLength({ length: 253 }));
    parser.on('data', function (data) {
		console.log('Data received: ' + data.toString('hex'));
		var daten = data.toString('hex');
		setState('Waterkotte.Daten.Rohdaten', daten, true);
		//port.close();
	});
>! 	// Flush input
	port.flush();
>! 	// send Data
	port.write(buffer, function(err) {
		if (err) {
			return console.log('Error on write: ', err.message);
		}

		console.log('Daten send');
// 		port.close();
    });
});
>! port.on('open', function() {
	console.log('Connected');
});
>! port.on('error', function(err) {
	console.log('Error2: ', err.message);
//	port.close();
});
>! // close port if the script stopped (to be able to open it again)
onStop(function (callback) {
	if (port && port.isOpen) {
		port.close();
		console.log('port closed');
	}
});

Jetzt kann man Theoretisch das Script per CRON alle paar Sekunden/Minuten neu starten.. finde ich nicht so schön und werde versuchen ob ich es schaffe das der Port aufbleiben kann und nur die Anfrage alle "30sek" neu gesendet wird. Oder ist der Intervall zu groß?

EDIT_Script bisschen aufgeräumt

Mirko

pafra

~~@wendy2702:~~

…

Anfrage alle "30sek" neu gesendet wird. Oder ist der Intervall zu groß?

... `

Hi Mirko,

ich denke nicht.

Da sollten eigentlich auch alle 60 Sekunden reichen.

Wenn ich dazu komme, dann schaue ich mir das Script gleich heute Abend an.

Wenn die Datenübergabe zu meinem Script funktioniert, dann schick ich es Dir zum Testen zu.

Gruß

Franz

wendy2702

OK.

Dann versuche ich mich in der Zeit an dem "Poll".

Mirko

wendy2702

Script für @spaceduck

Abfrage Waterkotte Resümet

//createState('Waterkotte.Daten.Rohdaten');

createState('Waterkotte.Daten.Version');

createState('Waterkotte.Daten.Temp_Aussen_Ist');

createState('Waterkotte.Daten.Temp_Aussen_24h');

createState('Waterkotte.Daten.Temp_Aussen_1h');

createState('Waterkotte.Daten.Temp_Ruecklauf_Soll');

createState('Waterkotte.Daten.Temp_Ruecklauf_Ist');

createState('Waterkotte.Daten.Temp_Vorlauf');

createState('Waterkotte.Daten.Temp_WW_Soll');

createState('Waterkotte.Daten.Temp_WW_Ist');

createState('Waterkotte.Daten.Temp_Raum');

createState('Waterkotte.Daten.Temp_Raum_1h');

createState('Waterkotte.Daten.Temp_WQuelle_Ein');

createState('Waterkotte.Daten.Temp_WQuelle_Aus');

createState('Waterkotte.Daten.Temp_Verdampfer');

createState('Waterkotte.Daten.Temp_Kondensator');

createState('Waterkotte.Daten.Temp_Saugleitung');

createState('Waterkotte.Daten.Temp_frei');

createState('Waterkotte.Daten.Druck_Verdampfer');

createState('Waterkotte.Daten.Druck_Kondensator');

createState('Waterkotte.Daten.Temp_Ruecklauf_Soll');

createState('Waterkotte.Daten.Temp_Ruecklauf_Ist');

createState('Waterkotte.Daten.Status_Heizung');

createState('Waterkotte.Daten.Status_Warmwasser');

createState('Waterkotte.Daten.Status_Handabschaltung');



createState('Waterkotte.Daten.Status_WPumpe');

createState('Waterkotte.Daten.Mode_Heizung');

createState('Waterkotte.Daten.Mode_Heizung_EIN_Normal');

createState('Waterkotte.Daten.Mode_Heizung_EIN_Solar');

createState('Waterkotte.Daten.Mode_Heizung_EIN_externe_Anhebung');

createState('Waterkotte.Daten.Mode_Heizung_EIN_Schnellaufheizung');

createState('Waterkotte.Daten.Mode_Heizung_AUS_Zeitprogramm');

createState('Waterkotte.Daten.Mode_Heizung_AUS_Unterdrueckung');

createState('Waterkotte.Daten.Mode_Heizung_AUS_kein_Bedarf');

createState('Waterkotte.Daten.Mode_Heizung_AUS_wegen_Fuehlerfehler');

createState('Waterkotte.Daten.Mode_Warmwasser');

createState('Waterkotte.Daten.Mode_Warmwasser_EIN_Normal');

createState('Waterkotte.Daten.Mode_Warmwasser_EIN_Solar');

createState('Waterkotte.Daten.Mode_Warmwasser_AUS_Zeitprogramm');

createState('Waterkotte.Daten.Mode_Warmwasser_AUS_kein_Bedarf');

createState('Waterkotte.Daten.Mode_Warmwasser_AUS_Unterbrechung_wegen_Fuehlerfehler');

createState('Waterkotte.Daten.Mode_Warmwasser_AUS_Unterdrueckung');

createState('Waterkotte.Daten.Mode_Warmwasser_Solar');

createState('Waterkotte.Daten.Mode_Warmwasser_AUS_Solarnutzung');

createState('Waterkotte.Daten.Mode_Kuehlung_EIN_Normal');

createState('Waterkotte.Daten.Mode_Kuehlung_AUS');

createState('Waterkotte.Daten.Mode_Kuehlung_AUS_Unterbrechung');

createState('Waterkotte.Daten.Mode_Kuehlung_AUS_kein_Bedarf');

createState('Waterkotte.Daten.Mode_Kuehlung_AUS_Unterbrechung_wegen_Fuehlerfehler');

createState('Waterkotte.Daten.DI_Motorschutz_Kompressor');

createState('Waterkotte.Daten.DI_Niederdruck_Pressostat');

createState('Waterkotte.Daten.DI_Hochdruck_Pressostat');

createState('Waterkotte.Daten.DI_Pumpe_Quelle');

createState('Waterkotte.Daten.DI_Externe_Sollwertbeeinflussung');

createState('Waterkotte.Daten.DI_Externe_Abschaltung');

createState('Waterkotte.Daten.DO_Magnetventil');

createState('Waterkotte.Daten.DO_Kompressor1');

createState('Waterkotte.Daten.DO_Sammelstoermeldung');

createState('Waterkotte.Daten.DO_Umschaltventil_Kuehlung');

createState('Waterkotte.Daten.DO_Umschaltventil_Stufe2');

createState('Waterkotte.Daten.DO_Umschaltventil_Pumpe_Heizung');

createState('Waterkotte.Daten.DO_Umschaltventil_Pumpe_Warmwasser');

createState('Waterkotte.Daten.DO_Umschaltventil_Pumpe_Quelle');





var id = 'javascript.2.Waterkotte.Daten.Abfrage_Rohdaten';



var daten;

var Satz;

var inp;

var out;

var VersionsNr;

var TempAussenIst;

var TempAussen24h;

var TempAussen1h;

var TempRuecklaufSoll;

var TempRuecklaufIst;

var TempVorlauf;

var TempWWSoll;

var TempWWIst;

var TempRaum;

var TempRaum1h;

var TempWQuelleEin;

var TempWQuelleAus;

var TempVerdampfer;

var TempKondensator;

var TempSaugleitung;

var Tempfrei;



var DruckVerdampfer;

var DruckKondensator;



var TempRuecklaufSoll;

var TempRuecklaufIst;

var KuehlungTempRuecklaufSoll;

var KuehlungTempRuecklaufIst;

var TempWWIst;



var Zeit;

var Datum;

var BetriebsstundenKompressor;

var BetriebsstundenHeizung;

var BetriebsstundenWW;

var BetriebsstundenStufe2;

var BetriebsStundenMessZeitKompressor;

var BetriebsStundenMessDatumKompressor;

var BetriebsStundenMessZeitWPumpe;

var BetriebsStundenMessDatumWPumpe;

var BetriebsStundenResetKompressor;

var BetriebsStundenResetWPumpe;



var Kennwort;

var WerksEinstellungen;

var ResetWPumpe;

var CrcSumme;

var NStart;

var DisplayZeile1;

var DisplayZeile2;



var AusfallTime;

var AusfallDate;

var AusfallBetriebsZustaende;



var AusfallDoBuffer;



var AusfallDoMagnetventil;

var AusfallDoKompressor1;

var AusfallDoBufferBit3;

var AusfallDoUmschaltventilKuehlung;

var AusfallDoStufe2;

var AusfallDoPumpeHeizung;

var AusfallDoPumpeWarmwasser;

var AusfallDoPumpeQuelle;





var AusfallDiBuffer;



var AusfallDiMotorschutzkompressor;

var AusfallDiNiederdruckPressostat;

var AusfallDiHochdruckPressostat;

var AusfallDiPumpeQuelle;

var AusfallDiSoleMinnimum;

var AusfallDiBufferBit6;

var AusfallDiExterneSollwertbeeinflussung;

var AusfallDiExterneAbschaltung;

var AusfallAiTempQuelleEin;

var AusfallAiError;

var AusfallAiDi;

var AusfallAiTempAussen;

var AusfallAiTempQuelleAus;

var AusfallAiVerdampfung;

var AusfallAiTempHeizEin;

var AusfallAiTempHeizAus;

var AusfallAiKondensation;

var AusfallAiTempWWasser;

var AusfallAuxAiError;

var AusfallAuxAiDi;

var AusfallAiTempRaum;

var ClearAusfaelle;

var Unterbrechung;

var WarnungEingangsSeite;

var WarnungAusgangsSeite;

var WarnungSonstige;

var Ausfall;

var AiError;

var AiDi;

var AiCounter0;

var AuxAiError;

var AuxAiDi;

var BetriebsZustaende;

var DoBuffer;

var DiBuffer;



var GesStatus;

var StatusVerriegelung;

var StatusHeiz;

var StatusKuehl;

var StatusStufe2;

var StatusWWasser;

var StatusWPumpe;

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

var ModeHeiz;

var ModeHeizEINNormal;

var ModeHeizEINSolar;

var ModeHeizEinextAnhebung;

var ModeHeizEINSchnellaufheidzung;

var ModeHeizAUSZeitprogramm;

var ModeHeizAUSUnterdrueckung;

var ModeHeizAUSkeinBedarf;

var ModeHeizAUSwFuehlerf;

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

var ModeKuehl;

var ModeKuehlEINNormal;

var ModeKuehlAUS;

var ModeKuehlAUSUnterdrueckung;

var ModeKuehlAUSkeinBedarf;

var ModeKuehlAUSUnterbrechwFuehlerf;

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

var ModeWWasser;

var ModeWWassserINNormal;

var ModeWWasserEINSolar;

var ModeWWasserAUSZeitprogramm;

var ModeWWasserAUSkeinBedarf;

var ModeWWasserAUSUnterbrwFuehlerf;

var ModeWWasserAUSUnterdrueckung;

var ModeWWasserSolar;

var ModeWWasserAUSSolarNutzung;

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



var LoggerError;

var LoggerInitTime;

var LoggerInitDate;

var LoggerMaxRec;

var LoggerActRec;

var LoggerMaxActRec;

var LoggerSizeOfData;

var LoggerSizeOfDatenLoggerBuffer;







var DiMotorschutzkompressor;

var DiNiederdruckPressostat;

var DiHochdruckPressostat;

var DiPumpeQuelle;

var DiSoleMinnimum;

var DiBufferBit6;

var DiExterneSollwertbeeinflussung;

var DiExterneAbschaltung;



var DoMagnetventil;

var DoKompressor1;

var DoSammelstoermeldung;

var DoUmschaltventilKuehlung;

var DoStufe2;

var DoPumpeHeizung;

var DoPumpeWarmwasser;

var DoPumpeQuelle;





var VerdampfungstemperaturNiedrig;

var TempQuelleAustrittNiedrig;

var DiffQuelleEinQuelleAusHoch;

var DiffQuelleAusVerdampfungHoch;



var KondensationstemperaturHoch;

var DiffHzgVorlaufRuecklaufNiedrig;

var DiffHzgVorlaufRuecklaufHoch;

var DiffKondensationVorlaufHoch;



var HzgRuecklauffuehlerdefekt;

var HzgVorlauffuehlerdefekt;

var Aussenwandfuehlerdefekt;

var DoBufferHandstellung;

var SolestandMinimum;



var Handabschaltung;

var HzgEinsatzzeitpunktSollwert;

var HzgRuecklaufSollwertamEinsatzp;

var HeizkennlineSteigungSoll;

var HeizkennlineObereBegrenzung;

var HeizgSollwertanhebung4kfuer24h;

var PilotraumSollwert;

var PilotraumFaktor;

var ExterneAnhebung;

var FreigabeHeizung;

var SperrenHeizung;

var SollwertaenderungEin;

var SollwertaenderungAus;

var St2KlObereBegrenzung;

var KennlinieHysterese;

var PumpenNachlaufzeit;

var AbschaltungHeizung;

var KuehlungEinsatzzeitpunkt;

var RuecklauftempSollwertamEinsatzzeitp;

var KuehlungKennlinieSteigungSoll;

var KennlinieuntereBegrenzung;

var AbschaltungWW;

var WWZeitEin;

var WWZeitAus;

var WWSoll;

var BeckenwasserTempSoll;

var WarmwasserHysterese;

var BeckenwasserHysterese;

var ModemKlingelzeichen;

var Fremdzugriff;

var Schluesselnummer;

var SetBetriebsMode;



var HzgExterneFreigabe;

var HzgExterneRuecklaufsteuerung;

var St2TempQAusMin;

var St2TempVerdMin;

var EstrichAufheizen;

var HzgExterneSteuerung;

var St2beiEVUAbsch;

var FrgBeckenwasser;

var ScaleFaktor;

var OffsetNiederdr;

var OffsetHochdr;

var DoHandkanal;

var DoHandkanalEin;

var UnterdrWarnAus;

var UnterdrWarnSonst;

var UnterdrWarnEin;

var NeuStart;

var RunFlag;



on(id, function (obj) {

//function myScript() {



//Bitauswertung



function bitauswertung(Adresse)

{

//Bit 1

inp = Woerter[Adresse];

out = parseInt(inp,16);

out &= 1;

if (out == 1) { Bit1 = 1; }

 else { Bit1 = 0; }





//Bit 2

inp = Woerter[Adresse];

out = parseInt(inp,16);

out &= 2;

if (out == 2) { Bit2 = 1; }

 else { Bit2 = 0; }





//Bit 3

inp = Woerter[Adresse];

out = parseInt(inp,16);

out &= 4;

if (out == 4) { Bit3 = 1; }

 else { Bit3 = 0; }





//Bit 4

inp = Woerter[Adresse];

out = parseInt(inp,16);

out &= 8;

if (out == 8) { Bit4 = 1; }

 else { Bit4 = 0; }





//Bit 5

inp = Woerter[Adresse];

out = parseInt(inp,16);

out &= 16;

if (out == 16) { Bit5 = 1; }

 else { Bit5 = 0; }





//Bit 6

inp = Woerter[Adresse];

out = parseInt(inp,16);

out &= 32;

if (out == 32) { Bit6 = 1; }

 else { Bit6 = 0; }





//Bit 7

inp = Woerter[Adresse];

out = parseInt(inp,16);

out &= 64;

if (out == 64) { Bit7 = 1; }

 else { Bit7 = 0; }





//Bit 8

inp = Woerter[Adresse];

out = parseInt(inp,16);

out &= 128;

if (out == 128) { Bit8 = 1; }

 else { Bit8 = 0; }



}



// Formatierung des Integerbereichs

function dezInt(num,size,prefix)

{

 prefix=(prefix)?prefix:"0";

 var minus=(num<0)?"-":"", result=(prefix=="0")?minus:"";

 num=Math.abs(parseInt(num,10)); size-=(""+num).length;

 for(var i=1;i<=size;i++) { result+=""+prefix; }

 result+=((prefix!="0")?minus:"")+num; return result;

}



   

//IEEE nach Hex umrechnen

function IEEE754_Hex32ToDez(hexstr)

{

 var dez,bin1,bin2,bin3,bin4,bin,sign,expo,mant,nul8='00000000';



 bin1=nul8+parseInt(hexstr.substr(0,2),16).toString(2);

 bin2=nul8+parseInt(hexstr.substr(2,2),16).toString(2);

 bin3=nul8+parseInt(hexstr.substr(4,2),16).toString(2);

 bin4=nul8+parseInt(hexstr.substr(6,2),16).toString(2);



 bin1=bin1.substr(bin1.length-8,8);

 bin2=bin2.substr(bin2.length-8,8);

 bin3=bin3.substr(bin3.length-8,8);

 bin4=bin4.substr(bin4.length-8,8);



 bin=bin1+bin2+bin3+bin4;



 sign=parseInt(bin.charAt(0),2);    // Vorzeichen

 expo=parseInt(bin.substr(1,8),2);  // Exponent

 mant=parseInt(bin.substr(9,23),2); // Mantisse



 dez=(1-2*sign)*Math.pow(2,expo-127)*(1+mant/Math.pow(2,23));



   dez = dez*100;

   dez = Math.round(dez);

   dez = dez/100;



 return(dez);

}



daten = getState("javascript.2.Waterkotte.Daten.Abfrage_Rohdaten").val;





console.log('Daten:' + daten); 



i = 0;

var Satz = [];

while (i < daten.length) {

   var byte = daten.substr(i, 2);

   Satz = Satz + ' ' + byte;

   i=i+2;

}



console.log('Daten split:' + Satz); 



//WP-Antwort auf 10 10 durchsuchen und durc 10 ersetzen

Satz = Satz.replace(/10 10/g, "10");





// WP-Antwort in einzelne Bytes zerlegen

var Woerter = Satz.split(" ");



// Versions-Nr. berechnen

inp = Woerter[6]+ Woerter[7];

out=parseInt(inp,16);

VersionsNr = out;



console.log('Daten split:' + inp); 



// Versions-Datum berechnen

inp = Woerter[8];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker1 = out;

inp = Woerter[9];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker2 = out;

inp = Woerter[10];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker3 = out;

VersionsDatum = Merker1+ "." +Merker2+ "." +Merker3;



//Betriebsmode auslesen

inp = Woerter[11];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker1 = out;

inp = Woerter[12];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker2 = out;

inp = Woerter[13];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker3 = out;

Betriebsmode = Merker1+ "." +Merker2+ "." +Merker3;



//Temp-Aussen-Ist auslesen

TempAussenIst = IEEE754_Hex32ToDez(Woerter[17]+ Woerter[16]+ Woerter[15]+ Woerter[14]);



//Temp-Aussen-24h auslesen

TempAussen24h = IEEE754_Hex32ToDez(Woerter[21]+ Woerter[20]+ Woerter[19]+ Woerter[18]);



//Temp-Aussen-1h auslesen

TempAussen1h = IEEE754_Hex32ToDez(Woerter[25]+ Woerter[24]+ Woerter[23]+ Woerter[22]);



//Temp-Ruecklauf Soll auslesen

TempRuecklaufSoll = IEEE754_Hex32ToDez(Woerter[29]+ Woerter[28]+ Woerter[27]+ Woerter[26]);



//Temp-Ruecklauf IST auslesen

TempRuecklaufIst = IEEE754_Hex32ToDez(Woerter[33]+ Woerter[32]+ Woerter[31]+ Woerter[30]);



//Temp-Vorlauf auslesen

TempVorlauf = IEEE754_Hex32ToDez(Woerter[37]+ Woerter[36]+ Woerter[35]+ Woerter[34]);



//Temp-WW Soll auslesen

TempWWSoll = IEEE754_Hex32ToDez(Woerter[41]+ Woerter[40]+ Woerter[39]+ Woerter[38]);



//Temp-WW Ist auslesen

TempWWIst = IEEE754_Hex32ToDez(Woerter[45]+ Woerter[44]+ Woerter[43]+ Woerter[42]);



//Temp-Raum auslesen

TempRaum = IEEE754_Hex32ToDez(Woerter[49]+ Woerter[48]+ Woerter[47]+ Woerter[46]);



//Temp-Raum-1h auslesen

TempRaum1h = IEEE754_Hex32ToDez(Woerter[53]+ Woerter[52]+ Woerter[51]+ Woerter[50]);



//Temp-WQuelle-Ein

TempWQuelleEin = IEEE754_Hex32ToDez(Woerter[57]+ Woerter[56]+ Woerter[55]+ Woerter[54]);



//Temp-WQuelle-Aus

TempWQuelleAus = IEEE754_Hex32ToDez(Woerter[61]+ Woerter[60]+ Woerter[59]+ Woerter[58]);



//Temp-Verdampfer

TempVerdampfer= IEEE754_Hex32ToDez(Woerter[65]+ Woerter[64]+ Woerter[63]+ Woerter[62]);



//Temp-Kondensator

TempKondensator = IEEE754_Hex32ToDez(Woerter[69]+ Woerter[68]+ Woerter[67]+ Woerter[66]);



//Temp-Saugleitung

TempSaugleitung = IEEE754_Hex32ToDez(Woerter[73]+ Woerter[72]+ Woerter[71]+ Woerter[70]);



//Temp-frei

Tempfrei = IEEE754_Hex32ToDez(Woerter[77]+ Woerter[76]+ Woerter[75]+ Woerter[74]);



//Druck-Verdampfer

DruckVerdampfer = IEEE754_Hex32ToDez(Woerter[81]+ Woerter[80]+ Woerter[79]+ Woerter[78])



//Druck-Kondensator

DruckKondensator = IEEE754_Hex32ToDez(Woerter[85]+ Woerter[84]+ Woerter[83]+ Woerter[82]);



//Temp-Ruecklauf Soll

TempRuecklaufSoll = IEEE754_Hex32ToDez(Woerter[89]+ Woerter[88]+ Woerter[87]+ Woerter[86]);



//Temp-Ruecklauf Ist

TempRuecklaufIst = IEEE754_Hex32ToDez(Woerter[93]+ Woerter[92]+ Woerter[91]+ Woerter[90]);



//Kuehlung Temp Ruecklauf Soll

KuehlungTempRuecklaufSoll = IEEE754_Hex32ToDez(Woerter[97]+ Woerter[96]+ Woerter[95]+ Woerter[94]);



//Kuehlung Temp Ruecklauf Ist

KuehlungTempRuecklaufIst = IEEE754_Hex32ToDez(Woerter[101]+ Woerter[100]+ Woerter[99]+ Woerter[98]);



//Warmwasser Temp Ist

TempWWIst = IEEE754_Hex32ToDez(Woerter[105]+ Woerter[104]+ Woerter[103]+ Woerter[102]);



//Zeit

inp = Woerter[108];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker1 = out;

inp = Woerter[107];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker2 = out;

inp = Woerter[106];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker3 = out;

Zeit = Merker1+ ":" +Merker2+ ":" +Merker3;



//Datum

inp = Woerter[109];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker1 = out;

inp = Woerter[110];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker2 = out;

inp = Woerter[111];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker3 = out;

Datum = Merker1+ "." +Merker2+ "." +Merker3;



//Betriebsstunden Kompressor

BetriebsstundenKompressor = IEEE754_Hex32ToDez(Woerter[115]+ Woerter[114]+ Woerter[113]+ Woerter[112]);



//Betriebsstunden Heizung

BetriebsstundenHeizung = IEEE754_Hex32ToDez(Woerter[119]+ Woerter[118]+ Woerter[117]+ Woerter[116]);



//Betriebsstunden WW

BetriebsstundenWW = IEEE754_Hex32ToDez(Woerter[123]+ Woerter[122]+ Woerter[121]+ Woerter[120]);



//Betriebsstunden Stufe 2

BetriebsstundenStufe2 = IEEE754_Hex32ToDez(Woerter[127]+ Woerter[126]+ Woerter[125]+ Woerter[124]);



//BetriebsStunden MessZeit Kompressor

inp = Woerter[128];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker1 = out;

inp = Woerter[129];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker2 = out;

inp = Woerter[130];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker3 = out;

BetriebsStundenMessZeitKompressor = Merker1+ ":" +Merker2+ ":" +Merker3;



//BetriebsStunden MessDatum Kompressor

inp = Woerter[133];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker1 = out;

inp = Woerter[132];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker2 = out;

inp = Woerter[131];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker3 = out;

BetriebsStundenMessDatumKompressor = Merker1+ "." +Merker2+ "." +Merker3;



//BetriebsStunden MessZeit WPumpe

inp = Woerter[134];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker1 = out;

inp = Woerter[135];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker2 = out;

inp = Woerter[136];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker3 = out;

BetriebsStundenMessZeitWPumpe = Merker1+ ":" +Merker2+ ":" +Merker3;



//BetriebsStunden MessDatum WPumpe

inp = Woerter[139];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker1 = out;

inp = Woerter[138];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker2 = out;

inp = Woerter[137];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker3 = out;

BetriebsStundenMessDatumWPumpe = Merker1+ "." +Merker2+ "." +Merker3;



//BetriebsStunden Reset Kompressor

inp = Woerter[140];

BetriebsStundenResetKompressor = parseInt(inp,16);



//BetriebsStunden Reset WPumpe

inp = Woerter[141];

BetriebsStundenResetWPumpe = parseInt(inp,16);



//Kennwort

inp = Woerter[142];

Kennwort = parseInt(inp,16);



//WerksEinstellungen

inp = Woerter[143];

WerksEinstellungen = parseInt(inp,16);



//Reset WPumpe

inp = Woerter[144];

ResetWPumpe = parseInt(inp,16);



//Crc Summe

inp = Woerter[145]+ Woerter[146];

CrcSumme = parseInt(inp,16);



//NStart

inp = Woerter[147];

NStart = parseInt(inp,16);



//Display Zeile 1

inp = Woerter[148]+ Woerter[149];

DisplayZeile1 = parseInt(inp,16);



//Display Zeile 2

inp = Woerter[150];

DisplayZeile2 = parseInt(inp,16);



//AusfallTime

inp = Woerter[153];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker1 = out;

inp = Woerter[152];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker2 = out;

inp = Woerter[151];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker3 = out;

AusfallTime = Merker1+ ":" +Merker2+ ":" +Merker3;



//Ausfalldatum

inp = Woerter[154];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker1 = out;

inp = Woerter[155];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker2 = out;

inp = Woerter[156];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker3 = out;

AusfallDate = Merker1+ "." +Merker2+ "." +Merker3;



//Ausfall BetriebsZustaende.dec

inp = Woerter[157];

out = parseInt(inp,16);

out = out.toString(2);

AusfallBetriebsZustaende = dezInt(out,8)



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



//Ausfall DoBuffer.dec

inp = Woerter[158];

out = parseInt(inp,16);

out = out.toString(2);

AusfallDoBuffer = dezInt(out,8)





//Bitauswertung Ausfall DoBuffer



bitauswertung(158);



AusfallDoMagnetventil = Bit1;

AusfallDoKompressor1 = Bit2;

AusfallDoBufferBit3 = Bit3;

AusfallDoUmschaltventilKuehlung = Bit4;

AusfallDoStufe2 = Bit5;

AusfallDoPumpeHeizung = Bit6;

AusfallDoPumpeWarmwasser = Bit7;

AusfallDoPumpeQuelle = Bit8;



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



//Ausfall DiBuffer.dec

inp = Woerter[159];

out = parseInt(inp,16);

out = out.toString(2);

AusfallDiBuffer = dezInt(out,8)



// Bitauswertung Ausfall DiBuffer

bitauswertung (159);



AusfallDiMotorschutzkompressor = Bit1;

AusfallDiNiederdruckPressostat = Bit2;

AusfallDiHochdruckPressostat = Bit3;

AusfallDiPumpeQuelle = Bit4;

AusfallDiSoleMinnimum = Bit5;

AusfallDiBufferBit6 = Bit6;

AusfallDiExterneSollwertbeeinflussung = Bit7;

AusfallDiExterneAbschaltung = Bit8;



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



//AusfallAiError.dec

inp = Woerter[160];

out = parseInt(inp,16);

out = out.toString(2);

AusfallAiError = dezInt(out,8);



//AusfallAiDi.dec

inp = Woerter[161];

out = parseInt(inp,16);

out = out.toString(2);

AusfallAiDi = dezInt(out,8);



//AusfallAiTempAussen

AusfallAiTempAussen = IEEE754_Hex32ToDez(Woerter[165]+ Woerter[164]+ Woerter[163]+ Woerter[162]);



//AusfallAiTempQuelleEin

AusfallAiTempQuelleEin = IEEE754_Hex32ToDez(Woerter[169]+ Woerter[168]+ Woerter[167]+ Woerter[166]);



//AusfallAiTempQuelleAus

AusfallAiTempQuelleAus = IEEE754_Hex32ToDez(Woerter[173]+ Woerter[172]+ Woerter[171]+ Woerter[170]);



//AusfallAiVerdampfung

AusfallAiVerdampfung = IEEE754_Hex32ToDez(Woerter[177]+ Woerter[176]+ Woerter[175]+ Woerter[174]);



//AusfallAiTempHeizEin

AusfallAiTempHeizEin = IEEE754_Hex32ToDez(Woerter[181]+ Woerter[180]+ Woerter[179]+ Woerter[178]);



//AusfallAiTempHeizAus

AusfallAiTempHeizAus = IEEE754_Hex32ToDez(Woerter[185]+ Woerter[184]+ Woerter[183]+ Woerter[182]);



//AusfallAiKondensation

AusfallAiKondensation = IEEE754_Hex32ToDez(Woerter[189]+ Woerter[188]+ Woerter[187]+ Woerter[186]);



//AusfallAiTempWWasser

AusfallAiTempWWasser = IEEE754_Hex32ToDez(Woerter[193]+ Woerter[192]+ Woerter[191]+ Woerter[190]);



//AusfallAuxAiError.dec

inp = Woerter[194];

out = parseInt(inp,16);

out = out.toString(2);

AusfallAuxAiError = dezInt(out,8);



//AusfallAuxAiDi.dec

inp = Woerter[195];

out = parseInt(inp,16);

out = out.toString(2);

AusfallAuxAiDi = dezInt(out,8);



//AusfallAiTempRaum

AusfallAiTempRaum = IEEE754_Hex32ToDez(Woerter[199]+ Woerter[198]+ Woerter[197]+ Woerter[196]);



//ClearAusfaelle

inp = Woerter[200];

out=parseInt(inp,16);

ClearAusfaelle = out



//Unterbrechung.dec

inp = Woerter[201];

out = parseInt(inp,16);

out = out.toString(2);

Unterbrechung = dezInt(out,8);



//WarnungEingangsSeite.dec

inp = Woerter[202];

out = parseInt(inp,16);

out = out.toString(2);

WarnungEingangsSeite = dezInt(out,8);



//Bitauswertung WarnungEingangsSeite.dec

bitauswertung(202);

VerdampfungstemperaturNiedrig = Bit1;

TempQuelleAustrittNiedrig = Bit2;

DiffQuelleEinQuelleAusHoch = Bit3;

DiffQuelleAusVerdampfungHoch = Bit4;



//WarnungAusgangsSeite.dec

inp = Woerter[203];

out = parseInt(inp,16);

out = out.toString(2);

WarnungAusgangsSeite = dezInt(out,8);



//Bitauswertung WarnungAusgangsSeite.dec

bitauswertung(203);

KondensationstemperaturHoch = Bit2;

DiffHzgVorlaufRuecklaufNiedrig = Bit3;

DiffHzgVorlaufRuecklaufHoch = Bit4;

DiffKondensationVorlaufHoch = Bit6;



//WarnungSonstige.dec

inp = Woerter[204];

out = parseInt(inp,16);

out = out.toString(2);

WarnungSonstige = dezInt(out,8);



//Bitauswertung WarnungSonstige.dec

bitauswertung(204);

HzgRuecklauffuehlerdefekt = Bit1;

HzgVorlauffuehlerdefekt = Bit2;

Aussenwandfuehlerdefekt = Bit3;

DoBufferHandstellung = Bit4;

SolestandMinimum = Bit5;



//Ausfall.dec

inp = Woerter[205];

out = parseInt(inp,16);

out = out.toString(2);

Ausfall = dezInt(out,8);



//AiError.dec

inp = Woerter[206];

out = parseInt(inp,16);

out = out.toString(2);

AiError = dezInt(out,8);



//AiDi.dec

inp = Woerter[207];

out = parseInt(inp,16);

out = out.toString(2);

AiDi = dezInt(out,8);



//AiCounter0

inp = Woerter[208]+ Woerter[209];

out=parseInt(inp,16);

AiCounter0 = out;



//AuxAiError.dec

inp = Woerter[210];

out = parseInt(inp,16);

out = out.toString(2);

AuxAiError = dezInt(out,8);



//AuxAiDi.dec

inp = Woerter[211];

out = parseInt(inp,16);

out = out.toString(2);

AuxAiDi = dezInt(out,8);



//BetriebsZustaende.dec

inp = Woerter[212];

out = parseInt(inp,16);

out = out.toString(2);

BetriebsZustaende = dezInt(out,8);



//DoBuffer.dec

inp = Woerter[213];

out = parseInt(inp,16);

out = out.toString(2);

DoBuffer = dezInt(out,8);



//Bitauswertung DoBuffer

bitauswertung(213);



DoMagnetventil = Bit1;

DoKompressor1 = Bit2;

DoSammelstoermeldung = Bit3;

DoUmschaltventilKuehlung = Bit4;

DoStufe2 = Bit5;

DoPumpeHeizung = Bit6;

DoPumpeWarmwasser = Bit7;

DoPumpeQuelle = Bit8;



//DiBuffer.dec

inp = Woerter[214];

out = parseInt(inp,16);

out = out.toString(2);

DiBuffer = dezInt(out,8);



//Bitauswertung DiBuffer

bitauswertung(214);



DiMotorschutzkompressor = Bit1;

DiNiederdruckPressostat = Bit2;

DiHochdruckPressostat = Bit3;

DiPumpeQuelle = Bit4;

DiSoleMinnimum = Bit5;

DiBufferBit6 = Bit6;

DiExterneSollwertbeeinflussung = Bit7;

DiExterneAbschaltung = Bit8;



//GesStatus

inp = Woerter[215];

out = parseInt(inp,16);

out = out.toString(2);

Merker1 = dezInt(out,8);

inp = Woerter[216];

out = parseInt(inp,16);

out = out.toString(2);

Merker2 = dezInt(out,8);

GesStatus = Merker1+ "&nbsp;" +Merker2;



//StatusVerriegelung

inp = Woerter[217];

out = parseInt(inp,16);

out = out.toString(2);

Merker1 = dezInt(out,8);

inp = Woerter[218];

out = parseInt(inp,16);

out = out.toString(2);

Merker2 = dezInt(out,8);

StatusVerriegelung = Merker1+ "&nbsp;" +Merker2;



//StatusHeiz

inp = Woerter[219];

out = parseInt(inp,16);

out = out.toString(2);

Merker1 = dezInt(out,8);

inp = Woerter[220];

out = parseInt(inp,16);

out = out.toString(2);

Merker2 = dezInt(out,8);

StatusHeiz = Merker1+ "&nbsp;" +Merker2;



//StatusKuehl

inp = Woerter[221];

out = parseInt(inp,16);

out = out.toString(2);

Merker1 = dezInt(out,8);

inp = Woerter[222];

out = parseInt(inp,16);

out = out.toString(2);

Merker2 = dezInt(out,8);

StatusKuehl = Merker1+ "&nbsp;" +Merker2;



//StatusStufe2

inp = Woerter[223];

out = parseInt(inp,16);

out = out.toString(2);

Merker1 = dezInt(out,8);

inp = Woerter[224];

out = parseInt(inp,16);

out = out.toString(2);

Merker2 = dezInt(out,8);

StatusStufe2 = Merker1+ "&nbsp;" +Merker2;



//StatusWWasser

inp = Woerter[225];

out = parseInt(inp,16);

out = out.toString(2);

Merker1 = dezInt(out,8);

inp = Woerter[226];

out = parseInt(inp,16);

out = out.toString(2);

StatusWWasser = Merker1+ "&nbsp;" +Merker2;



//StatusWPumpe

inp = Woerter[227];

out = parseInt(inp,16);

out = out.toString(2);

Merker1 = dezInt(out,8);

inp = Woerter[228];

out = parseInt(inp,16);

out = out.toString(2);

StatusWPumpe = Merker1+ "&nbsp;" +Merker2;



//ModeHeiz.dec

inp = Woerter[229];

out = parseInt(inp,16);

out = out.toString(2);

ModeHeiz = dezInt(out,8);



//Bitauswertung ModeHeizung

bitauswertung(229);



ModeHeizEINNormal = Bit1;

ModeHeizEINSolar = Bit2;

ModeHeizEinextAnhebung = Bit3;

ModeHeizEINSchnellaufheidzung = Bit4;

ModeHeizAUSZeitprogramm = Bit5;

ModeHeizAUSUnterdrueckung = Bit6;

ModeHeizAUSkeinBedarf = Bit7;

ModeHeizAUSwFuehlerf = Bit8;



//ModeKuehl.dec

inp = Woerter[230];

out = parseInt(inp,16);

out = out.toString(2);

ModeKuehl = dezInt(out,8);



//Bitauswertung ModeKuehlen

bitauswertung(230);



ModeKuehlEINNormal = Bit1;

ModeKuehlAUS = Bit2;

ModeKuehlAUSUnterdrueckung = Bit3;

ModeKuehlAUSkeinBedarf = Bit4;

ModeKuehlAUSUnterbrechwFuehlerf = Bit5;





//ModeWWasser

inp = Woerter[231];

out = parseInt(inp,16);

out = out.toString(2);

ModeWWasser = dezInt(out,8);



//Bitauswertung ModeWWasser

bitauswertung(231);

ModeWWassserINNormal = Bit1;

ModeWWasserEINSolar = Bit2;

ModeWWasserAUSZeitprogramm = Bit3;

ModeWWasserAUSkeinBedarf = Bit4;

ModeWWasserAUSUnterbrwFuehlerf = Bit5;

ModeWWasserAUSUnterdrueckung = Bit6;

ModeWWasserSolar = Bit7;

ModeWWasserAUSSolarNutzung = Bit8;



//LoggerError

inp = Woerter[232];

out=parseInt(inp,16);

LoggerError = out;



//LoggerInitTime

inp = Woerter[235];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker1 = out;

inp = Woerter[234];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker2 = out;

inp = Woerter[233];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker3 = out;

LoggerInitTime = Merker1+ ":" +Merker2+ ":" +Merker3;



//LoggerInitDate

inp = Woerter[236];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker1 = out;

inp = Woerter[237];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker2 = out;

inp = Woerter[238];

out=parseInt(inp,16);

out =dezInt(out,2);

Merker3 = out;

LoggerInitDate = Merker1+ "." +Merker2+ "." +Merker3;



//LoggerMaxRec

inp = Woerter[239]+ Woerter[240];

out=parseInt(inp,16);

LoggerMaxRec = out;



//LoggerActRec

inp = Woerter[241]+ Woerter[242];

out=parseInt(inp,16);

LoggerActRec = out;



//LoggerMaxActRec

inp = Woerter[243]+ Woerter[244];

out=parseInt(inp,16);

LoggerMaxActRec = out;



//LoggerSizeOfData

inp = Woerter[245]+ Woerter[246];

out=parseInt(inp,16);

LoggerSizeOfData = out;



//LoggerSizeOfDatenLoggerBuffer

inp = Woerter[247]+ Woerter[248];

out=parseInt(inp,16);

LoggerSizeOfDatenLoggerBuffer = out;



//Handabschaltung

inp = Woerter[249];

out = parseInt(inp,16);

Handabschaltung = out;



//Hzg Einsatzzeitpunkt Sollwert

//HzgEinsatzzeitpunktSollwert = IEEE754_Hex32ToDez(Woerter[253]+ Woerter[252]+ Woerter[251]+ Woerter[250]);



//Hzg Ruecklauf Sollwert am Einsatzp.

//HzgRuecklaufSollwertamEinsatzp = IEEE754_Hex32ToDez(Woerter[257]+ Woerter[256]+ Woerter[255]+ Woerter[254]);



//Heizkennline Steigung Soll

//HeizkennlineSteigungSoll = IEEE754_Hex32ToDez(Woerter[261]+ Woerter[260]+ Woerter[259]+ Woerter[258]);



//Heizkennline Obere Begrenzung

//HeizkennlineObereBegrenzung = IEEE754_Hex32ToDez(Woerter[265]+ Woerter[264]+ Woerter[263]+ Woerter[262]);



//Heizung - Sollwertanhebung 4k fuer 24 Stunden

inp = Woerter[266];

out = parseInt(inp,16);

HeizgSollwertanhebung4kfuer24h = out



//Pilotraum Sollwert

//PilotraumSollwert = IEEE754_Hex32ToDez(Woerter[270]+ Woerter[269]+ Woerter[268]+ Woerter[267]);



//Pilotraum Faktor

inp = Woerter[271];

out = parseInt(inp,16);

PilotraumFaktor = out;



//Externe Anhebung

//ExterneAnhebung = IEEE754_Hex32ToDez(Woerter[275]+ Woerter[274]+ Woerter[273]+ Woerter[272]);



//Freigabe Heizung

inp = Woerter[278];

out=parseInt(inp,16);

Merker1 = out;

inp = Woerter[277];

out=parseInt(inp,16);

Merker2 = out;

inp = Woerter[276];

out=parseInt(inp,16);

Merker3 = out;

FreigabeHeizung = Merker1+ ":" +Merker2+ ":" +Merker3;



//Sperren Heizung

inp = Woerter[281];

out=parseInt(inp,16);

Merker1 = out;

inp = Woerter[280];

out=parseInt(inp,16);

Merker21 = out;

inp = Woerter[279];

out=parseInt(inp,16);

Merker3 = out;

SperrenHeizung = Merker1+ ":" +Merker2+ ":" +Merker3;



//Sollwertaenderung Ein

inp = Woerter[284];

out=parseInt(inp,16);

Merker1 = out;

inp = Woerter[283];

out=parseInt(inp,16);

Merker2 = out;

inp = Woerter[282];

out=parseInt(inp,16);

Merker3 = out;

SollwertaenderungEin = Merker1+ ":" +Merker2+ ":" +Merker3;



//Sollwertaenderung Aus

inp = Woerter[287];

out=parseInt(inp,16);

Merker1 = out;

inp = Woerter[286];

out=parseInt(inp,16);

Merker2 = out;

inp = Woerter[285];

out=parseInt(inp,16);

Merker3 = out;

SollwertaenderungAus = Merker1+ ":" +Merker2+ ":" +Merker3;



//Stufe 2 Kl. Obere Begrenzung

//St2KlObereBegrenzung = IEEE754_Hex32ToDez(Woerter[291]+ Woerter[290]+ Woerter[289]+ Woerter[288]);



//Kennlinie Hysterese

//KennlinieHysterese = IEEE754_Hex32ToDez(Woerter[295]+ Woerter[294]+ Woerter[293]+ Woerter[292]);



//Pumpen Nachlaufzeit

inp = Woerter[296];

out=parseInt(inp,16);

PumpenNachlaufzeit = out;



//Abschaltung Heizung

inp = Woerter[297];

out=parseInt(inp,16);

AbschaltungHeizung = out;



//Kuehlung Einsatzzeitpunkt

//KuehlungEinsatzzeitpunkt = IEEE754_Hex32ToDez(Woerter[301]+ Woerter[300]+ Woerter[299]+ Woerter[298]);



//Ruecklauftemp. Sollwert am Einsatzzeitp.

//RuecklauftempSollwertamEinsatzzeitp = IEEE754_Hex32ToDez(Woerter[305]+ Woerter[304]+ Woerter[303]+ Woerter[302]);



//Kuehlung Kennlinie Steigung Soll

//KuehlungKennlinieSteigungSoll = IEEE754_Hex32ToDez(Woerter[309]+ Woerter[308]+ Woerter[307]+ Woerter[306]);



//Kennlinie untere Begrenzung

//KennlinieuntereBegrenzung = IEEE754_Hex32ToDez(Woerter[313]+ Woerter[312]+ Woerter[311]+ Woerter[310]);



//Abschaltung Warmwasser

inp = Woerter[314];

out=parseInt(inp,16);

AbschaltungWW = out;



//Warmwasser Zeit ein

inp = Woerter[317];

out=parseInt(inp,16);

Merker1 = out;

inp = Woerter[316];

out=parseInt(inp,16);

Merker2 = out;

inp = Woerter[315];

out=parseInt(inp,16);

Merker3 = out;

WWZeitEin = Merker1+ ":" +Merker2+ ":" +Merker3;



//Warmwasser Zeit aus

inp = Woerter[320];

out=parseInt(inp,16);

Merker1 = out;

inp = Woerter[319];

out=parseInt(inp,16);

Merker2 = out;

inp = Woerter[318];

out=parseInt(inp,16);

Merker3 = out;

WWZeitAus = Merker1+ ":" +Merker2+ ":" +Merker3;



//Warmwasser Soll

//WWSoll = IEEE754_Hex32ToDez(Woerter[324]+ Woerter[323]+ Woerter[322]+ Woerter[321]);



//Beckenwasser Temperatur Soll

//BeckenwasserTempSoll = IEEE754_Hex32ToDez(Woerter[328]+ Woerter[327]+ Woerter[326]+ Woerter[325]);



//Warmwasser Hysterese

//WarmwasserHysterese = IEEE754_Hex32ToDez(Woerter[332]+ Woerter[331]+ Woerter[330]+ Woerter[329]);



//Beckenwasser Hysterese

//BeckenwasserHysterese = IEEE754_Hex32ToDez(Woerter[336]+ Woerter[335]+ Woerter[334]+ Woerter[333]);



//Modem Klingelzeichen

inp = Woerter[337];

out=parseInt(inp,16);

ModemKlingelzeichen = out;



//Fremdzugriff

inp = Woerter[338];

out=parseInt(inp,16);

Fremdzugriff = out;



//Schluesselnummer

inp = Woerter[339];

out=parseInt(inp,16);

Schluesselnummer = out;



//SetBetriebsMode

inp = Woerter[340];

out=parseInt(inp,16);

Merker1 = out;

inp = Woerter[341];

out=parseInt(inp,16);

Merker2 = out;

inp = Woerter[342];

out=parseInt(inp,16);

Merker3 = out;

SetBetriebsMode = Merker1+ "." +Merker2+ "." +Merker3;



//Hzg: Externe Freigabe

inp = Woerter[343];

out=parseInt(inp,16);

HzgExterneFreigabe = out;



//Hzg: Externe Ruecklaufsteuerung

//HzgExterneRuecklaufsteuerung = IEEE754_Hex32ToDez(Woerter[347]+ Woerter[346]+ Woerter[345]+ Woerter[344]);



//St2: TempQAus < Min

//St2TempQAusMin = IEEE754_Hex32ToDez(Woerter[351]+ Woerter[350]+ Woerter[349]+ Woerter[348]);



//St2: TempVerd < Min

//St2TempVerdMin = IEEE754_Hex32ToDez(Woerter[355]+ Woerter[354]+ Woerter[353]+ Woerter[352]);



//Estrich Aufheizen

inp = Woerter[356];

out=parseInt(inp,16);

EstrichAufheizen = out;



//Hzg: Externe Steuerung

inp = Woerter[357];

out=parseInt(inp,16);

HzgExterneSteuerung = out;



//St2 bei EVU Absch.

inp = Woerter[358];

out=parseInt(inp,16);

St2beiEVUAbsch = out;



//Frg. Beckenwasser

inp = Woerter[359];

out=parseInt(inp,16);

FrgBeckenwasser = out;



//Scale Faktor

//ScaleFaktor = IEEE754_Hex32ToDez(Woerter[363]+ Woerter[362]+ Woerter[361]+ Woerter[360]);



//Offset Niederdr.

//OffsetNiederdr = IEEE754_Hex32ToDez(Woerter[367]+ Woerter[366]+ Woerter[365]+ Woerter[364]);



//Offset Hochdr.

//OffsetHochdr = IEEE754_Hex32ToDez(Woerter[371]+ Woerter[370]+ Woerter[369]+ Woerter[368]);



//DO-Handkanal

inp = Woerter[372];

out=parseInt(inp,16);

DoHandkanal = out



//DO-Handkanal Ein

inp = Woerter[373];

out=parseInt(inp,16);

DoHandkanalEin = out;



//Unterdrückung Warnmeldungen Eingänge

inp = Woerter[374];

out=parseInt(inp,16);

out = out.toString(2);

UnterdrWarnEin = dezInt(out,8);



//Unterdrückung Warnmeldungen Ausgänge

inp = Woerter[375];

out=parseInt(inp,16);

out = out.toString(2);

UnterdrWarnAus = dezInt(out,8);



//Unterdrückung Warnmeldungen Sonstige

inp = Woerter[376];

out=parseInt(inp,16);

out = out.toString(2);

UnterdrWarnSonst = dezInt(out,8);



//Neu-Start

inp = Woerter[377];

out=parseInt(inp,16);

NeuStart = out;



//Run-Flag

inp = Woerter[378];

out=parseInt(inp,16);

RunFlag = out;







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

console.log('Temp aussen ist:' + TempAussenIst); 



setState('Waterkotte.Daten.Version', VersionsNr);

setState('Waterkotte.Daten.Temp_Aussen_Ist', TempAussenIst);

setState('Waterkotte.Daten.Temp_Aussen_24h', TempAussen24h);

setState('Waterkotte.Daten.Temp_Aussen_1h', TempAussen1h);

setState('Waterkotte.Daten.Temp_Ruecklauf_Soll', TempRuecklaufSoll);

setState('Waterkotte.Daten.Temp_Ruecklauf_Ist', TempRuecklaufIst);

setState('Waterkotte.Daten.Temp_Vorlauf', TempVorlauf);

setState('Waterkotte.Daten.Temp_WW_Soll', TempWWSoll);

setState('Waterkotte.Daten.Temp_WW_Ist', TempWWIst);

setState('Waterkotte.Daten.Temp_Raum', TempRaum);

setState('Waterkotte.Daten.Temp_Raum_1h', TempRaum1h);

setState('Waterkotte.Daten.Temp_WQuelle_Ein', TempWQuelleEin);

setState('Waterkotte.Daten.Temp_WQuelle_Aus', TempWQuelleAus);

setState('Waterkotte.Daten.Temp_Verdampfer', TempVerdampfer);

setState('Waterkotte.Daten.Temp_Kondensator', TempKondensator);

setState('Waterkotte.Daten.Temp_Saugleitung', TempSaugleitung);

setState('Waterkotte.Daten.Temp_frei', Tempfrei);

setState('Waterkotte.Daten.Druck_Verdampfer', DruckVerdampfer);

setState('Waterkotte.Daten.Druck_Kondensator', DruckKondensator);

setState('Waterkotte.Daten.Temp_Ruecklauf_Soll', TempRuecklaufSoll);

setState('Waterkotte.Daten.Temp_Ruecklauf_Ist', TempRuecklaufIst);

setState('Waterkotte.Daten.Status_Heizung', StatusHeiz);

setState('Waterkotte.Daten.Status_Handabschaltung',Handabschaltung);



setState('Waterkotte.Daten.Status_Warmwasser', StatusWWasser);

setState('Waterkotte.Daten.Status_WPumpe', StatusWPumpe);

setState('Waterkotte.Daten.Mode_Heizung', ModeHeiz);

setState('Waterkotte.Daten.Mode_Heizung_EIN_Normal', ModeHeizEINNormal);

setState('Waterkotte.Daten.Mode_Heizung_EIN_Solar', ModeHeizEINSolar);

setState('Waterkotte.Daten.Mode_Heizung_EIN_externe_Anhebung', ModeHeizEinextAnhebung);

setState('Waterkotte.Daten.Mode_Heizung_EIN_Schnellaufheizung', ModeHeizEINSchnellaufheidzung);

setState('Waterkotte.Daten.Mode_Heizung_AUS_Zeitprogramm', ModeHeizAUSZeitprogramm);

setState('Waterkotte.Daten.Mode_Heizung_AUS_Unterdrueckung', ModeHeizAUSUnterdrueckung);

setState('Waterkotte.Daten.Mode_Heizung_AUS_kein_Bedarf', ModeHeizAUSkeinBedarf);

setState('Waterkotte.Daten.Mode_Heizung_AUS_wegen_Fuehlerfehler', ModeHeizAUSwFuehlerf);

setState('Waterkotte.Daten.Mode_Warmwasser', ModeWWasser);

setState('Waterkotte.Daten.Mode_Warmwasser_EIN_Normal', ModeWWassserINNormal);

setState('Waterkotte.Daten.Mode_Warmwasser_EIN_Solar', ModeWWasserEINSolar);

setState('Waterkotte.Daten.Mode_Warmwasser_AUS_Zeitprogramm', ModeWWasserAUSZeitprogramm);

setState('Waterkotte.Daten.Mode_Warmwasser_AUS_kein_Bedarf', ModeWWasserAUSkeinBedarf);

setState('Waterkotte.Daten.Mode_Warmwasser_AUS_Unterbrechung_wegen_Fuehlerfehler', ModeWWasserAUSUnterbrwFuehlerf);

setState('Waterkotte.Daten.Mode_Warmwasser_AUS_Unterdrueckung', ModeWWasserAUSUnterdrueckung);

setState('Waterkotte.Daten.Mode_Warmwasser_Solar', ModeWWasserSolar);

setState('Waterkotte.Daten.Mode_Warmwasser_AUS_Solarnutzung', ModeWWasserAUSSolarNutzung);

setState('Waterkotte.Daten.Mode_Kuehlung_EIN_Normal', ModeKuehlEINNormal);

setState('Waterkotte.Daten.Mode_Kuehlung_AUS', ModeKuehlAUS);

setState('Waterkotte.Daten.Mode_Kuehlung_AUS_Unterbrechung', ModeKuehlAUSUnterdrueckung);

setState('Waterkotte.Daten.Mode_Kuehlung_AUS_kein_Bedarf', ModeKuehlAUSkeinBedarf);

setState('Waterkotte.Daten.Mode_Kuehlung_AUS_Unterbrechung_wegen_Fuehlerfehler', ModeKuehlAUSUnterbrechwFuehlerf);

setState('Waterkotte.Daten.DI_Motorschutz_Kompressor', DiMotorschutzkompressor);

setState('Waterkotte.Daten.DI_Niederdruck_Pressostat', DiNiederdruckPressostat);

setState('Waterkotte.Daten.DI_Hochdruck_Pressostat', DiHochdruckPressostat);

setState('Waterkotte.Daten.DI_Pumpe_Quelle', DiPumpeQuelle);

setState('Waterkotte.Daten.DI_Externe_Sollwertbeeinflussung', DiExterneSollwertbeeinflussung);

setState('Waterkotte.Daten.DI_Externe_Abschaltung', DiExterneAbschaltung);

setState('Waterkotte.Daten.DO_Magnetventil', DoMagnetventil);

setState('Waterkotte.Daten.DO_Kompressor1', DoKompressor1);

setState('Waterkotte.Daten.DO_Sammelstoermeldung', DoSammelstoermeldung);

setState('Waterkotte.Daten.DO_Umschaltventil_Kuehlung', DoUmschaltventilKuehlung);

setState('Waterkotte.Daten.DO_Umschaltventil_Stufe2', DoStufe2);

setState('Waterkotte.Daten.DO_Umschaltventil_Pumpe_Heizung', DoPumpeHeizung);

setState('Waterkotte.Daten.DO_Umschaltventil_Pumpe_Warmwasser', DoPumpeWarmwasser);

setState('Waterkotte.Daten.DO_Umschaltventil_Pumpe_Quelle', DoPumpeQuelle);





});

Zyklischer Start des Abfrage Scriptes in Blockly:

<xml xmlns="https://developers.google.com/blockly/xml">
 <variables>
   <variable type="cron" id="schedule1">schedule1</variable>
 </variables>
 <block type="schedule_create" id="U^a/a|R.Ag0SUHC5`R_X" x="-512" y="-63">
   <field name="NAME">schedule1</field>
   <value name="SCHEDULE">
     <shadow type="field_cron" id="RoVW,)EZwML}A7XD8Xc/">
       <field name="CRON">12 */3 * * * *</field>
     </shadow>
   </value>
   <statement name="STATEMENT">
     <block type="debug" id=";E~}`cmu%ZUC50DV#p?Y">
       <field name="Severity">log</field>
       <value name="TEXT">
         <shadow type="text" id="0w!y-Pmlm,f`O0?~@jC@">
           <field name="TEXT">Abfrage_Waterkotte</field>
         </shadow>
       </value>
       <next>
         <block type="controls_if" id="WEoLFzJ0#-xub!Bwhv~H">
           <value name="IF0">
             <block type="logic_operation" id="%[579SWxQ72Thpq|e}II" inline="false">
               <field name="OP">AND</field>
               <value name="A">
                 <block type="logic_compare" id=";I2G)sOC7K3E#aG*1^{n">
                   <field name="OP">EQ</field>
                   <value name="A">
                     <block type="get_value" id="2wot(2t*g8UEm.+2pLu@">
                       <field name="ATTR">val</field>
                       <field name="OID">javascript.2.scriptEnabled.Waterkotte.Abfrage_Waterkotte_Test</field>
                     </block>
                   </value>
                   <value name="B">
                     <block type="logic_boolean" id="/w]{^LZ9,e*gI5Na*=AX">
                       <field name="BOOL">FALSE</field>
                     </block>
                   </value>
                 </block>
               </value>
               <value name="B">
                 <block type="logic_operation" id="DFqv1XTuf5Jcd6~d4Pl9">
                   <field name="OP">AND</field>
                   <value name="A">
                     <block type="logic_compare" id="Q%hn`r~GuwSiW|`lwXy4">
                       <field name="OP">EQ</field>
                       <value name="A">
                         <block type="get_value" id="=gAZ0qIl%Q2=a)w=}wsm">
                           <field name="ATTR">val</field>
                           <field name="OID">javascript.2.scriptEnabled.Waterkotte.WW_Temp_45</field>
                         </block>
                       </value>
                       <value name="B">
                         <block type="logic_boolean" id="z(f3588pY)X5T1JY`L}o">
                           <field name="BOOL">FALSE</field>
                         </block>
                       </value>
                     </block>
                   </value>
                   <value name="B">
                     <block type="logic_compare" id="QF-a*[%R+[u!Z(LIu]Nj">
                       <field name="OP">EQ</field>
                       <value name="A">
                         <block type="get_value" id="`P_T2QF-wSoJ!ZJN0:^y">
                           <field name="ATTR">val</field>
                           <field name="OID">javascript.2.scriptEnabled.Waterkotte.WW_Temp_60</field>
                         </block>
                       </value>
                       <value name="B">
                         <block type="logic_boolean" id="nI4s86@mVMZfHAb+k9u+">
                           <field name="BOOL">FALSE</field>
                         </block>
                       </value>
                     </block>
                   </value>
                 </block>
               </value>
             </block>
           </value>
           <next>
             <block type="debug" id="-twd|JK7:Q5Q6+M2lTmO">
               <field name="Severity">log</field>
               <value name="TEXT">
                 <shadow type="text" id="e+uKa0:h7S7tL{x@5ZIM">
                   <field name="TEXT">Aktiviere Abfrage Waterkotte</field>
                 </shadow>
               </value>
               <next>
                 <block type="control" id="Hh@%xY%GsRI1g208b7ce">
                   <mutation xmlns="http://www.w3.org/1999/xhtml" delay_input="false"></mutation>
                   <field name="OID">javascript.2.scriptEnabled.Waterkotte.Abfrage_Waterkotte_Test</field>
                   <field name="WITH_DELAY">FALSE</field>
                   <value name="VALUE">
                     <block type="logic_boolean" id="dJ]azVd7r~N1IN8Wdlr-">
                       <field name="BOOL">TRUE</field>
                     </block>
                   </value>
                   <next>
                     <block type="control" id="S[V15.2;~h|N4vnsb3J0">
                       <mutation xmlns="http://www.w3.org/1999/xhtml" delay_input="true"></mutation>
                       <field name="OID">javascript.2.scriptEnabled.Waterkotte.Abfrage_Waterkotte_Test</field>
                       <field name="WITH_DELAY">TRUE</field>
                       <field name="DELAY_MS">3</field>
                       <field name="UNIT">sec</field>
                       <field name="CLEAR_RUNNING">FALSE</field>
                       <value name="VALUE">
                         <block type="logic_boolean" id="c`7aVan7RyUsJ=0=)={!">
                           <field name="BOOL">FALSE</field>
                         </block>
                       </value>
                     </block>
                   </next>
                 </block>
               </next>
             </block>
           </next>
         </block>
       </next>
     </block>
   </statement>
 </block>
</xml>

Axel Koeneke

@wendy2702 sagte in Script Hilfe für Abfrage Serielle Kommunikation gesucht!:

Hi Franz,

die Daten liegen jetzt mit diesem Script komplett im Datenpunkt: (funktioniert zumindest bei mir )

! ````
createState('Waterkotte.Daten.Rohdaten');
! // To use the ByteLength parser:
const SerialPort = require('serialport');
const ByteLength = SerialPort.parsers.ByteLength;
! var buffer = new Buffer(12);
buffer[0] = 0x10;
buffer[1] = 0x02;
buffer[2] = 0x01;
buffer[3] = 0x15;
buffer[4] = 0x00;
buffer[5] = 0x00;
buffer[6] = 0x00;
buffer[7] = 0xf3;
buffer[8] = 0x10;
buffer[9] = 0x03;
buffer[10] = 0x7c;
buffer[11] = 0x32;
const port = new SerialPort("/dev/ttyUSB0", {
baudRate: 9600,
dataBits : 8,
parity : 'none',
stopBits: 1
// flowControl : false
}, function (err) {
if (err) {
return console.log('Error1: ', err.message);
}
! const parser = port.pipe(new ByteLength({ length: 253 }));
parser.on('data', function (data) {
console.log('Data received: ' + data.toString('hex'));
var daten = data.toString('hex');
setState('Waterkotte.Daten.Rohdaten', daten, true);
//port.close();
});
! // Flush input
port.flush();
! // send Data
port.write(buffer, function(err) {
if (err) {
return console.log('Error on write: ', err.message);
}
  console.log('Daten send');
// port.close();
});
});

! port.on('open', function() {
console.log('Connected');
});
! port.on('error', function(err) {
console.log('Error2: ', err.message);
// port.close();
});
! // close port if the script stopped (to be able to open it again)
onStop(function (callback) {
if (port && port.isOpen) {
port.close();
console.log('port closed');
}
});
Jetzt kann man Theoretisch das Script per CRON alle paar Sekunden/Minuten neu starten.. finde ich nicht so schön und werde versuchen ob ich es schaffe das der Port aufbleiben kann und nur die Anfrage alle "30sek" neu gesendet wird. Oder ist der Intervall zu groß?

EDIT_Script bisschen aufgeräumt

Mirko

Ich bekomme es nicht zum laufen - Error 1
hier mal mein script:

//! ````
createState('Waterkotte.Daten.Rohdaten');
//! // To use the ByteLength parser:
const SerialPort = require('serialport');
const ByteLength = SerialPort.parsers.ByteLength;
 var buffer = new Buffer(12);
buffer[0] = 0x10;
buffer[1] = 0x02;
buffer[2] = 0x01;
buffer[3] = 0x15;
buffer[4] = 0x00;
buffer[5] = 0x00;
buffer[6] = 0x00;
buffer[7] = 0xf3;
buffer[8] = 0x10;
buffer[9] = 0x03;
buffer[10] = 0x7c;
buffer[11] = 0x32;
const port = new SerialPort("/dev/ttyUSB0", {
baudRate: 9600,
dataBits : 8,
parity : 'none',
stopBits: 1
// flowControl : false
}, function (err) {
if (err) {
return console.log('Error1: ', err.message);
}
 const parser = port.pipe(new ByteLength({ length: 253 }));
parser.on('data', function (data) {
console.log('Data received: ' + data.toString('hex'));
var daten = data.toString('hex');
setState('Waterkotte.Daten.Rohdaten', daten, true);
//port.close();
});
 // Flush input
port.flush();
 // send Data
port.write(buffer, function(err) {
if (err) {
return console.log('Error on write: ', err.message);
}
console.log('Daten send');
// port.close();
});
});

! port.on('open', function() {
console.log('Connected');
});
! port.on('error', function(err) {
console.log('Error2: ', err.message);
// port.close();
});
! // close port if the script stopped (to be able to open it again)
onStop(function (callback) {
if (port && port.isOpen) {
port.close();
console.log('port closed');
}
});

Das script hier im Fred ist ja schon etwas älter, evtl. muss hier noch etwas angepasst werden.
Außerdem sieht das hier seltsam aus:

Warum streicht es das Buffer durch?

Habt ihr noch eine Idee?
VG
Axel

Community Forum

NEWS

Script Hilfe für Abfrage Serielle Kommunikation gesucht!

Support us

741

32.4k

81.4k

1.3m