Anzeige Menü mit Unterpunkten auf LCD?

[wölfchen]

Hallo,
seid kurzem beschäftige ich mich mit AVR’s. Bei meiner suche nach einer leicht erlernbaren Programmiersprache bin ich auf Bascon gestoßen. Habe mir auch sofort Fachliteratur von Kühnel und Walter gekauft und arbeite diese gerade durch.
Habe aber einer Frage an Euch. Sie bezieht sich auf mein späteres Projekt, welches übrigens der ausschlaggebende Faktor gewesen ist das ich mich mit AVR etc. beschäftige.
Ich habe später vor mit dem Atmega 32 und einem (G)LCD eine Art „Überwachung“ für meine RC-Autos zu bauen. Dazu möchte ich mir eine Art „Menü“ auf dem Display anzeigen lassen.
Warum Menü? Nun ich fahre unterschiedliche Antriebszahnräder, Reifengrößen und manchmal auch andere Verbrennermotoren. Damit ich nicht ständig auf einen Computer angewiesen bin, kam mir die Idee mit dem Menü in dem man über Taster „Festwert“ eingeben kann.
Vorgestellt hatte ich mir das so, das der Atmega nach dem einschalten eine Abfrage startet ob „Festwerte“ im Menü eingetragen sind, wenn nicht erscheint das Menü „Basiswerte“ mit den Unterpunkten die eingetragen werden müssen. Diese Werte werden später zur Berechnung verwendet.
Leider finde ich im Web nichts, in dem erklärt wird wie ich so ein Menü erstellen kann. Hoffe ihr könnt mir weiterhelfen.
Danke

[Stromi]

Stichworte:
ReadEEProm, Tastenabfrage, Case-Befehl, usw.

[Marco78]

Hier ein paar Ausschnitte aus einem Code von mir.


Menü:
Zeit = 0 'anzeige der Zeit verhindern.

Cls
Locate 1 , 9
Lcd "Menõ"
Lowerline
Lcd "--------------------"
Thirdline
Lcd "1. Datum & Zeit"
Fourthline
Lcd "2. Hintergrundbel."

Waitms 300 'alte FB-Taste ignorieren

Do
Gosub Getir
If Command = 0 Then Goto Pc_aus
If Command = 1 Then Goto Menü11
If Command = 2 Then Goto Menü2
Loop

Menü11:
Cls
Locate 1 , 9
Lcd "Menõ"
Lowerline
Lcd "--------------------"
Thirdline
Lcd "1. Zeit stellen "
Fourthline
Lcd "2. Timer stellen "
Do
Gosub Getir
If Command = 0 Then Goto Menü
If Command = 1 Then Gosub Zeit_stellen
If Command = 2 Then
A = 1
Goto Timer_stellen
End If
Loop

Zeit_stellen:
Cls
Lcd " Zeit stellen"
Lowerline
Lcd "Bitte Datum und"
Thirdline
Lcd "Uhrzeit eingeben"
Fourthline
Lcd " --.--.20-- --:--"
Cursor Blink

Do
Locate 4 , 3
Do
Gosub Getir 'Tag stellen
Loop Until Command < 10
Lcd Command
A = Command * 10
Waitms 200
Locate 4 , 4
Do
Gosub Getir
Loop Until Command < 10
Lcd Command
B = Command
Tag = A + B
Loop Until Tag < 32

Do
Waitms 200
Locate 4 , 6
Do
Gosub Getir 'Monat stellen
Loop Until Command < 10
Lcd Command
A = Command * 10
Waitms 200
Locate 4 , 7
Do
Gosub Getir
Loop Until Command < 10
Lcd Command
B = Command
Monat = A + B
Loop Until Monat < 13

Waitms 200
Locate 4 , 11
Do
Gosub Getir 'Jahr stellen
Loop Until Command < 10
Lcd Command
A = Command * 10
Waitms 200
Locate 4 , 12
Do
Gosub Getir
Loop Until Command < 10
Lcd Command
B = Command
Jahr = A + B
Writeeeprom Jahr , 8

Do
Waitms 200
Locate 4 , 15
Do
Gosub Getir 'Stunden stellen
Loop Until Command < 10
Lcd Command
A = Command * 10
Waitms 200
Locate 4 , 16
Do
Gosub Getir
Loop Until Command < 10
Lcd Command
B = Command
Stunden = A + B
Loop Until Stunden < 24

