ATNEL tech-forum

Re: Wyjście z menu

2013-06-12T18:25:31+01:00

Podeślij mi na maila cały program. Jak będę miał chwilkę to zrobię poprawki i przetestuje je.
jacekk232@wp.pl

Statystyki: Napisane przez jacekk232 — 12 cze 2013, o 18:25

Re: Wyjście z menu

2013-06-12T18:04:54+01:00

jaceek czy możesz mi napisać ten kawałek kodu odnośnie tego pinu

Statystyki: Napisane przez slawek3000 — 12 cze 2013, o 18:04

Re: Wyjście z menu

2013-06-11T19:31:48+01:00

Po deklaracji proste przypisanie np.
[syntax=basic4gl]Stan_przycisku = Pinb.4[/syntax]
albo po prostu [syntax=basic4gl]Stan_przycisku = 1[/syntax]
Chodzi o to aby po uruchomieniu programu ta zmienna miała taki sam stan jak na Pinb.4. Potem jak wciśniesz przycisk to Pinb.4 będzie równy 0 a zmienna nadal będzie mała wartość 1. Wtedy warunek Stan_przycisku <> Pinb.4 będzie spełniony i wykona się to co ma się wykonać tylko jeden raz. Bo dalej po Stan_przycisku = Pinb.4 jak program przejdzie do innego menu warunek ten już nie będzie spełniony i z tego menu program ci nie skoczy do następnego dopóki nie puścisz przycisku.
Mam nadzieje, że nie zamotałem.

Statystyki: Napisane przez jacekk232 — 11 cze 2013, o 19:31

Re: Wyjście z menu

2013-06-11T19:20:55+01:00

z Tym stanem przycisku to jak mam przypisać tą zmienną zwykłe Dim Stan_przycisku As byte ? czy coś innego

Statystyki: Napisane przez slawek3000 — 11 cze 2013, o 19:20

Re: Wyjście z menu

2013-06-11T19:05:37+01:00

brakuje r, jak w moim nicku
matrix0606@op.pl

Statystyki: Napisane przez matrix — 11 cze 2013, o 19:05

Re: Wyjście z menu

2013-06-11T19:04:07+01:00

podałem mi dobry adres @ ?

Statystyki: Napisane przez slawek3000 — 11 cze 2013, o 19:04

Re: Wyjście z menu

2013-06-11T18:56:10+01:00

Podeślij mi może na maila cały plik (cały ptrogram) Jeśli nie będzie bardzo zamotany to wrzucę do bascoma i coś może uda się ogarnąć.

matix0606@op.pl

Statystyki: Napisane przez matrix — 11 cze 2013, o 18:56

Re: Wyjście z menu

2013-06-11T18:49:35+01:00

Wydaje mi się, że błędnie obsługujesz przycisk na Pinb.4. Twój program powinien reagować na zmianę stanu przycisku z wysokiego na niski. Czyli jedno wciśnięcie to jedno zadziałanie nawet jak program wskoczy w inne podmenu gdzie również wykorzystujesz Pinb.4.

Spróbuj tak: utwórz sobie zmienną np stan_przycisku a w kodzie zrób tak
[syntax=basic4gl]Case 1:

Locate 1 , 1
Lcd ">AGC "
If Pinb.4 <> Stan_przycisku Then
Menusub = 10
Flaga_menusub = 1
Stan_przycisku = Pinb.4
End If[/syntax]
Tylko musiał byś tak zrobić wszędzie gdzie wykorzystujesz Pinb.4. A na początku programu przypisać wartość z Pinb.4 do zmiennej Stan_przycisku albo zainicjować tą zmienną wartością taką jaką Pinb.4 ma w spoczynku czyli 1.

Statystyki: Napisane przez jacekk232 — 11 cze 2013, o 18:49

Re: Wyjście z menu

2013-06-11T18:34:35+01:00

Jak się domyślam jest to efekt , który opisałeś mi powyżej ... tylko jak napisać tych parę linijek kodu aby działało to prawidłowo

Statystyki: Napisane przez slawek3000 — 11 cze 2013, o 18:34

Re: Wyjście z menu

2013-06-11T18:32:22+01:00

