Tag auch, kann mir jemand sagen, wie man auf einfachste Weise die serielle Schnittstelle eines C-Control-Boards testen kann. Dieser Code will irgendwie nicht funktionieren. Er leifert immer 256 zurück, auch wenn Daten gesendet werden.
1 | Sub main() |
2 | Dim empf As Word |
3 | Serial_Init(0,SR_8BIT Or SR_1STOP Or SR_NO_PAR, SR_BD9600) |
4 | Do While 1 |
5 | empf=Serial_ReadExt(0) |
6 | Msg_WriteInt(empf) |
7 | Msg_WriteChar(13) |
8 | End While |
9 | End Sub |
Das Board ist ein C-Control Mega 128. Basti