自动化首页
论坛首页
游客:
注册
|
登录
|
搜索
|
统计
|
帮助
自动化在线 Autooo.net
»
自动化软件
» VB求助
‹‹ 上一主题
|
下一主题 ››
投票
交易
悬赏
活动
繁体版
|
打印
|
推荐
|
订阅
|
收藏
标题: VB求助
we001
游客
UID 27
精华 0
积分 10337
帖子 10337
威望 0
金钱 0
阅读权限 1
注册 2007-7-28
状态 离线
#1
使用道具
发表于 2007-7-28 18:48
资料
短消息
加为好友
VB求助
A计算机用 串口调试助手接受和向B计算机发送数据,B计算机用VB写了个串口的接受和发送小程序,,在 计算机发送内容在textbox中输入,按command1发送到A计算机,可以用串口调试助手接收到。在A计算机发送的内容,在B计算机怎么总是接受不到啊。 。程序如下:Private u Command1_Click() MSComm1.Output = Text1.Text End u rivate u Form_Load()MSComm1.CommPort = 1 #39;打开COM1If MSComm1.PortOpe = False The MSComm1.Setting = quot;9600,n,8,1&;quot #39;波特率,校验位,数据位,停止位 MSComm1.PortOpe = True #39;打开端口End IfMSComm1.OutBufferCount = 0 #39;清空输出缓冲区MSComm1.I ufferCount = 0 #39;清空接收缓冲区End u rivate u MSComm1_OnComm()Select Case MSComm1.CommEvent Case comEvReceive Dim uffer A Variant MSComm1.I utLe = 0 #39;接受2进制数据 MSComm1.I utMode = comI utModeBinary uffer = MSComm1.I ut&;#39 接受字符数据 MSComm1.I utMode = comI utModeText uffer = MSComm1.I ut Label4.Captio = uffer Case ElseEnd electEnd ub
[广告]
投票
交易
悬赏
活动
自动化在线 Autooo.net
自动化在线
> PLC论坛
> 变频器
> 电工电气论坛
> 传感器与仪表
> 电机控制
> PC-Based论坛
> 嵌入式系统论坛
> DCS论坛
> 工业以太网
> 现场总线
> 通讯技术
> 自动化软件
> 人机界面
> 机械传动
> 流体控制
> 电器元件
> 资料交流
> 自由灌水
专业论坛
> 广告发布
> 西门子论坛
> 三菱论坛
> 单片机论坛
> 论坛事务
输入您的搜索字词
提交搜索表单
当前时区 GMT+8, 现在时间是 2009-1-8 11:54
粤ICP备07500170号
By
Discuz!
5.5.0
© 2007-2008
Processed in 0.034702 second(s), 6 queries , Gzip enabled
TOP
清除 Cookies
-
联系我们
-
Autooo! Inc.
-
Archiver
-
繁体中文