Integer per Skript in Binärzahl umwandeln

[anli]

Hallo!

Mit folgendem Skript kann man eine Integerzahl (hier max. 256) per HM-Skript in eine Binärzahl umwandeln:

Code: Alles auswählen

integer x = 133;
integer b = 256;
while (b > 0)
{
  if (b > 1) { Write(x / b); } 
  else { if ((x / b) == 2) { Write("0"); } else { Write("1"); } }
  if (x > b) { x = x - b; }
  b = b / 2;
}

Die Ausgabe erfolgt zum Beispiel im erweiterten Skript-Parser und kann entsprechend angepasst für eigene Zwecke genutzt werden.

[HMNutzer]

Hallo Anli,

Dein Skript kann ich sehr gut gebrauchen, um den Status meiner Wallbox auszulesen:
Status dezimal 4101 = binär 01000000000101

Da ich keine Ahnung vom Skripten und dieser seltsamen Sprache* habe hoffe ich,
dass Du mir eine Erweiterung dieses Skripts schreiben kannst, mit der die Ausgabe in einen String erfolgt
und die einzelnen Bits in die Sysvars WB1-WB12 geschrieben werden. Das höchste Bit hat keine Bedeutung.

Das wäre mir auch was Wert.

*=wo bitte wird erklärt, dass der Befehl Write(4101 / 8192) die Ausgabe 0 bringt und den Rest verwirft?

Edit: fehlendes Wort ergänzt

[stan23]

*=wo bitte wird erklärt, dass der Befehl Write(4101 / 8192) die Ausgabe 0 bringt und den Rest verwirft?

Das ist eine Division mit Integern (Ganzzahlen), da fällt der Nachkomma-Anteil einfach weg:
4101 / 8192 = 0,5006 --> 0

[Black]

weg sollte so gehen:

Code: Alles auswählen

integer i1= 4101;

boolean WBVorhanden= (i1 & 1)!=0;
boolean Solarbetrieb= (i1 & 2)!=0;
boolean ladenfreigabe= (i1 & 4)!=0;   

ergibt dann das:

Code: Alles auswählen

------------------------------ Script Variablen -----------------------------
[i1                ]: 4101
[WBVorhanden       ]: true
[Solarbetrieb      ]: false
[ladenfreigabe     ]: true

dito für deine restlichen Variablen


Black

[HMNutzer]

Servus Black,

danke für die Info.
Nur: Wie kriege ich die Ausgabe aus Anli's Skript in die Variable?
Ich habe echt keine Ahnung von Skripten. Kennt jemand eine Seit für Dummies?
Bei Schellenberger.biz bin ich schon unterwegs.

[HMNutzer]

Servus,

dank der Anstösse von Black habe ich meine Anforderung zu meiner Zufriedenheit gelöst.
Wenn ich mit der Optik des Skripts zufrieden bin veröffentliche ich es in dem Modbus Thread, da da die Werte ja herkommen.