roboforum.ru

Myp писал(а): 
Перевод документации:
http://slil.ru/24133250

Я положил .RAR архив на RoboRealm.narod.ru - может легче будет скачать.

[off]этим вопрос не решается
каждый раз заливать во все места по экземпляру это не гуд
я тут Сетару писмо отправил с вопросом по фтп, может чтонить выгорит[/off]

[off]тема не умерла
перевожу потихонечку по несколько предложений в день
сейчас голова занята другим



кстати программа всё это время активно развивается[/off]

Всем Здравствуйте! только, что зарегистрировался на форуме, долго его просматривал и все же решился..) Собрал я робота а что с ним дальше делать даже не знаю, и вот пришла мне в голову мысль снабдить его машинным зрением, после долгих поисков наткнулся на RoboRealm, поставил начал разбираться в итоге ни чего не понял, все описание на английским, а я с ним ой как не дружу..((, спасибо товарищу Муру, что хоть немного свет пролил.. особенно огромное спасибо за переведенную им статью про следованию за красными объектами, Бэйсик конечно хорошо, но я уже и не сильно помню его и привык я писать для PC на Delphi, для МК на С, мозги у моего робота это Ноутбук маленький такой есть ASUS Eee PC 701, по интерфейсу RS232 он у меня с МК общается который управляет переферией и снимсает показания с датчиков, возникла идея подключить к ноутбуку WeB камеру, хочу чтобы данные от обработанного изображения Robo Realmo-м те самые переменыые передавались в мою программу на Delphi?, а уж она решала, какой моторчик включить и с какой скоростью и т.д. В переведенной статье "ЧАСТО ЗАДАВАЕМЫЕ ВОПРОСЫ Программного обеспечения Видения(Зрения) RoboRealm" было сказано про взаимосвязь со своими програмами при помощи сокетов или пайпов, не прольет ли кто свет как этим пользоваться, хотябы примерчик какой нибудь?

ть ASUS Eee PC 701, по интерфейсу RS232 он у меня с МК общается к

у 701 есть RS232?
фоооотки!

было сказано про взаимосвязь со своими програмами при помощи сокетов или пайпов, не прольет ли кто свет как этим пользоваться, хотябы примерчик какой нибудь?

сокеты - это сеть, нижний прикладной уровень в винде
заголовки по них под дельфю есть 100% в самой дельфе, тк все сетевые компоненты оной их юзают
библиотека winsock кажется

пайпы - это именованные каналы, аналог сокетов

и робота своего в достижения выложи, не стесняйся

вероятно имеется в виду конвертер USB->UART

Да конвертер USB-> UART имеется, с сокетами и пайпами разобрался уже, сейчас застрял на встроенном VBS :
Написал программу для ручного управления роботом с клавиатуры, программа работает в цикле While ... Wend и после запуска виснет на мертво , ни кто с такой проблеммой не сталкивался? Причем вставлял для отладки процедуры Write "text" до цикла, они не отображаются в messangere, если цикл закоментировать то все нормально

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

 ******************Подпрограмма ручного управления**********************************
'****Управление осуществляется курсором клавиатуры(вверх,вниз,влево,вправо)*********
'****увеличить значения ШИМ - клавиша"Q"********************************************
'****уменьшить значение ШИМ - клав. "A"*********************************************
'****поворот камеры вверх -"W"******************************************************
'****поворот камеры вниз -"S"*******************************************************
'***********************************************************************************

 Sub Head_control(init_pwm_m,init_serv_p) 
    'dim exit_ 'переменная для контроля выхода exit_=false -то продолжаем работать, exit_=true - то выходим из подпрограммы               'ручного управления
    dim flag_button 'true ,была нажата клавиша,false - не нажата
    dim time_
    dim pwm_motors
    dim servo_position
Write "вызвана процедура Head_control"
Write chr(10)+chr(13)
'первичная иницилизация    
flag_button="false"
time_=0
pwm_motors=init_pwm_m 'начальное значения ШИМ для моторов
servo_position=init_serv_p' начальное значение положения сервы (центр)
    
While getstrvariable("exit_") = "false" 
    write "проход цикла"
   If getstrvariable("KEYBOARD_SEND_KEY") = "KEY_UP" Then
     Write "нажата клавиша UP"
    flag_button="true"     
     setvariable "SEND_COMAND","!" '//отправить в контроллер команду MOTORS_ONWARD (движение в перед)
    End if
   
  '  If KEYBORD_SEND_KEY = "KEY_DOWN" Then
   '  flag_button="true"      
   '  SEND_COMAND="h" '//отправить в контроллер команду MOTORS_BACK (движение назад)
   ' End if  
    
 '  If KEYBORD_SEND_KEY = "KEY_LEFT" Then
  '   flag_button="true"      
   '  SEND_COMAND="#" '//отправить в контроллер команду TUMBLING_LF (поворот в лево)
   ' End if  

'If KEYBORD_SEND_KEY = "KEY_DOWN" Then
 '    flag_button="true"      
  '   SEND_COMAND="$" '//отправить в контроллер команду TUMBLING_RH (поворот в право)
   ' End if  

'********Увиличение, уменьшение скорости************
'if PWM_KEY = "PWM_MOTORS_inc" then
 'pwm_motors=pwm_motors+10 
' SEND_COMAND = "%"+str(pwm_motors)+chr(13)
'end if

'if PWM_KEY = "PWM_MOTORS_dec" then
' pwm_motors=pwm_motors-10 
' SEND_COMAND = "%"+str(pwm_motors)+chr(13)
'end if 

'***********поворот камеры******************
'if PWM_KEY = "PWM_SERVO_up" then
' servo_position=servo_position+1 
' SEND_COMAND = "%"+str(servo_position)+chr(13)
'end if 

'if PWM_KEY = "PWM_SERVO_down" then
' servo_position=servo_position-1 
' SEND_COMAND = "%"+str(servo_position)+chr(13)
'end if 



'If (KEYBORD_SEND_KEY = "")&(flag_button="true") Then
 '    while (time_<=1000) or (KEYBOARD_SEND_KEY = "")  
  '      time_=time_+1
   '  wend
    '   if time_ = 1000 then
     '   SEND_COMAND="-" 'STOP
'   time_=0
'   flag_button="false"
 '      end if
  '  end if
wend
'loop
End Sub


'*************************Подпрограмма автоматического управления***********************************
sub auto_control()
Write "вызвана процедура auto_control"
End Sub


'***Main*****
'While (1)
 call Head_control(500,8)
 ''Call auto_control() 
'wend

большому количеству кометарьев не пугаться )) это чтобы исключить все возможные баги

Добавлено спустя 15 минут 58 секунд:
А вообще тема какая то мертвенькая, что уж совсем отпало желание связываться с эти Robo Realmom?

народ предпочитает изобретательством велосипедов заниматься

а вобще просто пустой цикл While ... Wend работает??

а если туда вместо getstrvariable("exit_") = "false" поставить условие 1=1 ?

Добавлено спустя 52 секунды:
лично я вот скоро опять достану свою радиокамеру и начну играть

кстати в новом релизе робореалма добавлены функции работы со стерео и работа с лазерами - линия, точка.. Еще что то добавили, но пока не разбирался

да да
меня оч интересует лазерная линия

я умею делать лазерную линию с помощью оптики от лазерного принтера)

а у меня генератор лазерной линии в виде лазерной указки...

у тебя указка которая линией светит или чо?

именно указка которая линией светит

а какой у неё угол ? всегда было интересно