标题: VB求助
we001
游客




UID 27
精华 0
积分 10337
帖子 10337
威望 0
金钱 0
阅读权限 1
注册 2007-7-28
状态 离线
发表于 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

顶部
[广告]
 


Google

当前时区 GMT+8, 现在时间是 2009-1-8 12:07
粤ICP备07500170号

By Discuz! 5.5.0 © 2007-2008
Processed in 0.029194 second(s), 6 queries , Gzip enabled

清除 Cookies - 联系我们 - Autooo! Inc. - Archiver - 繁体中文