roboforum.ru

Технический форум по робототехнике.

 

"Robbe"

Наше хобби — конструировать и программировать.
Демонстрация готовых роботов и устройств построенных своими руками.

Re: "Robbe"

Сообщение loox » 27 сен 2009, 19:13

коллега
нет опасности выжечь глаз коту лазером?
loox
loox
 
Сообщения: 237
Зарегистрирован: 26 мар 2008, 12:45

Re: "Robbe"

Сообщение pashteet » 27 сен 2009, 20:04

Помойму это обычная лазерная указка :D ей уж точно никому ничего не выжгеш, проверенно :good:
Аватара пользователя
pashteet
 
Сообщения: 930
Зарегистрирован: 28 авг 2009, 12:50
Откуда: Волжский
Skype: pashok0988
ФИО: Павел Петрович

Re: "Robbe"

Сообщение space » 27 сен 2009, 23:32

не помойму а так оно и есть.
Аватара пользователя
space
 
Сообщения: 548
Зарегистрирован: 17 июн 2007, 23:44
Откуда: Тула
прог. языки: Bascom AVR Basic, CodeVisionAVR
ФИО: Замотаев Кирилл Игоревич

Re: "Robbe"

Сообщение galex1981 » 28 сен 2009, 01:29

Лазерной указкой можнозрение очень сильно посадить...
if(!Operate) Read(pDatasheet);
Аватара пользователя
galex1981
 
Сообщения: 4360
Зарегистрирован: 04 дек 2008, 22:44
Откуда: Камышин
Skype: galk-aleksandr1
прог. языки: C, C++, Assm, BasCom, VB, php
ФИО: Галкин Александр Владимирович

Re: "Robbe"

Сообщение Bass85 » 28 сен 2009, 20:50

Монитором тоже :crazy: А вообще да если в сетчатку попадете то нечего хорошего с этого не будет, даже если сразу и не заметно все вылезет потом :(
Bass85
 
Сообщения: 38
Зарегистрирован: 12 авг 2009, 14:24
Откуда: Киев

Re: "Robbe"

Сообщение space » 28 сен 2009, 21:51

Начал проводить замеры по разряду аккумулятора. Держит уже полтора часа. Подключён вентилятор, два мотора для более быстрой разрядки. И ЖКИ-дисплей для вывода АЦП. Разрядился только на 1 вольт. АЦП=344 при 7,5в. При 8,5 386. Делитель напряжения на резисторах в 1кОм и 7,5кОм
Аватара пользователя
space
 
Сообщения: 548
Зарегистрирован: 17 июн 2007, 23:44
Откуда: Тула
прог. языки: Bascom AVR Basic, CodeVisionAVR
ФИО: Замотаев Кирилл Игоревич

Re: "Robbe"

Сообщение pashteet » 29 сен 2009, 01:12

Нормально держит, для своих размеров - зачет :good:
Аватара пользователя
pashteet
 
Сообщения: 930
Зарегистрирован: 28 авг 2009, 12:50
Откуда: Волжский
Skype: pashok0988
ФИО: Павел Петрович

Re: "Robbe"

Сообщение space » 03 окт 2009, 15:37

появилась маааленькая проблема. Убрал задержку из функции. В этом условие(waitms 250):

Код: Выделить всёРазвернуть
If Sharp_a02 = 1 Then : Gosub Разворот_влево : waitms 250 : Else : Gosub Вперёд : End If


Было:
Код: Выделить всёРазвернуть
Sharp_right:
Declare Function Sharp_a02(byval 0 As Bit) As Bit
Function Sharp_a02(byval 0 As Bit) As Bit
Local АЦП As Word
Start Adc : АЦП = Getadc(0)                                 'Sharp connected for example to PA=0(ADC0)
Stop Adc
If АЦП < 850 Then : Sharp_a02 = 0 : Else : Sharp_a02 = 1 : End If
If Sharp_a02 = 1 Then : Gosub Разворот_влево : waitms 250 : Else : Gosub Вперёд : End If
End Function

Стало:
Код: Выделить всёРазвернуть
Sharp_right:
Declare Function Sharp_a02(byval 0 As Bit) As Bit
Function Sharp_a02(byval 0 As Bit) As Bit
Local АЦП As Word
Start Adc : АЦП = Getadc(0)                                 'Sharp connected for example to PA=0(ADC0)
Stop Adc
If АЦП < 850 Then : Sharp_a02 = 0 : Else : Sharp_a02 = 1 : End If
If Sharp_a02 = 1 Then : Gosub Разворот_влево : Else : Gosub Вперёд : End If
End Function

И теперь даже, если есть препятствие серва продолжает крутится. Когда задержка была серва, останавливалась только на указанное время задержки.
Мне надо сделать так чтобы пока есть препятствие робот разворачивался, а серва в этот момент стояла на месте, до тех пор пока препятствие не станет. По условию выполняется только разворот робота, а серва продолжает крутиться. Пробовал делать выход из цикла вращения сервы и остановку не помогло. Пробовал и др. варианты типо изменения переходов в подпрограммы или сделать, то что мне надо за счёт условий, но без результатно, если кто знает как мне остановить серву в момент разворота, то подскажите пожалуйста.
Вложения
WinRAR.rar
На всякий случ. весь код программы
(11.88 КиБ) Скачиваний: 21
Аватара пользователя
space
 
Сообщения: 548
Зарегистрирован: 17 июн 2007, 23:44
Откуда: Тула
прог. языки: Bascom AVR Basic, CodeVisionAVR
ФИО: Замотаев Кирилл Игоревич

Re: "Robbe"

Сообщение SMT » 03 окт 2009, 22:03

судя по твоему коду, ты стартуешь вперед, затем в цикле (несколько for-ов) вращаешь серву, проверяя значение АЦП (значение, снимаемое с дальномеров Шарп) и если он показывает, что дальномер "заметил" препятствие, вызываешь включение поворота и возвращаешся в цикл поворота сервы. Думаю не нужно делать то, что я подчеркнул - нужно в цикле начать снова проверять АЦП, пока он не покажет, что из "поля зрения" Шарпа изчезло препятствие (возможно следует в этом цикле проверять какой-то счетчик, чтобы не зациклиться совсем).
Затем (для верности) подождать пока робот повернет еще и продолжить обычное выполнение программы (снова поехать вперед, продолжая вращать серву).
SMT
 
Сообщения: 1158
Зарегистрирован: 23 авг 2008, 22:28
Откуда: Санкт-Петербург
ФИО: Сергей

Re: "Robbe"

Сообщение space » 03 окт 2009, 22:14

Ага. Спасибо за ответ. Ща попробую :)
Аватара пользователя
space
 
