Deutsch
Forum

COM HEX senden

 

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.
 
22.01.2019  
 




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 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
22.01.2019  
 




Erasmus.Herold
Hammer!

Schnell & gut!
 
22.01.2019  
 




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
 
02.01.2023  
 



Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

3.811 Betrachtungen

Unbenanntvor 0 min.
H.Brill10.10.2024
Wilfried Friebe28.05.2023
Uwe ''Pascal'' Niemeier13.03.2023
Paul Glatz06.03.2023
Mehr...

Themeninformationen

Dieses Thema hat 3 Teilnehmer:

Erasmus.Herold (3x)
H.Brill (1x)
p.specht (1x)


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie