[BASCOM] Obsługa klawiatury 3x4 lub 4x4

[Henryk]

Witam ponownie po dłuższej przerwie
Zimno wypędziło mnie z lasu , czas na zabawę przy biurku . Potrzeba wymusiła stworzenie programiku obsługi klawiatury z zapisem wartości w zmiennej string i zwrócenie tej wartości do zmiennej dword.
Jeśli można napisać prościej chętnie skorzystam z podpowiedzi
Klawisz [ * ] kod 12 ...przenosi do podprogramu Zapis , po wprowadzeniu nowej wartości zapisujemy ponownie klawiszem [ * ] .

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. $regfile = "m8def.dat"
2. $crystal = 8000000
3. $hwstack = 64
4. $swstack = 64
5. $framesize = 128
6. Config Lcd = 20 * 4
7. Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
8. Cursor Off
9. Config Kbd = Portd       'klawiatura 3x4
10.                       '
11.                       '  K K K X W W W W
12.                       '  1 2 3   1 2 3 4
13.                       '  . . . . . . . .
14.                       '  P P P P P P P P
15.                       '  D D D D D D D D
16.                       '  0 1 2 3 4 5 6 7     pin PD.3 wolny
17.  
18. Dim Klw As Byte , Pozycja As Byte
19. Dim Znak As String * 1 , Wartosc As String * 10
20. Dim Nowa_wart As Dword
21.  
22. Skok:
23. Cls
24.  
25.  Do
26.   Klw = Getkbd()
27.     Locate 1 , 1 : Lcd "Dec - " ; Nowa_wart ; "  "
28.       Waitms 200
29.        If Klw = 12 Then : Goto Zapis : End If
30.     If Nowa_wart > 10000 Then : Locate 1 , 1 : Lcd " MAX wart 10000" , "   " : Waitms 400 : Goto Zapis : End If
31.  Loop
32.  
33.  
34.  
35. Zapis:
36.  
37.   Cls
38.    Locate 1 , 1 : Lcd "Nowe dane "
39.     Locate 2 , 1 : Lcd "Wpisz -"
40.      Wartosc = Space(10)
41.       Pozycja = 1
42.  Do
43.   Klw = Getkbd()
44.      If Klw <> 16 Then : Znak = Lookupstr(klw , Dta) : Pozycja = Pozycja + 1
45.        Insertchar Wartosc , Pozycja , Znak : Locate 2 , 8 : Lcd Wartosc ; "  " : End If
46.          Waitms 200
47.           If Klw = 12 Then : Nowa_wart = Val(wartosc) : : Goto Skok : End If
48.  Loop
49. Return
50.  
51.  
52.  
53. Dta:       '0.....1.....2.....3.....4.....5.....6.....7.....8.....9....10....11....12...13....14....15....16
54. Data "1" , "2" , "3" , " " , "4" , "5" , "6" , "8" , "7" , "8" , "9" , " " , "*" , "0" , "# " , " " , " "
55.         'Tablica zmodyfikowana na potrzeby mojej klawiatury 3x4 :-)

Może akurat komuś przyda się taki amatorski sposób obsługi klawiatury

[niveasoft]

Panie Henryku jak na to patrze to naprawdę da się to napisać lepiej i chętnie bym tu i ówdzie to poprawił gdyby Pan napisał co to czasem ma robić
Żeby nie być gołosłownym funkcja Getkbd() nie powinna być uruchomiona w pętli tylko co jakiś czas bo i tak zwykła odpowiedź przycisku to minimum 20ms.
Przez ten czas procesor mógłby coś innego sprawdzać lub zrobić. Dlatego doradziłbym odpalanie funkcji Getkbd() najczęściej co 10ms.

Teraz rzucę drugim "hintem".
Ciągłe wyświetlanie wyniku " Locate 1 , 1 : Lcd "Dec - " ; Nowa_wart ; " "" to nie jest dobre podejście.
To ciągle zajmuje procesor wyświetlaniem/wysyłaniem danych na LCD.
Można to napisać tak:

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. Dim Old_nowa_wart As Whatever 'miało być śmiesznie ale tu może być Byte.. bo w sumie co może osiem bitów?
2. If Old_nowa_wart <> Nowa_wart Then
3.  Locate 1 , 1 : Lcd "Dec - " ; Nowa_wart ; "  "
4.  Old_nowa_wart = Nowa_wart 'zapamiętaj i nie baw się w wyświetlanie więcej bo raz wystarczy
5.                                               'wyrównaj i to się więcej nie zdarzy dopóki coś się nie zmieni
6. End If

[Henryk]

Witam Panie Bartku .
Elektronika jest dla mnie formą spędzania wolnego czasu w okresie jesień / zima , by nie zwariować
Przeglądałem Twój projekt generatora na stronie domowej w zakładce Kody różne , próbując wyssać samą esencję obsługi klawiatury .....hmmm..... zapętliłem się i zgubiłem
Obsługa klawiatury zostanie wszczepiona do programu generatora który ostatnio budowałem , znudziło mnie klikanie i podciąganie częstotliwości , z klawiatury jest szybciej .
Prototyp z moim kawałkiem kodu działa bez zarzutów .
Wyświetlanie " DEC " pozostało po testach musiałem się jakoś upewnić czy wprowadzone zmiany w zmiennej są takie jakich oczekuję .
Dziękuje za wszelkie podpowiedzi i przykłady , wszystkie chętnie przygarnę