【正文】 6 結論電子脈搏計的設計最關鍵的一處在于脈搏波信號的采集，經(jīng)過幾個方案論證對比后選擇內(nèi)置放大電路的脈搏波傳感器，輸出的波形分兩路送入單片機，一路信號經(jīng)過波形整形后送入單片機，由于放大輸出后的波形不被單片機識別，所以利用NE555芯片構建了一個施密特觸發(fā)器，將脈搏波整形為方波，便于單片機的識別。然后通過外部中斷0和定時/計數(shù)器0以及設計的軟件程序對送入單片機的信號進行處理計算，并且能在三秒鐘內(nèi)測量出一分鐘的心跳數(shù)目，之后將結果送入LED數(shù)碼管上顯示。另一路信號不做任何處理，直接送到ADC0809芯片中進行模數(shù)轉換處理，之后信號送入單片機通過軟件程序處理，再通過軟件編程將數(shù)據(jù)送入上位機，通過VB編寫處理程序的可視化窗口將脈搏波的波形實時的顯示在上位機的VB界面上，顯示每一次脈搏跳動的間隔和力度，實時記錄繪制曲線，便于分析數(shù)據(jù)。因此這個脈搏計可作為病人中心監(jiān)護系統(tǒng)的一個模塊來完成心率的檢測和脈搏波形顯示，也可以用在日常生活的對健康狀況的實時觀測，家中備有這樣的一款脈搏計，就可以在日常生活中監(jiān)控自己和家人的心率變化，可以有效防止和控制多種疾病的發(fā)生和變化，達到日常保健的目的。本設計的電子脈搏計的優(yōu)點是結構簡單，只使用了幾個必須的元器件，直接降低了成本。工作穩(wěn)定性高，通過LED數(shù)碼管顯示，顯示直觀，誤差很小，成本低廉且能節(jié)電。并且隨著集成電路技術的發(fā)展，電子脈搏計必然向微型化、大眾化、智能化的方向發(fā)展。電子脈搏計在將來肯定會得到更為普遍的應用以及更加強大齊全的功能。進一步為人們的身體健康、醫(yī)療服務、體育運動、日常生活提供更好更方便的服務。通過此次畢業(yè)設計，使我學到了許多以前沒有學到的知識，使我對Proteus、KeilC、C語言、VB等應用軟件有了更熟悉更深刻的了解和掌握，讓我通過對各種硬件以及硬件的焊接調(diào)試學到了很多有用的東西，為我畢業(yè)走向社會工作崗位打下了很好的基礎，加深了對以有知識的理解和運用。總之，此次畢業(yè)設計對于我來說是一個很好的鍛煉機會。謝辭在這次畢業(yè)設計的過程中首先要感謝我的指導老師，老師對于我的畢業(yè)設計給予了悉心的指導與大力的支持，在我技術上遇到問題的時候百忙之中抽出時間來為我指導，在我買硬件不方便時，老師得知這個情況后拿出了自己的元器件來支持我的畢業(yè)設計，在此，我向老師表示衷心的感謝！同時還要感謝老師為我畢業(yè)設計所提供的元器件以及焊接設施，還有老師所提供的實驗器材的支持，同時還要感謝學校為我們的畢業(yè)設計所提供的實驗室及相關的硬件設備，使我們的畢業(yè)設計能夠順利的完成。此外，還要感謝同學們的幫助，在遇到問題的時候總是和他們共同探討問題，分析問題的所在，加快了我解決問題的進程，讓我感覺到同學之間互相無私幫助的溫暖，加深了同學們之間的感情，并且同時增長了我們的知識。在此還要感謝為我提供脈搏傳感器以及傳感器相關知識的陳教授，對于我畢業(yè)設計中關鍵的一部分給予了很大的幫助。非常感謝以上人士對我的無私幫助，使我通過這次畢業(yè)設計學到了許多以前沒有學到的知識，并且加深了對已有知識的理解和運用。俗話說，人無遠慮必有近憂，此次畢業(yè)設計使我對時間的態(tài)度有了更積極合理的安排，應當居安思危，盡全力完成或是超額完成給自己所定下的計劃。最后，再次感謝學校給了我這次機會，以及學院的各位老師和同學們在各個方面給予我的很多的幫助和支持，讓我堅持到了最后，謝謝你們！參考文獻[1] 韓志軍,沈晉源,[M].北京: [2] [M].北京:[3] [M].北京:[4] 程詠梅,夏雅琴,:[5] [J].合作經(jīng)濟與科技,2009,(366):124125[6] 朱國富,廖明濤,[7] [8] 李婷,[J].[9] 、脈搏、體溫測量計的設計[J].福州師專學報,2001,14(2) :2831[10] 劉文,楊欣,[11] 謝維成,:.[12] ::[13] :[14] :[15] 趙建領,:附錄（程序僅供參考）單片機程序：include include define uchar unsigned chardefine uint unsigned intdefine DiSdata P1 //七段碼數(shù)據(jù)輸出口define ad_con P2 //AD控制接口define discan P3 //掃描數(shù)據(jù)輸出口define T0H //八位重裝數(shù)define T0L uint n=0。uint mb=0。uchar number=0x00。uchar ad_data。sbit START=P2^4。sbit OE=P2^5。uchar code dis_7[12]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x00,0x40}。//共陰LED段碼表 0 1 2 3 4 5 6 7 8 9 滅 uchar code scan_con[3]={0xad,0xce,0xff}。 //LED顯示控制，對應的LED有效uchar data display[3]={0x00,0x00,0x00}。 //顯示單元數(shù)據(jù)，共6個數(shù)據(jù)和一個運算暫用void delay_us(uint t) //延時函數(shù) { for (。t0。t)。 }scan() //LED掃描函數(shù) { uchar k。 for(k=0。k3。k++) { discan=scan_con[k]。 //控制位送P3口 DiSdata=dis_7[display[k]]。//數(shù)據(jù)位送P1口 delay_us(150)。 } }/* 串行口初始化 */void init_serial( void ) { TMOD|=0x20。 //定時器1, 方式 2, 8位自動重裝 SCON|=0x40。 //串行工作方式1, 8位異步通信方式 PCON|=0x00。 //SMOD=1，表示數(shù)據(jù)傳輸率加倍 TH1=0xfd。 TL1=0xfd。 //數(shù)據(jù)傳輸率:9600 fosc= TR1=1。 OE=1。 //啟動定時器1 } /* 向串口發(fā)送一個字符 */void send_char( unsigned char x){ SBUF=x。 while (TI== 0 )。 TI= 0。}Timer0() interrupt 1 //定時T0中斷服務程序{ mb=300000/n。 n=0。 }void ex_int0() interrupt 0 //外部中斷0中斷服務程序 {n++。 } void dingshi() { TMOD|=0x02。 //工作方式T0選擇方式2計數(shù) TH0=T0H。 //裝載初值 TL0=T0L。 PX0=1。 // 外部中斷0為為高優(yōu)先級中斷 ET0=1。 // 允許T0溢出中斷 EX0=1。 // 允許外部中斷0中斷 TR0=1。 // 啟動定時計數(shù)T0工作 EA=1。 // 所有的中斷請求被開放}main() //主函數(shù) { unsigned int i,j。 dingshi()。 init_serial()。 while(1) { display[2]=mb%10。 display[1]=(mb/10)%10。 display[0]=(mb/100)%10。 scan()。 START=1。 for(i=0。i5。i++)。 START=0。 for(i=0。i1000。i++) {。} OE=1。 ad_data=P0。 OE=0。 }}VB上位機程序：Option ExplicitDim NowX As Integer 39。現(xiàn)在的X軸位置Dim MaxPlotNo As Long 39。最長的X軸范圍39。當選擇通信端口的Combo控件被選中后激活此事件39。若用戶改變通信端口時，關閉通信端口Private Sub cmbCOM_Click() 39。若通信端口號碼和現(xiàn)在的選擇一樣時就不必理會，直接跳出此子程序 If + 1 = Then Exit Sub = False 39。關閉定時器 TimeDelay 100 If Then = False 39。關閉通信端口 End If = True 39。允許使用打開通信端口按鈕End Sub39。單擊【結束】按鈕后激活此事件39。使用End命令將系統(tǒng)結束Private Sub cmdEnd_Click() EndEnd Sub39。單擊打開通信端口按鈕后激活此事件39。將MSComm控件的參數(shù)設置好，并打開39。激活開始檢測按鈕Private Sub cmdOpenCOM_Click() 39。判斷端口號碼是否落在15之間 If = 0 And = 5 Then = + 1 Else MsgBox 指定通信端口時發(fā)生錯誤！, vbCritical + vbOKOnly, 系統(tǒng)信息 Exit Sub End If 39。激活錯誤檢測機制 On Error GoTo Err = 9600,n,8,1 39。設定通信參數(shù) = True 39。打開通信端口 = False 39。將此按鈕設為禁用狀態(tài) = True 39。激活開始檢測按鈕 Exit Sub Err MsgBox 打開通信端口時發(fā)生錯誤！請確定通信端口存在且正常。 vbCritical + vbOKOnly 系統(tǒng)信息End Sub39。單擊開始檢測按鈕后激活此事件39。將定時器激活或關閉，并顯示對應的文字在按鈕上，以指示用戶操作Private Sub cmdStart_Click() = Not If Then = 停止檢測 Else = 顯示波形 End IfEnd Sub39。窗體的Load事件39。輸入圖形暫時設為灰色，表示無狀態(tài)信息進入39。將通訊端口號碼及站號填入Combo控件；并默認二者的選項是第一個Private Sub Form_Load() Dim i% MaxPlotNo = 100 COM1 COM2 COM3 COM4 COM5 = 0 = False 39。以下設定繪圖范圍，(Xmin,YMax)(XMax,YMin) (0, 5)(MaxPlotNo, 0) = 1 39。使用一個像素寬度的畫筆End Sub39。定時器的Timer事件引發(fā)后，就不斷地執(zhí)行其中的程序。39。將模擬讀值命令送出，再取得返回字符串并判斷。Private Sub Timer1_Timer() Dim Buf$, ValueStr As Single, Pos1% Dim temp As String Buf$ = Buf$ + TimeDelay 2150 ValueStr = Val(Mid(Buf, Pos1 + 1, 1)) If NowX = 0 Then 39。清除圖形 (0, ValueStr) 39。設定起點 Else If ValueStr 5 And ValueStr 0 Then (NowX, ValueStr), RGB(255, 0, 0) 39。由上一次的位置畫至此點 End If End If NowX = NowX + 1 39。位置加1 If NowX MaxPlotNo Then NowX = 0 39。超過范圍則數(shù)值歸零End Sub備注：硬件調(diào)試通過，以上程序僅供參考，部分程序調(diào)試通過，完整版程序被格式化了。袁節(jié)膅薂羄肅蒃薁蚃芀荿薀螆肅芅蕿袈羋膁蚈羀肁蒀蚇蝕襖莆蚇螂肀莂蚆羅袂羋蚅蚄膈膄蚄螇羈蒂蚃衿膆莈螞羈罿芄螁蟻膄膀螁螃羇葿螀裊膃蒅蝿肈羆莁螈螇芁芇莄袀肄膃莄羂艿蒂莃螞肂莈蒂螄羋芄蒁袆肀膀蒀罿袃薈葿螈聿蒄葿袁羈莀蒈羃膇芆蕆蚃羀膂蒆螅膅蒁薅袇羈莇薄罿膄芃薃蠆羆艿薃袁節(jié)膅薂羄肅蒃薁蚃芀荿薀螆肅芅蕿袈羋膁蚈羀肁蒀蚇蝕襖莆蚇螂肀莂蚆羅袂羋蚅蚄膈膄蚄螇羈蒂蚃衿膆莈螞羈罿芄螁蟻膄膀螁螃羇葿螀裊膃蒅蝿肈羆莁螈螇芁芇莄袀