Hallo an die Rund,
zum Projekt:
- Funkverbindung von 2 µC (2x arduino clone) per Reyax (UART) http://reyax.com/wp-content/uploads/...RYLR896_EN.pdf http://reyax.com/wp-content/uploads/...D-GUIDE_EN.pdf
- Für das erste LEDs an Ports schalten Portb.5 und d.4
- Alles in Bascom geschrieben
Ich denke wenn ich die Quelltexte einhänge macht es Sinn.
TRANSCIVER:
RECIVER:Code:'------------------NANO------------------------ $regfile = "m328pdef.dat" $framesize = 32 $swstack = 32 $hwstack = 64 $crystal = 16000000 '----------------------------------------------- $baud = 115200 'default baud vom Rylr896 Config Portb.5 = Output 'LED um Aktivität zu sehen Do Print "AT+SEND=111,8,Testing!" ' sendebefehl vom Rylr896 an Funkmodul 111; 8 ZEICHEN sollen gesendet werden ; und die zeichen Toggle Portb.5 Wait 2 ' im ca 2 Sekundentakt Loop '+RCV=100,8,Testing!,-49,54<\r><\n> 'Das kommt aus dem Funkmodul 111
Nun zum Problem, wenn ich "+RCV=100,8,Testing!,-50,51<\r><\n>" per Terminal, HTERM eingebe gehen die LEDS an/aus. Wenn ich aber das Funkmodul einstecke, dann bleibt das Programm ab input hängen(glaube ich).Code:'------------------NANO------------------------ $regfile = "m328pdef.dat" $framesize = 32 $swstack = 32 $hwstack = 64 $crystal = 16000000 '--------------------------------------------- Baud = 115200 'default baud vom Rylr896 Config Input = Crlf , Echo = Cr Config Portb.5 = Output 'LEDS Config Portd.4 = Output Dim Uartin As String * 30 Dim Instring(20) As String * 10 Dim Bcount As Byte Dim I As Byte Do Input Uartin , Noecho Gosub Spliting If Instring(3) = "Testing!" Then For I = 1 To Bcount Instring(i) = " " Next I Toggle Portd.4 Toggle Portb.5 End If Loop Spliting: Bcount = Split(uartin , Instring(1) , ",") Return End '* +RCV=100,8,Testing!,-54,53 '+RCV=100,8,Testing!,-50,51<\r><\n> '+RCV=100,8,Testing!,-49,54<\r><\n>
Der Datensatz der unterm Code steht ist der mitgeschnittene Datensatz aus dem Funkmodul.
Das Beispielprogramm in C funktioniert soweit. Also hängt es nicht mit der Verkabelung zusammen. (TX auf TX zB.) Oder die Pegel der Datenleitung
Liebe Grüße







Zitieren


Lesezeichen