單片機(jī)與pc機(jī)串行通信系統(tǒng)硬件及上位機(jī)程序設(shè)計(jì)-資料下載頁(yè)
2025-07-07 13:04本頁(yè)面
【正文】 圖源程序代碼如下：Dim hand As Boolean 39。等待回應(yīng)時(shí)間到標(biāo)志位，為FALSE時(shí)時(shí)間沒有到，TRUE時(shí)時(shí)間到Private Sub cancel_Click() Unload Me EndEnd SubPrivate Sub send_Click() 39。變量定義 Dim strsend$, strbit$ Dim intsend% 39。發(fā)送的字符長(zhǎng)度 Dim writebuff As Variant 39。寫輸出緩沖區(qū) Dim readbuff$ 39。讀輸入緩沖區(qū)數(shù)據(jù) strsend = intsend = Len(strsend) If intsend = 0 Then MsgBox 請(qǐng)輸入數(shù)字字符！, , 錯(cuò)誤 Exit Sub End If 39。數(shù)據(jù)完整性驗(yàn)證 For i = 1 To intsend Step 1 strbit = Mid(strsend, i, 1) Select Case strbit Case Is 0, Is 9 MsgBox 輸入的數(shù)據(jù)中存在非數(shù)字字符！ amp。 vbCrLf amp。 請(qǐng)重新輸入！, vbRetryCancel, 錯(cuò)誤 = Exit Sub End Select Next i On Error GoTo rserror 39。串行通信口參數(shù)設(shè)置 = 1 39。使用Com1做為串行通信口 = 9600,n,8,1 39。串口屬性設(shè)置 = 1 39。每次從接收緩沖區(qū)讀取一個(gè)字符 = InputModeText 39。以字符形式從緩沖區(qū)中接受字符 = 0 39。清除輸入緩沖區(qū) = 0 39。清除輸出緩沖區(qū) = True 39。打開通行端口 = COM amp。 = 串口COM amp。 amp。 打開成功！波特率=9600bps 39。發(fā)送握手信號(hào)handle: hand = False 39。開始發(fā)送握手信號(hào)時(shí)回應(yīng)標(biāo)志位為FALSE writebuff = Chr$(amp。HFF) 39。準(zhǔn)備握手信號(hào)amp。Hffh = writebuff 39。發(fā)送握手信號(hào) = True 39。啟動(dòng)應(yīng)答定時(shí)器 Do DoEvents If hand Then GoTo handle 39。定時(shí)時(shí)間到未收到回應(yīng)信號(hào)重發(fā)握手信號(hào) End If Loop Until 39。等待回應(yīng) 39。收到對(duì)方的回應(yīng) = False 39。讀取并判斷是否為規(guī)定的聯(lián)絡(luò)信號(hào) readbuff = If Asc(readbuff) = 255 Then writebuff = Chr$(intsend) = writebuff 39。收到正確的回應(yīng)，發(fā)送字符個(gè)數(shù)和數(shù)據(jù) writebuff = strsend = writebuff = False 39。發(fā)送完數(shù)據(jù)關(guān)閉端口 Exit Sub Else GoTo handle End Ifrserror:End SubPrivate Sub Timer_Timer() = False hand = True 39。定時(shí)間到關(guān)閉定時(shí)器，設(shè)置標(biāo)志位End SubPrivate Sub txtsend_Click() = End Sub6 仿真調(diào)試及結(jié)果分析點(diǎn)擊“Start”按鈕，出現(xiàn)設(shè)計(jì)的PC機(jī)串行通行界面，在“發(fā)送數(shù)據(jù)”文本框中輸入要發(fā)送的數(shù)字字符串（字符串長(zhǎng)度不超過16），點(diǎn)擊“發(fā)送”按鈕，出現(xiàn)如圖61所示的運(yùn)行結(jié)果。圖61 PC機(jī)通信程序運(yùn)行結(jié)果點(diǎn)擊“退出”按鈕時(shí)，退出應(yīng)用程序，有此可知PC機(jī)通行程序能夠正常打開串行口，并實(shí)現(xiàn)向串口傳送和接收數(shù)據(jù)。 7 結(jié)語(yǔ)經(jīng)過幾個(gè)月的畢業(yè)設(shè)計(jì)，因?yàn)橛?jì)時(shí)間和任務(wù)的性質(zhì)的關(guān)系，沒有完全按照上述的測(cè)試方法進(jìn)行測(cè)試，但經(jīng)過一些簡(jiǎn)單的步驟的測(cè)試，證明本設(shè)計(jì)的串行通信的穩(wěn)定性與實(shí)用性。當(dāng)然本設(shè)計(jì)也存在著很大的問題，比如：1．功能上相對(duì)簡(jiǎn)單，只是實(shí)現(xiàn)了PC機(jī)與單片機(jī)間的數(shù)字的傳送，沒有設(shè)計(jì)文字及圖片等的傳送。2．容易出錯(cuò)，且沒有提出糾錯(cuò)方案，傳送過程中可靠性較差。3．只是實(shí)現(xiàn)程序仿真，沒有進(jìn)行實(shí)際的硬件連接。在連接過程中肯定仍然存在一些新的問題。上述問題我一定會(huì)在以后逐步完善的，畢業(yè)設(shè)計(jì)，過程曲折一言難盡，有解決問題后的喜悅也有面對(duì)問題茫然不知所措的失落。 畢業(yè)設(shè)計(jì)讓我受益匪淺，通過畢業(yè)設(shè)計(jì)，我知道了理論和實(shí)踐相結(jié)合的重要性。加強(qiáng)了動(dòng)手，思考和解決實(shí)際問題的能力。在這個(gè)過程中我學(xué)會(huì)了如何查閱、引用文獻(xiàn)，如何寫論文，如何收集需要的資料。同時(shí)我也意識(shí)到自己所學(xué)知識(shí)的膚淺，遇到的許多困難更激勵(lì)我不斷的學(xué)習(xí)和汲取知識(shí)，爭(zhēng)取有更大的進(jìn)步。
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1