|
|
Private Sub ComMS_Click()
If ComMS.Caption = "打開(kāi)串口" Then
ComMS.Caption = "關(guān)閉串口"
MSComm1.CommPort = Mid(Combo1.Text, 4)
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
Else
MsgBox "串口已經(jīng)打開(kāi)！"
Exit Sub
End If
Else
ComMS.Caption = "打開(kāi)串口"
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
End If
'If MSComm1.PortOpen = True Then
' Me.Caption = "串口已經(jīng)打開(kāi)！"
'End If
End Sub
Private Sub ComTXA_Click()
'發(fā)送文本文件類(lèi)
1.jpg (183.27 KB, 下載次數(shù): 151)
下載附件
串口調(diào)試
2016-10-11 13:34 上傳
'清空接收緩沖區(qū)
MSComm1.InBufferCount = 0
'發(fā)送數(shù)據(jù)幀
MSComm1.Output = TextTXA.Text
End Sub
Private Sub ComTXN_Click()
'''''''''''''''''''''''''''發(fā)送多字節(jié)類(lèi)
'定義變量
Dim i As Byte
Dim TXSum As Integer
Dim TXBuff(0 To 8) As Byte
Dim StrTX_Temp As String
Dim StrData As String
'
TXSum = 0
For i = 0 To 7
TXBuff(i) = Val("&H" & UCase(TextN(i))
TXSum = TXSum + TXBuff(i)
Next i
TXBuff(8) = TXSum Mod 256
'清空接收緩沖區(qū)
MSComm1.InBufferCount = 0
'發(fā)送數(shù)據(jù)幀
MSComm1.Output = TXBuff
End Sub
|
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
