SchemaTheek
 
Home Nieuws Forum Schema's Artikelen Magazine Downloads Links Shops Zoeken
 
Controle Paneel
Gebruikersnaam
Wachtwoord
  Onthoud mij
» Wachtwoord?
» Registreren
Site info
» Het Team
» Contact
» FAQ
» Leden
» Upload Archief
Stats
Totaal online: 21
21 gasten
0 leden:
Forum > Elektronica algemeen > Menu maken en tellen.
pascalbianca
Lid
Berichten: 1394
Gepost op zondag 7 September 2014 13:24:41 QuoteWijzig

Ik zit met een probleempje in mijn menu.
Ik heb dus 2 knoppen 1 om in het menu naar boven te gaan en 1 om naar onder te gaan.

Het stukje code dat ik gebruik is als volgt.:

Code

Dim counter2 As Byte
counter2 = 0 

While 1 = 1                             ;Oneindig door blijven meten
 
   If OnderToets = 0 Then
      
      Inc counter2
          gosub IndelingMenu
       EndIf      
   If BovenToets = 0 Then                         ;Toets 2 ingedrukt dan...
      Dec counter2
     gosub IndelingMenu
      EndIf
    If EnterToets = 0 Then
    
   
    EndIf
    If MenuToets = 0 Then                        ;Toets 4 ingedrukt dan...
                                
   EndIf
    
   
Wend                                    ;Terug naar WHILE

IndelingMenu:
Select counter2
    Case 0
        Print At 1,1, "*1.Handbediening.   "
        Print At 2,1, " 2.Automatische bed."
        Print At 3,1, " 3.                 "
        Print At 4,1, " 4.Verlaat Menu.    "
    Case 1
        Print At 1,1, " 1.Handbediening.   "
        Print At 2,1, "*2.Automatische bed."
        Print At 3,1, " 3.                 "
        Print At 4,1, " 4.Verlaat Menu.    "
    Case 2
        Print At 1,1, " 1.Handbediening.   "
        Print At 2,1, " 2.Automatische bed."
        Print At 3,1, "*3.                 "
        Print At 4,1, " 4.Verlaat Menu.    " 
    Case 3
        Print At 1,1, " 1.Handbediening.   "
        Print At 2,1, " 2.Automatische bed."
        Print At 3,1, " 3.                 "
        Print At 4,1, "*4.Verlaat Menu.    "
    Case Else                           ;Anders... 
        Print At 1,1, "*1.Handbediening.   "
        Print At 2,1, " 2.Automatische bed."
        Print At 3,1, " 3.                 "
        Print At 4,1, " 4.Verlaat Menu.    " 
End Select  
Return



Maar het werkt niet hoe het hoort, counter2 geeft willekeurige waarden.
Heeft iemand een betere suggestie cq voorbeeld hoe dit beter kan, ik weet dat er meerdere andere mogelijkheden zijn die beter zijn als wat ik hierboven heb staan alleen ik ken ze niet.

[update]
Menu werkt , moest een pauze toevoegen voor het optellen want de knop was erg gevoelig.

Maar een beter voorbeeld om een menu te maken met submenu's zou ik zeer op prijs stellen aangezien ik hier problemen mee heb.
 
[Bericht gewijzigd door pascalbianca op Zondag 7 September 2014 17:49:26]

http://pascalbianca.blogspot.nl/
Stynus
Admin
Berichten: 2776
Gepost op dinsdag 9 September 2014 22:06:02 QuoteWijzig

Wat ik altijd doe is een while lus toevoegen na een delay

If knop = 1 then
delayms 250
while knop = 1
wend


endif


De loop blijft dan hangen totdat de knop losgelaten is. Optioneel kan je ook een teller bij in de while loop zetten die ook released (break commando) bij een bepaalde stand.


Met vriendelijke groet, Stynus ||| www.elektronicastynus.be

Active Topics

» Inrichting laadruimte ...
» schema HK audio pro 21...
» Stroom verdeelbox 230V...
» Subaru Outback 2016
» Stofafzuiging
» Aanpassingen aanbouwde...
» Audi
» Show je mini projecten
» Puls schkelaar
» Draadknipper

» Meer actieve topics

Advertenties

ElektronicaStynus

© 2004-2019 SchemaTheek
Laadtijd: 0.02846 sec.