Przyjazne Bascom Forum

Żeby nie być goło słownym dodaje bibliotekę klawiatury ADC mulit funkcyjnej.
Co to tak naprawdę oznacza?
Można wciskać kilka przycisków naraz aby uzyskać ukrytą funkcję.

Poniższy przykład to tak naprawdę trzy odrębne klawiatury na trzech odrębnych pinach ADC.
Wydaje mi się że nadal kwalifikuje się to do biblioteki.

Poniższy kod jest w pełni uzależniony od sprzętowego rozwiązania wymaga zastosowania rezystorów o tolerancji 1% lub lepszej.
Rezystory mają nie powtarzalne wartości.

Właśnie ta nie powtarzalność wartości daje nam możliwość uzyskania ukrytych funkcji klawiatury.
Przykład poniżej opisany jako kanał ADC 0 ma aż dwanaście przycisków.
od 1 do 9, 0 gwiazdke(*) i klawisz Enter.
Zamknięty jest w select case.

Do poprawnego działania potrzebna jest nam dodatkowo flaga.
Będziemy korzystać z zagnieżdżania i tym samym blokowania naszego przycisku.
Aby nie tracić 12 bajtów( bo jak wiadomo zadeklarowanie zmiennej jako bit i tak zabiera cały bajt) i definiować za każdym razem zmienna dim flaga as bit
Deklarujemy sobie w programie głównym zmienna globalną as word
'Dim Key_button_flag As Word ' variable for nesting to avoid multiple action
Oczywiście musimy zadeklarować jeszcze naszą zmienną która będzie przechwytywać naszą wartość z przetwornika ADC
'Dim Key_button As Word 'variable for adc keypad buttons
'Dim Analog0 As Word 'numeric keypad

Podpierając się Aliasami możemy nadać naszym przyciskom przyjazną nazwę więc "Aliasujemy":

'Key_1 Alias Key_button.1
'Key_2 Alias Key_button.2
'Key_3 Alias Key_button.3
'Key_4 Alias Key_button.4
'Key_5 Alias Key_button.5
'Key_6 Alias Key_button.6
'Key_7 Alias Key_button.7
'Key_8 Alias Key_button.8
'Key_ * Alias Key_button.9
'Key_0 Alias Key_button.0
'Key_9 Alias Key_button.10
'Key_enter Alias Key_button.11

I teraz zaczniemy ciut od tyłu od kasowania naszej wartości, pobierając nasza wartość z przetwornika sprawdzamy czy:
If Analog0 < 10 And Key_button <> 0 Then
Jeśli analog0 czyli nasza wartość z kanału 0 ADC jest mniejszy od 10.
I równocześnie jakiś przycisk miał wartość 1 czyli był wciśnięty ale już nie jest(świadczy o tym wartość poniżej 10).
To: Key_button = 0 wyzeruj nasz przycisk , Key_button_flag = 0 oraz wyzeruj flagę przycisku.

Poniżej dla lepszego zrozumienia jako kawałek kodu: Przejdźmy do aktywacji naszego przycisku:
Powiedzmy że w pętli do loop najpierw umieścimy naszego suba od sprawdzania wartości ADC.
Program sprawdził wartości i ominął naszego IF-a powyżej bo wartość z adc było większe jak 10.
Case 985 To 1023 Teraz jeśli wartość z ADC mieści się w granicach 985 a 1023 to znaczy ze mamy wciśnięty przycisk 1, równocześnie musimy sprawdzić czy przycisk jest już wciśnięty jakiś czas. Musimy pamiętać że pracujemy w pętli nieskończonej i tu pomocą a raczej kluczem do poprawnego działania będzie sprawdzenie stanu poprzedniego Key_button.1 = 0:, jeśli obydwa te warunki zostały spełnione pomyślnie.
Nasz przycisk zostaje ustawiony w stan 1 Key_button.1 = 1
Nasz program wychodzi w końcu z naszego suba a my może sprawdzić stan przycisku.

IF key_1 = 1 then '(użyliśmy aliasa wcześniej więc możemy posłużyć się przyjazną dla oka nazwą Key_1 zamiast Key_button.1)
If key_button_flag.1 = 0 Then 'sprawdzamy nasza flagę w kolejnym If-e czyli zagnieżdżamy
Func_button_flag.1 = 1 'blokujemy nasz przycisk
' a w tym miejscu robimy co nam się podoba.
'czyli jak nasz program ma zareagować na wciśniecie przycisku.
Call buzzer
End If
End If





Teraz przykład z ukrytymi funkcjami w moim przypadku ADC1:
Ukryte funkcje to nic innego jak osobne wartości dla kombinacji przycisków.
np Case 670 To 685 And Up_stop_down.4 = 0: ' key stop and down

Teraz cały kod dla trzech różnych klawiatur ADC.

Pozdrawiam Pikczu

Witam
Pomysł ciekawy , tylko ma jedną poważną wadę , kiedy nasz układ będzie zasilany baterią i ta nam się rozładuje do połowy ,stracimy część klawiatury .
W podobny sposób można zbudować klawiaturę w oparciu o instrukcję Getrc

Masz rację z tym rozładowaniem baterii ale w urządzeniu zasilanym na stałe mamy fajną klawiaturę np. 12 przyciskową używając tylko jednej nogi procesora.
Wczoraj było już późno dziś postaram się dopisać resztę i dołączyć schemat.
*************************************************************************************************
Edit dodałem resztę plus schematy.
Pozdrawiam
Paweł aka Pikczu