ATNEL tech-forum

Re: on/off z timerem

2014-10-28T13:13:01+01:00

Do obliczania parametrów Timer'a polecam także te stronę
http://impuls.elektroda.eu/joomla/index ... kalkulator

Statystyki: Napisane przez WoodPaker — 28 paź 2014, o 13:13

Re: on/off z timerem

2014-10-28T13:03:22+01:00

Dziękuję Wam za pomoc:)
Będę bawił się dalej.
MKavrCalculator mam także potrenuję też obliczanie parametrów do timerów.

Statystyki: Napisane przez michał6201 — 28 paź 2014, o 13:03

Re: on/off z timerem

2014-10-25T16:14:12+01:00

Pozwólcie moi drodzy, że się wtrącę w wątek...
Kolego @Niveasoft, a co się stanie kiedy w Twoim programie po 2s nadal będę trzymał przycisk?

No dobra, żeby nie być tylko krytykiem to wrzucam moją wersję tego problemu i nieco zmieniłem Twój kod.
Przede wszystkim oczyściłem przerwania, bo dobrym nawykiem jest aby od początku robić tam porządek i umieszczać tylko niezbędne rzeczy (o czym zresztą sam wspominałeś). Dodałem za to timer programowy. Zmieniłem nieco interwał przerwań - teraz jest 10ms co łatwiej się liczy. Program jest oczywiście nieblokujący czyli nie zatrzymuje pętli głównej na czas swojego wykonywania. Pozmieniałem też kolejność instrukcji - tu również dobrym nawykiem jest aby włączać przerwania jak już wszystko się skonfiguruje i poustawia, bo o ile w tak prostym programie zgrzytu nie będzie o tyle w czymś bardziej skomplikowanym może być niezły zonk nawet ze zjaraniem peryferiów dołączonych do procka włącznie(!)...

@michał6201 przeanalizuj dokładnie moją wersję programu, a zobaczysz jakie cuda można wyprawiać z badaniem przycisku w ten sposób napisanym O tym, że wyszło przy okazji gotowe debounce (nawiasem mówiąc tu niepotrzebne, ale przy dalszej rozbudowie niezbędne) nawet już nie wspominam...

[syntax=basic4gl]$regfile = "m8adef.dat"
$crystal = 1000000 ' taktowanie wewnętrzne 1MHz

' Konfiguracja Timera

Config Timer0 = Timer , Prescale = 256
On Timer0 Timer0_isr
Timer0 = 217 '1000000/256/39 = około 100Hz (10ms) 256-39=217
Enable Timer0 'odblokowanie przerwania od przepełnienia timer0
'
Config Portd.0 = Input : Portd.0 = 1 : Switch Alias Pind.0 ' konfiguracja przycisku on/off
Config Portc.0 = Output : Portc.0 = 1 : Led Alias Portc.0 ' konfiguracja led (zgaszona)
'

Dim Licz As Byte 'zmienna pomocnicza do odlczania dla przycisku
Dim Ti1 As Byte 'timer programowy
Enable Interrupts 'dobrym nawykiem jest odblokowanie przerwań jak już wszystko jest poustawiane

'*** Start ***
'---------------------
Do
'
'
'
If Switch = 0 Then
If Ti1 = 0 Then
Ti1 = 10 'interwał 100ms, bo 10x10ms=100ms
If Licz < 255 Then Incr Licz 'granica bezpieczeństwa dla użytej zmiennej BYTE
If Licz = 20 Then Toggle Led '2s (20x100ms=2000ms) maksymalny czas może być 255x100ms=25,5s
End If
Else
Licz = 0
End If
'
'
'
Loop
End
'---------------------

Timer0_isr:
Timer0 = 217 'odświerzenie wartości dla timera
'
If Ti1 > 0 Then Decr Ti1 'licznik programowy
Return[/syntax]

Statystyki: Napisane przez SylwekK — 25 paź 2014, o 16:14

Re: on/off z timerem

2014-10-25T01:49:37+01:00

Teraz działa super.
A czemu dałeś wszystko do podprogramu obsługi przerwania? Dlaczego tak się robi?

Statystyki: Napisane przez michał6201 — 25 paź 2014, o 01:49

Re: on/off z timerem

2014-10-25T01:35:57+01:00

