serielle Schnittstelle von C-Control testen

Gast #801812
Lesenswert?

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
Gast #801858
Lesenswert?

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
Gast #801940
Lesenswert?

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.

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren