ATNEL tech-forum

Re: Wyjście z pętli do Loop

2014-08-25T08:16:59+01:00

Oczywiście Bitwait jak najbardziej można stosować o ile dopuszczamy blokadę pętli, bo w tym czasie nic innego w niej się nie wykona.

Statystyki: Napisane przez SylwekK — 25 sie 2014, o 08:16

Re: Wyjście z pętli do Loop

2014-08-24T19:12:24+01:00

Jeśli chcesz wyjść z pętli to tu nie ma się co martwić (ja bym się nie martwił) o czekanie. Napisał bym:

[syntax=basic4gl]If Przycisk = 0 then
Bitwait Przycisk, Set
Waitms 50
Exit Do
End If[/syntax]

Statystyki: Napisane przez matrix — 24 sie 2014, o 19:12

Re: Wyjście z pętli do Loop

2014-08-24T13:20:25+01:00

O ile kolega będzie korzystał z Debounce, bo ja np. unikam go jak ognia i stosowałem tylko na samym początku programowania w celach edukacyjnych...

Statystyki: Napisane przez SylwekK — 24 sie 2014, o 13:20

Re: Wyjście z pętli do Loop

2014-08-24T09:42:35+01:00

Umieszczasz tam gdzie Ci pasuje, bo po jej wykonaniu loop zostaje po prostu pominięty. Pamiętaj jednak, że po wejściu do pętli przyciekiem musisz go sprawdzać pod kątem puszczenia (np. jakaś flaga) bo inaczej wejście do pętli będzie związane z natychmiastowym jej opuszczeniem gdy mówimy o tym samym przycisku.

Statystyki: Napisane przez SylwekK — 24 sie 2014, o 09:42

Re: Wyjście z pętli do Loop

2014-08-24T09:18:01+01:00

OK , a gdzie ją w programie umieścić ?

Statystyki: Napisane przez slawek3000 — 24 sie 2014, o 09:18

Re: Wyjście z pętli do Loop

2014-08-24T08:53:57+01:00

Ja robiłem to instrukcją warunkową i poleceniem Exit Do, np.[syntax=basic4gl]If Menu = 0 Then Exit Do[/syntax]

Statystyki: Napisane przez matw — 24 sie 2014, o 08:53

Wyjście z pętli do Loop

2014-08-24T07:55:56+01:00

Witam,
jak można wyjść z pętli tym samym przyciskiem co do nie wchodziłem, napisałem tak na szybko krótki kod działa poprawnie ale wyjście następuje dopiero po osiągnięciu pewnej wartości zmiennej. do mneu wchodzę za pomocą Debounce
[syntax=basic4gl]Do
If Flag_menu = 1 Then
For Pomoc = 1 To 4
Petla = Pomoc + Menu_offset
Offset_y = Pomoc + 4

If Pomoc = 1 Then 'przesuniecie poczatku wyswietlania
Setfont My6_8 : Lcdat Offset_y , 1 , Menu(petla) , 1
Else
Setfont My6_8 : Lcdat Offset_y , 1 , Menu(petla)
End If
'Lcd Menu(petla)

Next Pomoc
End If
Incr Exit_menu
Loop Until Exit_menu = 255[/syntax]

Statystyki: Napisane przez slawek3000 — 24 sie 2014, o 07:55