Bo ogólnie jak dla mnie to strasznie zamotałeś ten program. Tam jest groch z kapustą.
Zamiast powypisywać kolejno select case żeby mieć jasność to poprzestawiałeś to strasznie.
Ja w pętli do...loop napisałbym obsługę przycisków lub wykrycie ich naciśnięcia, zależnie od złożoności całego programu.
W każde CASE dałbym tylko wyświetlanie tego co mi potrzebne, a po zatwierdzeniu wejścia dopiero skok do danego podprogramu.

To że nie bardzo wiesz co w programie się dzieje dowodzi tylko tego że jest napisany chaotycznie i nie do końca przemyślałeś koncepcję jego działania.

Ja jak pisałem menu do sterownika (centrali) bramy wjazdowej to popełniłem sporo błędów, ale zawsze po analizie wiedziałem gdzie jest błąd i jak go poprawić. Tu się nie przechwalam tylko staram się pokazać jak ważne jest odpowiednie ułożenie sobie bloków w programie.

------------------------ [ Dodano po: 1 minucie ]

I jeszcze jedno. Jeśli masz tylko menu i nie odczytujesz niczego w trakcie ani nie używasz timerów czy też innych ścisłych czasowo zależności to możesz sobie używać wait'ów do woli.

Statystyki: Napisane przez matrix — 11 cze 2013, o 18:32

Re: Wyjście z menu

2013-06-11T18:21:05+01:00

dodałem drugie case z "
podcase "[syntax=basic4gl]Sub Lcds:

Select Case Menusub:

Case 1:

Locate 1 , 1
Lcd ">AGC "
If Pinb.4 = 0 Then
Menusub = 10
Flaga_menusub = 1
End If
Case 10:

Locate 1 , 1
Lcd "AGC Fast "

Case 11:
Locate 1 , 1
Lcd "AGC Slow "

Case 12:

Locate 1 , 1
Lcd "AGC Mid "

Case 13:

Locate 1 , 1
Lcd " Powrot do MENU <-"
If Pinb.4 = 0 Then
Menusub = 1
Flaga_menusub = 0
Wait 1
End If

Case 9 :
Menusub = 13
Case 14 :
Menusub = 10

Case 2: 'menu główne AUTO tutaj po naciśnięciu OK przechodzi z powrotem na tryb AUTO
'i wyświetla ekran główny
Locate 1 , 1
Lcd ">BEEP "

If Pinb.4 = 0 Then
Menusub = 20
End If

Case 20:

Locate 1 , 1
Lcd "BEEP Key"

Case 21:

Locate 1 , 1
Lcd "BEEP Band Edge "
Case 22:

Locate 1 , 1
Lcd " Powrot do MENU <-"
Locate 2 , 1
Lcd " OK "

If pinb.4 = 0 Then
Menusub = 2
Flaga_menusub = 0
Wait 1

End If

Case 19 : Menusub = 22
Case 23 : Menusub = 20

Case Else
Menusub = 250
If Pinb.4 = 0 Then Menusub = 1

End Select
End Sub[/syntax] z waitem faktycznie wychodzi do AGC i teraz mam BEEP klikam na przycisk pinb.4 i teraz niespodzianka jestem w Case 10 zamiast w 20

Statystyki: Napisane przez slawek3000 — 11 cze 2013, o 18:21

Re: Wyjście z menu

2013-06-11T18:10:41+01:00

Wait było tylko na próbę, nie na zawsze.

[syntax=basic4gl]If Pinb.4 = 0 Then
Flaga_ok = 1
Flaga_przycisk = 1
End If : End If

End Sub

Sub Lcds:

Select Case Menusub:

Case 1:

Locate 1 , 1
Lcd ">AGC "
If Pinb.4 = 0 Then
Menusub = 10
End If
Case 10:

Locate 1 , 1
Lcd "AGC Fast "

Case 13:

Locate 1 , 1
Lcd " Powrot do MENU <-"
If Pinb.4 = 0 Then
Menusub = 1
End If

End Select
End Sub[/syntax]

