Und hier nur zwei kleine Testprogramme die zeigen wie einfach die Programmierung ist:

Das erste Demo zeigt wie man Daten per Funk empfängt und über die zweite RS232 Schnittstelle an den PC weiterleitet:

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


Das Demo zeigt die Portzustände an, es dient als erstes testprogramm nach dem Aufbau. Zudem spielt es ein kleines Liedchen auf dem eingebauten Lautsprecher:

Code:
'###################################################
'rnmega128funk_erstetest.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:
'Erster Funktionstest
'Spielt "Alle meine Endchen" und zeigt Portzustand
'Die Pin-Nummern sind die Steckerkontakte
'Es sollte überall eine 1 als Ergebniss kommen

:
'Autor: Frank
'Infos:http://www.Roboternetz.de oder robotikhardware.de
'#######################################################



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

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

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


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

' ---------------------------------------------------

Declare Sub Allemeineendchen();
Declare Sub Lauflicht_uni() ;
Declare Sub Lauflicht_jpmot() ;
Declare Sub Lauflicht_key() ;
Declare Sub Lauflicht_joy() ;
Declare Sub Lauflicht_lcd() ;


Dim I As Word
Dim U As Word
Dim O As Word

   Wait 1

   Print #2 , ""
   Print #2 , "**** RN-Mega128Funk ****"
   Print #2 , ""

  Allemeineendchen

  'Folgende Anweisungen soirgen dafür
  'das alle Ports über einen internen Widerstand auf High (1)
  'gesetzt werden
  Porta = 255
  Portb = 255
  Portc = 255
  Portd = 255
  Porte = 255
  Portf = 255

  Print #2 , "Joy Pin 1=" ; Pina.0
  Print #2 , "Joy Pin 2=" ; Pina.1
  Print #2 , "Joy Pin 3=" ; Pina.2
  Print #2 , "Joy Pin 4=" ; Pina.3
  Print #2 , "Joy Pin 5=" ; Pine.6
  Print #2 , "Joy Pin 6=" ; Pine.7
  Print #2 , "Joy Pin 7=" ; Ping.3
  Print #2 , "Joy Pin 8=" ; Ping.4

  Print #2 , "JPMOT Pin 1=" ; Pind.5
  Print #2 , "JPMOT Pin 2=" ; Pind.4
  Print #2 , "JPMOT Pin 3=" ; Pind.6
  Print #2 , "JPMOT Pin 4=" ; Pind.7
  Print #2 , "JPMOT Pin 5=" ; Pina.4
  Print #2 , "JPMOT Pin 6=" ; Pine.3
  Print #2 , "JPMOT Pin 7=" ; Pina.5
  Print #2 , "JPMOT Pin 8=" ; Pine.4


  For U = 0 To 7
    O = U + 1
    Print #2 , "LCD Pin  " ; O ; "=" ; Pinf.u
  Next U


  For U = 0 To 7
    O = U + 1
    Print #2 , "KEY Pin  " ; O ; "=" ; Pinc.u
  Next U


  For U = 0 To 7
    O = U + 1
    Print #2 , "UNI Pin  " ; O ; "=" ; Pinb.u
  Next U


  Do
  Loop                                                      'Endlosschleife kann nur durch RESET Button beendet werden

End


' Spiele Lied "AllE meine Endchen"
Sub Allemeineendchen()
   Sound Portg.2 , 130 , 1916
   Sound Portg.2 , 146 , 1706
   Sound Portg.2 , 164 , 1520
   Sound Portg.2 , 174 , 1433
   Sound Portg.2 , 293 , 1276
   Sound Portg.2 , 6250 , 10
   Sound Portg.2 , 293 , 1276
   Sound Portg.2 , 6250 , 10
   Sound Portg.2 , 200 , 1136
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 200 , 1136
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 200 , 1136
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 200 , 1136
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 783 , 1276
   Sound Portg.2 , 200 , 1136
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 200 , 1136
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 200 , 1136
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 200 , 1136
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 783 , 1276
   Sound Portg.2 , 170 , 1433
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 170 , 1433
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 170 , 1433
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 170 , 1433
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 325 , 1520
   Sound Portg.2 , 500 , 10
   Sound Portg.2 , 325 , 1520
   Sound Portg.2 , 500 , 10
   Sound Portg.2 , 145 , 1706
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 145 , 1706
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 145 , 1706
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 145 , 1706
   Sound Portg.2 , 450 , 10
   Sound Portg.2 , 261 , 1916
End Sub

Weitere Demos in Doku, auf CD und vielleicht demnächst im Wiki