Displaymenü in Bascom

[Paul S. (paul_s95)]

Hallo,
ich wollte mal nachfragen, wie man ein Displaymenü in Basom erstellen 
kann, sodass man sich mit 5 Tasten (oben, unten, rechts, links, Mitte / 
ok) durchsteuern kann. In den Menüs sollte man evtl. PWM-Werte 
bearbeiten können.

[meckerziege (Gast)]

Woran hängts denn?
Was kannst du so und was hast du an Hardware zur Verfügung? Irgendenen 
Mikrocontroller?

Sowas ist ganz leicht machbar, aber du musst uns erstmal sagen wo du 
nicht weiterkommst!

[Paul S. (paul_s95)]

Hmm, also ich hab noch nicht angefangen. Ich kann Grundlagen von bascom. 
Und ich hatte an einen atmega 8 gedacht.

[Nachgucker (Gast)]

Meinst du vom Prinzip her sowas?

Hier wurde ein Touch-Screen GLCD verwendet und ein Menue gewählt.
Wegen GLCD und Touch ist es ein größerer Prozessor.
Du kannst aber das Prinzip erkenne, bzw nachvollziehen.

http://www.mcselec.com/index.php?option=com_content&task=view&id=189&Itemid=57

[sBronco (Gast)]

Ich hab das mal für 5 Tasten gebastelt

Entprellung über touch: wird ausgeführt wenn touch > n mal gleich war

SUB KEYPAD

   lastkey = key : key = 0
   If PinD.5 = 0 then key = key + 1                         ' Up
   If PinD.2 = 0 then key = key + 2                         ' Left
   If PinD.4 = 0 then key = key + 4                         ' Right
   If PinD.1 = 0 then key = key + 8                         ' ENTER
   If PinD.0 = 0 then key = key + 16                        ' Down

   If key <> 0 AND key <> 1 AND key <> 2 AND key <> 4 AND key <> 8 AND key <> 16 then Exit Sub

   incr touch
   If touch > 20 then
      touch = 20 : Exit Sub
   End If

'flag.0 = LCD update
'     .1 = Clock update
'     .2 = Eingabe Ausgeführt, warten auf loslassen
'     .3 = Sensoren

   Select Case flag.2
      ' noch keine Aktion
         Case 0 :
            If key <> lastkey then touch = 0
            MenuReset = 0
      ' Aktion bereits ausgelöst
         Case 1 :
            If key > 0 then
               touch = 0 : Exit Sub
            End If

            If key = lastkey AND touch > tcount then
               flag.2 = 0 : touch = 0
            End If
      End Select
End Sub

[Paul S. (paul_s95)]

Okay. Und wie funktioniert das ohne Touch?