1,451
社区成员
发帖
与我相关
我的任务
分享
Private Sub Timer1_Timer()
Dim strBuff As String
flag = flag + 1
If (flag Mod 3 = 0) Then
Label3.Caption = "请刷卡 >>>"
ElseIf (flag Mod 3 = 1) Then
Label3.Caption = "请刷卡 >>>"
Else
Label3.Caption = "请刷卡>>>"
End If
MSComm1.InputLen = 0
strBuff = MSComm1.Input
If (strBuff <> Null Or strBuff <> "") Then
result = result + strBuff
Text2.Text = result
End If
End Sub