www.zhnq.net > 关于VB串口通讯MSCOMM控件的问题!急求程序!!!

关于VB串口通讯MSCOMM控件的问题!急求程序!!!

以下代码是我串口连接单片机控制继电器 并返回I/O口状态的代码 调试通过的 Command1 为控件数组 Command1(0)- Command1(8) 分别代表P0-P7Private Sub Command1_Click(Index As Integer) ' 保存输入子串的缓冲区 Dim Instring As String

和设置有关系设置 Rthreshold 为1时就是 在接收到一个字节的时候会触发OnComm事件所以 你说的 不奇怪安装

推荐看书Visual_Basic与_RS-232_串行通信控制

你定义后不赋值的话系统默认值应该为0的

我专门 调试了一下Private Sub Form_Load() MSComm1.CommPort = 2 MSComm1.Settings = "9600,n,8,1" MSComm1.RThreshold = 1 MSComm1.InputLen

如果你的机器只有1个串口,那么在FORM2中打开了COMM1,除非该窗体UNLOAD,否则在FORM1中打开COMM1,系统必然报错.建议串口通信单独放一窗体,可通过全局变量或在通信窗体对其他窗体的控件(如TEXTBOX或LABEL)赋值来传递信息.该通信窗体的接收信息可通过上下位机的通信格式约定来区别放置.

打开该项目1. 选择菜单项中的 外接程序,选择外接程序管理器2. 选中package and deployment wizard,在 加载行为里,选择 加载/卸载,然后点击确定3. 再次选择菜单项中的 外接程序,这时可以看到里面有package and deployment wizard这个选项了,点击它,选择弹出窗体中的第一个就是package就ok了,然后基本都是下一步祝你好运!

可以用虚拟串口软件实现,而且虚拟出来的串口是成对的.1台笔记本搞定,我就是这么用的,好多年了,再配上串口调试助手的软件,调试程序特方便!你自己网上找找,找不到的话我发给你.

Dim Buffer As Variant, i As Long Select Case MSComm.CommEvent Case comEvReceive MSComm.InputMode = comInputModeBinary MSComm.InputLen = 0 Buffer = MSComm.Input For i = LBound(Buffer) To UBound(Buffer) Text1.Text = Text1.Text & vbCrLf & buffer(i) Next iend select

RThreshold 设置了么?-------------------------------以后不要这样提问题.就好像:“我的自行车哪儿都挺好,就是不能骑了,怎么办?” 这种问题是无解的.推荐阅读《提问的智慧》,百度一搜就有.

相关搜索:

网站地图

All rights reserved Powered by www.zhnq.net

copyright ©right 2010-2021。
www.zhnq.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com