基于單片機(jī)的振動(dòng)觀測儀的設(shè)計(jì)與制作(編輯修改稿)
2025-02-14 15:05 本頁面
【文章內(nèi)容簡介】 寫論文難免有不足之處，懇請各位老師和學(xué)友批評和指正！參考文獻(xiàn)：[1] [M].北京:電子工業(yè)出版社[2] [M].，20096[3] [J].北京,20022,(2):2023.[4] . ，20065[5] ，20067[6] (4)附錄一：程序Dim liu As DoubleDim rliu As DoubleDim kk As IntegerPrivate Sub Command1_Click()If = True Then = FalseEndEnd SubPrivate Sub Form_Load()Dim i As Integer, j As Integerkk = 0liu = 0rliu = 0 Call init = 9600,N,8,1 = 4 39。設(shè)定串口，為1為m1 = 8 = 2 If = True Then = False 39。關(guān)串口 = 4 = 1 39。 = 0 = 1 If = False Then = True = 0 39。清空接收緩沖區(qū)39。 = 0End SubPrivate Sub MSComm1_OnComm() Dim rec As Integer Dim n As Integer intInputLen = Select Case Case EvReceive bytInput = For n = 0 To intInputLen 1 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 SelectEnd SubPrivate Function init() (0, 6000)(10000, 1000) = 1 = 3For j = 500 To 5000 Step 500 (0, j)(10000, j), RGB(0, 255, 255)NextCurrentX = 0: CurrentY = 0: Print 0CurrentX = 0: CurrentY = 5000: Print 振動(dòng)極限 = 2 = 0 (0, 5000)(10000, 5000), RGB(255, 10, 0) (0, 0)(10000, 0), RGB(255, 10, 0)End Function數(shù)碼管顯示程序includeinclude define uint unsigned intdefine uchar unsigned charsbit 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) //延時(shí)程序{ for(j=i。j0。j) for(k=125。k0。k)。}uchar code table[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d, //數(shù)碼管編碼 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]。 //顯示個(gè)位 dula=1。 dula=0。 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。 adwr=0。 P1=adval。// shuzi SBUF=adval。 while(!TI)。 TI=0。 A1=adval/100。 A2t=adval%100。 A2=A2t/10。 A3=A2t%10。 }。}附錄二：PCB圖附錄三：元器件清單元器件名稱型號規(guī)格數(shù)量單片機(jī)STC89C521傳感器模塊SC00731LED(發(fā)光二極管)紅色2LED（發(fā)光二極管）綠色1模數(shù)轉(zhuǎn)換芯片ADC08041穩(wěn)壓芯片LM78053輕質(zhì)開關(guān)3精密電位器10k1三極管90121晶振1陶瓷電容1048陶瓷電容302電解電容220u 1電解電容100u2電解電容10u1電解電容1電解電容1電阻10k3電阻1k7電阻2電阻1g an employment tribunal claimEmployment tribunals sort out disagreements between employers and employees.You may need to make a claim to an employment tribunal if: you don39。t agree with the disciplinary action your employer has taken against you your employer di
電大資料相關(guān)推薦
鄂ICP備17016276號-1