《按部就班VB6的串口编程》由会员分享，可在线阅读，更多相关《按部就班VB6的串口编程（21页珍藏版）》请在金锄头文库上搜索。
1、图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 1 页 共 21 页 伯兮科技出品 图说图说 VB6 串口编程串口编程 - - - - - - - 伯兮科技伯兮科技 1，首先，电脑中必须有串口设备，没有的需要 USB 转串口或者虚拟串口，电脑中必须安装 VB6 的开发环境 2，如上图打开 VB6 程序 3，文件- 新建 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 2 页 共 21 页 伯兮科技出品 4，单击确定，如下图 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 3 页 共 21 页 伯兮科技出品 5，单击保存 图说 V
2、B6 串口编程 - - - - - - - - 伯兮科技 第 4 页 共 21 页 伯兮科技出品 6，选择存储路径 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 5 页 共 21 页 伯兮科技出品 7，选择或者新建路径并且保存 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 6 页 共 21 页 伯兮科技出品 8，继续保存 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 7 页 共 21 页 伯兮科技出品 9，选择 No 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 8 页 共 21 页 伯兮科技出品
3、10，拉伸改变窗体大小 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 9 页 共 21 页 伯兮科技出品 11，右键单击，选择部件 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 10 页 共 21 页 伯兮科技出品 12，选择并且单击选中划钩，单击确定 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 11 页 共 21 页 伯兮科技出品 13，多了一个控件了。 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 12 页 共 21 页 伯兮科技出品 14，单击上面的控件，然后在窗体添加该控件 图说 VB6
4、串口编程 - - - - - - - - 伯兮科技 第 13 页 共 21 页 伯兮科技出品 15，观察右侧的控件属性 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 14 页 共 21 页 伯兮科技出品 16，调整属性 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 15 页 共 21 页 伯兮科技出品 17，增加按钮 command1,caption 属性更改为“打开串口” 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 16 页 共 21 页 伯兮科技出品 18，双击“打开串口”添加代码 图说 VB6 串口编程 - - -
5、 - - - - - 伯兮科技 第 17 页 共 21 页 伯兮科技出品 上面一行代码是最简单的代码，但是存在一个问题，如果串口已经打开，在此执行该代码会导致错误，所以，比较好的习惯是对串口是否打开进行一下判断。 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 18 页 共 21 页 伯兮科技出品 - - - - - - - - - - - - - - - - - - - - - Private Sub Command1_Click() If MSComm1.PortOpen = False Then MSComm1.PortOpen = True 打开串口 End If
6、 End Sub - - - - - - - - - - - - - - - - - - - 19，增加 command2 控件 caption 属性改为“发送数据” 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 19 页 共 21 页 伯兮科技出品 20，双击“发送数据”添加程序代码 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 20 页 共 21 页 伯兮科技出品 21，增加接收数据的环节，由于通常电脑不会有两个串口，可以把串口输出的 3 引脚（发送）和 2 引脚（接收）通过导线进行连接。这样才可以进行串口接收的实验 22，增加 comman
7、d3 按钮，并且修改 caption 属性为“接收数据” ，然后把接收的数据打印到窗体上 23，双击“接收数据” ，增加代码 图说 VB6 串口编程 - - - - - - - - 伯兮科技 第 21 页 共 21 页 伯兮科技出品 - - - - - - - - - - - - - - - - - - - - - - - - Private Sub Command3_Click() Dim a As String 定义字符串 a = MSComm1.Input 接收数据赋值给字符串变量 a Print a 打印字符串变量 a End Sub - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 24，
