Impulsator (taki jak np: w cyfrowym pre-ampie z EP)

Czy ktoś moze bawił się obsługą impulsatorka w Bascomie. Znam mniej/ więcej zasadę działania, próbowałem napisać program, ale nie zawsze dobrze odczytywał kierunek ruchu osi.

Za każdą pomoc będę wdzięczny

Pozdrawiam Jacek

Heja!
W którymś z programów z EP (chyba układ do regulacji prędkości obrotowej silnika - na AVRze, ale nie jestem pewien) była pełna procedura do obsługi klikera. Program kiedyś byłna stronie EP.

Dzięki, poszukam, a moze ty coś o tym wiesz? Nie wiem czy zajmujesz się programowaniem, ale warto zapytać

Pozdrawiam

Jacor

Heja!
Grzebię w głównie Delphi. Kiedyś starałem się coś zrobić z klikerem, ale w międzyczasie wpadło co innego do roboty i trzeba było się zająć czym innym. Co do klikera, najbliższy projekt z klikerem jakie będę chciał zrobić, to sterowanie do zasilacza (właściwie wymuszalnika U i I) poprzez uC. Ale to za kawałek...
Pozdrawiam,

Witam mam taki programik pod bascoma znalazłem go w jednym z projektów EP


Config Pind.0 = Input
Config Pind.1 = Input
Dim Regulation_counter As Byte
Regulation_counter = 0

Do
Reset Portd.0 : Reset Portd.1
If Pind.0 = 1 And Pind.1 = 0 Then
Do
If Pind.1 = 1 Then Exit Do
Loop
Do
If Pind.0 = 0 Then Exit Do
Loop
Incr Regulation_counter
If Regulation_counter > 100 Then Regulation_counter = 100
End If

Reset Portd.0 : Reset Portd.1
If Pind.0 = 0 And Pind.1 = 1 Then
Do
If Pind.0 = 1 Then Exit Do
Loop
Do
If Pind.1 = 0 Then Exit Do
Loop
Decr Regulation_counter
If Regulation_counter > 100 Then Regulation_counter = 0
End If
Loop
End