DEAF BOY
28.12.2011, 17:47
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
http://www.abload.de/img/rs232gny6o.jpg http://www.abload.de/img/rn-funkobx22.jpg
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"
'-------------------------------------------------------------------------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"
Return
'----------------------------------------------------------------------Rückwärts
Kpd_2:
Print "Rueckwaerts"
Return
'------------------------------------------------------------------Rechts drehen
Kpd_6:
Print "Rechts drehen"
Return
'-------------------------------------------------------------------Links drehen
Kpd_4:
Print "Links drehen"
Return
'---------------------------------------------------------------------Motorstopp
Kpd_5:
Print "Motorstopp"
Return
'---------------------------------------------------------------Terminal löschen
Loeschen:
Print "{027}[2J"
Print "Senden ueber RS232-Kabel"
'Print "Senden ueber RN-Funk"
http://www.abload.de/img/rs232gny6o.jpg http://www.abload.de/img/rn-funkobx22.jpg