Сообщения: 548
Зарегистрирован: 17 июн 2007, 23:44
Откуда: Тула
прог. языки: Bascom AVR Basic, CodeVisionAVR
ФИО: Замотаев Кирилл Игоревич

Re: "Robbe"

Сообщение SMT » 04 окт 2009, 14:37

Вот такой алгоритм я имел ввиду. Цикл организовать оператором while. Выделенное красным можно вынести в процедуру (Sub) и вызывать ее из цикла.
ServoScheme.png
SMT
 
Сообщения: 1158
Зарегистрирован: 23 авг 2008, 22:28
Откуда: Санкт-Петербург
ФИО: Сергей

Re: "Robbe"

Сообщение space » 04 окт 2009, 18:30

Ща работает так
Вложения
WinRAR.rar
С таким кодом
(11.85 КиБ) Скачиваний: 16
Аватара пользователя
space
 
Сообщения: 548
Зарегистрирован: 17 июн 2007, 23:44
Откуда: Тула
прог. языки: Bascom AVR Basic, CodeVisionAVR
ФИО: Замотаев Кирилл Игоревич

Re: "Robbe"

Сообщение space » 05 окт 2009, 00:07

:Yahoo!: :Yahoo!: :Yahoo!: Спасибо, SMT. Всё работает теперь.
-звук запаздывает поэтому внимание на него не обращайте.
Аватара пользователя
space
 
Сообщения: 548
Зарегистрирован: 17 июн 2007, 23:44
Откуда: Тула
прог. языки: Bascom AVR Basic, CodeVisionAVR
ФИО: Замотаев Кирилл Игоревич

Re: "Robbe"

Сообщение space » 07 окт 2009, 17:05

Ну вот прикрепил голову. Видео правда пока загрузить на ютуб не могу. ПВХ вспененного пока нет ещё (
Вложения
P1040090.JPG
P1040089.JPG
Аватара пользователя
space
 
Сообщения: 548
Зарегистрирован: 17 июн 2007, 23:44
Откуда: Тула
прог. языки: Bascom AVR Basic, CodeVisionAVR
ФИО: Замотаев Кирилл Игоревич

Re: "Robbe"

Сообщение yak-40 » 07 окт 2009, 17:16

Симпатишная такая мордашка получилась :)
похоже из распаечной коробки сделана
- Этот человек - не человек! это робот!
- Как? уже делают?!
- Делают!!!
Аватара пользователя
yak-40
 
Сообщения: 3019
Зарегистрирован: 23 окт 2007, 22:03
Откуда: Москва
прог. языки: С
ФИО: Евгений Яковец

Пред.След.

Вернуться в Наши проекты

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4

Mail.ru counter