【導(dǎo)讀】單片機具有體積小、價格低廉、開發(fā)應(yīng)用方便、可應(yīng)用于惡劣工業(yè)環(huán)境的特點，在分布式控制系統(tǒng)中多采用單片機進行數(shù)據(jù)采集和現(xiàn)場控制。由于單片機的計算能力。因此如何實現(xiàn)PC機與單片機之間的通信具有重要的現(xiàn)實。在硬件設(shè)計中，單片機系統(tǒng)。的數(shù)據(jù)信息動態(tài)的顯示在LED數(shù)碼管上。在軟件設(shè)計中，采用VisualBasic中的。的匯編語言編寫通信程序及數(shù)據(jù)處理程序。

　　

【正文】 了軟件設(shè)計，流程，通信協(xié)議，初始化，波特率計算 等軟件上的準備與設(shè)計，從而為整個設(shè)計的匯編階段做好準備。最后采用運用匯編語言將整個圖紙上的設(shè)計變?yōu)閷嶋H的應(yīng)用。 當(dāng)然本設(shè)計也存在著很大的問題，比如說功能上相對簡單容易出錯等，這些問題可以在以后的工作中繼續(xù)完善。 經(jīng)過幾個月的畢業(yè)設(shè)，因為 計 時間和任務(wù)的性質(zhì)的關(guān)系，沒有完全按照上述的測試方法進行測試，但經(jīng)過一些簡單的步驟的測試，證明本設(shè)計的串行通信的穩(wěn)定性與實用性。在設(shè)計的過程中我體會到了過程的快樂和結(jié)果的喜悅。人們常常說不要看重結(jié)果，主要是過程，這幾個月的過程也讓我深深的體會到了自己知識的匱乏和掌握的不牢固為 此在將來勢必要不斷地繼續(xù)學(xué)習(xí)與深造，為此不斷地完善自我。 18 參考文獻 [1] 李長林 . Visual Basic 串口通信技術(shù)與典型實例 [M]. 北京 ： 清華大學(xué)出版社 ， [2] 李朝青 ， 劉艷玲 ， 沈怡麟 . 單片機與 PC 機網(wǎng)絡(luò)通信技術(shù) [M]. 北京 ： 北京航空航天大學(xué)出版社 ， [3] 萬福軍 ， 潘松峰 ， 劉芳 . MCS51 單片機原理、系統(tǒng)設(shè)計與應(yīng)用 . [M] 北京 ：清華大學(xué)出版社， [4] 周志敏，周紀海，紀愛華 . LED 驅(qū)動電路設(shè)計與應(yīng)用 [M]. 北京：人民郵電出版社， [5] [6] [7] [8] [9] [10] [11] [12] [13] ……… .[20] 19 致 謝 經(jīng)過幾個月的努力，終于完成了 PC 機與單片機的串行通信這個畢業(yè)設(shè)計。在此，我要衷心感謝我的指導(dǎo)老師 胡建東教授 ，在整個畢業(yè)設(shè)計過程中， 他 給予了我悉心的指導(dǎo)和無私的幫助 ， 同時還要感謝同班的許多同學(xué)，我們在相互學(xué)習(xí)和交流中，解決問題共同進步。有了這么多的支持和無私幫助，才使我得以順利完成畢業(yè)設(shè)計。 衷心感謝在百忙之中評閱論文和參加答辯的各位老師 及所有任課 老師， 感謝你 們?yōu)槲覀兊膶W(xué) 習(xí)與成才創(chuàng)造的各種條件和付出的辛勤勞動。 室友、師兄、師姐和 身邊的朋友們在平時的學(xué)習(xí)、生活中給予了我很大的支持，在此表示衷心的感謝 ! 最后感謝 家人，是他們 給予我精神上的鼓勵、生活上的照顧、學(xué)業(yè)上的支持， 使我 順利完成 大學(xué)學(xué)業(yè) 。 20 附錄 1： PC 機事件過程及編程 Dim hand As Boolean 39。等待回應(yīng)時間到標志位，為 FALSE 時時間沒有到， TRUE 時時間到 Private Sub cancel_Click() Unload Me End End Sub Private Sub send_Click() 39。變量定義 Dim strsend$, strbit$ Dim intsend% 39。發(fā)送的字符長度 Dim writebuff As Variant 39。寫輸出緩沖區(qū) Dim readbuff$ 39。讀輸入緩沖區(qū)數(shù)據(jù) strsend = intsend = Len(strsend) If intsend = 0 Then MsgBox 請輸入數(shù)字字符！ , , 錯誤 Exit Sub End If 39。數(shù)據(jù)完整性驗證 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。 請重新輸入！ , vbRetryCancel, 錯誤 = Exit Sub End Select Next i On Error GoTo rserror 39。串行通信口參數(shù)設(shè)置 21 = 1 39。使用 Com1 做為串行通信口 = 9600,n,8,1 39。串口屬性設(shè)置 = 1 39。每次從接收緩沖區(qū)讀取一個字符 = InputModeText 39。以字符形式從緩沖區(qū)中接受字符 = 0 39。清除輸入緩沖區(qū) = 0 39。清除輸出緩沖區(qū) = True 39。打開通行端口 = COM amp。 = 串口 COM amp。 amp。 打開成功！ 波特率=9600bps 39。發(fā)送握手信號 handle: hand = False 39。開始發(fā)送握手信號時回應(yīng)標志位為 FALSE writebuff = Chr$(amp。HFF) 39。準備握手信號 amp。Hffh = writebuff 39。發(fā)送握手信號 = True 39。啟動應(yīng)答定時器 Do DoEvents If hand Then GoTo handle 39。定時時間到未收到回應(yīng)信號重發(fā) 握手信號 End If Loop Until 39。等待回應(yīng) 39。收到對方的回應(yīng) = False 39。讀取并判斷是否為規(guī)定的聯(lián)絡(luò)信號 readbuff = If Asc(readbuff) = 255 Then writebuff = Chr$(intsend) = writebuff 39。收到正確的回應(yīng)，發(fā) 送字符個數(shù)和數(shù)據(jù) writebuff = strsend = writebuff = False 39。發(fā)送完數(shù)據(jù)關(guān)閉端口 22 Exit Sub Else GoTo handle End If rserror: End Sub Private Sub Timer_Timer() = False hand = True 39。定時間到關(guān)閉定時器，設(shè)置標志位 End Sub Private Sub txtsend_Click() = End Sub 23 附錄 2：單片機 源 程序 datanum equ 20h 。存放接收到的數(shù)據(jù)個數(shù) dataadd equ 30h 。接收到的數(shù)據(jù)存放的地址 0000h ljmp main 000bh ljmp t0_int 0100h 。主程序 main: mov sp,0fh 。從 0fh 開始設(shè)置堆棧 mov tmod,22h 。T0、 T1 工作于自動重裝載方式 mov th1,0fdh mov tl1,0fdh setb tr1 。晶振頻率 ，波特率設(shè)置為 9600 mov scon,50h 。設(shè)置串行口工作于方式一 mov 50h,40 mov 51h,100 mov th0,6 mov tl0,6 。1s 定時初始化 setb tr0 。開定時器 T0 setb et0 。開定時器 T0 中斷 setb ea 。開總中斷 mov datanum,0 。初始時接收數(shù)據(jù)的個數(shù)為 0 display: mov r7,6 mov r0,40h cl_next: mov @r0,0 inc r0 djnz r7,cl_next 。數(shù)據(jù)顯示區(qū)初始化 display0: mov r0,45h 。r0 執(zhí)行待輸出的數(shù)據(jù)地址處 mov r7,6 。掃描次數(shù) mov r6,0feh 。r6 存放數(shù)碼管的位碼，顯示初始化 24 display1: mov p0,r6 。P0 口輸出位碼 mov p2,@r0 。P2 口輸出段碼 dec r0 。r0 指向下一個待輸出的段碼 mov a,r6 rl a 。位碼左移 mov r6,a jbc ri,handle 。 display_jmp: djnz r7,display1 。顯示未結(jié)束繼續(xù)本次顯示 sjmp display0 handle: mov r5,sbuf 。接收握手信號 cjne r5,0ffh,display_jmp 。非規(guī)定的握手信號 mov sbuf,0ffh 。應(yīng)答握手信號 jnb ti,$ 。等待發(fā)送結(jié)束 clr ti jnb ri,$ 。等待接受串行傳輸?shù)淖址麄€數(shù) clr ri mov a,sbuf 。接收字符個數(shù) jz display_jmp 。沒有收 到數(shù)據(jù) mov datanum,a 。保存新數(shù)據(jù)的個數(shù) data_ti: setb f0 mov r1,dataadd data_get: jnb ri,$ clr ri mov @r1,sbuf 。將數(shù)據(jù)存入數(shù)據(jù)區(qū) inc r1 djnz acc,data_get 。接收下一個字符 lcall asctoduan 。調(diào)用 Ascii 碼轉(zhuǎn)段碼程序 ljmp display 。Ascii 碼轉(zhuǎn)換成段碼子程序 asctoduan: mov r1,dataadd 。r1 指向待轉(zhuǎn)換的數(shù)據(jù) mov r2,datanum 。r2 放轉(zhuǎn)換個數(shù) mov dptr,duanma 。dptr 指向段碼表 25 loop: mov a,@r1 。取轉(zhuǎn)換數(shù)據(jù) clr c 。清除借位位 subb a,48 movc a,@a+dptr 。取數(shù)據(jù)的段碼 mov @r1,a inc r1 djnz r2,loop 。數(shù)據(jù)未轉(zhuǎn)換完，繼續(xù) setb rs0 。選用寄存器組一 mov r0,dataadd mov r2,datanum 。setb f0 。新數(shù)據(jù)送入顯示緩沖區(qū) clr rs0 。 ret 。定時器 T0 中斷子程序，實 現(xiàn)數(shù)據(jù)動態(tài)顯示 t0_int: djnz 51h,intout 。內(nèi)層循環(huán)未結(jié)束退出中斷程序 djnz 50h,intout0 。外層循環(huán)未結(jié)束退出中斷程序 。定時 1s 時間到執(zhí)行移位顯示操作 setb rs0 。選用工作寄存器組一 mov 0fh,40h 。40h 單元暫存 mov 40h,41h mov 41h,42h mov 42h,43h mov 43h,44h mov 44h,45h 。顯示緩沖區(qū)數(shù)據(jù)左移一位 jb f0,datamove 。f0=1 允許移動數(shù)據(jù)，否則不允許 mov 45h,0fh 。原 40h 單元數(shù)據(jù)放入 45h 中 sjmp intout1 。退出中斷程序，為下次左移做準備 。將數(shù)據(jù)區(qū)中的數(shù)據(jù)移動到顯示緩沖區(qū)的 45h 單元 datamove: mov 45h,@r0 。將 R0 指向的數(shù)據(jù)區(qū)中的數(shù)據(jù)傳送到顯示緩沖區(qū) inc r0 。r0 指向下一個待移動的數(shù)據(jù) djnz r2,intout1 。沒有全部移入，退出為下次移動做準備 mov r3,datanum 26 cjne r3,6,datamove0 。不等于 6 時判定大于還是小于 6 datamove1: clr f0 。等于 6 時不允許 sjmp intout1 datamove0: jc datamove1 。小于 6 不允許 mov r0,dataadd 。大于 6 時允許再移 mov r2,datanum intout1: clr rs0 。選用工作寄存器組 0 mov 50h,40 intout0: mov 51h,100 intout: reti 。段碼表 duanma: db 3fh,06h,5bh,4fh,66h,6dh 。0,1,2,3,4,5 db 7dh,07h,7fh,6fh,77h,7ch 。6,7,8,9,A,B db 58h,5eh,7bh,71h,00h,40h 。C,D,E,F,(空格 ), en