久久久中日AB精品综合,国产精品思瑞在线观看,91精品国产综合久久精品导航

Dim fasongcishu, jieshoucishu As Integer
Dim fasongzijie, jieshouzijie, jieshouzijie1, fasongzijie1 As Byte
Private Sub Command5_Click()
List1.Clear
StatusBar1.Panels(4).Text = "接收次數(shù)："
StatusBar1.Panels(3).Text = "接收字節(jié)："
StatusBar1.Panels(2).Text = "發(fā)送次數(shù)："
StatusBar1.Panels(1).Text = "發(fā)送字節(jié)："
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 "串口已經(jīng)打開"
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 = "串口已經(jīng)連接"
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 = "串口已經(jīng)斷開"
Shape1.BackColor = RGB(200, 0, 0)
End If
End Sub
Private Sub Command3_Click()
If MSComm1.PortOpen = True Then
MsgBox "串口已經(jīng)打開,請(qǐng)斷開連接再刷新"
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 ("來(lái)自計(jì)算機(jī)：" & Text1.Text)
fasongzijie1 = LenB(StrConv(Text1.Text, vbFromUnicode))
fasongzijie = fasongzijie + fasongzijie1
StatusBar1.Panels(1).Text = "發(fā)送字節(jié)：" & fasongzijie
fasongcishu = fasongcishu + 1
StatusBar1.Panels(2).Text = "發(fā)送次數(shù)：" & fasongcishu
Text1.Text = ""
StatusBar1.Panels(5).Text = "發(fā)送成功！"
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
'打開錯(cuò)誤陷阱
On Error Resume Next
MSComm1.PortOpen = True
'如果串口被成功打開，則這個(gè)串口存在
If Err.Number = 0 Then
.AddItem "COM" & i
.ItemData(.NewIndex) = i
End If
Err.Clear
' 關(guān)閉已打開的串口
If MSComm1.PortOpen Then MSComm1.PortOpen = False
' 關(guān)閉錯(cuò)誤陷阱
On Error GoTo 0
Next
blnNoPort = .ListCount = 0
End With
If blnNoPort Then
MsgBox "計(jì)算機(jī)上沒有串行通信接口"
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 '事件發(fā)生
Case 2
Cls
MSComm1.InputLen = 0 '讀入緩沖區(qū)全部?jī)?nèi)容
strBuff = MSComm1.Input '讀入到緩沖區(qū)
If strBuff = "" Then
Else
If MSComm1.InputMode = comInputModeBinary Then
BytReceived() = strBuff '如果是二進(jìn)制接收模式則進(jìn)行數(shù)據(jù)處理，否則直接顯示字符串
For i = 0 To UBound(BytReceived)
If Len(Hex(BytReceived(i))) = 1 Then
strData = strData & "0" & Hex(BytReceived(i)) & " " '如果只有一個(gè)字符，則前補(bǔ)0，如F顯示0F，最后補(bǔ)空格
Else '方便顯示觀察如： 00 0F FE
strData = strData & Hex(BytReceived(i)) & " "
End If
Next
CommData = strData
strData = ""
Else
CommData = strBuff
End If
List1.AddItem ("來(lái)自單片機(jī)：" & CommData)
jieshoucishu = jieshoucishu + 1
StatusBar1.Panels(4).Text = "接收次數(shù)：" & jieshoucishu
jieshouzijie1 = LenB(StrConv(CommData, vbFromUnicode))
jieshouzijie = jieshouzijie + jieshouzijie1
StatusBar1.Panels(3).Text = "接收字節(jié)：" & jieshouzijie
End If
End Select
End Sub

復(fù)制代碼