Do
Waitms 200
Locate 4 , 18
Do
Gosub Getir 'Minuten stellen
Loop Until Command < 10
Lcd Command
A = Command * 10
Waitms 200
Locate 4 , 19
Do
Gosub Getir
Loop Until Command < 10
Lcd Command
B = Command
Minuten = A + B
Loop Until Minuten < 60

Sekunden = 0 'nach letzter Eingabe Sekunden wieder auf 0 setzen

Cursor Off
Cursor Noblink

Jahr2 = Str(jahr)
Tag2 = Str(tag)
Monat2 = Str(monat)
Tag2 = Format(tag2 , "00")
Monat2 = Format(monat2 , "00")

Waitms 1000
Return


Getir: 'IR-Code empfangen und auswerten

Getrc5(adress , Command)
If Adress <> Fbcode Then Command = 127 'Command für falsche Adresse setzen damit nicht auf andere FB reagiert wird
If Command > 127 Then Command = Command - 128 'Togglebit einfernen

Return

Modus:

Cls
Lcd " Modus der HGB"
Lowerline
Lcd "--------------------"
Thirdline
Lcd "1. wenn PC an"
Fourthline
Lcd "2. wenn PC aus"

Waitms 200

Do
Gosub Getir
If Command = 0 Then Return
If Command = 1 Then Gosub Modus_an
If Command = 2 Then Gosub Modus_aus
Loop


Modus_an:

Cls
Lcd "1. Lightcontrol" '15 zeichen
Lowerline
Lcd "2. dauerhaft" '12 Zeichen
Thirdline
Lcd "3. dimmer" '9 zeichen
Fourthline
Lcd "4. Schwellwert" '14 Zeichen

Waitms 300

Do

Locate 1 , 17
If Lightcontrol = 1 Then
Lcd " Ja "
Else
Lcd "Nein"
End If

Locate 2 , 17
If Pwmandauer = 1 Then
Lcd "An "
Else
Lcd "Aus"
End If

Locate 3 , 19
If Pwmandimmer = 1 Then
Lcd "*"
Else
Lcd " "
End If

Locate 4 , 19
If Pwmanschwell = 1 Then
Lcd "*"
Else
Lcd " "
End If

Gosub Getir

Select Case Command
Case 0 : Return
Case 1 : Toggle Lightcontrol
Case 2 : Toggle Pwmandauer
Case 3 : Toggle Pwmandimmer
Case 4 : Toggle Pwmanschwell
End Select
Waitms 100

Loop




Modus_aus:


Cls
Lcd "1. dauerhaft"
Lowerline
Lcd "2. dimmer"
Thirdline
Lcd "3. Schwellwert"

Waitms 300

Do

Locate 1 , 17
If Pwmausdauer = 1 Then
Lcd "An "
Else
Lcd "Aus"
End If

Locate 2 , 19
If Pwmausdimmer = 1 Then
Lcd "*"
Else
Lcd " "
End If

Locate 3 , 19
If Pwmausschwell = 1 Then
Lcd "*"
Else
Lcd " "
End If

Gosub Getir

Select Case Command
Case 0 : Return
Case 1 : Toggle Pwmausdauer
Case 2 : Toggle Pwmausdimmer
Case 3 : Toggle Pwmausschwell
End Select

Waitms 100

Loop


Minhell:

Cls
Waitms 200

Lowerline
Lcd "Mit '1' speichern"
Thirdline
Lcd "mit '0' zurück"

Do

Upperline
A = Getadc(0)
B = A / 4
Lcd B

Gosub Getir
If Command = 0 Then Return
If Command = 1 Then
Minhell = B
Writeeeprom Minhell , 2
End If

Loop


Maxhell:
Cls
Waitms 200

Lowerline
Lcd "Mit '1' speichern"
Thirdline
Lcd "mit '0' zurück"

Do

Upperline
A = Getadc(0)
B = A / 4
Lcd B

Gosub Getir
If Command = 0 Then Return
If Command = 1 Then
Maxhell = B
Writeeeprom Maxhell , 4
End If

Loop


Hgb:
Cls
Lcd " HGB"
Lowerline
Lcd "--------------------"
Thirdline
Lcd "1. min. Wert"
Fourthline
Lcd "2. max. Wert"

Waitms 200
Do
Gosub Getir
If Command = 0 Then Return
If Command = 1 Then Gosub Hgbmin
If Command = 2 Then Gosub Hgbmax
Loop


