av黄色电影在线播放,国外免费成年视频网站,精品穿情趣制服国产精品

<nav id="eskmo"></nav><samp id="eskmo"><cite id="eskmo"></cite></samp>^{<table id="eskmo"></table>}

Dim fasongcishu, jieshoucishu As Integer
Dim fasongzijie, jieshouzijie, jieshouzijie1, fasongzijie1 As Byte
Private Sub Command5_Click()
List1.Clear
StatusBar1.Panels(4).Text = "接收次數："
StatusBar1.Panels(3).Text = "接收字節："
StatusBar1.Panels(2).Text = "發送次數："
StatusBar1.Panels(1).Text = "發送字節："
End Sub
Private Sub Form_Load()
If Option1.Value = True Then
MSComm1.InputMode = comInputModeText
End If
If Option2.Value = True Then
MSComm1.InputMode = comInputModeBinary
End If
GetAvailablePorts
Combo1.Text = "COM1"
End Sub
Private Sub Command1_Click()
If MSComm1.PortOpen = True Then
MsgBox "串口已經打開"
Else
Dim bote, shuju, tingzhi, jiaoyan, Seting As String
bote = Combo2.Text
shuju = Combo3.Text
tingzhi = Combo4.Text
jiaoyan = Combo5.Text
Seting = bote & "," & jiaoyan & "," & shuju & "," & tingzhi
MSComm1.CommPort = Split(Combo1.Text, "COM")(1)
MSComm1.Settings = Seting
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
MSComm1.InputMode = 0
MSComm1.InputLen = 0
MSComm1.PortOpen = True
Label6.Caption = "串口已經連接"
Shape1.BackColor = RGB(0, 200, 0)
End If
End Sub
Private Sub Command2_Click()
If MSComm1.PortOpen = False Then
MsgBox "串口尚未打開"
Else
MSComm1.PortOpen = False
Label6.Caption = "串口已經斷開"
Shape1.BackColor = RGB(200, 0, 0)
End If
End Sub
Private Sub Command3_Click()
If MSComm1.PortOpen = True Then
MsgBox "串口已經打開,請斷開連接再刷新"
Else
GetAvailablePorts
Combo1.Text = "COM1"
End If
End Sub
Private Sub Command4_Click()
If MSComm1.PortOpen = False Then
MsgBox "串口尚未連接"
Else
If Option1.Value = True Then
MSComm1.InputMode = comInputModeText
End If
If Option2.Value = True Then
MSComm1.InputMode = comInputModeBinary
End If
Me.MSComm1.Output = Text1.Text
List1.AddItem ("來自計算機：" & Text1.Text)
fasongzijie1 = LenB(StrConv(Text1.Text, vbFromUnicode))
fasongzijie = fasongzijie + fasongzijie1
StatusBar1.Panels(1).Text = "發送字節：" & fasongzijie
fasongcishu = fasongcishu + 1
StatusBar1.Panels(2).Text = "發送次數：" & fasongcishu
Text1.Text = ""
StatusBar1.Panels(5).Text = "發送成功！"
End If
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
MSComm1.InputMode = 1
MSComm1.InputLen = 0
End Sub
Private Sub GetAvailablePorts()
Dim i As Integer
Dim blnNoPort As Boolean
With Combo1
.Clear
'嘗試打開COM1到COM16
For i = 1 To 16
MSComm1.CommPort = i
'打開錯誤陷阱
On Error Resume Next
MSComm1.PortOpen = True
'如果串口被成功打開，則這個串口存在
If Err.Number = 0 Then
.AddItem "COM" & i
.ItemData(.NewIndex) = i
End If
Err.Clear
' 關閉已打開的串口
If MSComm1.PortOpen Then MSComm1.PortOpen = False
' 關閉錯誤陷阱
On Error GoTo 0
Next
blnNoPort = .ListCount = 0
End With
If blnNoPort Then
MsgBox "計算機上沒有串行通信接口"
End If
End Sub
Private Sub MSComm1_OnComm()
Dim CommData As String
Dim BytReceived() As Byte
Dim strBuff As String
Dim i As Integer
Select Case MSComm1.CommEvent '事件發生
Case 2
Cls
MSComm1.InputLen = 0 '讀入緩沖區全部內容
strBuff = MSComm1.Input '讀入到緩沖區
If strBuff = "" Then
Else
If MSComm1.InputMode = comInputModeBinary Then
BytReceived() = strBuff '如果是二進制接收模式則進行數據處理，否則直接顯示字符串
For i = 0 To UBound(BytReceived)
If Len(Hex(BytReceived(i))) = 1 Then
strData = strData & "0" & Hex(BytReceived(i)) & " " '如果只有一個字符，則前補0，如F顯示0F，最后補空格
Else '方便顯示觀察如： 00 0F FE
strData = strData & Hex(BytReceived(i)) & " "
End If
Next
CommData = strData
strData = ""
Else
CommData = strBuff
End If
List1.AddItem ("來自單片機：" & CommData)
jieshoucishu = jieshoucishu + 1
StatusBar1.Panels(4).Text = "接收次數：" & jieshoucishu
jieshouzijie1 = LenB(StrConv(CommData, vbFromUnicode))
jieshouzijie = jieshouzijie + jieshouzijie1
StatusBar1.Panels(3).Text = "接收字節：" & jieshouzijie
End If
End Select
End Sub

復制代碼

<xmp id="ygqco">

欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136