小R科技-WIFI机器人网·机器人创意工作室

 找回密码
 立即注册
查看: 5977|回复: 9

关于VB上位机 求助各位大神

[复制链接]
发表于 2017-4-11 11:28:56 | 显示全部楼层 |阅读模式
论坛中有一位大神出了一个VB上位机 ,该上位机支持的下位机 以及小车的结构均与小R机器人的不匹配 ,为此想设计一款简单的包含视频显示的,方向控制,舵机控制的VB上位机。
现在网上找到一个例子,但是部分内容需要修改 ,遇到一些问题,请教论坛高手,本人菜鸟 勿喷
Private Sub Command5_Click()
Text3.Text =
Winsock1.SendData Text3.Text
End Sub            这是一个单击按钮 发送字符串的指令 , 我应该把Text3.Text =  写成什么 才可以发送16进制的 FF130100FF 呢。其中text用于显示发送的指令。

回复

使用道具 举报

 楼主| 发表于 2017-4-11 11:30:12 | 显示全部楼层
是否 直接写成 Text3.Text = “FF130100FF“
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-4-11 11:35:34 | 显示全部楼层
还是需要 FF130100FF强制转换成十六进制 ,text=后面应该是文本
回复 支持 反对

使用道具 举报

发表于 2017-4-11 16:23:54 | 显示全部楼层
用一个byte数组来构建命令:
BufFile(0) = &HFF
BufFile(1) = &H13
BufFile(2) = &H01
BufFile(3) = &H00
BufFile(4) = &HFF

然后再用Winsock1.SendData BufFile() 发送这个数组内容
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-4-14 12:02:49 | 显示全部楼层
继续向大神请教
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-4-14 12:12:47 | 显示全部楼层
大神帮我看看这样可以吗
Dim qianjing(5) As Byte
qianjing(0) = &HFF
qianjing(1) = &H0
qianjing(2) = &H1
qianjing(3) = &H0
qianjing(4) = &HFF
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-4-14 12:14:38 | 显示全部楼层
Winsock1.SendData qianjing()
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-4-14 12:16:14 | 显示全部楼层
qianjing(1) = &H00 只能显示qianjing(1) = &H0这个没关系吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-4-14 12:18:07 | 显示全部楼层
用text 显示qianjing()  也只能显示FF010FF
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-4-14 16:49:33 | 显示全部楼层
程序调试可行了  不过还有一个问题  就是 利用按钮的click事件 ,点前进后  小车会一直前进 直到点停止。我希望点前进松开鼠标后车就应该停止,应该用鼠标的down和up事件吗    但是用这个事件编程出错 网上也没有很好的按钮鼠标击下和弹起事件例子。另外用键盘的DOWN和UP事件可以控制小车 但是总感觉控制的不是很灵敏 。不知道大神们有没有什么方法可以指教
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

新品特惠推荐上一条 /2 下一条

QQ|QQ技术咨询1|QQ技术咨询2|商务合作微信1:xiaorgeek001|商务合作微信2:XiaoRGEEK|诚聘英才|Archiver|手机版|小R科技-WIFI机器人网·机器人创意工作室 ( 粤ICP备15000788号-6 )

GMT+8, 2024-4-20 03:23 , Processed in 1.092197 second(s), 18 queries .

Powered by XiaoR GEEK X3.4

© 2014-2021 XiaoR GEEK

快速回复 返回顶部 返回列表