Fragen und Anmerkungen zu RN-Mega8

[Hellmut]

Sorry Frank

Kann garnicht glauben der erste gewesen zu sein. Geh sofort downloaden

[Frank]

Kein Problem! Doch du hast glaub das große Los gezogen und warst erster

[Frank]

Das inzwischen recht beliebte Experimentierboard RN-Mega8 liegt nun auch in der Version 1.4 vor. Einige kleine Details wurden aufgrund praktischer Erfahrungen der Bastler noch verbessert. So kann jetzt die Referenzspannung genau per Spindeltrimmer gewählt werden, was noch mehr Experimente erlaubt.
Zudem müssen auch keine LED´s mehr per Jumper deaktiviert werden wenn man analoge Ports nutzt, weiteres alles in der ebenfalls aktuallisierten Anleitung.

Die Änderungen machen eine geringfügige Anpassung des Demoprogramms notwendig. Hier also das aktuelle Demo für die Revision 1.4:

'###################################################
'rnmega8test_rev1.4.BAS  (c) 2005
'für
'RoboterNetz Board RN-MEGA8 nur für Version 1.4 der Platine
'Das neue preiswerte Entwicklungsboard zum experimentieren
'
'Aufgabe:
' Dieses Testprogramm testet gleich mehrere Eigenschaften auf dem Board
' Den verschiedenen Tasten sind bestimmte Funktionen zugeordnet
' Taste 1: Zeigt Batteriespannung über RS232 und LCD  an
' Taste 2: Gibt per Zufall einen Lottozahlentip ab - 6 aus 49
' Taste 3: Einige male Lauflicht über ein Balken-LED´s (2 Ports  bleiben an, da dies RS232 Ports sind)
'          Bei einer LED kommt es zu leichtem Knacksen, da der Piepser diesen Port ebenfalls nutzt

' Taste 4: Ein einfaches Sirenengeräusch
''Taste 5: Zeigt Copyriht auf LCD Display

' Im Gegensatz zu vorherigen RN-Mega8 Revisionen können bei der
' Version 1.4 die LED´s auch dann aktiviert bleiben, wenn die
' AD Ports 0 bis 3 verwendet werden. Diese Ports werden nicht mehr per LED
' überwacht. Die LED´s sind nun an einigen anderne Ports angeschlossen, siehe
' aktuelle Dokumentation
' Jumper JREF (Referenzspannung=5V) muss bei diesem Demo gesteckt sein.
' Bei veränderter Referenzspannung / Bestückung muss Tastenabfrage angepaßt werden


' Sehr gut kann man aus dem Demo auch entnehmen wie Sound ausgegeben wird,
' wie Tasten abgefragt werden und wie Subroutinen und Funktionen angelegt werden

'Autor: Frank
'Weitere Beispiele und Beschreibung der Hardware
'unter http://www.Roboternetz.de oder robotikhardware.de
'Eigene Programmbeispiele sind im Roboternetz gerne willkommen!
'##############################################################


Declare Sub Batteriespannung()
Declare Sub Lauflicht()
Declare Function Tastenabfrage() As Byte
Declare Sub Textauflcdausgeben()
Declare Sub Lottozahlen()
Declare Sub Sirene()

$regfile = "m8def.dat"




Dim I As Integer
Dim N As Integer
Dim Ton As Integer

Dim Ws As Word                                              'Wird für Messung bei Tastenabfrage verwendet
Dim Adc_ohne_taste As Word

$crystal = 16000000                                         'Quarzfrequenz
'$crystal = 7372800                                          'Quarzfrequenz

$baud = 9600

Config Scl = Portc.5                                        'Ports fuer IIC-Bus
Config Sda = Portc.4

Config Adc = Single , Prescaler = Auto , Reference = Off    'Für Tastenabfrage und Spannungsmessung
Config Pinc.0 = Input                                       'Für Tastenabfrage
Portc 0# = 1                                                'Pullup Widerstand ein
Start Adc

Const Ref = 5 / 1023                                        'Für Batteriespannungsberechnung
         'Bei einer anderen Referenzspannung muss die 2.5 durch entsprechend ersetzt werden
         'Die Referenzspannung wird durch den Jumper JPREF bzw. Spindeltrimmer  festgelegt

Dim Taste As Byte
Dim Volt As Single


Config Pind.6 = Output
Portd 0.6 = 0



I2cinit                                                     'Falls I2C benutzt wird



' Falls ein LCD Display angeschlossen ist
Dim ___lcdno As Bit
Config Lcdpin = Pin , E = Portc.3 , E2 = Portd.7 , Rs = Portc.2 , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5
Config Lcd = 40 * 4






I = 0
Sound Portb.0 , 400 , 450                                   'BEEP
Sound Portb.0 , 400 , 250                                   'BEEP
Sound Portb.0 , 400 , 450                                   'BEEP