Linie nr 1,2 i 3 ustawiasz sobie flagę, ok.
Linia nr 12 wchodzisz w case 1, ok
Teraz pomińmy trochę i skoczmy sobie do linii 24. Wchodzisz do case 13.
Linia 29 nadajesz zmiennej MENUSUB wartość 1, ok
Teraz jakoś tam wychodzisz z menu i teraz będą moje ulubione efekty video czyli dajemy FREEZE TIME lub jak kto woli TIME STOP.
Trzymasz przycisk bo w linii 28 go nacisnąłeś.
Nadal trzymasz a już na powrót znajdujesz się w linii 12 gdzie wchodzisz do CASE 1.
Wciąż trzymasz przycisk i kolejno wykonujesz rozkazy linia po linii.
Linia 14 znajdujesz pozycję na LCD
Linia 15 wpisujesz na lcd napis >AGC
Linia 16 a Ty nadal doznajesz efektu freeze time i znowu procesor sprawdza czy trzymasz przycisk, a Ty go trzymasz więc nadajesz swojej zmiennej MENUSUB wartość 10 choć przed chwilką miała ona wartość 1.
Wychodzisz z CASE 1 i co? Twoja zmienna ma wartość 10 więc wchodzisz w CASE 10 czyli linia 19.
No i masz powód czemu znajdujesz się w CASE 10 a nie w 1.

Pisząc programy na procesor musisz nauczyć się zatrzymywać w czasie. Pomocne efekty video to FREEZE TIME oraz SLOW MOTION.

PS. Wykład o efektach video traktuj z przymrużeniem oka.

Statystyki: Napisane przez matrix — 11 cze 2013, o 18:10

Re: Wyjście z menu

2013-06-11T17:51:58+01:00

No właśnie nie widzę , może jednak poproszę o podpowiedz dodałem te wait tylko,że by bardziej rozbudowanym menu spowoduje zawieszenie programu w zliczaniu wyjścia z całego menu

Statystyki: Napisane przez slawek3000 — 11 cze 2013, o 17:51

Re: Wyjście z menu

2013-06-11T17:36:54+01:00

Wchodzisz do CASE 1 tylko tego nie widzisz.
W tej części:

[syntax=basic4gl]Case 13:

Locate 1 , 1
Lcd " Powrot do MENU <-"
If Pinb.4 = 0 Then
Menusub = 1
End If[/syntax]

Po Menusub = 1 dodaj na próbę wait 1. Jeśli będziesz miał dobrze to albo domyślisz się co masz nie tak, albo Ci powiem.

Statystyki: Napisane przez matrix — 11 cze 2013, o 17:36

Re: Wyjście z menu

2013-06-11T17:12:24+01:00

w czym mam problem ,zacznę od kawałka kodu[syntax=basic4gl]Sub Przyciski:

If Flaga_przycisk = 0 Then 'jedna reakcja na nacisniecie przysisku
'flaga kasowana po obsluzeniu przycisku
If Pinb.4 = 0 Then
Flaga_ok = 1
Flaga_przycisk = 1
End If : End If

If Pinb.2 = 0 Then
Menusub = Menusub - 1
Flaga_przycisk = 1
End If

If Pinb.3 = 0 Then
Menusub = Menusub + 1
Flaga_przycisk = 1
End If
End Sub

Sub Lcds:

Select Case Menusub:

Case 1:

Locate 1 , 1
Lcd ">AGC "
If Pinb.4 = 0 Then
Menusub = 10
End If
Case 10:

Locate 1 , 1
Lcd "AGC Fast "

Case 11:
Locate 1 , 1
Lcd "AGC Slow "

Case 12:

Locate 1 , 1
Lcd "AGC Mid "

Case 13:

Locate 1 , 1
Lcd " Powrot do MENU <-"
If Pinb.4 = 0 Then
Menusub = 1
End If

Case 9 :
Menusub = 13
Case 14 :
Menusub = 10
End Select
End Sub[/syntax] to jest menu , w którym chcę się poruszać wchodzę do Case 1 później po naciśnięciu PINB.4 chce wejść do Case 11 i dalej ale tu poruszam się za pomocą PINB.2 i PINB.3 czyli GÓRA i DÓŁ gdy jestem Case 13 i naciskam PINB.4 chce wrócić do CASE 1 a tak nie jest po wskakuje mi na CASE 10 nie wiem jak to poprawić

