男女午夜激情_www.天堂av.com_亚洲综合小说区_亚洲欧美自拍视频_成年精品_久久www免费人成—看片_激情综合五月天_久久高潮视频_最新国产成人ab网站_国产精品卡一

Private Sub com1_Click()
MSComm1.CommPort = 1
End Sub

Private Sub Command1_Click()
Me.Timer1.Enabled = False

End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub bbbb_Load()
Text3.Text = "@00RD00000001"
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
temp = MSComm1.bbbbb
If temp <> "" Then Text1.Text = Text1.Text + temp
Me.Refresh
End Select

End Sub

Private Sub Option1_Click()
If Me.MSComm1.PortOpen = True Then
Me.MSComm1.PortOpen = False
End If
MSComm1.CommPort = 2
End Sub

Private Sub Timer1_Timer()
Dim FcsResult As bbbbbb
Dim StrIn As bbbbbb
Dim jytemp As Integer
Dim temp As bbbbbb
jytemp = 0
StrIn = Text3.Text
Text1.Text = ""
'************** 校 驗
For i = 1 To Len(StrIn)
jytemp = Asc(Mid$(StrIn, i, 1)) Xor jytemp
Next i

FcsResult = Hex$(jytemp)
'**************
Text2.Text = FcsResult

If (MSComm1.PortOpen = False) Then MSComm1.PortOpen = True
MSComm1.Output = Text3.Text + Text2.Text + "*" + Chr(13)
End Sub

Private Sub 停止通訊_Click()
Me.Timer1.Enabled = False

End Sub