Dziękuję Ci za kod.
Zmniejszyłem wartość zmiennej z 1000 do 125 żeby szybciej zmieniał się stan led, ale działa po puszczeniu przycisku, czyli nie wiemy kiedy doliczył do 125, póki nie puścimy przycisku. Można to jakoś odwrócić?

Statystyki: Napisane przez michał6201 — 25 paź 2014, o 01:35

Re: on/off z timerem

2014-10-25T01:17:16+01:00

Nie rozumiem tego.

Jak puszczony przycisk to nie będzie inkrementowana zmienna word.
Jak przycisk wciśnięty to ma się inkrementować, a jak nie to nie.

Ja zrobiłem to jeszcze tak jak ja to rozumuję a jak już wiesz ze mnie programista żaden, ale działa.
Ile czasu trzeba trzymać wciśnięty to tylko mógłbym zmierzyć stoperem, bo tego przeliczania też nie rozumiem, mimo że Panowie Górecki i Wiązania tłumaczyli to w swoich książkach.
[syntax=basic4gl]$regfile = "m8adef.dat"

$crystal = 1000000 ' taktowanie wewnętrzne 1MHz

' ===========WŁĄCZNIK ON/OFF===============

Config Portd.0 = Input : Portd.0 = 1 : S Alias Pind.0 ' konfiguracja przycisku on/off
Config Portc.0 = Output : Portc.0 = 1 : Led Alias Portc.0 ' konfiguracja led (zgaszona)

' Konfiguracja Timera
Config Timer0 = Timer , Prescale = 256

Enable Interrupts ' odblokowanie globalnego systemu przerwań
Enable Timer0 ' odblokowanie przerwania od przepełnienia timer0
Load Timer0 = 250 ' wartość początkowa timera = 250

On Timer0 Odmierz_3s ' przerwanie od przepełnienia etykieta Odmierz_3s
Dim Licz As Byte ' zmienna pomocnicza do odlczania czasu

Dim Flaga As Bit ' zmienna pomocnicza
Flaga = 1 ' stan spoczynkowy zmiennej pomocniczej 1
Dim Flaga2 As Bit
Flaga2 = 1

Do ' główna pętla

Debounce S , 0 , Odmierz_3s , Sub ' jeśłi przycisk zwaty to idź odmierz 3 sekundy i wróć
Led = Flaga2

Loop
End

Odmierz_3s: ' odmierzenie czasu 3 sekundy

Load Timer0 = 250
Incr Licz
If Licz = 200 Then
Licz = 0

If Licz = 0 Then
If S = 0 Then
Toggle Flaga2
End If
End If
End If
Return[/syntax]

A tak zrozumiałem to co mi napisałeś, ale nie wiem czy dobrze.
Jeśli możesz to wytłumacz mi z tym timerem jak to się przelicza i o co w tym chodzi bo z tych książek nic nie rozumiem, a niby napisane dla początkujących. Teraz muszę bardzo długo trzymać przycisk żeby się zaświeciła led.

[syntax=basic4gl]$regfile = "m8adef.dat"

$crystal = 1000000 ' taktowanie wewnętrzne 1MHz

' ===========WŁĄCZNIK ON/OFF===============

Config Portd.0 = Input : Portd.0 = 1 : S Alias Pind.0 ' konfiguracja przycisku on/off
Config Portc.0 = Output : Portc.0 = 1 : Led Alias Portc.0 ' konfiguracja led (zgaszona)

' Konfiguracja Timera
Config Timer0 = Timer , Prescale = 256 , Const Timer0reload = 15

Enable Interrupts ' odblokowanie globalnego systemu przerwań
Enable Timer0 ' odblokowanie przerwania od przepełnienia timer0
Load Timer0 = 250 ' wartość początkowa timera = 250

On Timer0 Odmierz_3s ' przerwanie od przepełnienia etykieta Odmierz_3s

Dim Licz As Byte ' zmienna pomocnicza do odlczania czasu

Dim Flaga As Bit ' zmienna pomocnicza
Flaga = 1 ' stan spoczynkowy zmiennej pomocniczej 1
Dim Zmienna As Word

Do ' główna pętla

If S = 0 Then Flaga = 0
If S = 1 Then Gosub Odmierz_3s
If Zmienna > 1000 Then
Toggle Led
Flaga = 1
If Zmienna < 1000 Then
Zmienna = 0
Flaga = 0
End If
End If