Statystyki: Napisane przez slawek3000 — 11 cze 2013, o 17:12

Re: Wyjście z menu

2013-06-10T20:07:28+01:00

No to w czym kłopot? Bo już nie bardzo rozumiem.

Statystyki: Napisane przez matrix — 10 cze 2013, o 20:07

Re: Wyjście z menu

2013-06-10T19:44:40+01:00

Samo wejście i wyjście z menu działa jeżeli nie nacisnę przycisku tak jak chciałem po jakiś 7 sec wyskakuje mi do wyświetlacza głównego

Statystyki: Napisane przez slawek3000 — 10 cze 2013, o 19:44

Re: Wyjście z menu

2013-06-10T19:09:50+01:00

Nie o to chodzi. Chodzi o coś innego. W części końcowej masz wyłączanie przerwań w postaci ich globalnego zabronienia - Disable Interrupts, ale już na początku brak Ci globalnego zezwolenia czyli Enable Interrupts.

Wstaw jak poniżej i daj znać.

[syntax=basic4gl]Menu: 'podprogram menu
Enable Interrupts 'tego brakuje
Start Timer1
Do[/syntax]

Statystyki: Napisane przez matrix — 10 cze 2013, o 19:09

Re: Wyjście z menu

2013-06-10T18:46:44+01:00

ten kawałek kodu to [syntax=basic4gl]Sub Lcds:

Select Case Menusub

Case 1:

Locate 1 , 1
Lcd "AGC "

Flaga_menusub = 1
If Flaga_ok = 1 Then
Menusub = 10
Flaga_menusub = 1
End If

Flaga_ok = 0
Case 10:
Locate 1 , 1
Lcd "AGC Fast "
Case 11:
Locate 1 , 1
Lcd "AGC Mid "
Case 12:
Locate 1 , 1
Lcd "AGC Slow "

Case 13:

Locate 1 , 1
Lcd " Powrot do MENU <-"

If Flaga_ok = 1 Then
Menusub = 1
Flaga_ok = 0
Flaga_menusub = 0
End If :

Case 9 :
Menusub = 13

Case 14 :
Menusub = 10

End Select
End Sub[/syntax]

Statystyki: Napisane przez slawek3000 — 10 cze 2013, o 18:46

Re: Wyjście z menu

2013-06-10T18:19:27+01:00

Ten kawalek:

[syntax=basic4gl]Menu: 'podprogram menu
Start Timer1
Do
If Pinb.0 = 0 Or Pinb.1 = 0 Or Pinb.2 = 0 Or Pinb.3 = 0 Or Pinb.4 = 0 Then
Zmienna = 0
End If[/syntax]
Zamień na:

[syntax=basic4gl]If Pinb.0 = 0 Or Pinb.1 = 0 Or P_dol = 0 Or P_gora = 0 Or P_ok = 0 Then
Zmienna = 0
End If[/syntax]

Nie ma tu błędu, ale po to robiłeś aliasy by używać przyjaznych sobie nazw.

A nie wychodzi Ci bo masz błąd. Zapewne nie działa Ci odliczanie czasu pobytu w manu.
Nie działa bo przeanalizować musisz dwa kawałki kodu.

Czego brakuje w tym kawałku a co na pewno masz w kawałku poniżej?

[syntax=basic4gl]Menu: 'podprogram menu
Start Timer1
Do
If Pinb.0 = 0 Or Pinb.1 = 0 Or Pinb.2 = 0 Or Pinb.3 = 0 Or Pinb.4 = 0 Then
Zmienna = 0
End If[/syntax]

[syntax=basic4gl]If Zmienna = 255 Then 'jeśli osiągniemy 5sekund to
Exit Do
End If
Loop : Locate 2 , 1 : Lcd " "
Stop Timer1
Disable Interrupts
Return[/syntax]

Statystyki: Napisane przez matrix — 10 cze 2013, o 18:19

Re: Wyjście z menu

2013-06-10T17:22:47+01:00

teraz to poprawiłem i działa opóźnienie [syntax=basic4gl]$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000
$baud = 9600
$hwstack = 64
$swstack = 64
$framesize = 64

