roboforum.ru

[RoboTok]

Myp так он же не сказал, что ему мелкий нужен.
Может он с КПК хочет водокачку сделать ?

Добавлено спустя 29 минут 15 секунд:
Да и мотор не такой мощный, я же не советовал электромотор от электровоза железнодорожного !

[getbraine]

1. Есть такой проект WiMo, там КПК\Сотик ставится на поворотную платформу и с роботом вообще через блютуз связывается. Посмотри на то как это всё сделано, м.б. такая концепция тебе понравится.

смотрел я его ...проблема в том чтобы найти отечественные аналоги "буржуйских" частей, из которых состоит ВиМо

[=DeaD=]

Дак вопрос не в аналогах, а в концепции - надо тебе БТ-доступ к сотику или нет

А остальное решабельно, я собственно про концепцию спрашивал.

[MiBBiM]

хм. у меня тоже машинка с юсб-хостом есть првд не такая "крутая" - Acer n311
вы когда замутиите че-нить общающееся с юсб портом на стороне кпк, мне пошлете клич?
если не секрет, то зачем это все?серьезного все равно на кпк врядли чего можно написать, разве что использовать как шлюз Wi-Fi - UART

[=DeaD=]

Во народ пошел - на 400МГц уже и не написать ничего серьезного

Как минимум можно разноцветные шарики опознавать или может даже какие 2-мерные маяки...

[MiBBiM]

=DeaD=, там операционка грузится, да ещё и экран 640*480 прорисовывать надо.... хотя нзн) да и без камеры он у меня

Добавлено спустя 15 минут 58 секунд:
О! придумал)
вопщем, можно сделать мост кпк - минибот. к кпк прикручиваем модуль USB-ft232-mega88-transiver, а на миниботе запаиваем transiver-mega88-uart
получаем д/у для минибота

[=DeaD=]

2MiBBiM: А не проще к миниботу Bluetooth-модуль тогда прикрутить?

[MiBBiM]

а не, я уж заказал в такой комплектухе да и вроде нет его, модуля, окромя зигбей. да и сс2500 вроде бы подальше достает

[=DeaD=]

Ну если минибот робобас-совместимый, как планировалось, тогда есть такой модуль см. проект OpenRobotics

[EdGull]

что значит "если"???

[MiBBiM]

смотрел я его ...проблема в том чтобы найти отечественные аналоги "буржуйских" частей, из которых состоит ВиМо

тогда проблемы нет чуток подождать пока выйдет Bluetooth-адаптер и все) дальше уже на выбор либо опенроботикс, либо минибот

[=DeaD=]

что значит "если"???

А вдруг?

Пойду смотреть, а то тутъ слухи были...

Добавлено спустя 3 минуты:
Проверил, слухи вроде врутъ

Добавлено спустя 1 минуту 7 секунд:

тогда проблемы нет чуток подождать пока выйдет Bluetooth-адаптер и все) дальше уже на выбор либо опенроботикс, либо минибот

Я конечно извиняюсь, но куда нужно ему выйти? Во двор? Модули у меня на столе лежат...

[MiBBiM]

Модули у меня на столе лежат...

а магазин тоже на столе лежит?
впрочем, один экземпляр наверн можно и так продать

[=DeaD=]

впрочем, один экземпляр наверн можно и так продать

Именно!

[getbraine]

еще всем здрасьте!

подскажите пожалуйста где есть литература по тому как написать PDA-драйвер для той платы которую EdGull предлагает.
Спасибо за ответы!

ПЫСЫ вот что нашел на mmsdn.com

Hi,

I am using the following code to send and receive messages to a stepper motor control board. I am going through a virtual COM port at 115200 baud, 8N1 no flow control. I have installed a port monitor to track outgoing and incoming messages and it tells me that the bytes are being written out, but none are read in. The reply from the boards is supposed to be one byte. Is there something wrong with this code?


Imports System
Imports System.IO.Ports
Imports System.Threading
Public Class Form1
Shared SerialPort1 As SerialPort

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Create a new SerialPort object with default settings.
Dim SerialPort1 As New SerialPort("COM3")
'Set the read/write timeouts
SerialPort1.ReadTimeout = 1000
SerialPort1.WriteTimeout = 100
SerialPort1.BaudRate = 115200
SerialPort1.DataBits = 8
SerialPort1.Parity = 0
SerialPort1.StopBits = 1
Dim bytesToSend(7) As Byte
bytesToSend(0) = &H2 'STX
bytesToSend(1) = &H0 'LEN1"
bytesToSend(2) = &H0 'LEN2
bytesToSend(3) = &H3 'MSG
bytesToSend(4) = &H1 'CMD
bytesToSend(5) = &H3 'CHK"
bytesToSend(6) = &HD 'ETX
Dim bytesToRead(1) As Byte
Dim returnvalue As Integer
Try
SerialPort1.Open()
If SerialPort1.IsOpen Then
CheckBox1.Checked = True
SerialPort1.Write(bytesToSend, 0, 7)
returnvalue = SerialPort1.Read(bytesToRead, 0, 1)
Label1.Text = returnvalue
End If
SerialPort1.Close()
Catch ex As Exception
End Try
SerialPort1.Dispose()
End Sub
End Class