| |
|
|
Erasmus.Herold | Hallöchen ...
Um ein Gerät an der Schnittstelle COM1 zu initialisieren, muss ich einen HEX Code senden.
Anders als sonst, kann ich die COM Schnittstelle also nicht mit ... WriteCom(id%, "ATZ\n") ansprechen.
Ich muss folgenden HEX Code senden, um den Leseprozess zu starten: BB 17 02 00 00 19 0D 0A
Mit ... WriteCom(id%, "BB 17 02 00 00 19 0D 0A") habe ich aber keinen Erfolg, wahrscheinlich, weil es nicht wirklich als HEX gesendet wird. Hat jemand eine Idee?
Dankeschön. |
|
|
| |
|
|
|
p.specht
| Wenn du es Byte-weise machen willst, ersetze den gesamten String samt Anführungszeichen durch das da (Auf die Schnelle, daher eher unelegant):
chr$($BB)+chr$($17)+chr$($02)+chr$($00)+chr$($00)+chr$($19)+chr$($0D)+chr$($0A) |
|
|
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 22.01.2019 ▲ |
|
|
|
|
Erasmus.Herold | |
|
| |
|
|
|
H.Brill | Der Beitrag ist zwar schon etwas älter, aber hier ist noch die Universalfunktion dazu :
Declare String bt, B[], C[]
bt = Chr$($BB) + Chr$($17) + Chr$($02) + Chr$($00) + Chr$($00) + Chr$($19) + Chr$($0D) + Chr$($0A)
CLS
Print bt
Print
Print Bytes("BB 17 02 00 00 19 0D 0A", 0)
Print Bytes("BB 17 02 00 00 19 0D 0A", 1)
Proc Bytes
Parameters String s, Long Option
Declare String send, B[], C[]
B[] = Explode(s, " ")
SetSize C[], SizeOf(B[])
MAT C[] = "$"
MAT C[] + B[]
Select Option
CaseOf 0
Move("ArrToList", C[])
send = Move("ListToStr", ",")
CaseOf 1
send = ""
WhileLoop 0, SizeOf(C[]) - 1
send = send + Chr$(C[&LOOP])
EndWhile
Otherwise
send = ""
EndSelect
Return send
EndProc
Waitkey
Kann dann beides, als zusammengezählter Wert oder zum Konvertieren mit dem $-Zeichen davor und Komma dazwischen. Siehe Option als 2. Parameter. |
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 01.01.2023 ▲ |
|
|
|
|
Erasmus.Herold | Na ja - trotzdem vielen Dank für deine Idee.
Gruß Erasmus |
|
|
| |
|
|