經(jīng)典的串口調(diào)試工具源代碼(二)-資料下載頁
2025-08-23 13:19本頁面
【正文】 39。 記下開始的時間 While Timer Savetime + 5 39。 循環(huán)等待 5 要延時的時間 DoEvents 39。 轉(zhuǎn)讓控制權(quán)，以便讓操作系統(tǒng)處理其它的事件。 Wend txtsavepath = SaveTextPath 39。 顯示保存路徑 = TrueErr:End SubPrivate Sub MSComm_OnComm() On Error GoTo Err Select Case 39。 每接收1個數(shù)就觸發(fā)一次 Case EvReceive If = 1 Then Call hexReceive 39。 十六進制接收 Else Call textReceive 39。 文本接收 End If Case EvSend 39。 每發(fā)送1個數(shù)就觸發(fā)一次 If = 1 Then Else Call textSend 39。 文本發(fā)送 End If Case Else End SelectErr: End SubPrivate Sub TmrAutoSend_Timer()On Error GoTo Err If = Then 39。 判斷發(fā)送數(shù)據(jù)是否為空 = 0 39。 關(guān)閉自動發(fā)送 MsgBox 發(fā)送數(shù)據(jù)不能為空, 16, 串口調(diào)試助手 39。 發(fā)送數(shù)據(jù)為空則提示 Else If = 1 Then 39。 發(fā)送方式判斷 = InputModeBinary 39。 二進制發(fā)送 Call hexSend 39。 發(fā)送十六進制數(shù)據(jù) Else 39。 按十六進制接收文本方式發(fā)送的數(shù)據(jù)時，文本也要按二進制發(fā)送發(fā)送 If = 1 Then = InputModeBinary 39。 二進制發(fā)送 Else = InputModeText 39。 文本發(fā)送 End If = Trim() 39。 發(fā)送數(shù)據(jù) ModeSend = False 39。 設(shè)置文本發(fā)送方式 End If End IfErr: End SubPrivate Sub TxtReceive_Change()End Sub
研究報告相關(guān)推薦
鄂ICP備17016276號-1