Witam, chciałbym na wstępie napisać, iż są to moje pierwsze godziny z bascomem i jeśli kogoś zdenerwuje moje pytanie. Prosiłbym o powstrzymanie się od złośliwych odpowiedzi. Co do pytania: chciałem zrobić menu programu gdzie w dolnej lini maiła by się wyświetlać zmienna, dla użytkownika była by to numeracja a dla programu informacja, która zakładka jest wyświetlana. I tu się zatrzymałem napisałem, że jak przycisk naciśnięty to zwiększ i wyświetl "N", lecz na LCD cały czas 0 problemy mam ogólnie z obsługą przycisków. proszę o naprowadzenie gdzie jest błąd albo zilustrowanie jak to powinno wyglądać.
$regfile = "m8def.dat"
$crystal = 8000000
'''''''''''''''''''''''''''''''''''''''
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Pinb.1 = Input
Config Portc.6 = Output
Config Pinb.2 = Input
Config Pinb.3 = Input
Set Portb.2
Set Portb.1
Set Portb.3
Config Pinb.0 = Input
Set Portb.0
S2 Alias Pinb.0
Prawo Alias Pinb.3
Lewo Alias Pinb.2
''''''''''''''''''''''''''''''''''''''
S1 Alias Pinb.1
Dim I As Byte
Dim M As Byte
Cls
Lcd "MaxDamage"
Waitms 500
Lowerline
Lcd "maxdamage17@interia.pl"
Wait 4
For I = 1 To 20
Shiftlcd Left
Waitms 500
Next I
Cls
Lcd "-=xxxxxxxxx=-"
Lowerline
Lcd "xxxxxx"
Wait 2
For I = 1 To 16
Shiftlcd Right
Waitms 500
Next I
Cls
Gosub Cent
End 'end program
Cent:
Cls
Lcd Chr(1)
Deflcdchar 1 , 4 , 10 , 10 , 10 , 17 , 17 , 17 , 14
Locate 1 , 2
Lcd "CPU=??"
Lowerline
Lcd Chr(1)
Locate 2 , 2
Lcd "GPU=??"
Locate 1 , 8
Lcd Chr(0)
Deflcdchar 0 , 2 , 5 , 2 , 32 , 32 , 32 , 32 , 32
Locate 2 , 8
Lcd Chr(0)
Locate 1 , 9
Lcd "C"
Locate 2 , 9
Lcd "C"
Locate 1 , 11
Lcd Chr(2)
Deflcdchar 2 , 32 , 32 , 19 , 26 , 4 , 11 , 25 , 32
Locate 2 , 11
Lcd Chr(2)
Locate 1 , 12
Lcd "=???%"
Locate 2 , 12
Lcd "=???%"
If Prawo = 0 Then
Waitms 25
If Prawo = 0 Then
Do
Incr M
Locate 2 , 1
Lcd M
Loop
Do
Loop Until Prawo = 1
End If
End If
Do
Debounce S1 , 0 , Mnu , Sub
Debounce S2 , 0 , Cent , Sub
Debounce Lewo , 0 , Test , Sub
Loop
Return
Mnu:
Portc.6 = 0
Waitms 50
Portc.6 = 1
Cls
Config Pinb.0 = Input
Set Portb.0
Deflcdchar 3 , 15 , 31 , 6 , 6 , 6 , 6 , 6 , 6
Deflcdchar 4 , 4 , 14 , 14 , 14 , 14 , 4 , 4 , 4
Cls
Locate 1 , 1
Lcd Chr(3)
Locate 1 , 16
Lcd Chr(4)
Locate 1 , 2
Lcd "=====MENU====="
Lowerline