Hi,
um Daten über die serielle Schnittstelle meines C-Control Mega 128 zu
senden und zu empfangen, habe ich ein kleines Testprogramm geschrieben.
Dazu habe ich den Sender mit dem Empfänger-Pin der seriellen
Schnittstelle kurzgeschlossen, so dass das Board quasi mit sich selbst
spricht.
Hier ist der Code:
1 | Sub main()
|
2 |
|
3 | Dim empf As Word
|
4 |
|
5 | Serial_Init(0,SR_8BIT Or SR_1STOP Or SR_NO_PAR,SR_BD9600)
|
6 | Do While True
|
7 |
|
8 | Serial_WriteText(0,112) ' Hier wird einfach die Zahl "112" gesendet
|
9 |
|
10 | empf=Serial_ReadExt(0)
|
11 |
|
12 | Msg_WriteChar(empf)
|
13 |
|
14 | End While
|
15 |
|
16 | End Sub
|
Das funktioniert so weit. Auf dem Terminalfenster wird "112112112112
usw." ausgegeben. Wenn ich aber ganze Zeichenketten z.B. "Hallo" senden
möchte, hakt das Programm irgendwo, so dass mir z.B. "Halllllll usw."
oder "Hallooooooo usw." angezeigt wird. Woran kann das liegen?
Basti