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

購買設(shè)計請充值后下載，資源目錄下的文件所見即所得，都可以點開預(yù)覽，資料完整，充值下載可得到資源目錄里的所有文件?！咀ⅰ浚篸wg后綴為CAD圖紙，doc,docx為WORD文檔，原稿無水印，可編輯。具體請見文件預(yù)覽，有不明白之處，可咨詢QQ:12401814 畢 業(yè) 設(shè) 計 附 件 四源程序?qū)?業(yè) 機械設(shè)計制造及其自動化 學(xué)生姓名 胡 成 班 級 B機制077 學(xué) 號 0710101710 指導(dǎo)教師 盧 倩 完成日期 2011年6月6日 源程序速度采集AD/轉(zhuǎn)換接口程序ORG 0000HADIO: SJMP START ORG 0013H ; INT1中斷入口 MOV R6，#0AH ; 設(shè)置循環(huán)次數(shù)，延時10sLOOP: LCALL DEL; 調(diào)用1s延時子程序 JMP INDATA DJNZ R6，LOOP ORG 0040H; 主程序入口START: ANL P2，#07FH; 芯片選擇 MOVX A，R1; 讀一個數(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ā)送片選信號 MOVX Rl，A 發(fā)送寫輸出信號，啟動A/D轉(zhuǎn)換 SETB EA 中斷開放 SETB EXI 允許INT1中斷LOOP: JNZ LOOP 中斷等待，判A的內(nèi)容=0，進入中斷后A=0 NOP NOPINDATA： MOVX A，R1; 若片選為低，則輸入數(shù)據(jù) MOV R0，A 存儲在存儲器中 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延時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儲存，作比較用 MOV B，#0FH; 將15的二進制數(shù)0FH送B DIV AB MOV 20H，A; 商數(shù)存A MOV 21H，B; 余數(shù)存B MOV R4，#02H; 兩個單元均需要拆字顯示 MOV R0，#20H; 從暫存單元取數(shù) MOV Rl，#40H; 設(shè)暫存拆字結(jié)果臨時單元LOOP: MOV A，R0 MOV B，#0AH; 除以10即可 DIV AB MOV R1，B; 存余數(shù)(個位) INC Rl MOV R1，A; 存商(十位) INC Rl INC R0DJNZ R4，LOOP RET 轉(zhuǎn)速賦初值:ZSFCZ: MOV DPTR，#34X()H; 設(shè)置地址3400H MOV R4，#02H; 兩個初值分別傳送 MOV R0，#21H; 設(shè)暫存單元首地址LOOP: MOVX A，DPTR MOV R0，A DEC R0; 指向轉(zhuǎn)速百位、千位 INC DPTR; 指向轉(zhuǎn)速個位、十位 DJNZ R4, LRET 主程序: ORG 4200HMAIN: LCALL SMLZ LCALL ZSFCZ MOV R6，#0AH; 置循環(huán)次數(shù)，延時10SLOOP1: LCALL DEL; 調(diào)用1S延時子程序 LCALL ADIO LCALL ADCP LCALL DLlms; 調(diào)用lms延時子程序 LCALL ZSDISP DJNZ R6，LOOP1 LCALL KZYS MOV P2，#02H; ORL P2，#80H; 禁止片選信號 LCALL SMLZ LCALL TOCSH LCALL MBFCZLOOP2: LCALL CX LCALL MBDISP LCALL DLlms; 調(diào)用lms延時子程序 MOV R4，26H CJNE R4，00H，L00P2; 判轉(zhuǎn)速是否為0，不為0，繼續(xù) SETB P2.2; 鎖存秒表顯示END ATmega16單片機對A/D芯片TLC3545的初始化和采樣程序如下：voidInit_TLC3545() /初始化程序 CS3545_A=0; CS3545_A=0;/這里是把拉低2us，TLC3545初始化把拉低至少1個SCLK時鐘 CS3545_A=1; voidSample_TLC3545() /采樣程序 uint8 k; EA=0; EA=1; CS3545_A=0; SPIDAT=0x77; /寫SPIDAT產(chǎn)生SCLK時鐘 while(!ISPI); datah=SPIDAT; /收TLC3545發(fā)出的前8位，第一個字節(jié) SPIDAT=0x77; while(!ISPI); datal=SPIDAT; /收后8位，第二個字節(jié) SPIDAT=0x77; /繼續(xù)給SCLK時鐘，直到24thSCLK之后釋放cs do k=0; while(k); /拖延時間，讓TLC3545的在24個SCLK周期后才得以釋放 dUw0=(datah 0 Then Ado1.Recordset.MoveFirst While Not Ado1.Recordset.EOF Ado1.Recordset.Delete Ado1.Recordset.MoveNext Wend End If最后，對數(shù)據(jù)記錄進行操作，包括增加、修改、刪除記錄，以下是增加新記錄的程序代碼： With Ado1.Recordset .AddNew 新增加一條記錄.Fields(1).Value = Date 數(shù)據(jù)采集日期 .Fields(2).Value = Time 數(shù)據(jù)采集時間For i=3 to 54 .Fields(i).Value = DataCom(i-2) 將采集到的數(shù)據(jù)值賦給相應(yīng)的字段 Next i .MoveNext End with形成報表的輸出，實現(xiàn)的主要代碼如下：/聲明一個WORD應(yīng)用程序，使WORD中的APPLICATION對象對自動功能有效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 & 報表模版.doc)Mydoc.SaveAs (App.Path & 報表1.doc)AppActivate Mydoc.Application.CaptionSet Mytable = Mydoc.Tables(1)Mytable.Select7