Private Sub MSComm2_OnComm()
Dim iInBuffCount As Integer
Dim valRev As Variant
Dim J As Integer
With MSComm2
On Error Resume Next
Select Case .CommEvent
Case comEvReceive '值2,收到Rthreshold个字符。
.NullDiscard = True
iInBuffCount = .InBufferCount - 1
.InputLen = 0
If iInBuffCount Then
.InputMode = comInputModeText
Sleep (75)
EntDY .Input
' Label31.Caption = Hex(AD_HEX(valRev))
Select Case Balance
Case 1 '第一路采样
Str2 = Str2 + Val(EvtCut1)
'Str = Val(EvtCut1) * V * BiaoDing1 + Str
'Label20.Caption = Mid(Ascii(EvtCut1), 1, Len(Ascii(EvtCut1)))
i = i + 1
Label21.Caption = Str2
'Label22.Caption = Ascii(Str)
Label29.Caption = AD_HEX(EvtCut1)
Label23.Caption = i
...................................
Case comEvSend '值1,在传输缓冲区中有比Sthreshold数少的字符;
Case comEvEOF '值7,收到文件结束字符;
Case comEvRing '值6,检测到振铃信号;
Case comEvCD '值5,Carrier Detect线的状态发生变化;
Case comEvDSR '值4,Data Set Ready线的状态发生变化;
Case comEvCTS '值3,Clear To Send线的状态发生变化;
'-----------错误的返回信息---------------;
Case comEventBreak '1001 接到一个中断信号;
Case comEventCTSTO '1002 Clear To Send超时。规定时间内传输一个字符时Clear to send 线为低电平;
Case comEventDSRTO '1003 data set ready超时。规定时间内传输一个字符时data set ready 线为低电平;