Jak obsłużyć enkoder w Bascom bez przerwań przy szybkim obrocie?

Question

Witam. Temat ogólnie znany ale próbowałem pisać różne procedury, przeszukiwałem Elektrodę i niestety nie znalazłem dobrej obsługi enkodera bez używania systemu przerwań (nie pozwala mi na to konstrukcja programu, gdyż innym przerwaniem obsługuję RS'a dla którego bardzo ważne są timingi). Poniżej...

Dr_DEAD · Answer

Bo dobra procedura enkodera musi być na przerwaniach. Spróbuj pogodzić jedne przerwania z drugimi, np. skracając czas obsługi przerwania do minimum, lub zezwalając na obsługę przerwań od RS'a w przerwaniu od enkodera. Dodano po 3 [minuty]: Przepraszam za głupie pytanie ale: Czy w enkoderze są jakieś styki?

robiw · Answer

Nie da się inaczej ( ? ...tak enkoder ma styki... robiw

McRancor · Answer

Nawet nie napisałeś jaki to procesor... Ten RS musi być obsługiwany programowo? Może wykorzystaj sprzętowy, a wtedy przerwania nie będą przeszkadzać.

robiw · Answer

Tak nie mogę, gdyż, tak naprawdę (nie napisałem) obsługa impulsatora zaszyta jest w procedurze a procedura używana w kilku miejscach programu, gdyż za pomocą impulsatora zmieniam ponad 20 parametrów. Chyba jednak użyję przerwania Int0, które to będę blokował w obsłudze przerwania Serial (jest ważniejsze). Ciekaw jestem tylko czy przerwanie od Seriala, które ma priorytet nie będzie mi wywalać przerwania Int0 (impulsatora) lub co gorsza nie zawiesi procka... robiw

Promuję tematy:
24.09.2025 fuseDoctor – ratownik zbrickowanych mikrokontrolerów AVR (ATmega8 i podobne).

K_o_n_r_a_d · Answer

Podczas szybkiego kręcenia wartości oscylują wokół ostatniej dlatego, że reszta kodu wykonywana równolegle do obsługi impulsatora zbyt długo trwa. Spróbuj jakoś zwiększyć częstotliwość sprawdzania impulsatora. Może masz jakąś część kodu, który nie musi się wykonywać w każdym cyklu pętli głównej itp.

W ostateczności, jesli nie będzie to przeszkadzało reszcie programu możesz zrobić coś takiego:

Dim Datas As Byte 
Dim Current_clk As Bit 
Dim Last_clk As Bit 

Current_clk = P3.0 
Last_clk = P3.0 

Do 
   gosub sprawdz_impulsator
 'CZĘŚĆ RESZTY PROGRAMU
   gosub sprawdz_impulsator
 'CZĘŚĆ RESZTY PROGRAMU
loop

sprawdz_impulsator:
 Set P3.0 
 Current_clk = P3.0 
 If Last_clk = 1 Then 
  If Current_clk = 0 Then 
   Set P3.1 
   If P3.1 <> 0 Then Incr Datas 
   If P3.1 <> 1 Then Decr Datas 
  End If 
 End If 
 Last_clk = Current_clk
return

Po każdej części programu, która zajmuje "sporo czasu" powtórzyć obsługę impulsatora.
-------
PS.
Trochę narozrabiałem, bo napisałem wiadomość z nieswojego konta (przez przypadek) a póżniej usunąłem, aby napisać ze swojego konta :/ i robiw zdążył odpowiedzieć na tamtą poprzednią zanim zmieniłem

robiw · Answer

procek 89C4051 a przerwanie rs'a obsługuje dane przesyłane przez midi z baud 31250 b/sec więc programowo to wolałbym nie, zwłaszcza, że procek ma co robić... robiw

robiw · Answer

Witam... i temat zamykam :-)

Zastosowałem jednak obsługę enkodera na przerwaniu Int1. Jedno z wyprowadzeń podpiąłem pod Int1, przerwania ustawiłem na wyzwalane opadającym zboczem a w samym przerwaniu sprawdzam co jest na drugiej "nodze" enkodera i zmniejszam lub zwiększam wybraną daną a którą wiem po indeksie zmienianym w petli głównej do loop. W przerwaniu od MIDI blokuję przerwanie Int1. Działa bez zarzutu, bardzo precyzyjnie i to jest optymalne rozwiązanie...pozdrawiam.. dziękuję... robiw

Promuję tematy:
24.09.2025 fuseDoctor – ratownik zbrickowanych mikrokontrolerów AVR (ATmega8 i podobne).

Jak obsłużyć enkoder w Bascom bez przerwań przy szybkim obrocie?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Podsumowanie tematu