lcd-menü

[Bratwurst]

Hallo,

Ich versuche mich jetzt schon geraume Zeit an einem einfachen Menü (darzustellen auf einem 16x4 LCD). Ich habe auch schon "etwas per taster durchschaltbares" auf die Beine gestellt bekommen, allerdings ist das noch sehr umständlich programmiert.
Könnt ihr mir eventuell einfach einmal ein Grundgerüst vorschlagen, wie man so etwas am ressurcensparendsten und ergonomisch lösen kann.

Ich bin für jedes Beispiel dankbar

mfg
Paul

[hrei]

Hallo!

Meine Standardlösung nutzt 3 Tasten: Rauf, Runter und Enter.

Im gezeigten Code wird dafür eine "Tastatur" an einem Analogport genutzt. Das Beuispiel muss man sich natürlich für die eigenen Bedürfnisse zurechtfummeln:



'Gerüst für Atmega 8 mit Menue - HR - AUGUST 2005

$regfile = "m8def.dat"
$crystal = 7372800
$baud = 9600


Enable Interrupts 'Interrupts erlauben

Config Adc = Single , Prescaler = Auto

Config Pinc.0 = Input 'Für analog_key
Keyboard Alias Pinc.0 'Aliasname

Config Pinb.0 = 1 'Ausgang
Beep Alias Pinb.0

Declare Function Analog_key() As Byte

Dim Taste As Byte
Dim Menue_current As Byte
'-------------------------------------------------------------------------------

Sound Beep , 400 , 450 'Bin wach -)
Cursor Off
Lcd " Menue Test"
Wait 3
'-------------------------------------------------------------------------------

Cls
Menue:
Menue_current = 0

Menue_1:

Taste = Analog_key()
Waitms 100

If Taste = 32 Then
Menue_current = Menue_current + 1
End If

If Taste = 33 Then
Menue_current = Menue_current - 1
End If

If Menue_current > 6 Then Menue_current = 1
If Menue_current < 1 Then Menue_current = 6

If Taste = 10 Then Goto Execute
'-------------------------------------------------------------------------------
Select Case Menue_current 'aktuelle Auswahl anzeigen

Case 1
Locate 1 , 1
Lcd " Fall 1 "
Case 2
Locate 1 , 1
Lcd " Fall 2 "
Case 3
Locate 1 , 1
Lcd " Fall 3 "
Case 4
Locate 1 , 1
Lcd " Fall 4 "
Case 5
Locate 1 , 1
Lcd " Fall 5 "
Case 6
Locate 1 , 1
Lcd " Fall 6 "

End Select
Taste = 255
Goto Menue_1
'-------------------------------------------------------------------------------

Execute: 'aktuellen Menuepunkt ausführen
Cls

Select Case Menue_current
Case 1
Cls
'Call 1
Cls
Case 2
Cls
'Call 2
Cls
Case 3
Cls
'Call 3
Cls
Case 4
Cls
'Call 4
Cls
Case 5
Cls
'Call 5
Cls
Case 6
Cls
'Call 6
Cls
End Select

Goto Menue_1
'-------------------------------------------------------------------------------

End 'Hauptprogramm Ende

'------------------------------------------------------------------------------
'Diese Unterfunktion fragt die Tastatur am analogen Port ab
Function Analog_key() As Byte
Local Ws As Word
Analog_key = 255
Start Adc
Ws = Getadc(0)
If Ws < 900 Then
Select Case Ws
Case 0 To 100
Analog_key = 32
Case 400 To 600
Analog_key = 33
Case 650 To 750
Analog_key = 10
End Select
Sound Beep , 400 , 450 'Quittungspiepser
End If
Waitms 100
End Function
'-------------------------------------------------------------------------------
'
'
'.... Hier folgen die durch das Menue aufgerufenen Subroutinen bzw. Funktionen


Grüße
Henrik

[Bratwurst]

Vielen Dank für das Beispiel !
Ich hab mir lieber mal eine Analogtastatur zurechtgefummel ;) Jetzt funktioniert das alles auch Prima.

Schönes Wochenende noch

[spaceduck]

mal ne Frage...

Was ist eine Analogtastatur? Wie soll sowas schaltungstechnisch aussehen mit den 3 Tasten?

Danke schon mal...

[spaceduck]

mal ne Frage...

Was ist eine Analogtastatur? Wie soll sowas schaltungstechnisch aussehen mit den 3 Tasten?

Danke schon mal...

[hrei]

mal ne Frage...
Was ist eine Analogtastatur? Wie soll sowas schaltungstechnisch aussehen mit den 3 Tasten?


Siehe direkt: http://www.henrik-reimers.de/control/tastaturen.htm

Ansonsten evtl. auch mal in die Wissensrubrik dieses Forums hineinspähen und sich ggf. auch http://www.henrik-reimers.de/control/avr/index.html reinziehen.

Grüße
Henrik