8 - 6
E n d I f
T i m e r 1 . I n t e r v a l = 1 0 0 0 ' S e t i n t e r v a l t i m e
s = Len(L_Buf)
I f s > 4 T h e n
If Mid$(L_Buf, s - 4, 1) = Chr(4) Then
R e c E o t F l a g = T r u e
T i m e r 1 . E n a b l e d = F a l s e
E n d I f
E n d I f
Case comEvCTS
Case comEvDSR
Case comEvCD
Case comEvRing
Case comEvEOF
C a s e E l s e
MsgBox "Error", vbCritical
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
E n d I f
End Sub
Private Sub Timer1_Timer()
TimeupFlag = True
Timer1.Enabled = False
End Sub
