String im Hexformat über RS232

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von fraju.

    String im Hexformat über RS232

    Hallo,
    ich möchte einen String im Hexformat über eine RS232 Schnittstelle an eine
    Gerät senden, dass ich am Com 1 angschlossen habe. Leider habe ich bisher
    noch nichts in diese Richtung machen und ausprobieren können.

    Habe einfach mal der ComPort Komponente rumgespielt, aber das Gefühl, dass
    an meinem Gerät nichts ankommt.

    - Kann ich irgendwie überprüfen, ob ein Gerät angeschlossen, gefunden und
    der Text erfolgreich übertragen wurde?
    - Kann es sein das ich die Settings der Komponente falsch eingestellt habe?

    VB.NET-Quellcode

    1. myComPort = New IO.Ports.SerialPort(str(0))
    2. myComPort.BaudRate = 9600
    3. myComPort.DataBits = 8
    4. myComPort.StopBits = IO.Ports.StopBits.One
    5. myComPort.Parity = IO.Ports.Parity.None
    7. myComPort.ReceivedBytesThreshold = 1
    8. myComPort.Open()
    9. Me.Send(sHex);
    10. myComPort.Close();



    Hier ein Stück Code aus einem alten Programm.

    VB.NET-Quellcode

    1. ' ich glaube hier im ersten teil wird die verbinung hergestellt doch wo wird gesendet?
    2. ' Wofür stehen die ganzen Zahlen?
    3. OPEN COMPort$ + ":1200,n,8,1,cs0,ds0" FOR RANDOM AS #1 LEN = 8192 * 2
    5. DO UNTIL EOF(1)
    6. x$ = INPUT$(1, #1)
    7. LOOP
    9. Empfangs$ = ""
    10. cnt = 0
    12. DO
    13. IF cnt < LEN(Sende$) THEN
    14. cnt = cnt + 1
    15. PRINT #1, MID$(Sende$, cnt, 1);
    16. WindowLocate 4, 2
    17. WindowPrint -1, "TX:" + STR$(INT(cnt / LEN(Sende$) * 100)) + "%"
    19. 'Print "Sende"; MID$(Sende$, cnt, 1);
    20. s! = TIMER: zeit! = 2
    21. END IF
    23. IF NOT EOF(1) THEN
    24. Empfangs$ = Empfangs$ + INPUT$(1, #1)
    25. WindowLocate 4, 19
    26. WindowPrint -1, "RX:" + STR$(INT(LEN(Empfangs$) / LEN(Sende$) * 100)) + "%"
    27. 'PRINT "Empfange"; RIGHT$(Empfangs$, 1);
    28. s! = TIMER: zeit! = 2
    29. END IF
    31. LOOP UNTIL ABS(TIMER - s!) > zeit!