Italia
Foro

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 per deine Idee.

Saluto Erasmus
 
02.01.2023  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

3.855 Views

Untitledvor 0 min.
H.Brill10.10.2024
Wilfried Friebe28.05.2023
Uwe ''Pascal'' Niemeier13.03.2023
Paul Glatz06.03.2023
Di più...

Themeninformationen

Dieses Thema hat 3 subscriber:

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


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


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