亚洲春色中文字幕久久久-三上亚,一吻二脱三床四吻胸,国产真实伦对白视频全集,在线毛片观看,精品成品入口黄网,国产毛aⅴ片久久久,亚洲AV色香蕉一区二区三区老师,萧皇后A级艳片,色情日本视频更新,99久久亚洲精品日本无码

標題: 串口調試工具vb源碼 [打印本頁]

作者: liaocn 時間: 2016-10-11 13:40
標題: 串口調試工具vb源碼
Private Sub ComMS_Click()
If ComMS.Caption = "打開串口" Then
ComMS.Caption = "關閉串口"
MSComm1.CommPort = Mid(Combo1.Text, 4)
If MSComm1.PortOpen = False Then
      MSComm1.PortOpen = True
Else
      MsgBox "串口已經打開！"
      Exit Sub
End If
Else
ComMS.Caption = "打開串口"
If MSComm1.PortOpen = True Then
      MSComm1.PortOpen = False
End If
End If
'If MSComm1.PortOpen = True Then
' Me.Caption = "串口已經打開！"
'End If
End Sub

Private Sub ComTXA_Click()
'發送文本文件類

'清空接收緩沖區
MSComm1.InBufferCount = 0
'發送數據幀
MSComm1.Output = TextTXA.Text
End Sub

Private Sub ComTXN_Click()
'''''''''''''''''''''''''''發送多字節類
'定義變量
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
'清空接收緩沖區
MSComm1.InBufferCount = 0
'發送數據幀
MSComm1.Output = TXBuff
End Sub

作者: lindeijun1 時間: 2020-5-4 07:47
謝謝樓主分享！！

歡迎光臨 (http://www.denmoz.com/bbs/)