roboforum.ru

[pashteet]

Всем привет!
Сразу тапком не кидайте на форуме тем полно, но почти все они относятся к Си, а я пишу на Васике и в Си нивзубнагой
Проблема такая - купил серву 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 - нифига не реагирует, эффект тот же.

Помогите плиз советом , мысли совсем кончились по этому поводу

[galex1981]

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

[pashteet]

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

[galex1981]

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

[pashteet]

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

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

[EdGull]

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

[=DeaD=]

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

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

[avr123.nm.ru]

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

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

[SkyStorm]

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

Код: Выделить всё • Развернуть

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

[pashteet]

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

Код: Выделить всё • Развернуть

Config Pinb.0 = Output

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