【正文】 signed char fp。k++) if ((ReSendStatusR amp。 } } /*SCISendN:串行發(fā)送 N個字節(jié) * *功 能 :發(fā)送數(shù)組中的 N個字節(jié)數(shù)據(jù) * *參 數(shù) :待發(fā)送的數(shù)據(jù)字節(jié)數(shù)及其要存放的數(shù)組首地址 * *返 回 :無 * **/ void SCISendN(unsigned char n,unsigned char ch[]) { int i。 } 串口通行模塊 串口通信的主要功能是：接收時，把外部單線輸入的數(shù)據(jù)變成一個字節(jié)的并行數(shù)據(jù)送入 MCU內(nèi)部；發(fā)送時，把需要發(fā)送的一個字節(jié)的并行數(shù)據(jù)轉(zhuǎn)為單線輸出。 //[]串行通信頭文件 //頭文件 include //GP32 MCU 映像寄存器名定義 include //類型別名定義 //與 SCI模塊相關(guān)的 MCU寄存器及有關(guān)標志位的宏定義 define ReSendStatusR SCS1 //SCI 狀態(tài)寄存器 define ReTestBit 5 //接收緩沖區(qū)滿標志位 define SendTestBit 7 //發(fā)送緩沖區(qū)空標志位 define ReSendDataR SCDR //數(shù)據(jù)寄存器 //串行通信函數(shù)聲明 void SCIInit(void)。 (1COCOBit)) == 0)。 } return tmp。 j = ADCvalue(channel)。 j = 0。 3）獲 A/D轉(zhuǎn)換結(jié)果 若是中斷方式，在 A/D 中斷程序中取得，若是查詢方式，通過 ADSCR的第 7位 (COCO 位 )取得，當 COCO=1 時可從 ADR中取數(shù)。 ADCinit()。 MC908GP32的 8255提供片選信號，74LS373 的 Q7， Q6 接 8255 的 A1， A0，可得到 8255 的 A， B， C 及控制口的地址為 BF3FH， BF7FH， BFBFH， BFFFH。 進行 A/D轉(zhuǎn)換的基本問題 ： 1） 采樣精度 ： 數(shù)字量變化一個最小量時模擬信號的變化量 ,即采 樣位數(shù)。 LM35 的輸出電壓與攝氏溫度的線形關(guān)系可用下面公式表示， 0℃ 時輸出為 0 V，每升高 1℃ ，輸出電壓增加 10 mV。 PTE1/TxD、 PTE0/RxD（ 12 引腳、 13 引腳）： 2 位雙向 I/O 接口或串行通信。 VDDA、 VSSA（ 1 引腳、 2 引腳）：時鐘發(fā)生器模塊（ CGM）的電源供給端。 7）具有 PDIP SDIP42 和 QFP44封裝形式。對于許多嵌入式系統(tǒng)設(shè)計來說，目標不在于挑選速度最快并且功能最強的 MCU（這樣的 MCU往往價格較高），而是選擇對于完成功能最合適的 MCU。溫度越高，阻值越?。粶囟仍降?，阻值越大。如果沒有傳感器對原始參數(shù)進行精確可靠的測量，哪么無論是信號轉(zhuǎn)換或信息處理，或者最佳數(shù)據(jù)的顯示和控制都將無法實現(xiàn)。 在執(zhí)行機構(gòu)中，有開關(guān)量執(zhí)行機構(gòu)，也有模擬量執(zhí)行機構(gòu)。常見的模擬量有：溫度、濕度、壓力、質(zhì)量、氣體濃度、液體濃度、流量等。因此由 MCU 構(gòu)成的系統(tǒng)是發(fā)展最快、品種最多、數(shù)量最大、應(yīng)用最廣的嵌入式系統(tǒng)。如圖 1 為一個典型的嵌入式應(yīng)用系統(tǒng)框圖。如光電、電磁開關(guān)、干簧管、聲控、紅外開關(guān)等，在一些兒童電子玩具就有一些類似的開關(guān)。 MCU一般不能直接控制這些執(zhí)行機構(gòu)，需要通過相應(yīng)的驅(qū)動電路實現(xiàn)。 室溫傳感器用于測量室內(nèi)和室外的環(huán)境溫度，管溫傳感器用于測量蒸發(fā)器和冷凝器的管壁溫度。 熱敏電阻溫度傳感器 溫度傳感器利用一些金屬、半導(dǎo)體等材料與溫度有關(guān)的特性而制成的，這些特性包括熱膨脹、電阻、電容、磁性、熱電勢、熱噪聲、彈性及光學(xué)特征。 MC68HC908GP32 單片機的特點 MC68HC908GP32單片機的主要特點概述如下： 1） 512B片內(nèi) RAM； 32K 片內(nèi) Flash程序存儲器，具有在線編程能力和保密功能。圖 4 給出 了 GP32 的 內(nèi)部結(jié)構(gòu)框圖。 ③ I/O 類引腳 PTA7/KBD7PTA0/KBD0（ 4235 引腳）： 8 位通用雙向 I/O 接口，每個可編程為鍵盤輸入引腳。 測溫系統(tǒng)的原理框圖 本測溫系統(tǒng)由溫度傳感器電路、信號放大電路、 A／ D 轉(zhuǎn)換電路、單片機系統(tǒng)、溫度顯示系統(tǒng)構(gòu)成 ，如圖 1 所示。本系統(tǒng)采用的是單電源模式。 4）物理量回歸 ： 把 A/D采樣值與實際物理量對應(yīng)起來 。 12 第三章 軟件設(shè)計 在 MCU上的程序包括頭文件定義、溫度驅(qū)動子程序、系統(tǒng)初始化子程序、串口通信子程序等，通過專用編譯器和寫入工具寫到 MCU中。本系統(tǒng)采用延時方式。 //1路 A/D轉(zhuǎn)換 函數(shù) INT8U ADCmid(INT8U channel)。 i++) j += ADCmid(channel)。 i = j。= 0b00011111。 //禁止總中斷 //1. 芯片初始化 MCUinit()。 //發(fā)送 n字節(jié) INT8U SCIRe1(INT8U *p)。 SCI數(shù)據(jù)寄存器既做接收數(shù)據(jù)寄存器，也可做發(fā)送數(shù)據(jù)寄存器，這并不沖突，因為發(fā)送與接收的實際工作是通過“發(fā)送移位寄存器”和“接收移位寄存器”完成。i++) SCISend1(ch[i])。 break。fp)。 wll=0xff。 N amp。 25 S3 = S3 amp。 要做好一個課程設(shè)計，就必須做到在設(shè)計程序之前，對所用單片機的內(nèi)部結(jié) 29 構(gòu)有一個系統(tǒng)的了解，知道該單片機內(nèi)有哪些資源；要有一個清晰的思路和一個完整的的軟件流程圖；在設(shè)計程序時，不能妄想一次就將整個程序設(shè)計好，反復(fù)修改、不 斷改進是程序設(shè)計的必經(jīng)之路；要養(yǎng)成注釋程序的好習慣，一個程序的完美與否不僅僅是實現(xiàn)功能，而應(yīng)該讓人一看就能明白你的思路，這樣也為資料的保存和交流提供了方便；在設(shè)計課程過程中遇到問題是很正常的，但我們應(yīng)該將每次遇到的問題記錄下來，并分析清楚，以免下次再碰到同樣的問題。在設(shè)計的過程中遇到問題，可以說得是困難重重，這畢竟第一次做的，難免會遇到過各種各樣的問題，同時在設(shè)計的過程中發(fā)現(xiàn)了自己的不足之處，對以前所學(xué)過的知識理解得不夠深刻，掌握得不夠牢固，比如說不懂一些元器件的使用方法，對單片機 08C 語言掌握得不好 ，對于 VB 的控件方面的知識等等。 [6] 范風強等 .單片機語言 C51應(yīng)用實戰(zhàn)集錦 .北京：電子工業(yè)出版社 ， 2022。 [2] 王宜懷，曹金華，沈安東，劉曉升 .嵌入式技術(shù)基礎(chǔ)與實踐實驗指導(dǎo) .北京：清華大學(xué)出版社， 。使我在單片機的基本原理、單片機應(yīng)用系統(tǒng)開發(fā)過程，以及在常用編程設(shè)計思路技巧（特別是 08C語言）的掌握方面都能向前邁了一大步。 08C 語言程序調(diào)試 打開 MTIDE 集成開發(fā)環(huán)境，加載工程 ,編譯源程序，屏幕上顯示： 點擊“ Flash 操作”，選擇“寫入”，彈出一個對話框如下： 點擊“擦除及寫入”，提示“寫入完畢”，表示寫入代碼成功： 將目標板上的按鈕打到“擴展板一端”，然后啟動 VB，打開顯示程序“工程 2”，運行程序，結(jié)果如下： 28 當溫度改變時，窗口中顯示改變之后的溫度為： 總結(jié) 單片機課程設(shè)計，是對單片機知識的驗證，可以幫助我們理解鞏固所學(xué)知識，激發(fā)我們對單片機課程的興趣，更鍛煉了我們獨立思考、開拓創(chuàng)新的能力。 1 End Sub Private Sub Form_Load() //串行口初始化 默認串口 1，波特率 9600 Call SCIinit(MSComm1, 1, 9600,N,8,1) //清空有關(guān)文本框 = = : = : = //開放串行中斷 = 1 End Sub 24 Private Sub CmdSEND_Click() //單擊 發(fā)送 按鈕 Dim i As Integer If = Then = : = : = GoTo CmdSEND_Click_Exit End If ReDim SendData(Len() 1) For i = 0 To Len() 1 SendData(i) = Asc(Mid$(, i + 1, 1)) Next i = SendData CmdSEND_Click_Exit: End Sub Public Sub MSComm1_OnComm() //串行接收中斷 Dim i As Integer Dim Stemp As String Static S1