ATNEL tech-forum

Re: menu w case problem z jednym przyciskiem

2013-04-21T08:25:52+01:00

znalazłem w necie przykład menu, chce się na nim oprzeć ale już wyskoczył mi problem chce wykorzystać encoder z przyciskiem a w tym przykładzie http://www.elektroda.pl/rtvforum/topic2446785-0.html jest ich pięć i teraz nie wiem jak napisać obsługę przycisków tak by wykorzystać ten encoder

Statystyki: Napisane przez slawek3000 — 21 kwi 2013, o 08:25

Re: menu w case problem z jednym przyciskiem

2013-04-19T21:23:31+01:00

Ha, Paweł, i tu się zjawiłeś?

Statystyki: Napisane przez matrix — 19 kwi 2013, o 21:23

Re: menu w case problem z jednym przyciskiem

2013-04-19T19:21:34+01:00

Jestem w domu na weekend postaram się coś skrobnąć.
A na razie po próbuj sam.
Mam dla ciebie wskazówkę zacznij select case od wartości 1 a nie od zera.
Dodaj debounce dla tego przycisku na Pinb.5.

Widzę że klecisz coś związanego z krótkofalarstwem uchyl rąbka tajemnicy.
Pozdrawiam
Paweł

Statystyki: Napisane przez pikczu — 19 kwi 2013, o 19:21

Re: menu w case problem z jednym przyciskiem

2013-04-16T06:48:38+01:00

Chyba źle opisałem problem tym jednym przyciskiem chce zatwierdzać zmiany tylko ,że jak np. Menu -> scan -> speed -> tutaj przycisk PINB.5 powinien dać możliwość tylko wyboru Fast lub Slow a on przeskakuje z Fast na On w następnym pod menu , nie wiem jaką procedurą mam napisać i jak się za to zabrać

Statystyki: Napisane przez slawek3000 — 16 kwi 2013, o 06:48

Re: menu w case problem z jednym przyciskiem

2013-04-16T00:37:54+01:00

To jest tak źle wszytko napisane że aż dziw bierze ze cokolwiek działa.
Brakuje konfiguracji procesora. stoku itp.
Brak konfiguracji portów.
Za dużo waitów brak zagnieżdżania przy sprawdzaniu stanu pinów.itp.
Postaraj się trzymać to w pętli do loop a enkoderem zmieniać wartość np jednej zmiennej.
i w zależności od wartości kontynuować dalej z select case.

A z używaniem bitwait musisz być ostrożny bitwait zatrzymuje cały program do momentu aż wybrany bit nie zmieni stanu.

Statystyki: Napisane przez pikczu — 16 kwi 2013, o 00:37

Re: menu w case problem z jednym przyciskiem

2013-04-15T20:01:18+01:00

Nie nie.
Chodzi o to że ja pytam czy nie używasz timerów, ponieważ dyrektywa bitwait wstrzymuje działanie programu do czasu pojawienia się określonego na końcu polecenia stanu na pinie wskazanym po poleceniu.

Więc jeśli w programie nie używasz timerów lub też po wejściu do menu są one wyłączone, to śmiało możesz zastosować polecenie bitwait.

Statystyki: Napisane przez matrix — 15 kwi 2013, o 20:01

Re: menu w case problem z jednym przyciskiem

2013-04-15T19:54:11+01:00

a jak to zrobić za pomocą timerów ?

Statystyki: Napisane przez slawek3000 — 15 kwi 2013, o 19:54

Re: menu w case problem z jednym przyciskiem

2013-04-15T19:50:22+01:00

Jeśli nie masz timerów i możesz pozwolić sobie na wstrzymanie programu w dowolnym momencie w menu to najzwyczajniej po każdym:

[syntax=basic4gl]If Pinb.5 = 0 Then[/syntax]

wpisz:

[syntax=basic4gl]Bitwait Pinb.5, set[/syntax]

Statystyki: Napisane przez matrix — 15 kwi 2013, o 19:50

menu w case problem z jednym przyciskiem

2013-04-15T18:33:57+01:00

Witam, napisałem kod menu a teraz mam problem z obsługą przycisku Pinb.5 po prostu skacze po całym menu

[syntax=basic4gl]Portb = &B11111111
Dim B As Byte
Dim Scan As Byte
Dim Sped As Byte
Dim Of As Byte
B = 0

Cls
Do

B = Encoder(pinb.0 , Pinb.3 , Links , Rechts , 1)
Waitms 10

Loop
End

Links:
Incr B

If B >= 4 Then
B = 0
End If

Select Case B
Case 0 : Waitms 100
Locate 1 , 5 : Lcd "Scan" :
If Pinb.5 = 0 Then
Incr Scan
If Scan >= 3 Then
Scan = 0 : End If
End If
Select Case Scan
Case 0:
Locate 2 , 2 : Lcd "Sped"
If Pinb.5 = 0 Then
Incr Sped : If Sped >= 2 Then : Sped = 0 : End If : End If
Select Case Sped
Case 0:
Locate 2 , 8 : Lcd "Fast"
Case 1:
Locate 2 , 8 : Lcd "Slow"
End Select

Case 1:
Locate 2 , 2 : Lcd "Freq"
If Pinb.5 = 0 Then
Incr Of : If Of >= 2 Then : Of = 0 : End If : End If
Select Case Of
Case 0:
Locate 2 , 7 : Lcd "ON "
Case 1:
Locate 2 , 7 : Lcd "OFF "
End Select
Case 2:
Locate 2 , 2 : Lcd "Memory"
End Select

Case 1 : Waitms 100
Locate 1 , 5 : Lcd "Display"

Case 2 : Waitms 100
Locate 1 , 5 : Lcd "Beep "

Case 3 : Waitms 100
Locate 1 , 5 : Lcd "AGC "
End Select
Return
Rechts:
Decr B
Return
End[/syntax]

Statystyki: Napisane przez slawek3000 — 15 kwi 2013, o 18:33