roboforum.ru

Технический форум по робототехнике.
Текущее время: 14 апр 2025, 09:03

Часовой пояс: UTC + 4 часа




Начать новую тему Ответить на тему  [ Сообщений: 111 ]  На страницу Пред.  1, 2, 3, 4, 5, 6, 7, 8  След.
Автор Сообщение
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 27 сен 2009, 19:13 
Не в сети

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 27 сен 2009, 20:04 
Не в сети
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 27 сен 2009, 23:32 
Не в сети
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 28 сен 2009, 01:29 
Не в сети
Аватара пользователя

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

_________________
if(!Operate) Read(pDatasheet);


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 28 сен 2009, 20:50 
Не в сети

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 28 сен 2009, 21:51 
Не в сети
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 29 сен 2009, 01:12 
Не в сети
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 03 окт 2009, 15:37 
Не в сети
Аватара пользователя

Зарегистрирован: 17 июн 2007, 23:44
Сообщения: 565
Откуда: Тула
прог. языки: Bascom AVR Basic, CodeVisionAVR
ФИО: Замотаев Кирилл Игоревич
появилась маааленькая проблема. Убрал задержку из функции. В этом условие(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
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 03 окт 2009, 22:03 
Не в сети

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 03 окт 2009, 22:14 
Не в сети
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 04 окт 2009, 14:37 
Не в сети

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 04 окт 2009, 18:30 
Не в сети
Аватара пользователя

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


Вложения:
Комментарий к файлу: С таким кодом
WinRAR.rar [11.85 КиБ]
Скачиваний: 16
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 05 окт 2009, 00:07 
Не в сети
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 07 окт 2009, 17:05 
Не в сети
Аватара пользователя

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


Вложения:
P1040090.JPG
P1040090.JPG [ 79.13 КиБ | Просмотров: 2564 ]
P1040089.JPG
P1040089.JPG [ 81.31 КиБ | Просмотров: 2560 ]
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Robbe"
СообщениеДобавлено: 07 окт 2009, 17:16 
Не в сети
Аватара пользователя

Зарегистрирован: 23 окт 2007, 22:03
Сообщения: 3037
Откуда: Москва
прог. языки: С
ФИО: Евгений Яковец
Симпатишная такая мордашка получилась :)
похоже из распаечной коробки сделана

_________________
- Этот человек - не человек! это робот!
- Как? уже делают?!
- Делают!!!


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 111 ]  На страницу Пред.  1, 2, 3, 4, 5, 6, 7, 8  След.

Часовой пояс: UTC + 4 часа


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

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


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB
phpBB SEO