| |
| |
|
Erasmus.Herold | Hallöchen ...
for a unit on the interface COM1 To initialisieren, must I a
HEX code Send.
differently as otherwise, can I The COM interface means not ...
WriteCom(id%, "ATZ\n")
address.
I must subesquent HEX code Send, around the Leseprozess to start: BB 17 02 00 00 19 0D 0A
with ...
WriteCom(id%, "BB 17 02 00 00 19 0D 0A")
have I but none success, probably, because it not really as HEX gesendet becomes. has someone a idea?
Thank you. |
|
| |
| |
| |
|
|
p.specht
 | If you it byte-point make want, supplant whom whole String velvet quotation marks by the there (On The speedy, therefore sooner 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'... | 01/22/19 ▲ |
|
| |
|
|
Erasmus.Herold | |
| |
| |
| |
|
|
H.Brill | The Posting Although already something older, but here's yet
The Universalfunktion moreover :
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
can then both, as zusammengezählter worth or to that Konvertieren
with the $-characters before it and comma between. See option as
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/23 ▲ |
|
| |
|
|
Erasmus.Herold | well Yes - nevertheless many Thanks for your idea.
Greeting Erasmus |
|
| |
| |
| |
|
(849)
Deutsch
English
Français
Español
Italia