roboforum.ru

Что значит "не работает"? подробнее, пожалуйста

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

$regfile = "m16def.dat"

$crystal = 16000000

$baud = 9600

Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down

Config Pinc.6 = Output : Drl Alias Portc.2                  'ногу сконфигурировали как выход и обозвали Drl

Config Pinc.7 = Output : Drr Alias Portc.3                  'ногу сконфигурировали как выход и обозвали Drr

Config Pind.4 = Output                                      'ногу ШИМа левого движка сконфигурировали как выход

Config Pind.5 = Output                                      'ногу ШИМа правого движка  сконфигурировали как выход

Dim A As Integer

Dim Speed As Byte : Speed = 250

Enable Interrupts

Waitms 200

Do
 Drr = 1

 Drl = 0

 Speed = 0

 For A = 10 To 200 Step 10

  Speed = A

  Pwm1b = Speed : Pwm1a = Speed

  Waitms 500

  Next A

 For A = 200 To 10 Step -10

   Speed = A

   Pwm1b = Speed : Pwm1a = Speed

   Waitms 500

   Next A

   Drl = 1

   Drr = 0

   Speed = 0

 For A = 10 To 200 Step 10

    Speed = A

    Pwm1b = Speed : Pwm1a = Speed

    Waitms 500

    Next A

    For A = 200 To 10 Step -10

    Speed = A

    Pwm1b = Speed : Pwm1a = Speed

    Waitms 500

    Next A

Loop

Для проверки ШИМа брал такую нехитрую программу , позаимствована у SMT . По идее робот должен крутится вот как тут http://roboforum.ru/forum88/topic5733-195.html Да , крутит , но только в одну сторону , когда должен крутить в другую , он просто стоит на месте , и потом начинает крутить опять в туже сторону , которую крутил ранее . Оценив ситуацию я пришёл к выводу что не работает OC1B , так как с такими же фьюзами , не хотел запускаться таймер ( на 36 kHz ) для ИК бампера

Gelios, а что, в WinXP клавосочетание Alt+PrntScr отменили?

Не отменили , просто фото было уже на компе

Моя ошибка , не досмотрел . К осциллографу подключал сигнал есть . Перемычку поставить забыл