基于pc機windows環(huán)境下數(shù)據(jù)通信處理存儲程序設(shè)計與實現(xiàn)畢業(yè)論文(編輯修改稿)
2025-07-15 16:49 本頁面
【文章內(nèi)容簡介】 lick() 39。更改 Dim spShell As Object 39。 定義存放引用對象的變量 Dim spFolder As Object 39。 定義存放引用對象的變量 Dim spFolderItem As Object 39。 定義存放引用對象的變量 Dim spPath As String 39。 定義存放的變量 On Error GoTo Err 39。 錯誤處理，防止取消打開文件夾時報錯 Const WINDOW_HANDLE = 0 Const NO_OPTIONS = 0 Set spShell = CreateObject() Set spFolder = (WINDOW_HANDLE, 選擇目錄:, NO_OPTIONS, C:\Scripts) Set spFolderItem = spPath = spPath = Replace(spPath, \, \) 39。 Replace函數(shù)的返回值是一個字符串 = spPath 39。 把文件夾路徑顯示在標(biāo)簽上 SaveTextPath = 39。 路徑暫存Err:End Sub39。=====================================================================================39。 串口設(shè)置39。=====================================================================================Private Sub CboBaudrate_Click() 39。 修改波特率 Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。串口設(shè)置End SubPrivate Sub CboCom_Click() 39。 修改串口 Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。串口設(shè)置End SubPrivate Sub CboDatabit_Click() 39。 修改數(shù)據(jù)位 Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。串口設(shè)置End Sub Private Sub CboParitybit_Click() 39。 修改校驗位 Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。串口設(shè)置End SubPrivate Sub CboStopbit_Click() 39。 修改停止位 Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。串口設(shè)置End SubPrivate Sub CmdClearReceive_Click() 39。 清空接收區(qū) = End Sub39。=====================================================================================39。 選擇要發(fā)送的文件并放入內(nèi)存中39。=====================================================================================Private Sub CmdSelectFile_Click() 39。 選擇要發(fā)送的文件 On Error GoTo Err 39。 錯誤處理 = cdlCFBoth = 39。 把打開的文件名給于TxtSendPath Open For Input As 1 39。 打開選擇的文件 FileData = StrConv(InputB$(LOF(1), 1), vbUnicode) 39。 顯示打開的文件 Close 1 39。 關(guān)閉文件 Err: End Sub39。====================================================================================39。 通信觸發(fā)事件39。====================================================================================Private Sub MSComm_OnComm() 39。 設(shè)置onm事件，讀取片機內(nèi)存的值 On Error GoTo Err Select Case 39。 每接收1個數(shù)就觸發(fā)一次 Case EvReceive Call textReceive 39。 文本接收 Case Else End SelectErr: End Sub39。====================================================================================39。 文本接收39。====================================================================================Private Sub textReceive()On Error GoTo Err InputSignal = If DisplaySwitch = False Then
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1