《按部就班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,