VB串口通信

VB串口通信程序

串口初始化
Private Sub Form
Load()
MSComm1.CommPort = 1
设置通信端口号为
COM1
MSComm1.Settings = "9600,n,8,1"
设置串口
1
参数
MSComm1.InputMode = 0
接收文本型数据
MSComm1.PortOpen = True
打开通信端口
1
End Sub
把字符通过串口发送出去
Private Sub Cmdsend
Click()
If Textsend.Text = "" Then
pp = MsgBox("
发送的数据不能为空！
Exit Sub
End If
MSComm1.Output = Trim(Textsend.Text)
For i = 1 To 20000000
Next i
End Sub
通过时钟控制来自动接收字符
Private Sub Timer1_
Timer()
Dim buf$
buf = Trim(MSComm1.Input)
将缓冲区内的数据读入
buf
变量中
If Len(buf) 0 Then
判断缓冲区内是否存在数据
TextReceive.Text = TextReceive.Text +Chr(13) + Chr(10) + buf
回车换行
End If
End Sub
关闭通信端口
停止程序运行
Private Sub Cmdquit
Click()
MSComm1.PortOpen = False
Unload Me
End Sub

用PC机的9针RS232接口，用VB6 含有的MSComm 控件编程
两台PC机串行通信串行口的接线图：


'=============================='PC机串行口用命令按钮启动接收/发送VB程序

Private Sub Form_Load() MSComm1.PortOpen = True '开启通信控件的端口End Sub
'点击“发送”命令按钮发送数据Private Sub Command1_Click() MSComm1.Output = Text1.Text '将文本框Text1的数据发送至对方End Sub
'点击“接收”命令按钮接收数据Private Sub Command2_Click() Dim st As String st = MSComm1.Input Text2.Text = st '将接收到的数据至入文本框Text2End Sub

'==============================’PC机串行口定时自动接收/发送VB程序

Private Sub Form_Load() MSComm1.PortOpen = True '开启通信控件的端口 Timer1.Interval = 100 ’自动传送时间间隔100毫秒End Sub
Private Sub MSComm1_OnComm() Dim st As String If MSComm1.InBufferCount > 0 Then st = MSComm1.Input Text2.Text = st '将收到的数据放入Text2文本框 End IfEnd Sub
Private Sub Timer1_Timer() MSComm1.Output = Text1.Text '发送Text1文本框内容End Sub

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

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

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

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

VB串口通信编程源码206个,多种行业多种应用...
VB串口通信技术文章160多篇,详尽地对VB串口通信的诠释...
VB串口通信电子书籍16部,工业通信名家著作,经典细致...
VB串口通信控件16个,简化串口通信编码,提高开发效率...
VB串口调试工具80个,应用于各种串口调试与校验计算...
VB串口视频教程46个,两套完整视频教程,讲解直观,更快掌握...
程序员发展类文章和书籍12部,帮助您的成长,健康和发展....

超级赠品一:OSI网络模型教程48M
超级赠品二:串口硬件层知识大全资料包24M

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

Option Explicit
Dim bytSj() As Byte
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
ReDim bytSj(1 To 6)
bytSj(1) = &H25
bytSj(2) = &H1E
bytSj(3) = &H0
bytSj(4) = &H2A
bytSj(5) = &H86
bytSj(6) = &H89
MSComm1.Output = bytSj
End Sub

定义 byte 数组 OutData(10)
赋值 给 数组元素

发送 时 直接 mscomm1.output = OutData

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

经典入门书

祝你顺利

vb串口通信程序实例
答：我也是自己摸索开发出来的每一款VBtoCOM通讯，有具体的思路如下：给你推荐一个工具“com串口测试工具 ComTone V1.0 中文绿色版”1、打开你的噪音计的测试软件，调整好串口号、通讯频率等等，我用温度计举例说明。开始查询后有返回数值，这个Receive：就是返回的数值000304012200004b05,打开串口监视精灵，...

vb串口通信如何接收单片机发过来的两字节数据
答：VB6.0可设置MsComm控件的RThreshold 属性为2，通过OnComm 事件接收来自单片机的两字节数据。如果两字节数据是二进制数据需要设置InputMode 属性为comInputModeBinary。如果两字节数据是字符数据需要设置InputMode 属性为comInputModeText。RThreshold 属性，在 MSComm 控件设置 CommEvent 属性为 comEvReceive 并产生...

用vb.net做串口通讯程序要调用哪些api函数?
答：16位下的串口通信程序最大的特点就在于:串口等外部设备的操作有自己特有的API函数;而32位程序则把串口操作(以及并口等)和文件操作统一起来了,使用类似的操作。 在MFC下的32位串口应用程序 32位下串口通信程序可以用两种方法实现:利用ActiveX控件;使用API 通信函数。 使用ActiveX控件,程序实现非常简单,结构清晰,缺点是...

VB串口通信接收不到数据
答：首先应该弄清楚串口发送和接受的数据是字符还是十六进制数据（字节）。假如是十六进制数据（字节），只要分别定义输出字节数组和输入字节数组。输出传完后，接收的数据就在输入字节数组。其他的就是串口属性设置的问题了，你也应该懂得。补充：Private Sub Command1_Click()Dim data(6) As Byte Dim recieve...

VB 6.0 MSCOMM串口通讯的问题
答：For i = 0 To UBound(BytReceived)If Len(Hex(BytReceived(i))) = 1 Then strData = strData & "0" & Hex(BytReceived(i))Else strData = strData & Hex(BytReceived(i))End If Next Text1 = strData '按通信协议写接收数据处理代码 End Select End Sub 问题补充：请发消息给我。

VB串口通讯问题
答：如果用MSComm控件通信的话，造成这个问题的原因可能有一下几个：1，MSComm1.InputMode=0表示以文本方式接受，=1表示以二进制方式接受，你根据你的实际情况确定，一般=0 2.MSComm1.Setting属性的设置问题，如果VB中设置的波特率和单片机的波特率不一致，接受的数据基本上就会不正确 3，在1中，如果以文本...

vb串口通信,每次从单片机发回的都是同样的一串字母,请问怎么确定接收数 ...
答：如是想用单片机去处理的话就在中断中增加一个变量，每次进中断的时候都自增一，这个是用单片机实现的一种方法，但是这种方法必须要有一个外设显示给你这个次数，或者同样利用串口传到电脑上，其次的方法就是在你的上位机界面编程的时候增加一个消息处理，每次收到这串字母都将保存一串字母的字符串变量清零...

VB.NET和单片机的串口通信
答：单片机因其自身的优点，在嵌入式过程控制、自动化仪器仪表、数据采集和处理、计算机系统外设等方面已得到广泛应用。利用FoxPro for Windows提供的API库FOXTOOLS.FLL访问Windows的特殊功能，可以在FoxPro for Windows语言环境下直接实现和其它计算机的通信。1 硬件接口电路 PC机和单片机间是一对一连接，采用RS—...

vb做串口通信时,以十六进制发送数据,当数据小于32时接收正确,但大于32...
答：' 变量声明Dim uOut As Double ' 保存输入的值Dim Buffer() As Byte' 通讯输出的缓冲' 获得 Text1.Text 的值uOut = Val(Text1.Text)' 以VB的16进制格式输出到 Text2Text2.Text = "&H" & CInt(uOut)' 将要输出的字符串写入缓冲Buffer = Text2.Text' 将缓冲中的值写入终端MSComm1....

vb串口通信中如何自动寻找并打开未被占用的COM口?
答：简单的方法是做一个for循环，从com1到com128 判断MSComm1.PortOpen 的返回值是否为True，等于True就打开，等于False，要么端口被占用，要么不存在。一般来说，系统中不会有128个物理串口，高级一点的做法是通过查询注册表，在这个键值下HKEY_LOCAL_MACHINE\Hardware\DeviceMap\SerialComm查询串口设备，API...