經(jīng)典的串口調(diào)試工具源代碼(二)(已改無錯字)
2022-09-20 13:19:04 本頁面
【正文】 OldPort Else For i = 1 To 4 mnu(i).Checked = False Next i mnu(Index).Checked = True End If Else .CommPort = Index For i = 1 To 4 mnu(i).Checked = False Next i mnu(Index).Checked = True End If End With UpdateStatusEnd SubPrivate Sub mnuconnect_Click() On Error Resume Next If = True Then ComSwitch = True Else ComSwitch = False End If With MSComm If .PortOpen = True Then .PortOpen = False = STATUS：COM Port Cloced 39。 串口狀態(tài)顯示 = 打開串口 39。 = LoadPicture(f:\我的VB\串口調(diào)試軟件\圖片\) 39。 顯示串口已經(jīng)關(guān)閉的圖標(biāo) = True = False Else .PortOpen = True ComSwitch = True = STATUS： amp。 amp。 OPEND， amp。 amp。 , amp。 Left(, 1) amp。 , amp。 amp。 , amp。 = 關(guān)閉串口 39。 = LoadPicture(f:\我的VB\串口調(diào)試軟件\圖片\) 39。 顯示串口已經(jīng)打開的圖標(biāo) = True = False If 0 Then MsgBox Com amp。 .CommPort amp。 is not available. amp。 vbCrLf amp。 _ End If End If End With UpdateStatus End SubPrivate Sub mnusave_Click()On Error GoTo Err 39。 錯誤處理 SaveTextPath = txtsavepath 39。 路徑暫存 Open txtsavepath amp。 \ For Output As 1 39。 打開文件 39。 不存在的話 會創(chuàng)建文件,如已存在 會覆蓋 39。 output 改為append 為追加 39。 改為input 則只讀 Print 1, Year(Date) amp。 年 amp。 Month(Date) amp。 月 amp。 Day(Date) amp。 _ 日 amp。 Hour(Time) amp。 時 amp。 Minute(Time) amp。 分 amp。 Second(Time) amp。 _ 秒 amp。 vbCrLf amp。 + vbCrLf 39。 把接收區(qū)的文本保存 文本前加上保存時間 （0000年00月00日00時00分00秒） 39。 vbcrlf 為回車換行 Close 1 39。 關(guān)閉文件 txtsavepath = OK, Save 39。 提示保存成功 = False Savetime = Timer
研究報告相關(guān)推薦
鄂ICP備17016276號-1