Print

Call Textauflcdausgeben


Adc_ohne_taste = Getadc(0)                                  'Messe Spannung wenn keine Taste gedrückt ist
Adc_ohne_taste = Adc_ohne_taste - 2                         'für Toleranz abziehen


Do

   Taste = Tastenabfrage()


   If Taste <> 0 Then

      Select Case Taste
         Case 1
             Call Batteriespannung                          'Taste 1 Zeigt Bateriespannung über RS232 an
          Case 2
             Call Lottozahlen                               'Gibt Lottozahlen-Tip (ohne Gewähr) über RS232 und lcd
                                                             'Bei Gewinn bitte mit Autor Frank teilen :-)
         Case 3
            Call Lauflicht                                  'Einige male Lauflicht über Balken LED´s anzeigen
         Case 4
            Call Sirene
         Case 5
            Call Textauflcdausgeben



      End Select
      Sound Portb.0 , 400 , 500                             'BEEP
   End If

   Waitms 100
Loop

End


'Diese Unterfunktion fragt die Tastatur am analogen Port ab

Function Tastenabfrage() As Byte
   Tastenabfrage = 0
   Ton = 600
   Ws = Getadc(0)
'   Print "ws=" ; Ws
   If Ws < Adc_ohne_taste Then
      Select Case Ws
         Case 400 To 440
            Tastenabfrage = 1
            Ton = 550
         Case 330 To 370
            Tastenabfrage = 2
            Ton = 500
         Case 260 To 300
            Tastenabfrage = 3
            Ton = 450
         Case 180 To 230
            Tastenabfrage = 4
            Ton = 400
         Case 100 To 130
            Tastenabfrage = 5
            Ton = 350
         Case Else
            Print "Bitte Tastenabfrage an Messert ws="; Ws; " anpassen!"
      End Select
      Sound Portb.0 , 400 , Ton                             'BEEP
   End If

End Function




'Diese Unterfunktion zeigt Bateriespannung an
Sub Batteriespannung()
Local W As Word
   Start Adc
   W = Getadc(1)
   Volt = W * Ref
   Volt = Volt * 5.3137                                     'Spannungsteiler (R9+R10)/R9
   Print "Die aktuelle Spannung beträgt: "; Volt; " Volt"
   Print "Rev: "; Ref; " W="; W

   'Auch auf LCD ausgeben
   ___lcdno = 0
   Cls
   Locate 1, 1
   Lcd "Spannung:" ; Fusing(volt , "#.##") ; " Volt"

End Sub


'Dies Funktion gibt auf einem angeschlossenen LCD-Display (2x27 Zeichen)
'eine Copyright Meldung aus
Sub Textauflcdausgeben()
 ___lcdno = 0                                               'Ober Displayhälfte initialisieren, wenn das Display zwei LCD-Controller besitzt
 Initlcd
 Cursor Off
 Cls
 Home
 Lcd "Das neue Experimentierboard"
 Locate 2, 4
 Lcd "** RN-MEGA 8 V1.4 **"

 ___lcdno = 1                                               'Dies ist nur notwendig wenn das Display zwei LCD-Controller besitzt
 Initlcd
 Cursor Off
 Cls
 Home
 Lcd "nach Roboternetz Standard"
 Locate 2, 3
 Lcd "(c) robotikhardware.de"

 'Fuer RS232
 Print "**** RN-MEGA 8 V 1.4 *****"
 Print "Das neue Mega 8 Entwicklungsboard von www.robotikhardware.de"
End Sub

'Einige male Lauflicht über Balkenanzeige laufen lassen
Sub Lauflicht()


   Config Portd = Output
   Config Pinb.0 = Output
   Config Pinb.1 = Output

   Portd = 255
   Portb 0# = 1
   Portb 0.1 = 1
   For N = 1 To 10
      For I = 0 To 9
         Select Case I
            Case 0 To 7:
               Portd.I = 0
               Waitms 150
               Portd.I = 1
            Case 8:
               Portb 0# = 0
               Waitms 150
               Portb 0# = 1
            Case 9:
               Portb 0.1 = 0
               Waitms 150
               Portb 0.1 = 1


         End Select
      Next I
   Next N
   Config Portd = Input
   Config Pinb.0 = Input
   Config Pinb.1 = Input
   !Call 0                                                  'Führt RESET aus
End Sub


Sub Lottozahlen()
  Print "Lotozahlen: ";
   ___lcdno = 0                                             'Ober Displayhälfte initialisieren, wenn das Display zwei LCD-Controller besitzt
   Initlcd
   Cursor Off
   Cls
   Home
   Lcd "Lottozahlentip-ohne Gewaehr):" "
   Locate 2, 1
    For I = 1 To 6
     N = Rnd(48)
     N = N + 1
     Print " "; N;
     Lcd " " ; N;
   Next I
   Print
