Hallo,

ich besitze ein RNFUNK128-Board und ein RNFUNK-Board mit EasyRadio-Transceiver. Das RNFUNK128 ist über die zweite serielle Schnittstelle mit einem PC verbunden das RNFUNK mit einem anderen:

PC1->RNFUNK ~~~~> RNFUNK128->PC2

Als Testprogramm nutze ich dieses hier:

Code:
'###################################################
'rnmega128funk_funkempfang.bas
'für
'RoboterNetz Board RN-Mega128Funk ab Version 1.1
'Das neue vielseitige RN-Controllerboard mit ATMEGA128
'
' Achtung:
' Diese Demo ist mit Bascom Compiler 1.11.8.3 getestet
'
'Aufgabe:
' Alle Zeichen Die Per Funk Empfangen Werden , Werden Ueber
' über die RS232 (Kabel) ausgegeben
:
'Autor: Frank
'Infos:http://www.Roboternetz.de oder robotikhardware.de
'#######################################################



' ---------------RN-Mega128Funk übliche ------------------

$regfile = "m128def.dat" ' Bei Mega 128 "
$framesize = 40
$swstack = 40
$hwstack = 40

$crystal = 16000000                                         'Quarzfrequenz
$baud = 19200                                               'Baudrate für Funkmodul
$baud1 = 9600                                               'Baudrate für MAX

Config Ping.0 = Output                                      'Spannung an LCD aktivieren
Lcdpower Alias Portg.0

Config Pine.2 = Output
Rdy_hostempfangsbereit Alias Porte.2                        'Auf Low setzen wenn Empfangsbereit für Daten vom Funkmodul

Config Pine.5 = Input
Bsy_funkmodulsendebereit Alias Porte.5                      'Ist Low wenn Funkmodul frei zum senden



Open "com2:" For Binary As #2                               'Ausgabe über zweite serielle Schnittstelle (MAX)


Sound Portg.2 , 400 , 450                                   'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 250                                   'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 450                                   'BEEP bei RN-Mega128Funk

Config Serialin = Buffered , Size = 100                     'Empfangsbuffer für Funkmodul anlegen

Config Serialout1 = Buffered , Size = 100                   'Ausgabebuffer für normalse RS232

Enable Interrupts
' ---------------------------------------------------

Dim Z As Byte

   Wait 2

   Print #2 , ""
   Print #2 , "**** RN-Mega128Funk ****"
   Print #2 , "**** Das Controllerboard mit Funkmodul ****"
   Print #2 , "**** Demonstriert wie man Daten empfängt ****"
   Print #2 , ""

   Rdy_hostempfangsbereit = 0

    Do
      Z = Inkey()
      If Z <> 0 Then Print #2 , Chr(z);
    Loop
End
Ich möchte Daten vom PC1, welcher am RNFUNK angeschlossen zum RNFUNK128 senden und dieses sendet sie weiter an den anderen PC2.
Zum senden der Daten benutze ich die Software von www.easy-radio.co.uk.
Wenn ich das RNFUNK128 einschalte erhalte ich den Text von den Print Befehlen.
Will ich dann aber Daten senden empfängt es das RNFUNK128 scheinbar nicht.
Nach einem Reset des Boards empfange ich aber auf einmal alle gesendeten Daten, bevor der Text von den Print's erscheint.
Lasse ich das RNFUNK128 Daten senden funktioniert der Empfang mit dem RNFUNK.
Ich weiß echt nicht mehr weiter.
Vielen Dank schon mal im voraus.

tuxer