[Bascom] sterownik serwomechanizmów

[misha89]

A jaką wartość wpisujesz w okresie instrukcji Pulseout?

[miroskop]

Dla oscylatora 1MHz (wewnętrznego) wartość dla neutrum to 362. Przynajmniej u mnie tak wyszło. Możesz przetestować poniższy program, oczywiście wyjście możesz sobie dowolnie skonfigurować:

Dim P As Word
P = 280
Config Portb = &B11111111
Portb = &B11110111

Do
For P = 280 To 500
Pulseout Portb , 3 , P
Waitms 5
Next
For P = 500 To 280 Step -1
Pulseout Portb , 3 , P
Waitms 5
Loop
End

W normalnym programie do obsługi serwa dobrze jest zadbać by impulsy sterujące wychodziły co ok. 20ms. W moim przykładzie czas ten jest skrócony bo ruch orczyka był zbyt wolny.