SML Projekt - Hexdaten decodieren

[packet]

Hallo GFA-Basic Freunde!

Es ist schon eine ganze Zeit lang her, das ich mir das letzte mal zum Programmieren Zeit genomnen hab. Mit GFA-Basic hatte ich meine ersten Programmier Erfahrungen auf einem Atari ST-1024 ende der 80'er. Später dann in den 90ern hatte ich mir dann die PC-Version von GFA-Basic gegönnt und auch noch bis ins Millenium hinein einiges damit erledigt. Mittlerweile gibts ja für vieles fertige Lösungen und deshalb hab ich die letzten Jahre eigentlich nur noch wenig, bis garnichts mehr selber programmiert.

Jetzt möchte ich aber einen von meinem Energie-Versorger eingebauten Smart-Meter auslesen und hab mir dazu einen Auslesekopf besorgt, der mit dem Zähler via 9K6 über USB/RS232-Com Koppler mit meinem PC kommuniziert. Anstatt ASCII kommt aber hier nur HEX-Code an... Dachte zuerst die Com-Parameter stimmen nicht, aber das Datenformat nennt sich SML und ist ein für Energiezähler Standard tisiertes Datenformat.
Nun gibt es für dieses Datenformat verschiedene Software-Parser in Python, Exel mit VB die den Datenstrom Auflösen. Ich möchte als GFA-Fan nun das aber mit GFA-Basic realisieren. Ich denke das auch andere User für so was ein offenes Ohr hätten und suche auf diesem Wege mit Tüftler für ein nicht Gewinn orientiertes Open-Souce GFA-Projekt.

Wie gesagt es gibt schon Open-Source Projekte für Python die man teilweise nur in GFA konvertieren muss...

Freu mich auf Eure Vorschläge.


Gruß...

[(X)]

Apr 21, 2021 17:30:04 GMT 1 packet said:

Hallo GFA-Basic Freunde!

Es ist schon eine ganze Zeit lang her, das ich mir das letzte mal zum Programmieren Zeit genomnen hab. Mit GFA-Basic hatte ich meine ersten Programmier Erfahrungen auf einem Atari ST-1024 ende der 80'er. Später dann in den 90ern hatte ich mir dann die PC-Version von GFA-Basic gegönnt und auch noch bis ins Millenium hinein einiges damit erledigt. Mittlerweile gibts ja für vieles fertige Lösungen und deshalb hab ich die letzten Jahre eigentlich nur noch wenig, bis garnichts mehr selber programmiert.

Jetzt möchte ich aber einen von meinem Energie-Versorger eingebauten Smart-Meter auslesen und hab mir dazu einen Auslesekopf besorgt, der mit dem Zähler via 9K6 über USB/RS232-Com Koppler mit meinem PC kommuniziert. Anstatt ASCII kommt aber hier nur HEX-Code an... Dachte zuerst die Com-Parameter stimmen nicht, aber das Datenformat nennt sich SML und ist ein für Energiezähler Standard tisiertes Datenformat.
Nun gibt es für dieses Datenformat verschiedene Software-Parser in Python, Exel mit VB die den Datenstrom Auflösen. Ich möchte als GFA-Fan nun das aber mit GFA-Basic realisieren. Ich denke das auch andere User für so was ein offenes Ohr hätten und suche auf diesem Wege mit Tüftler für ein nicht Gewinn orientiertes Open-Souce GFA-Projekt.

Wie gesagt es gibt schon Open-Source Projekte für Python die man teilweise nur in GFA konvertieren muss...

Freu mich auf Eure Vorschläge.


Gruß...

Translated via Google:

Hello GFA-Basic friends!

It's been a long time since I last took the time to program. With GFA-Basic I had my first programming experience on an Atari ST-1024 at the end of the 80's. Then later, in the 90s, I treated myself to the PC version of GFA-Basic and did a lot with it well into the millennium. In the meantime there are ready-made solutions for a lot of things and that's why I've actually only programmed a little or nothing myself in the last few years.

But now I want to read out a smart meter installed by my energy supplier and have got myself a readout head that communicates with the meter via 9K6 via USB / RS232-Com coupler with my PC. Instead of ASCII, only HEX code comes in ... At first I thought the COM parameters were not correct, but the data format is called SML and is a standard data format for energy meters.
There are various software parsers in Python, Excel with VB that resolve the data stream for this data format. As a GFA fan, I would now like to do this with GFA Basic. I think that other users would also have an open ear for something like that and am looking for a non-profit-oriented open source GFA project with tinkerers.