Hgbmin:
Ocr2 = 0
A = 0

Cls
Lowerline
Lcd "7 = - 9 = +"
Thirdline
Lcd "1 = speichern"
Fourthline
Lcd "0 = zurück"

Waitms 200

Do
Gosub Getir
If Command = 0 Then Return
If Command = 1 Then
Pwmmin = A
Writeeeprom Pwmmin , 100
End If
If Command = 7 Then A = A - 5
If Command = 9 Then A = A + 5
If A < 0 Then A = 0
If A > 250 Then A = 250
Ocr2 = A
Upperline
Lcd A ; " "
Loop


Hgbmax:
Ocr2 = 250
A = 250

Cls
Lowerline
Lcd "7 = - 9 = +"
Thirdline
Lcd "1 = speichern"
Fourthline
Lcd "0 = zurück"

Waitms 200

Do
Gosub Getir
If Command = 0 Then Return
If Command = 1 Then
Pwmmax = A
Writeeeprom Pwmmax , 100
End If
If Command = 7 Then A = A - 5
If Command = 9 Then A = A + 5
If A < 0 Then A = 0
If A > 250 Then A = 250
Ocr2 = A
Upperline
Lcd A ; " "
Loop


Savecode:
Zeit = 0 'anzeigen der Zeit (Sekunden) verhindern.
Cls
Lcd "Bitte eine Taste auf"
Lowerline
Lcd "der Fernbedienung"
Thirdline
Lcd "dr" ; Chr(245) ; "cken..."

Do
Getrc5(adress , Command)
If Adress = 255 Then Loop 'wenn nix gedrückt, dann nochmal abfragen
Writeeeprom Adress , 1
Cls
Lcd "Code gespeichert..."
Fbcode = Adress
Waitms 1000
Cls
Return


Timeroffset: 'Vor- und Nachlauf der Uhr kompensieren

Zeit = 0
Cls
Lcd " ACHTUNG!!!"
Lowerline
Lcd "Bedienungsanleitung"
Thirdline
Lcd "beachten!"
Waitms 150

Do
Gosub Getir
Loop Until Command < 127 'erst wenn eine Taste gedrückt wurde weiter machen
If Command <> 5 Then Goto Pc_aus 'nur bei "5" weiter machen
Cls
Lcd "Wert eingeben:"
Lowerline
Lcd "Sollwert: 18661"
Thirdline
Lcd "Istwert: " ; Timervorgabe
Fourthline
Lcd "-----"
Cursor On
Cursor Blink

F = 1 : A = 10000 : C = 0
Waitms 250
Do
Locate 4 , F
Do
Gosub Getir
Loop Until Command < 10
Lcd Command
Waitms 250
B = A * Command
C = C + B
A = A / 10

Incr F

Loop Until F = 6

Cursor Off
Cursor Noblink
Waitms 1000

Timervorgabe = C
Writeeeprom Timervorgabe , 106

Goto ...



PS: (C) by Marco78!!!

[wölfchen]

Hallo ihr beiden,
möchte mich vorab schon einmal bei Euch bedanken.
Naja, als ich den Ausschnitt von deinem Code gelesen habe, stellt ich mit erschrecken fest das ich nocvh einen sehr weiten weg in sachen Programmieren vor mir habe.
Hast du das in Bascom geschrieben? Wie sieht das Ergebniss auf einem LCD aus. Könntest du vielleicht mal ein Bild hier rein stellen?
Danke

[Marco78]

Ja, das ist mit Bascom.

Fotos sind z.Zt. schlecht. Ich habe grade ein gLCD am "Testboard".
Aber ich werde den Code mal dort einfügen wenn ich Zeit habe. Es sieht dann nur etwas verloren aus wenn 4 Zeilen auf 240*128 Punkten dargestellt werden.

Im Code habe ich ja noch einige Subroutinen mit drin. Die sind speziell für's Menü ja nicht nötig.
Du kannst den Code ja auch auf deinem AVR aufspielen und schauen wie es aussieht.

Im Prinzip ist das ganze ja auch nicht soo schwer wie es aussehen mag.
Zuerst die Menüpunkte auf's Display schreiben.
Dann eine Abfrageroutine einbauen. Und ja nachdem was man auswählt muss in ein SUB gesprungen werden.
Das könnte dann wie z.T. bei mir ein weiteres Untermenü sein.