Config Portb.0 = Input
Config Portb.1 = Input
Config Portb.2 = Input
Config Portb.3 = Input
Config Portb.4 = Input
Config Portb.5 = Input

Portb = &B11111111
P_ok Alias Pinb.4
P_gora Alias Pinb.3 'przycisk góra
P_dol Alias Pinc.2 'przycisk doł
'-----------------------------------------------------------------
'konfiguracja wyświetlacza
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2

Cls
Config Timer1 = Timer , Prescale = 1024
Dim Zmienna As Byte
Dim Menusub As Byte
Dim Flaga_ok As Byte
Dim Flaga_menusub As Byte
Dim Flaga_przycisk As Byte
Dim K_menu As Bit
Declare Sub Lcds
Declare Sub Przyciski
'-----------------------------------------------------------------
On Timer1 Przerwanie 'powiedzmy że przerwanie ustalisz na 100ms
Stop Timer1
Menusub = 1
Do 'pętla główna programu
If Pinb.5 = 0 Then Gosub Menu 'jeśli wciśniesz ustalony przycisk to przechodzisz do menu

'tutaj wszystko to co masz robić w pętli głównej
Locate 1 , 1 : Lcd "Wyswietlacz glowny"
Loop
End

Menu: 'podprogram menu
Start Timer1
Do
If Pinb.0 = 0 Or Pinb.1 = 0 Or Pinb.2 = 0 Or Pinb.3 = 0 Or Pinb.4 = 0 Then
Zmienna = 0
End If
Locate 2 , 1 : Lcd "Menu" 'tutaj wszystko to co masz robić w menu
Call Przyciski
Call Lcds
Timer1 = 1 'XX = wartość dla przerwania 100ms
Incr Zmienna

Locate 2 , 8 : Lcd Zmienna : Locate 2 , 12 : Lcd Menusub
If Zmienna = 255 Then 'jeśli osiągniemy 5sekund to
Exit Do
End If
Loop : Locate 2 , 1 : Lcd " "
Stop Timer1
Disable Interrupts
Return

Przerwanie:
Timer1 = 1 'XX = wartość dla przerwania 100ms
Incr Zmienna

Return

Sub Przyciski:

If Flaga_przycisk = 0 Then 'jedna reakcja na nacisniecie przysisku
'flaga kasowana po obsluzeniu przycisku
If P_ok = 0 Then
Flaga_ok = 1
Flaga_przycisk = 1
End If : End If

If Pinb.2 = 0 Then
Menusub = Menusub - 1
Flaga_przycisk = 1
End If

If Pinb.3 = 0 Then
Menusub = Menusub + 1
Flaga_przycisk = 1
End If
End Sub[/syntax]

próbuje napisać menu w Case na podstawie kodu z elektrony ale coś mi nie wychodzi http://www.elektroda.pl/rtvforum/viewto ... 8#11667308

Statystyki: Napisane przez slawek3000 — 10 cze 2013, o 17:22

Re: Wyjście z menu

2013-06-09T22:19:53+01:00

No weź sobie wyobraź. Jeśli piszesz że działa Ci jak masz wpisane do timera liczbę 6 to jak może nie działać gdy wpiszesz 99 czy 100 ?
Albo działa w obu przypadkach albo nie działa wcale.

Statystyki: Napisane przez matrix — 9 cze 2013, o 22:19

Re: Wyjście z menu

2013-06-09T17:48:14+01:00

niestety , ale prawdziwe

Statystyki: Napisane przez slawek3000 — 9 cze 2013, o 17:48

Re: Wyjście z menu

2013-06-09T17:03:09+01:00

slawek3000 napisał(a):

Właśnie testuje na organizmie żywym, i zmienna nie zlicza się w podprogramie Przerwanie , jak wrzucę [syntax=basic4gl]Timer0 = 6 'XX = wartość dla przerwania 100ms
Incr Zmienna[/syntax] do podprogramu menu wtedy się zlicza

Zupełnie niemożliwe.

Statystyki: Napisane przez matrix — 9 cze 2013, o 17:03

Re: Wyjście z menu

2013-06-09T12:33:44+01:00

Statystyki: Napisane przez slawek3000 — 9 cze 2013, o 12:33