基于Win95的VB5串口通信程序

= 77

---- counter = Timer ＋ 10

---- Do

If Timer > counter Then

mainfrm.Label1.Caption = “ 正 在 通 信"

mainfrm.Label1.Refresh

counter = Timer ＋ 10

End If

DoEvents

Loop

End Sub

---- 以 下 为 事 件 处 理 子 程 序，flag 为 一 静 态 变 量 记 录 读 取 次 数， 以 便 改 变 接 收 数 据 的 长 度， 读 者 可 根 据 实 际 需 要 添
加 其 它 处 理 内 容：

Private Sub MSComm1_OnComm()

Select Case MSComm1.CommEvent

Case comEvReceive

If flag > 246 Then

MSComm1.InputLen = 0: MSComm1.RThreshold = 32

End If

buffer = MSComm1.Input

temp = buffer

Print ＃hfile， temp

counter = Timer ＋ 10

Do While Timer > counter

Do Events

Loop

flag = flag ＋ 1

Case comEvEOF

EVMsg ＄ = “ 检 测 到 文 件 结 尾!!!"

Case comFrame

ERMsg ＄ = “ 帧 出 错!!!"

Case comRxParity

ERMsg ＄ = “ 奇 偶 错!!!"

End Select

If Len(EVMsg ＄) Then

Text1.Text = “Status: " ＆ EVMsg ＄

ElseIf Len(ERMsg ＄) Then

Text1.Text = “Status: " ＆ ERMsg ＄

Beep

Ret = MsgBox(ERMsg ＄， 1， “Click Cancel to

quit， OK to ignore.")

MSComm1.PortOpen = False

End If

End Sub