久久久久久久999_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.zg4o1577.cn/bbs/) Powered by Discuz! X3.1
主站蜘蛛池模板： 亚洲九色| 欧美精品一 | 国产区在线 | 欧美激情精品久久久久久免费 | 激情久久av一区av二区av三区 | 精品国产99 | 看亚洲a级一级毛片 | 国产精品二区三区 | 午夜av在线| 国产区在线观看 | 欧美综合久久久 | hitomi一区二区三区精品 | 97人人草 | 国产91精品网站 | 国产成人在线播放 | 天堂亚洲 | 亚洲一区二区三区在线视频 | 国产成人免费 | 黄色大片网站 | 精品av天堂毛片久久久借种 | 精品毛片| 成人亚洲性情网站www在线观看 | 2019天天操 | 欧美片网站免费 | 国产日韩欧美一区二区 | 日韩中文字幕 | h视频在线免费 | 亚洲高清av| 日日操操 | 国产精品1区| 久久久高清 | 国产99久久久久 | 一区二区三区四区国产 | 欧美日韩在线精品 | av在线免费观看网址 | 婷婷成人在线 | 欧美专区在线 | 欧美日韩不卡合集视频 | 欧美aⅴ | 欧美v在线 | 欧美视频在线播放 |