基于pc機(jī)windows環(huán)境下數(shù)據(jù)通信處理存儲程序設(shè)計與實現(xiàn)畢業(yè)論文-文庫吧資料
2025-06-24 16:49本頁面
【正文】 ======================Private Sub textReceive()On Error GoTo Err InputSignal = If DisplaySwitch = False Then 39。====================================================================================39。 每接收1個數(shù)就觸發(fā)一次 Case EvReceive Call textReceive 39。====================================================================================Private Sub MSComm_OnComm() 39。====================================================================================39。 顯示打開的文件 Close 1 39。 把打開的文件名給于TxtSendPath Open For Input As 1 39。 選擇要發(fā)送的文件 On Error GoTo Err 39。 選擇要發(fā)送的文件并放入內(nèi)存中39。 清空接收區(qū) = End Sub39。 修改停止位 Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。 修改校驗位 Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。 修改數(shù)據(jù)位 Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。 修改串口 Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。 修改波特率 Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。 串口設(shè)置39。 路徑暫存Err:End Sub39。 Replace函數(shù)的返回值是一個字符串 = spPath 39。 定義存放的變量 On Error GoTo Err 39。 定義存放引用對象的變量 Dim spFolderItem As Object 39。更改 Dim spShell As Object 39。 更改保存顯示數(shù)據(jù)的目錄39。 顯示保存路徑 = TrueErr: End Sub39。 轉(zhuǎn)讓控制權(quán)，以便讓操作系統(tǒng)處理其它的事件。 記下開始的時間 While Timer Savetime + 5 39。 關(guān)閉文件 TxtSavePath = OK, Save 39。 把接收區(qū)的文本保存 文本前加上保存時間 （0000年00月00日00時00分00秒） 39。 vbCrLf amp。 Second(Time) amp。 Minute(Time) amp。 Hour(Time) amp。 Day(Date) amp。 Month(Date) amp。 改為input 則只讀 Print 1, Year(Date) amp。 不存在的話 會創(chuàng)建文件,如已存在 會覆蓋 39。 \ For Output As 1 39。 錯誤處理 SaveTextPath = TxtSavePath 39。=====================================================================================Private Sub CmdSaveDisp_Click() 39。=====================================================================================39。 數(shù)據(jù)位載入 8 7 6 39。 先判斷串口是否打開，如果打開則先關(guān)閉 39。=====================================================================================Private Sub Form_Load() 39。=====================================================================================39。 時間數(shù)據(jù)暫存 延時用Dim SaveTextPath As String 39。 顯示開關(guān)Dim ModeSend As Boolean 39。 接收緩沖暫存Dim OutputSignal As String 39。 串口開關(guān)狀態(tài)判斷Dim FileData As String 39。=====================================================================================Option Explicit 39。=====================================================================================39。這些問題的發(fā)現(xiàn)將為我們以后的學(xué)習(xí)和工作照明道路，查漏補(bǔ)缺為進(jìn)一步學(xué)習(xí)做好準(zhǔn)備。 可以這樣說課程設(shè)計是對大學(xué)所學(xué)知識的一次運(yùn)用和檢閱，同時對自學(xué)能力提出很高的要求，所以平時
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1