As I said, there are already open source projects for Python that sometimes only have to be converted to GFA ...

I'm looking forward to your suggestions.


Greeting...

[(X)]

Here is a function that will translate a Hex character to Decimal if that is of any use to you.

It would obviously have to be expanded to cover a multi-character hex code.

Function H2D(s$) As Int
 '
 ' Convert hex chr to decimal
 '
 s = Upper(s)
 If s = "0" Return 0
 If s = "1" Return 1
 If s = "2" Return 2
 If s = "3" Return 3
 If s = "4" Return 4
 If s = "5" Return 5
 If s = "6" Return 6
 If s = "7" Return 7
 If s = "8" Return 8
 If s = "9" Return 9
 If s = "A" Return 10
 If s = "B" Return 11
 If s = "C" Return 12
 If s = "D" Return 13
 If s = "E" Return 14
 If s = "F" Return 15
 Return 0
 

[webu]

Print Hex2Dec("FF")     // -> 255
Print Hex2Dec("20")     // -> 32
Print Hex2Dec("c000")   // -> 49152

Function Hex2Dec(a$) As Int
 Return Val("$" + a$)
 
 'input caseINsensitiv

[(X)]

Thanks for the inspiration. 

I worked out this function to take a few more notation formats into account.

Function H2D(h$) As Int
 If Left(h$, 1)        = "$"  Return Val(h$)
 If Left(h$, 1)        = "#"  Return Val("$" + Mid(h$, 2))
 If Upper(Left(h$, 1)) = "H"  Return Val("$" + Mid(h$, 2))
 If Upper(Left(h$, 2)) = "0X" Return Val(h$)
 Return Val("$" + h$)

TRACE:(3):H2D("FF") = 255
TRACE:(4):H2D("hFF") = 255
TRACE:(5):H2D("#FF") = 255
TRACE:(6):H2D("$FF") = 255
TRACE:(7):H2D("0xFF") = 255
TRACE:(8):H2D("0XFF") = 255

[packet]

Whow, danke für Eure Vorschläge!

Ich hab noch ein paar Links zu dem SML-Datenfornat zusammengetragen...

www.msxfaq.de/sonst/bastelbude/smartmeter_d0_sml_protokoll.htm

www.kabza.de/MyHome/SmartMeter/SmartMeter.php

...

[(X)]

Apr 22, 2021 22:58:06 GMT 1 packet said:

Whow, danke für Eure Vorschläge!

Ich hab noch ein paar Links zu dem SML-Datenfornat zusammengetragen...

www.msxfaq.de/sonst/bastelbude/smartmeter_d0_sml_protokoll.htm

www.kabza.de/MyHome/SmartMeter/SmartMeter.php

...

Google translation...

Whow, thanks for your suggestions!

I've compiled a few links to the SML data format ...


www.msxfaq.de/sonst/bastelbude/smartmeter_d0_sml_protokoll.htm

www.kabza.de/MyHome/SmartMeter/SmartMeter.php

[(X)]

You may also be interested in the "HexDump(V:w, Len(w))" command.

Description:

HexDump returns a string with a memory dump of at least 16 bytes formatted as hexadecimal numbers. The size of the memory dump can be determined using the optional second argument len but is always rounded to a multiple of 16. Debug.Print or any other output command can be used to display the string.

$Library "gfawinx"

Local String a, w
a = "Hello GFABASIC32"
w = Wide(a)
Debug HexDump(V:w, Len(w))
a = Ansi(w)
Debug HexDump(V:a, Len(a))
Debug.Show

The above example outputs the following memory dump to the debug output window:

02A440F4: 48 00 65 00 6C 00 6C 00 6F 00 20 00 47 00 46 00 H.e.l.l. o. .G.F.
02A44104: 41 00 42 00 41 00 53 00 49 00 43 00 33 00 32 00 A.B.A.S. I.C.3.2.
02A44114: 00 00 00 00 00 00 00 61 72 79 5C 4E 6F 4E 61 6D .......a ry\NoNam

0264CD44: 48 65 6C 6C 6F 20 47 46 41 42 41 53 49 43 33 32 Hello GF ABASIC32