客車用盤式制動(dòng)閘制動(dòng)性能檢測(cè)系統(tǒng)設(shè)計(jì)

客車用盤式制動(dòng)閘制動(dòng)性能檢測(cè)系統(tǒng)設(shè)計(jì),客車用盤式制動(dòng)閘制動(dòng)性能檢測(cè)系統(tǒng)設(shè)計(jì),客車,用盤式,制動(dòng)閘,制動(dòng),性能,機(jī)能,檢測(cè),系統(tǒng),設(shè)計(jì) 畢 業(yè) 設(shè) 計(jì) 附 件 四源程序?qū)?業(yè) 機(jī)械設(shè)計(jì)制造及其自動(dòng)化 學(xué)生姓名 胡 成 班 級(jí) B機(jī)制077 學(xué) 號(hào) 0710101710 指導(dǎo)教師 盧 倩 完成日期 2011年6月6日 源程序速度采集AD/轉(zhuǎn)換接口程序ORG 0000HADIO: SJMP START ORG 0013H ; INT1中斷入口 MOV R6，#0AH ; 設(shè)置循環(huán)次數(shù)，延時(shí)10sLOOP: LCALL DEL; 調(diào)用1s延時(shí)子程序 JMP INDATA DJNZ R6，LOOP ORG 0040H; 主程序入口START: ANL P2，#07FH; 芯片選擇 MOVX A，R1; 讀一個(gè)數(shù)據(jù)并復(fù)位ADC中斷觸發(fā)器 ORL P2，80H; 置位P2.7 MOV R0，#20H; 數(shù)據(jù)地址 MOV Rl，0FFH; 虛擬地址 MOV A，#0FFH; 為中斷循環(huán)置位累加器 ANL P2，#07FH; 發(fā)送片選信號(hào) MOVX Rl，A 發(fā)送寫輸出信號(hào)，啟動(dòng)A/D轉(zhuǎn)換 SETB EA 中斷開放 SETB EXI 允許INT1中斷LOOP: JNZ LOOP 中斷等待，判A的內(nèi)容=0，進(jìn)入中斷后A=0 NOP NOPINDATA： MOVX A，R1; 若片選為低，則輸入數(shù)據(jù) MOV R0，A 存儲(chǔ)在存儲(chǔ)器中 CRL A; 清累加器以得到中斷循環(huán)輸出 RET; 返回SMJZ： ORG 3000H MOV DPTR，#6000H 8279命令口地址 MOV A，#10H; 8位顯示，右入口 MOVX DPTR，A; 輸出控制字 MOV A，#14H 分頻數(shù)20 MOVX DPTR，A; 8279內(nèi)部產(chǎn)生100kHz頻率 MOV A#90H; 寫顯示RAM地址，Al=1遞增 MOVX DPTR，A RET 轉(zhuǎn)速顯示編程:ORG 3100HZSDISP: MOV RO，#43H; 顯示緩沖地址43H MOV R2， #04H 顯示共4位 MOV DPTR，#4000H; 指向8279數(shù)據(jù)口LOOP: MOV A，R0 MOV DPTR，#TAB; 開始查表，TAB=3180H MOVC A，A+DPTR MOVX DPTR，A DEC R0 DJNZ R2 ，LOOP RET延時(shí)lms程序:DL 1MS: MOV R3, #02H Ll: MOV R4, #0F8H L2: DJNZ R4, L2 DJNZ R3， LlRET數(shù)據(jù)處理及拆字程序如下:ADCP: ORG 1000HMOV A，R0; 從AD轉(zhuǎn)換中取數(shù)據(jù) MOV 26H，A; 數(shù)據(jù)送26H儲(chǔ)存，作比較用 MOV B，#0FH; 將15的二進(jìn)制數(shù)0FH送B DIV AB MOV 20H，A; 商數(shù)存A MOV 21H，B; 余數(shù)存B MOV R4，#02H; 兩個(gè)單元均需要拆字顯示 MOV R0，#20H; 從暫存單元取數(shù) MOV Rl，#40H; 設(shè)暫存拆字結(jié)果臨時(shí)單元LOOP: MOV A，R0 MOV B，#0AH; 除以10即可 DIV AB MOV R1，B; 存余數(shù)(個(gè)位) INC Rl MOV R1，A; 存商(十位) INC Rl INC R0DJNZ R4，LOOP RET 轉(zhuǎn)速賦初值:ZSFCZ: MOV DPTR，#34X()H; 設(shè)置地址3400H MOV R4，#02H; 兩個(gè)初值分別傳送 MOV R0，#21H; 設(shè)暫存單元首地址LOOP: MOVX A，DPTR MOV R0，A DEC R0; 指向轉(zhuǎn)速百位、千位 INC DPTR; 指向轉(zhuǎn)速個(gè)位、十位 DJNZ R4, LRET 主程序: ORG 4200HMAIN: LCALL SMLZ LCALL ZSFCZ MOV R6，#0AH; 置循環(huán)次數(shù)，延時(shí)10SLOOP1: LCALL DEL; 調(diào)用1S延時(shí)子程序 LCALL ADIO LCALL ADCP LCALL DLlms; 調(diào)用lms延時(shí)子程序 LCALL ZSDISP DJNZ R6，LOOP1 LCALL KZYS MOV P2，#02H; ORL P2，#80H; 禁止片選信號(hào) LCALL SMLZ LCALL TOCSH LCALL MBFCZLOOP2: LCALL CX LCALL MBDISP LCALL DLlms; 調(diào)用lms延時(shí)子程序 MOV R4，26H CJNE R4，00H，L00P2; 判轉(zhuǎn)速是否為0，不為0，繼續(xù) SETB P2.2; 鎖存秒表顯示END ATmega16單片機(jī)對(duì)A/D芯片TLC3545的初始化和采樣程序如下：voidInit_TLC3545() /初始化程序 CS3545_A=0; CS3545_A=0;/這里是把拉低2us，TLC3545初始化把拉低至少1個(gè)SCLK時(shí)鐘 CS3545_A=1; voidSample_TLC3545() /采樣程序 uint8 k; EA=0; EA=1; CS3545_A=0; SPIDAT=0x77; /寫SPIDAT產(chǎn)生SCLK時(shí)鐘 while(!ISPI); datah=SPIDAT; /收TLC3545發(fā)出的前8位，第一個(gè)字節(jié) SPIDAT=0x77; while(!ISPI); datal=SPIDAT; /收后8位，第二個(gè)字節(jié) SPIDAT=0x77; /繼續(xù)給SCLK時(shí)鐘，直到24thSCLK之后釋放cs do k=0; while(k); /拖延時(shí)間，讓TLC3545的在24個(gè)SCLK周期后才得以釋放 dUw0=(datah 0 Then Ado1.Recordset.MoveFirst While Not Ado1.Recordset.EOF Ado1.Recordset.Delete Ado1.Recordset.MoveNext Wend End If最后，對(duì)數(shù)據(jù)記錄進(jìn)行操作，包括增加、修改、刪除記錄，以下是增加新記錄的程序代碼： With Ado1.Recordset .AddNew 新增加一條記錄.Fields(1).Value = Date 數(shù)據(jù)采集日期 .Fields(2).Value = Time 數(shù)據(jù)采集時(shí)間For i=3 to 54 .Fields(i).Value = DataCom(i-2) 將采集到的數(shù)據(jù)值賦給相應(yīng)的字段 Next i .MoveNext End with形成報(bào)表的輸出，實(shí)現(xiàn)的主要代碼如下：/聲明一個(gè)WORD應(yīng)用程序，使WORD中的APPLICATION對(duì)象對(duì)自動(dòng)功能有效Dim Myword As New Word.Application/定義變量，使其代表WORD的一篇文檔Dim Mydoc As Word.DocumentDim Myrange As RangeDim Mytable As TableDim mybook As BookmarkSet Mydoc = Myword.Documents.OPEN(App.Path & 報(bào)表模版.doc)Mydoc.SaveAs (App.Path & 報(bào)表1.doc)AppActivate Mydoc.Application.CaptionSet Mytable = Mydoc.Tables(1)Mytable.Select7