Die Abfrage passiert bei mir mit einer RC5-Fernbedienung.
Im Code ist auch ein für dich ein evtl weiterer hilfreicher Teil mit drin. Das speichern von Einstellungen im EEPROM.

Noch ein Tipp:
Wenn du ein Text-LCD nimmst, kannst du anstelle von LOCATE 1,X usw Firstline, Lowerline, Thirdline und Fourthline verwenden. Damit wird der Code kleiner.

[wölfchen]

Meine güte wenn das Bascom ist dann habe ich ja noch einiges vor mir. In dem Buch von Walter (AVR Mikrocontroller Lehrbuch) kommt das bis jetzt noch nicht vor. Gut ist ein Buch für Leute wie mich, Einsteiger.
Das mit dem Menü auf deinem GLCD darstellen klingt sehr interessant.
Wie gibst du Daten(Werte) ein und speicherst du sie auf einem externen EEprom?
Ich hatte mir überlegt das ich max. 4 Taster zur Menüführung und Eingabe (Werte) verwenden kann.
Du schreibst etwas von RC5. Was genau machst du mit dem Programm?

[Marco78]

RC5 ist einfach nur einer von vielen Code für Fernbedienungen.
Das schöne dran ist, das Bascom für das Auswerten der IR-Signale eine feste Routine hat.
Schau in der Hilfe mal nach GETRC5.

Die Zeit z.B. wird mit den Ziffern eingestellt. Den Menüpunkten habe ich auch Ziffern gegeben, auf die reagiert wird.
Das ganze wäre aber auch mit Tastern möglich!

Die Werte werden im internen EEPROM des Mega16 gespeichert. Ich denke, der wird für dich auch erstmal reichen. Der Mega16 hat 512Byte EEPROM und der Mega32 sogar 1024.
Wenn es nur um ein paar Einstellungen geht reicht das sicherlich.
Ein externen EEPROM kostet ja auch Geld und nimmt Platz weg :(

Ich selbst bezeichne mich auch noch als Einsteiger.
Ich habe zwar schon vor ein paar Monaten mit AVR'S angefangen aber noch nicht soviel Zeit gehabt mich damit zu beschäftigen. Andere hier sitzen da sicherlich fast jeden Tag/Abend dran.

Ich bin aber mit Basic aufgewachsen (hab damit vor etwa 15 Jahren angefangen) von daher fällt es mir relativ leicht das alles nachzuvollziehen.

Bücher habe ich mir auch zwei gekauft. Das eine war im Prinzip Müll, aber ist schön wenn man es mal zur Hand hat. Aber wenn nicht, ist es auch nicht schlimm.
Das andere hat schon etwas mehr geholfen. Aber man schaut es sich auch nur einmal an und dann evtl nochmal wenn was unklar war.
Vieles lernt man am besten in der Praxis.
Vor allem treten da Probleme auf, die man beim Lesen noch garnicht erahnen konnte.

Was ich mit dem Programm mache: Eine lange Geschichte, die auch noch nicht zuende ist...
Wenn es fertig ist und alles so funktioniert wie es soll, werde ich es hier auch vorstellen für den Fall das es jemand gebrauchen kann. Aber das wird bei der Zeit die ich im Moment habe noch einige Monate dauern.

[wölfchen]

So, habe erst einmal meine beiden Beiträge in denen ich Fachbücher erwähne editiert. Grund dafür war das ich Tampert und Walter verwechselt habe. Wieso? Weis ich leider auch nicht.

Ich beschäftige mich gerade mal zwei Wochen mit dem Thema Bascom und AVR, soweit es meine Zeit erlaubt.
Bascom habe ich noch nicht auf meinem Comp. installiert. Grund dafür ist das ich hier oben zurzeit keine Hardware (AVR's u.s.w.) habe doch sobald ich Urlaub habe und wieder in GE bin packe ich alles ein was ich an Elektronik habe und nehme es mit hoch. Habe dann hoffentlich abends öfters Zeit um auch mal praktisch etwas zu machen. Na ja zumindest sobald ich den ISP gebaut habe. Irgendwie freue ich mich schon drauf die Beispiele mit dem Atmega 8 aus dem Walter Buch nach zu machen und wenn ich mal Problem habe weis ich ein tolles Forum in dem mir sicherlich schnell geholfen wird.
Danke noch mal für eure Hilfe.