Loop
End

Odmierz_3s:
Load Timer0 = 250

If S = 0 Then
Incr Zmienna
End If
Return[/syntax]

Statystyki: Napisane przez michał6201 — 25 paź 2014, o 00:57

on/off z timerem

2014-10-24T23:36:48+01:00

Witam

Napisałem kiedyś mały programik służący do załączania i wyłączania led za pomocą jednego przycisku z opóźnieniem, ale zrobiłem to używając "waitms". Chodziło mi o to aby led nie zaświecała się odrazu po naciśnięciu przycisku,tylko trzeba było go chwilę przytrzymać i dopiero się led zaświeciła. I to samo przy zgaszeniu led.

[syntax=basic4gl]$regfile = "m8adef.dat"

$crystal = 1000000 ' taktowanie wewnętrzne 1MHz

' ===========WŁĄCZNIK ON/OFF===============

Config Portd.0 = Input : Portd.0 = 1 : S Alias Pind.0 ' konfiguracja przycisku on/off
Config Portc.0 = Output : Portc.0 = 1 : Led Alias Portc.0 ' konfiguracja led (zgaszona)

Dim Flaga As Bit ' zmienna pomocnicza
Flaga = 1 ' stan spoczynkowy zmiennej pomocniczej 1

Do ' główna pętla

If S = 0 Then ' jeśli przycisk jest zwarty
Waitms 900 ' odczekaj 900ms
If S = 0 Then ' sprawdź ponownie czy jest zwarty
If Flaga = 1 Then ' i czy zmienna pomocnicza ustawiona na 1
Toggle Led ' to zmień stan led i zaświeć ją
Flaga = 0 ' i zablokuj możliwość zmiany
End If
End If
Else ' jeżeli przycisk nie jest zwarty
Flaga = 1 ' to umożliw zmiany
End If

Loop
End ' koniec głównej pętli[/syntax]

Chciałbym to zrobić teraz bez użycia waitms, ale za to z użyciem timera0 do odmierzenia czasu, ale coś mi nie wychodzi i nie odmierza czasu. Po naciśnięciu przycisku program miałby przeskoczyć do procedury odmierzającej czas, np. 3s, powrócić do pętli głównej, sprawdzić czy nadal przycisk wciśnięty i zaświecić led. To samo na odwrót.

[syntax=basic4gl]$regfile = "m8adef.dat"

$crystal = 1000000 ' taktowanie wewnętrzne 1MHz

' ===========WŁĄCZNIK ON/OFF===============

Config Portd.0 = Input : Portd.0 = 1 : S Alias Pind.0 ' konfiguracja przycisku on/off
Config Portc.0 = Output : Portc.0 = 1 : Led Alias Portc.0 ' konfiguracja led (zgaszona)

' Konfiguracja Timera
Config Timer0 = Timer , Prescale = 256

Enable Interrupts ' odblokowanie globalnego systemu przerwań
Enable Timer0 ' odblokowanie przerwania od przepełnienia timer0
Load Timer0 = 250 ' wartość początkowa timera = 250

On Timer0 Odmierz_3s ' przerwanie od przepełnienia etykieta Odmierz_3s
Dim Licz As Byte ' zmienna pomocnicza do odlczania czasu

Dim Flaga As Bit ' zmienna pomocnicza
Flaga = 1 ' stan spoczynkowy zmiennej pomocniczej 1

Do ' główna pętla

If S = 0 Then Gosub Odmierz_3s ' jeśłi przycisk zwaty to idź odmierz 3 sekundy i wróć
If S = 0 Then ' sprawdź czy nadal zwarty
If Flaga = 1 Then 'i czy zmienna pomocnicza ustawiona na 1
Toggle Led ' to zmień stan led i zaświeć ją
Flaga = 0 ' i zablokuj możliwość zmiany
End If

Else ' jeżeli przycisk nie jest zwarty
Flaga = 1 ' to umożliw zmiany
End If

Loop
End

Odmierz_3s: ' odmierzenie czasu 3 sekundy
Load Timer0 = 250
Incr Licz
If Licz = 125 Then
Licz = 0

End If
Return[/syntax]

Pomożecie mi to jakoś poprawić?

Statystyki: Napisane przez michał6201 — 24 paź 2014, o 23:36