VB通过mscomm控件实现串口通信时候为什么每次都是只能收到8个字符,如果查出八个那么就只能收到超出部分了
这是通过把串口的2.脚和3脚连接起来实现单台主的串行通信,但是每次都是要不只能接收到不差过8个字符。例如发送的是“ABCDEFGH”收到是“ABCDEFGH”而发“ABC...
这是通过把串口的2.脚和3脚连接起来实现单台主的串行通信,但是每次都是要不只能接收到不差过8个字符。例如发送的是“ABCDEFGH”收到是“ABCDEFGH”而发“ABCDEFGHIJK”则是收到“IJK”,而发“ABCDEFGHIJKLMNOPQXYZ”则收到“QXYZ”。本人刚刚开始接触VB所以诸多问题不懂,恳请高手解答。
以下是我的代码:
Dim OutByte() As Byte
Dim InByte() As Byte
Private Sub Command1_Click()
Dim buf
buf = txtsend.Text
OutByte = StrConv(buf, vbFromUnicode)
buf = MSComm1.Input
MSComm1.Output = OutByte
txtsend.Text = ""
End Sub
Private Sub Command2_Click()
MSComm1.PortOpen = False
End
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Dim bufer$
Select Case MSComm1.CommEvent
Case comEvCD
Case comEvCTS
Case comEvDSR
Case comEvSend
Case comEvReceive
bufer = ""
InByte = MSComm1.Input
txtreceive.Text = InByte
Case Else
End Select
End Sub
我说的不是8位而是8个字符,每个字符有八位这个是还是知道的 展开
以下是我的代码:
Dim OutByte() As Byte
Dim InByte() As Byte
Private Sub Command1_Click()
Dim buf
buf = txtsend.Text
OutByte = StrConv(buf, vbFromUnicode)
buf = MSComm1.Input
MSComm1.Output = OutByte
txtsend.Text = ""
End Sub
Private Sub Command2_Click()
MSComm1.PortOpen = False
End
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Dim bufer$
Select Case MSComm1.CommEvent
Case comEvCD
Case comEvCTS
Case comEvDSR
Case comEvSend
Case comEvReceive
bufer = ""
InByte = MSComm1.Input
txtreceive.Text = InByte
Case Else
End Select
End Sub
我说的不是8位而是8个字符,每个字符有八位这个是还是知道的 展开
3个回答
展开全部
看你的串口初始化设置 就是最下面的程序
setting 中 你设置了波特率为9600 没有校验位 数据位数为8位 一个结束位
知道你为什么接收发送都为8位了吧
setting 中 你设置了波特率为9600 没有校验位 数据位数为8位 一个结束位
知道你为什么接收发送都为8位了吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
光看这个代码看不出什么大的问题,建议你还是把你MSCOMM控件的设置参数贴出来.
---------------------------------------------------------------------------------------------------------
太阳雨多年积攒极其珍贵的原创VB串口通信技术资料V4.0 (600M)
VB串口通信编程源码200个,多种行业多种应用...
VB串口通信技术文章160篇,详尽地对VB串口通信的诠释...
VB串口通信电子书籍16部,工业通信名家著作,经典细致...
VB串口通信控件16个,简化串口通信编码,提高开发效率...
VB串口视频教程44个,一套完整视频教程,讲解直观,更快掌握...
超级赠品一:OSI网络模型教程48M
超级赠品二:串口硬件层知识大全资料包24M
超级赠品三:串口调试工具80个,应用于各种串口调试与校验计算...
超级赠品四:程序员发展类文章和书籍12部,帮助您的成长,健康和发展....
超级赠品五:更送虚拟串口调试软件, 帮助你在没有串口的电脑上也能正常调试...
你在淘宝搜索“太阳雨VB串口资料”就可以找到,希望可以帮助到你。
同时,还有"太阳雨VC串口资料"和"太阳雨DELPHI"串口资料...
---------------------------------------------------------------------------------------------------------
太阳雨多年积攒极其珍贵的原创VB串口通信技术资料V4.0 (600M)
VB串口通信编程源码200个,多种行业多种应用...
VB串口通信技术文章160篇,详尽地对VB串口通信的诠释...
VB串口通信电子书籍16部,工业通信名家著作,经典细致...
VB串口通信控件16个,简化串口通信编码,提高开发效率...
VB串口视频教程44个,一套完整视频教程,讲解直观,更快掌握...
超级赠品一:OSI网络模型教程48M
超级赠品二:串口硬件层知识大全资料包24M
超级赠品三:串口调试工具80个,应用于各种串口调试与校验计算...
超级赠品四:程序员发展类文章和书籍12部,帮助您的成长,健康和发展....
超级赠品五:更送虚拟串口调试软件, 帮助你在没有串口的电脑上也能正常调试...
你在淘宝搜索“太阳雨VB串口资料”就可以找到,希望可以帮助到你。
同时,还有"太阳雨VC串口资料"和"太阳雨DELPHI"串口资料...
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
怪!
用你的源程序,没有任何问题!
推荐看书
Visual_Basic与_RS-232_串行通信控制
还有,调试串口程序,可以 用 虚拟串口
请看 武汉鸿伟光电
可以 下载 虚拟串口 vspd
用你的源程序,没有任何问题!
推荐看书
Visual_Basic与_RS-232_串行通信控制
还有,调试串口程序,可以 用 虚拟串口
请看 武汉鸿伟光电
可以 下载 虚拟串口 vspd
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询