请问有谁用VB6.0做过多串口通讯编程 思路也行 最好有例程！ 谢谢ljtkulou1234@yahoo.cn

太阳雨多年积攒极其珍贵的原创VB串口通信技术资料V2.0

VB串口通信编程源码206个,多种行业多种应用...

VB串口通信技术文章160多篇,详尽地对VB串口通信的诠释...

VB串口通信电子书籍16部,工业通信名家著作,经典细致...

VB串口通信控件16个,简化串口通信编码,提高开发效率...

VB串口调试工具80个,应用于各种串口调试与校验计算...

VB串口视频教程46个,两套完整视频教程,讲解直观,更快掌握...

程序员发展类文章和书籍12部,帮助您的成长,健康和发展....

超级赠品一:OSI网络模型教程48M

超级赠品二:串口硬件层知识大全资料包24M

你在淘宝搜索“太阳雨VB串口资料”就可以找到，希望可以帮助到你。

这是典型的VB串口通信

你可以采用Mscomm控件实现串口通信时，首先添加一Mscomm控件到窗体中，通过菜单项“工程（P）→部件(O)”进入选择窗口，在控件页中选取“Microsoft Comm Control 6.0” ，此时工具窗口中出现Mscomm图标，即可被使用。

需要注意的几点是:

1.用mscomm控件进行通信，其波特率最高只能设为115200

2.利用MSCOMM控件可以发送和接收任何文件的类型。

3.接收文本文件和二进制文件有一定的区别，接收二进制文件时用scomm1.Input读入的变量需用Variant类型的变量，而文本文件可以用字符型变量,另外InputMode属性应设置相应的文本方式或二进制方式

4.接收文本无大小限制。

5.当连续存数据时记录号是自动加的，但当文件关闭后再次打开时，默认的记录号为1,存储文件不完整的原因可能在此。接收到文件头识别字符时打开文件，接收中途不要关闭文件，直到接收到文件结束符（Mscomm1.EOFEnable事件发生）才能关闭文件。

我手头有一个完整的VB串口通信源码，对你的问题很有帮助

若你需要，发邮件至donook@qq.com

我会尽快发给你

如果满意，加点分哦，资料都来之不易的呵呵

以前做工程用的，你修改一下，可能对你有用，你看看吧

'======================串口初始化=======================

Private Sub Comm_initial(Port As Byte, BaudRate As String, ParityBit As String, DataBit As Integer, StopBit As Integer)

On Error GoTo ErrorTrap

If MSComm1.PortOpen = True Then MSComm1.PortOpen = False                          ' 串口若已打开，则先关闭

MSComm1.CommPort = Port                                                          ' 设置端口号

MSComm1.Settings = BaudRate & "," & ParityBit & "," & DataBit & "," & StopBit    ' 设置波特率、校验位、数据位、停止位

MSComm1.InBufferSize = 1024                                                      ' 设置接收缓冲区为1024字节

MSComm1.OutBufferSize = 4096                                                     ' 设置发送缓冲区为4096字节

MSComm1.InBufferCount = 0                                                        ' 清空输入缓冲区

MSComm1.OutBufferCount = 0                                                       ' 清空输出缓冲区

MSComm1.SThreshold = 1                                                           ' 发送缓冲区被清空时，触发OnComm事件

MSComm1.RThreshold = 1                                                           ' 接收缓冲区每接收到一字节数据时，触发OnComm事件

MSComm1.PortOpen = True                                                          '打开串口

If MSComm1.PortOpen = True Then

txtstatus.Text = "STATUS:" & cboport.Text & " OPEND," & cbobps.Text & "," & Left(CboParity.Text, 1) & "," & Cbobit.Text & "," & cbostop.Text

Else

txtstatus.Text = "STATUS:COM Port Cloced"

End If

Exit Sub

ErrorTrap:

Select Case Err.Number

Case comPortAlreadyOpen

MsgBox "串口冲突，请更改串口号", 48, "公司车辆管理系统"

CloseCom

Case Else

MsgBox "没有发现此串口，请确认连接", 48, "公司车辆管理系统"

CloseCom

End Select

Err.Clear

End Sub

Private Sub cmdclose_Click()

Call CloseCom

End Sub

Private Sub cmdset_Click()

Call Comm_initial(Val(Mid(cboport.Text, 4, 1)), cbobps.Text, Left(CboParity.Text, 1), Val(Cbobit.Text), Val(cbostop.Text))

End Sub

Private Sub Form_Load()

Call Comm_initial(Val(Mid(cboport.Text, 4, 1)), cbobps.Text, Left(CboParity.Text, 1), Val(Cbobit.Text), Val(cbostop.Text))  '串口初始化

MSComm1.InputMode = comInputModeText '通过文本方式读取数据

End Sub

'=========================数据接收子程序=========================

Private Sub dataReceive()

Dim strByte() As String             '数据分割用数组

Dim receiveData As String           ' 接收数据暂存

Dim i As Integer

If (MSComm1.InBufferCount > 0) Then

receiveData = ""                 ' 清接收数据暂存

receiveData = MSComm1.Input     '接收数据

'txtreceive.Text = txtreceive & receiveData

'===============数据在相应文本框里显示=======

strByte = Split(receiveData)

For i = 0 To UBound(strByte)

txt1(i).Text = strByte(i)

Next i

txt1(8).Text = Now

End If

End Sub

'====================OnComm事件===========================

Private Sub MSComm1_OnComm()

Select Case MSComm1.CommEvent              ' 设置oncomm事件，读取片机内存的值

Case comEvReceive

Call dataReceive

Case Else

End Select

End Sub

'====================关闭串口子程序=====================

Private Sub CloseCom()

On Error GoTo Err

If MSComm1.PortOpen = True Then MSComm1.PortOpen = False                          ' 串口若已打开，则关闭

txtstatus.Text = "STATUS:COM Port Cloced"

Err:

End Sub

---