Здраствуйте. Меня зовут Ленар мне 23 года. Ваш форум читаю уже достаточно давно.
И все таки решил выложить свое творение тоже.
Скажем так тележка для начинающих.
Она собрана из старого отечественного металлического конструктора, два сервопривода от самолета, колеса от того же самолета, и плата mrc-40 с http:\\robozone.su
Язык программирования выбран bascom-avr. Как самый простой
Вложение:
Комментарий к файлу: внешний вид
L1020776.jpg [ 146.25 КиБ | Просмотров: 3454 ]
Вложение:
Комментарий к файлу: MRC 40 c доработками
L1020775.jpg [ 222.46 КиБ | Просмотров: 3463 ]
Вложение:
Комментарий к файлу: крепление серв
L1020773.jpg [ 777.53 КиБ | Просмотров: 3465 ]
В сервоприводах удалены переменные резисторы, и установлены постоянники.
исходный код программы управления. Пример управления с пульта ду от телевизора RC5
Код:
$regfile = "m32def.dat"
$crystal = 14745600
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "mcsbyte.lbx"
Config Servos = 2 , Servo1 = Portc.2 , Servo2 = Portc.3 , Reload = 10 ', Timer = Timer1
Config Rc5 = Pina.7 , Timer = 2
Dim Address As Byte , Command As Byte
Config Portc = Output
Enable Interrupts
Servo(1) = 113 'средняя точка сервы
Servo(2) = 113 'средняя точка сервы
Dim I As Byte
Dim A As Byte , B As Byte , C As Byte
A = 113
Do
Getrc5(address , Command)
If Address = 0 Then
Command = Command And &B01111111
Print Address ; " " ; Command
If Command = 32 Then 'прямо
Servo(1) = A + 50
Servo(2) = A - 50
End If
If Command = 33 Then 'назад
Servo(1) = A - 50
Servo(2) = A + 50
End If
If Command = 16 Then 'влево
Servo(1) = A
Servo(2) = A - 50
End If
If Command = 17 Then 'вправо
Servo(1) = A + 50
Servo(2) = A
End If
If Command = 12 Then 'выключить питание
Powerdown
End If
Else
Servo(1) = A 'стоп
Servo(2) = A 'стоп
End If
Loop
Тележка ездит все замечательно, но теперь я задумался а как же более точно синхронизировать левый и правый привод? Может кто нибудь сталкивался?
Вход
Регистрация
FAQ
Поиск
