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