Опять про Серво

pashteet

Всем привет!
Сразу тапком не кидайте :sorry:

на форуме тем полно, но почти все они относятся к Си, а я пишу на Васике и в Си нивзубнагой
Проблема такая - купил серву HTX900, подключил к Меге32 (кварц на 8МГц), написал код:

Код:

$regfile = "m32def.dat"                                     'используем мк ATmega32
$crystal = 8000000                                          'частота кварцевого резонатора 8mHz

Enable Interrupts

Config Servos = 1 , Servo1 = Portb.0 , Reload = 10

Dim I As Integer

Do

For I = 45 To 135 Step 1
Servo(1) = I
Waitms 13                                    'эту задержку подбирать надо эксперементально. особо большую не ставь. а то поставишь секунду серва и будет дёргаться раз в секунду
Next

For I = 135 To 45 Step -1
Servo(1) = I
Waitms 13
Next

Loop

Прошил, подключаю питание - серва один раз дергается и все

больше ничего делать нехочет
Питание стаб. 5В, нога рабочая - проверено светодиодом. Пытался играть со значением Reload = 10 - нифига не реагирует, эффект тот же.

Помогите плиз советом :beer:

, мысли совсем кончились по этому поводу :oops:

galex1981

Задержку поставь побольше

pashteet

на сколько побольше?
20 хватит?

galex1981

Хотя бы 100-150 поставь и проверь, а там решишь какую оставить

pashteet

Поставил 150 - результат тот же

Я прям чет потерялся аж

EdGull

питание у сервы какое и от куда?

=DeaD=

Кстати, да, замерить бы питание - может его серва просаживает при попытке включиться и МК сбрасывается.

Добавлено спустя 47 секунд:
Хотя это больше было бы похоже на дерганье постоянное, а не 1 раз бы дернулось вначале

avr123.nm.ru

pashteet писал(а):

Помогите плиз советом :beer:

Посмотрите в симуляторе или осцилом или через звуковой вход какие импульсы дает ваше устройство на серву. Правильные импульсы расписаны и показаны на скриншоте на страничке - http://avr123.nm.ru/z13.htm

SkyStorm

На Output поставь в самом начале программы )))

Код:

Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Config Pinb.0 = Output

pashteet

Всем спасибо! Заработало :beer:

СкайШторм был прав, хватило лиш одной строки:

Код:

Config Pinb.0 = Output

Извиняюсь за свою невнимательность :sorry:

roboforum.ru

Опять про Серво

Кто сейчас на конференции