RN-Funk sendet, empfängt aber nicht

[DEAF BOY]

Hallo,

ich versuche RN-Funk per Tastatur zu steuern. µC sendet Print, wenn Spannung eingeschaltet wird. Ich kann mit PC-Tastatur über RS232-Kabel µC steuern.
Das gleiche wollte ich per RN-Funk machen, kann aber nur Print empfangen und nicht senden. Beide Code sind identisch.

PC --> RN-Funk mit MAX232-Baustein <<<<>>>> RN-Funk ohne MAX232-Baustein --> µC

'-----------------------------------------------------------------------Hardware
 
$regfile = "m32def.dat"
$crystal = 4000000
$baud = 9600
 
'------------------------------------------------------------------Konfiguration
 
Dim Key As String * 3
 
'---------------------------------------------------------------Terminal löschen
 
Wait 1
Print "{027}[2J"
Print "Senden ueber RS232-Kabel"
'Print "Senden ueber RN-Funk"
Print
 
'-------------------------------------------------------------------------Ablauf
 
Do
 
Key = Waitkey()
 
Select Case Key
 
Case "2" : Gosub Kpd_2
 
Case "4" : Gosub Kpd_4
 
Case "5" : Gosub Kpd_5
 
Case "6" : Gosub Kpd_6
 
Case "8" : Gosub Kpd_8
 
Case "c" : Gosub Loeschen
 
End Select
 
Loop
End
 
'-----------------------------------------------------------------------Vorwärts
Kpd_8:
 
Print "Vorwaerts"
Print
Return
 
'----------------------------------------------------------------------Rückwärts
Kpd_2:
 
Print "Rueckwaerts"
Print
Return
 
'------------------------------------------------------------------Rechts drehen
Kpd_6:
 
Print "Rechts drehen"
Print
Return
 
'-------------------------------------------------------------------Links drehen
Kpd_4:
 
Print "Links drehen"
Print
Return
 
'---------------------------------------------------------------------Motorstopp
Kpd_5:
 
Print "Motorstopp"
Print
Return
 
'---------------------------------------------------------------Terminal löschen
Loeschen:
Print "{027}[2J"
Print "Senden ueber RS232-Kabel"
'Print "Senden ueber RN-Funk"
Print

Bild hier   Bild hier