So, danke für die schnellen Antworten!

Hier ein Auszug von VB:


Option Explicit
Option Base 1

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Declare Function OPENCOM Lib "Port" (ByVal a$) As Integer
Declare Sub CLOSECOM Lib "Port" ()
Declare Sub SENDBYTE Lib "Port" (ByVal b%)
Declare Function READBYTE Lib "Port" () As Integer
Declare Sub DTR Lib "Port" (ByVal b%)
Declare Sub RTS Lib "Port" (ByVal b%)
Declare Sub TXD Lib "Port" (ByVal b%)
Declare Function CTS Lib "Port" () As Integer
Declare Function DSR Lib "Port" () As Integer
Declare Function RI Lib "Port" () As Integer
Declare Function DCD Lib "Port" () As Integer
Declare Sub DELAY Lib "Port" (ByVal b%)
Declare Sub TIMEINIT Lib "Port" ()
Declare Sub TIMEINITUS Lib "Port" ()
Declare Function TIMEREAD Lib "Port" () As Long
Declare Function TIMEREADUS Lib "Port" () As Long
Declare Sub DELAYUS Lib "Port" (ByVal l As Long)
Declare Sub REALTIME Lib "Port" (ByVal i As Boolean)

Jaecko: Bei print "0" erhalte ich Zahlen wie: 4,83,35,82 usw usw..

Michl78: Bei Baud 4800 sollte eine Leitungslänge von 300 Metern mit einem Standardkabel möglich sein, ich bin sicherheitshalber auf 1200 runter um eventuelle Störungen zu vermeiden.

holzi: Wie oben ersichtlich, lese ich das Byte am Port aus, wie komme ich dann auf das ursprünglich gesendete Zeichen?


Mfg