End Sub


Sub Sirene()
    For N = 1 To 5
       For I = 500 To 900
         Sound Portb.0 , 5 , I
       Next I
       For I = 900 To 500 Step -1
         Sound Portb.0 , 5 , I
       Next I
    Next N
End Sub

Bild hier  

Bild hier  

Gruß Frank

[bhm]

gibt's irgendwo 'ne Liste der Änderungen?
Mir war auch schon Einiges aufgefallen, hatte aber noch keine Zeit das zusammenzufassen.
ciao .. bernd

[Frank]

In der Doku sind die Änderungen in der Featureliste glaub farbig markiert. Auch im dortigen Schaltplan kann man es übersehen.
Im wesentlichen war es wie gesagt regelbarer Trimmer für Referenzspannung und andere Belegung der LED´s (auch in oberen Bild dokumentiert). Dies hat sich so in der Praxis als sinnvoller herausgestellt. Das Layout wurde noch etwas verbessert und die Quarz-Anschlüsse können über Jumper ebenfalls genutzt werden wenn man auf Quarz verzichtet. Also alles Detailverbesserungen - Version 1.4 dürfte für einen längeren Zeitraum die Endversion bleiben

Gruß Frank

[Chefkoch]

Ich hab mir gerade die Version 1.4 aufgebaut.

Doch eine Frage hab ich zu C3.

Bei C3 steht nur: Wichtig: Bis Version 1.4 unbestückt lassen
Aber leider keine Bezeichnung welches Bauteil nun rein kommt.
Da ich nur einen 1µF 63V Elko übrig hatte hab ich den reingelötet, ist das richtig.

Bitte schnelle Hilfe!

[Frank]

Hallo Chefkoch,

eigentlich sollte hier garkein Teil eingelötet werden, daher steht ja auch in der Anleitnung "unbestückt lassen". Möglichst immer genau an die aktuellste Anleitung halten - das hat Gültigkeit.

Ursprünglich war da ein 1uF Elko vorgesehen, aber bei den derzeitigen Platinen bis V 1.4 ist dieser falsch gepolt. Man könnte ihn umgekehrt einlöten, aber da der Kondensator ohnenhin nicht unbedingt notwendig ist, sollte er einfach weggelassen werden.
Wenn du ihn nun schon drin hast, dann könnte der Kondensator auf Dauer beschädigt werden wenn das Kontrastpoti längere Zeit auf GND steht. In der Praxis ist das normalerweis nicht der der Fall. Aber wenn du 200% sicher gehen willst, lasse ihn weg wie in Doku beschrieben (bzw. entferne ihn wieder). Bei neueren Bausätzen wird der ohnehin nicht mehr mitgeliefert.

Gruß Frank

[Chefkoch]

Ich werde ihn rauslöten, ist ja kein Problem.

Es steht halt bis Version 1.4, nicht bis einschließlich Version 1.4.
Aber egal, hab noch nichts in betrieb genommen.

Danke!

[Chefkoch]

Nun wollte ich alles in betrieb nehmen doch da kommen schon die nächsten Fragen auf.

Bis zu Fuse-Bits hat alles geklappt, doch die Einstellungen wie in der Anleitung erscheinen nicht.

Ich hab folgende Einstellungen nun.

Bild hier  


Das Display zeigt auch alles an vom Testprogramm nur die Tasten 1-5 reagieren nicht, tut sich nichts.

Ist es normal das wenn ich mit dem Finger an die Tasten 1-5 komme das der Piper einen Ton gibt.

[Frank]

Hi Chefkoch,

sieht auf den ersten Blick korrekt aus mit den Fusebit´s. Es muss ja nur A987 umgeschaltet werden.
Was heißt Finger an die Taste? Die sollten eigentlich nur piepen wenn du drückst.
Wenn du den Quarzbetrieb nutzt (aleo Fusebit wie oben), dann sollte Jumper JPQ nicht gesteckt sein. JPQ ist dafür da, das die Quarzanschlüsse als normaler Port genutzt werden können. Im Quarzbetrieb sollte man das nicht aktivieren (Jumper stecken) da sonst Störungen auftreten könnten. Das nur als Tip zum prüfen.

Eigentlich sollten gleich alle Tasten gehen, Toleranzen sind eigentlich wegen der Metallschichtwiderstände 1% im Demo berücksichtigt. Du kannst das aber überprüfen und anpassen. Ändere die Kommentaranweisung im Demo

'   Print "ws=" ; Ws

in

Print "ws=" ; Ws

Danach wird bei jedem Tastendruck der gemessene AD-Wert angezeigt. Du musst dann nur noch die Select Case-Anweisung darunter entsprechend anpassen damit´s perfekt läuft.

Gruß Frank