HY2003A通讯格式
FrmMain-1
Comm1.CommPort=com
Comm1. Settings=“4800,N,8,1”
Comm1.InputLen=9
Comm1.PortOPen=Ture
Comm1.Output=“V”
Comm1.PortOpen=False
Comm1.PortOpen=Ture
Comm1.Output=“Y”
Comm1.PortOpen=False
Comm1.PortOpen=Ture
Comm1.Output=“a”
Comm1.PortOpen=False
FrmControl-1
If Comm1.PorOpen=False Then Comm1.PortOpen=True
Comm1.Output=“S”
Comm1.PortOpen=False
Comm1.PortOpen=True
K=0
Do
Dummy=Doevents ()
K=K+1
If K>90000 then
IntNumCut=IntNunCut+1
If IntNumCut = 8 Then
MsgBox“读数出现错误”
Timer5.Enable=Fasle
Comm1.PortOpen=False
End If
Go To mmm
End If
Loop Until Comm1.InBufferCount>=9
Data_in= Comm1.Input
Comm1.PortOpen=False
Data_in=Data_in*1000
Data_in=Data_in+uvStandard
Text15.Text=Data_in
|