serielle Schnittstelle von C-Control testen

[Basti (Gast)]

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.

Sub main()
Dim empf As Word
Serial_Init(0,SR_8BIT Or SR_1STOP Or SR_NO_PAR, SR_BD9600) 
Do While 1
empf=Serial_ReadExt(0)
Msg_WriteInt(empf)
Msg_WriteChar(13)
End While
End Sub

Das Board ist ein C-Control Mega 128.

Basti

[Philipp K. (Gast)]

Da du über RS232 nur 1-Byte grosse Werte senden bzw. empfangen kannst, 
macht es nicht gross Sinn empf al Word zu delkarieren. Versuchs mal als 
Byte, kann sein dass der das sonst nicht richtig einliest.

mfg Philipp

[Basti (Gast)]

Hi,

also das habe ich jetzt mal gemacht. Jetzt wird immer nur

0
0
0
0
0
0
0
usw.

ausgegeben.

Basti

[MC (Gast)]

Wenn du nur die Schnittstelle testen möchtest, dann verbinde einfach die 
Empfangsleitung mit der Sendeleitung.
Dann sendest du per Software immer 1 Byte und kontrollierst das 
Empfangsbyte auf Richtigkeit. Wenn alles übereinstimmt, dann ist alles 
in Ordnung. Ansonsten ist in der Software noch ein Fehler.