【導讀】果和偽造數據等行為。與我一同工作的同志對本研究所做的任何貢獻均已在論文中作。了明確的說明并表示謝意。和磁盤，允許畢業(yè)論文（設計）被查閱和借閱。本人授權海南師范大學可以將本畢業(yè)。他復印手段保存、匯編畢業(yè)論文（設計）。模塊性能指標........錯誤!用發(fā)光二極管閃爍顯示波形的變化情況。些對人是有害的呢！為了研究這些振動現象我用單片機進行了振動觀測儀的設計與制。動強度，同時將數據進行保存，便于以后的分析和對比觀測。主要是反映振動的速率。

　　

【正文】 39。 = bytInput(n) rec = bytInput(n) liu = rec * (kk 20, rliu)(kk, liu), RGB(255, 255, 255) rliu = liu kk = kk + 20 If kk = 10000 Then kk = 0 Cls Call init End If Next n = 0 39。清空接收緩沖區(qū) End Select End Sub Private Function init() (0, 6000)(10000, 1000) = 1 = 3 For j = 500 To 5000 Step 500 (0, j)(10000, j), RGB(0, 255, 255) Next CurrentX = 0: CurrentY = 0: Print 0 CurrentX = 0: CurrentY = 5000: Print 振動極限 = 2 = 0 (0, 5000)(10000, 5000), RGB(255, 10, 0) (0, 0)(10000, 0), RGB(255, 10, 0) 17 End Function 數碼管顯示程序 include include define uint unsigned int define uchar unsigned char sbit adrd=P3^7。 //IO 口定義 sbit adwr=P3^6。 sbit diola=P2^5。 sbit dula=P2^6。 sbit wela=P2^7。 unsigned char j,k,adval。 void delay(unsigned char i) //延時程序 { for(j=i。j0。j) for(k=125。k0。k)。 } uchar code table[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d, //數碼管編碼 0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71}。 void display(uchar bai_c,uchar sh_c,uchar g_c) //顯示程序 { P0=table[bai_c]。 //顯示百位 dula=1。 dula=0。 P0=0xfe。 wela=1。 wela=0。 delay(5)。 dula=0。 P0=table[sh_c]。 //顯示十位 dula=1。 dula=0。 wela=0。 P0=0xfd。 wela=1。 wela=0。 delay(5)。 P0=table[g_c]。 //顯示個位 dula=1。 dula=0。 18 P0=0xfb。 wela=1。 wela=0。 delay(5)。 } void main() { uchar a,A1,A2,A2t,A3。 TMOD=0x20。 TH1=0xfd。 TL1=0xfd。 TR1=1。 SM0=0。 SM1=1。 REN=1。 EA=1。 ES=1。 while(1) { wela=1。 P0=0。 adwr=0。 _nop_()。 adwr=1。 P0=0xff。 delay(10)。 wela=0。 for(a=20。a0。a) { display(A1,A2,A3)。 } wela=1。 P1=0xff。 P0=0。 adrd=0。 adval=P1。 adrd=1。 P0=0xff。 19 adwr=0。 P1=adval。// shuzi SBUF=adval。 while(!TI)。 TI=0。 A1=adval/100。 A2t=adval%100。 A2=A2t/10。 A3=A2t%10。 }。 } 附錄二： PCB 圖 20 附錄三 ： 元器件清單 元器件名稱 型號規(guī)格 數量 單 片機 STC89C52 1 傳感器模塊 SC0073 1 LED(發(fā)光二極管 ) 紅色 2 LED（發(fā)光二極管） 綠色 1 模數轉換芯片 ADC0804 1 穩(wěn)壓芯片 LM7805 3 輕質開關 3 精密電位器 10k 1 三極管 9012 1 晶振 1 陶瓷電容 104 8 陶瓷電容 30 2 電解電容 220u 1 電解電容 100u 2 電解電容 10u 1 電解電容 1 電解電容 1 電阻 10k 3 電阻 1k 7 電阻 2 21 電阻 1