日韩床上生活一级视频|能看毛片的操逼网站|色悠悠网站在线观看视频|国产免费观看A淫色免费|国产av久久久久久久|免费A级视频美女网站黄|国产毛片av日韩小黄片|热久久免费国产视频|中文字幕无码色色|成人在线视频99久久久

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 = ""
'************** 校 驗(yàn)
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