經(jīng)典的串口調(diào)試工具源代碼(二)-全文預(yù)覽
【正文】 = True Then End If For i = 1 To 4 mnu(Index).Checked = True Else MsgBox Com amp。 39。 If 0 Then If Then 39。 = autosend 39。 39。 MsgBox 串口沒有打開，請打開串口, 48, 串口調(diào)試助手 39。 Else 39。 = 取消自動發(fā)送 39。 = Val(TxtAutoSendTime) If = True Then 39。 = TX: amp。 39。 End SubPrivate Sub textSend()On Error GoTo Err If ReceiveCount = 65535 Then 39。 If = 1 Then = RX: amp。 If DisplaySwitch = False Then 39。 End IfErr: 串口狀態(tài)顯示 = False = LoadPicture(f:\我的VB\串口調(diào)試軟件\圖片\) = disconnect amp。 amp。 串口設(shè)置 39。打開串口On Error GoTo Err Next 39。H + Mid(outData, i * 2 + 1, 2)) For i = 0 To dataCount / 2 1 39。 不是雙數(shù)，則減1 Next Else 數(shù)據(jù)長度 outputLen = Len(outData) 39。 局部變量 Dim i As Integer 39。 發(fā)送數(shù)據(jù)暫存 End If = RX: amp。 39。 End If 39。 顯示接收的十六進(jìn)制數(shù)據(jù) Space(1) 小于16，前面加0 For i = 0 To (Counter 1) Step 1 39。 清緩沖 receiveData = 39。 If ( 0) Then 接收數(shù)據(jù)數(shù)組 Dim ReceiveArr() As Byte 2Err:End SubPrivate Sub hexReceive() 6 初始化串口 先判斷串口是否打開，如果打開則先關(guān)閉 39。 Connect (1).Text = Disconnected Else ComSwitch = True Else If ComSwitch = False Then (1).Text = Connectedconnect CloseCom = amp。 (2).Text = COM amp。 (3).Text = If (OutputAscii) Then (4) = ASCII Else (4) = HEXEnd SubPrivate Sub Form_Load()On Error GoTo Err WEB上加下劃線 = 載入發(fā)送信息 39。 39。 Call Comm_initial(Val(Mid(, 4, 1)), , Left(, 1), , ) 數(shù)據(jù)位載入 停止位載入 39。 Dim receiveData As Strin
研究報告相關(guān)推薦
鄂ICP備17016276號-1