客车用盘式制动闸制动性能检测系统设计
客车用盘式制动闸制动性能检测系统设计,客车用盘式制动闸制动性能检测系统设计,客车,用盘式,制动闸,制动,性能,机能,检测,系统,设计
毕 业 设 计 附 件 四源程序专 业 机械设计制造及其自动化 学生姓名 班 级 学 号 指导教师 完成日期 2011年6月6日 源程序速度采集AD/转换接口程序ORG 0000HADIO: SJMP START ORG 0013H ; INT1中断入口 MOV R6,#0AH ; 设置循环次数,延时10sLOOP: LCALL DEL; 调用1s延时子程序 JMP INDATA DJNZ R6,LOOP ORG 0040H; 主程序入口START: ANL P2,#07FH; 芯片选择 MOVX A,R1; 读一个数据并复位ADC中断触发器 ORL P2,80H; 置位P2.7 MOV R0,#20H; 数据地址 MOV Rl,0FFH; 虚拟地址 MOV A,#0FFH; 为中断循环置位累加器 ANL P2,#07FH; 发送片选信号 MOVX Rl,A 发送写输出信号,启动A/D转换 SETB EA 中断开放 SETB EXI 允许INT1中断LOOP: JNZ LOOP 中断等待,判A的内容=0,进入中断后A=0 NOP NOPINDATA: MOVX A,R1; 若片选为低,则输入数据 MOV R0,A 存储在存储器中 CRL A; 清累加器以得到中断循环输出 RET; 返回SMJZ: ORG 3000H MOV DPTR,#6000H 8279命令口地址 MOV A,#10H; 8位显示,右入口 MOVX DPTR,A; 输出控制字 MOV A,#14H 分频数20 MOVX DPTR,A; 8279内部产生100kHz频率 MOV A#90H; 写显示RAM地址,Al=1递增 MOVX DPTR,A RET 转速显示编程:ORG 3100HZSDISP: MOV RO,#43H; 显示缓冲地址43H MOV R2, #04H 显示共4位 MOV DPTR,#4000H; 指向8279数据口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数据处理及拆字程序如下:ADCP: ORG 1000HMOV A,R0; 从AD转换中取数据 MOV 26H,A; 数据送26H储存,作比较用 MOV B,#0FH; 将15的二进制数0FH送B DIV AB MOV 20H,A; 商数存A MOV 21H,B; 余数存B MOV R4,#02H; 两个单元均需要拆字显示 MOV R0,#20H; 从暂存单元取数 MOV Rl,#40H; 设暂存拆字结果临时单元LOOP: MOV A,R0 MOV B,#0AH; 除以10即可 DIV AB MOV R1,B; 存余数(个位) INC Rl MOV R1,A; 存商(十位) INC Rl INC R0DJNZ R4,LOOP RET 转速赋初值:ZSFCZ: MOV DPTR,#34X()H; 设置地址3400H MOV R4,#02H; 两个初值分别传送 MOV R0,#21H; 设暂存单元首地址LOOP: MOVX A,DPTR MOV R0,A DEC R0; 指向转速百位、千位 INC DPTR; 指向转速个位、十位 DJNZ R4, LRET 主程序: ORG 4200HMAIN: LCALL SMLZ LCALL ZSFCZ MOV R6,#0AH; 置循环次数,延时10SLOOP1: LCALL DEL; 调用1S延时子程序 LCALL ADIO LCALL ADCP LCALL DLlms; 调用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; 调用lms延时子程序 MOV R4,26H CJNE R4,00H,L00P2; 判转速是否为0,不为0,继续 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产生SCLK时钟 while(!ISPI); datah=SPIDAT; /收TLC3545发出的前8位,第一个字节 SPIDAT=0x77; while(!ISPI); datal=SPIDAT; /收后8位,第二个字节 SPIDAT=0x77; /继续给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最后,对数据记录进行操作,包括增加、修改、删除记录,以下是增加新记录的程序代码: With Ado1.Recordset .AddNew 新增加一条记录.Fields(1).Value = Date 数据采集日期 .Fields(2).Value = Time 数据采集时间For i=3 to 54 .Fields(i).Value = DataCom(i-2) 将采集到的数据值赋给相应的字段 Next i .MoveNext End with形成报表的输出,实现的主要代码如下:/声明一个WORD应用程序,使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
收藏
编号:20944636
类型:共享资源
大小:8.90MB
格式:ZIP
上传时间:2021-04-21
40
积分
- 关 键 词:
-
客车用盘式制动闸制动性能检测系统设计
客车
用盘式
制动闸
制动
性能
机能
检测
系统
设计
- 资源描述:
-
客车用盘式制动闸制动性能检测系统设计,客车用盘式制动闸制动性能检测系统设计,客车,用盘式,制动闸,制动,性能,机能,检测,系统,设计
展开阅读全文
- 温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
装配图网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。