压力表测试

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