VB串口编程
现有电子秤台使用串口和计算机进行通讯编写VB来访问串口达到读取电子秤上显示数据该电子秤为BE01型仪表输出为RS-232C标准接口波特率为300-9600、偶校验、7个数据位、2个停止位所有均发送11位ASCII码个起始位在VB中和串口通讯需要引入Control控件MSComm串口通讯Control控件(在Microsoft Comm Control 6.0中)具体如下:Control控件简称:MSC
Dim Out(12) As Byte  '接收var中值
Dim var As Variant  '接收MSC.input中数值
Dim nRece As Integer  '计算MSC.inputbuffer个数
Dim i As Integer, j As Integer  '随即变量计算循环
****************************************************************************
Private Sub Form_Load
    ClearText
    With MSC
        .CommPort = 1  '设置Com1为通信端口
        .Settings = "9600,E,7,2"  '设置通信端口参数 9600赫兹、偶校验、7个数据位、1个停止位.(这里需要进步介绍说明是:.Setting=”BBBB,P,D,S”
含义是:B:Baud Rate(波特率)；P:Parity(奇偶)；D:Data Bit；S:Stop Bit)
        .InBufferSize = 40  '设置缓冲区接收数据为40字节
        .InputLen = 1  '设置Input次从接收缓冲读取字节数为1
        .RThreshold = 1  '设置接收个字节就产生OnComm事件
    End With
End Sub
****************************************************************************
Private Sub ClearText
    Text3.Text = ""
    Text2.Text = "5"
    Text1.Text = ""
End Sub
Private Sub Command1_Click
    ClearText
'    nRece = 0  '计数器清零
    With MSC
        .InputMode = comInputModeBinary '设置数据接收模式为 2进制形式
        .InBufferCount = 0  '清除接收缓冲区
        If Not .PortOpen Then
            .PortOpen = True  '打开通信端口
        End If
    End With
End Sub
Private Sub MSC_OnComm
    DelayTime  ‘用来延续时间
    ClearText
    With MSC
        Select Case .CommEvent  '判断通信事件
            Case comEvReceive:  '收到Rthreshold个字节产生接收事件
                SwichVar 1
                If Out(1) = 2 Then  '判断是否为数据开始标志
                    .RThreshold = 0  '关闭OnComm事件接收
                End If
                Do
                    DoEvents
                Loop Until .InBufferCount >= 3  '循环等待接收缓冲区>=3个字节
'                nRece = nRece + 1
                For i = 2 To 12
                    SwichVar i
                    Text1.Text = Text1.Text & Chr(Out(i))
                Next
                Text1.Text = LTrim(Text1.Text)
                Text2.Text = Text2.Text & CStr(nRece)
                .RThreshold = 1  '打开MSComm事件接收
            Case Else
'                .PortOpen = False
        End Select
    End With
End Sub
****************************************************************************
Private Sub DelayTime
    Dim bDT As Boolean
    Dim sPrevious As Single, sLast As Single
   
    bDT = True
    sPrevious = Timer  (Timer可以计算从子夜到现在所经过秒数在Microsoft Windows中Timer可以返回秒小数部分)
    Do While bDT
        If Timer - sPrevious >= 0.3 Then bDT = False
    Loop
    bDT = True
End Sub
(通信传输速率为9600bps则最快速度1.04ms发送个字节仪表每秒发送50帧数据每帧数据有4个字节即每秒发送200个字节平均5.0ms 发送个字节连续读取串口数据时要在中添加循环等待)
Private Sub SwichVar(ByVal nNum As Integer)vb编程论坛
    DelayTime
    var = Null
    var = MSC.Input
    Out(nNum) = var(0)
End Sub
(设置接收数据模式采用 2进制形式即 InputMode=comInputModeBinary但用Input属性读取数据时不能直接赋值给 Byte 类型变量只能通过先赋值给个 Variant 类型变量返回个 2进制数据再转换保存到Byte类型数变量中)
Private Sub Text1_Change
    Text3.Text = CText(Text1.Text) - CText(Text2.Text)
End Sub
****************************************************************************
Private Function CText(ByVal str As String) As Currency
    If str <> "" Then
        CText = CCur(Val(str))
    Else
        CText = 0
    End If
End Function

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。