Вправо: ' поварачиваем вправо
Dr1 = 1 : Dr2 = 0 : Dr3 = 1 : Dr4 = 0 : Pwm1a = 0 : Pwm1b = Speed
Return
Влево: ' поворачиваем влево
Dr1 = 0 : Dr2 = 1 : Dr3 = 0 : Dr4 = 1 : Pwm1a = Speed : Pwm1b = 0
Return
у вас скорость 1а=0 и 1б=0 потому и не крутит
Технический форум по робототехнике.
Вправо: ' поварачиваем вправо
Dr1 = 1 : Dr2 = 0 : Dr3 = 1 : Dr4 = 0 : Pwm1a = 0 : Pwm1b = Speed
Return
Влево: ' поворачиваем влево
Dr1 = 0 : Dr2 = 1 : Dr3 = 0 : Dr4 = 1 : Pwm1a = Speed : Pwm1b = 0
Return
Я по всякому пробывал! Крутит только одной стороой.
Вперёд: ' едим вперёд
Dr1 = 0 : Dr2 = 1 : Dr3 = 1 : Dr4 = 0 : Pwm1a = 0 : Pwm1b = 0
Return
Zeus писал(а):Я по всякому пробывал! Крутит только одной стороой.
Вот так тоже пробовал?
"
Вправо: ' поварачиваем вправо
Dr1 = 1 : Dr2 = 0 : Dr3 = 1 : Dr4 = 0 : Pwm1a = Speed : Pwm1b = Speed
Return
Влево: ' поворачиваем влево
Dr1 = 0 : Dr2 = 1 : Dr3 = 0 : Dr4 = 1 : Pwm1a = Speed : Pwm1b = Speed
Return
"
Zeus писал(а):И еще как мы можем ехать вперед с таким кодом?Вперёд: ' едим вперёдDr1 = 0 : Dr2 = 1 : Dr3 = 1 : Dr4 = 0 : Pwm1a = 0 : Pwm1b = 0Return
хочу что нибудь еще поставить, но пока думаю что=)
Gelios писал(а):Поставь датчики линии
$regfile = "m8def.dat" ' файл спецификации ATmega8
$crystal = 12000000 'показываем что кварц у нас на 12mHz
'---------Настройка таймеров-------------
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down ' таймер для ШИМ двигателей
'--------Описание портов-----------------
Config Pinb.2 = Output : Dr1 Alias Portb.2
Config Pinb.3 = Output : Dr2 Alias Portb.3
Config Pinb.4 = Output : Dr3 Alias Portb.4
Config Pinb.5 = Output : Dr4 Alias Portb.5
'----------Описанние переменных----------
Dim Speed As Integer
Speed = 255
'----------------------------------------
Do
Gosub Вперёд : Waitms 2000 '2 секунды едем вперед
Gosub Стоп : Waitms 1000 '1 секунду стоим на месте
Gosub Назад : Waitms 2000 '2 секунды едем назад
Gosub Стоп : Waitms 1000 '1 секунду стоим на месте
Gosub Влево : Waitms 2000 '2 секунды поворачиваем влево
Gosub Стоп : Waitms 1000 '1 секунду стоим на месте
Gosub Вправо : Waitms 2000 '2 секунды поворачиваем вправо
Gosub Стоп : Waitms 1000 '1 секунду стоим на месте
Loop
'************************Основные программы движения****************************
Стоп: ' стоим на месте
Dr1 = 0 : Dr2 = 0 : Dr3 = 0 : Dr4 = 0 : Pwm1a = 0 : Pwm1b = 0
Return
Вперёд: ' едим вперёд
Dr1 = 0 : Dr2 = 1 : Dr3 = 1 : Dr4 = 0 : Pwm1a = Speed : Pwm1b = Speed
Return
Вправо: ' поварачиваем вправо
Dr1 = 1 : Dr2 = 0 : Dr3 = 1 : Dr4 = 0 : Pwm1a = Speed : Pwm1b = Speed
Return
Влево: ' поворачиваем влево
Dr1 = 0 : Dr2 = 1 : Dr3 = 0 : Dr4 = 1 : Pwm1a = Speed : Pwm1b = Speed
Return
Назад: ' едим назад
Dr1 = 1 : Dr2 = 0 : Dr3 = 0 : Dr4 = 1 : Pwm1a = Speed : Pwm1b = Speed
Return
End
Skyline писал(а):PS: ИК-бампер, ты вроде как, делал же?
Skyline писал(а):А чем не устраивал предыдущий ДД