Hi,
Ich versuche, eine Kommunikation mit einem anderen Gerät über die
serielle Schnittstelle meines Boards (Control Pro) aufzubauenen. Bisher
kann ich aber nur Zeichen empfangen. Das Senden funktioniert überhaupt
nicht. Der einzige Effekt, den ich beim Senden beobachten kann, ist,
dass der Empfang
durch das Senden von Daten gestört wird.
Dies ist der Code:
1 | Sub main()
|
2 | Dim c As Char
|
3 | Dim Text(40) As Char
|
4 | Serial_Init(0,SR_8BIT Or SR_1STOP Or SR_NO_PAR,SR_BD115200)
|
5 | Text="hallo"
|
6 | Do While True
|
7 | Serial_WriteText(0,Text)
|
8 | c=Serial_Read(0)
|
9 | Msg_WriteChar(c)
|
10 | End While
|
11 | End Sub
|
Ich bin für jeden Tipp dankbar.
Basti