压力表测试

最新推荐文章于 2022-07-22 11:40:15 发布

wxlly06

最新推荐文章于 2022-07-22 11:40:15 发布

阅读量232

点赞数

分类专栏：学习

本文链接：https://blog.csdn.net/wxlly06/article/details/121933128

版权

串口通信 MSComm控件数据解析错误处理性能测试

关键词由CSDN通过智能技术生成

学习专栏收录该内容

5 篇文章 0 订阅

订阅专栏

在这里插入图片描述

Dim bsqlc As Double
Dim mydat$
Dim mytim As Integer



Private Sub Combo1_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
End If
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
End Sub

Private Sub Command1_Click()
Dim yb_xhao As String
On Error Resume Next
List1.Clear
MSComm1.CommPort = Val(Mid$(Trim$(Combo1.Text), 4, 2))
MSComm1.InputLen = 0
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
Timer1.Enabled = True










End Sub

Private Sub Command2_Click()
On Error Resume Next
Timer1.Enabled = False
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
End Sub

Private Sub yanshi()
Dim www As Double
Dim i As Double
www = 0
For i = 1 To 3000000
www = www + 1
Next
www = 0
For i = 1 To 3000000
www = www + 1
Next

End Sub

Private Sub Timer1_Timer()
'取型号

MSComm1.Output = Trim(Combo2.Text) & ":R:OTYPE:" & Chr(0)
yanshi
qsxhao$ = MSComm1.Input
yb_xhao = Trim(Mid$(qsxhao$, 13, 7))
Label3.Caption = yb_xhao
List1.AddItem qsxhao$
yanshi

'取量程

MSComm1.Output = Trim(Combo2.Text) & ":R:ORAN:" & Chr(0)
yanshi
qsliangc$ = MSComm1.Input
If yb_xhao = "CST2003" Then
   Label7.Caption = Trim(Mid$(qsliangc$, 25, 12))
ElseIf yb_xhao = "CST2008" Or yb_xhao = "CST2006" Then
   Label7.Caption = Trim(Mid$(qsliangc$, 14, 8)) + Mid$(qsliangc$, 36, 3)
End If
List1.AddItem qsliangc$
yanshi

'取压力数据

MSComm1.Output = Trim(Combo2.Text) & ":R:MRMD:" & Chr(0)
yanshi
dd$ = MSComm1.Input
If yb_xhao = "CST2003" Then
    Label1.Caption = Mid$(dd$, 12, 12)
ElseIf yb_xhao = "CST2008" Or yb_xhao = "CST2006" Then
    Label1.Caption = Mid$(dd$, 16, 11)
End If
List1.AddItem dd$
End Sub