全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
.#include #include #define uchar unsigned char#define uint unsigned int#define ulong unsigned longuint temp=0;data uint i;data uchar dispram5;uchar code table=0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,0x0F8,0x80,0x90,0x88,0x83,0xC6,0xA1,0x86,0x8E,0xBF,0xFF; / 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,A, B, C, D, E, F, -, sbit b=P10;sbit t=P17;void cs_t();/超声波发生函数void delay(uint z);void yanshi(uint a);void display();data uchar testok;void main() data ulong time; P0 = 0xff; P2 = 0xff; TMOD = 0x11; IE = 0x80; while (1) cs_t(); delay(1); /TR0=1; testok = 0; EX0 = 1; ET0 = 1; while (!testok) display();/等待接收完毕。 if (1 = testok) /距离计算 time = TH0; time = (time8) | TL0; time *=172;/声音传播速度,1/2(172)为往返路程的一半 time /= 10000; if(time=10) /当距离小于等于10CM的时候P17变为低电平 t=0; else t=1; dispram0=tabletime % 10;/ 倒数第一位 time /= 10; dispram1=tabletime % 10;/ 倒数第二位 time /= 10; dispram2=tabletime % 10;/ 倒数第三位 dispram3=(time / 10); / if (0=dispram3) dispram3=table17; else dispram0 = table16; dispram1 = table16; dispram2 = table16; dispram3 = table16; for (i=0; i0;x-) for(y=110;y0;y-);void delay(uint
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 早产儿健康科普指南
- 肩周炎的健康宣教
- 礼仪技巧与方法
- 白内障术前评估
- 前庭训练认知课
- 简易呼吸气囊使用方法
- 语文教学方法体系与实践要点
- 康复功能评估课
- 动画科普制作方法
- 药物配置方法
- 2025新外研社版七年级上英语单词汉译英默写表(开学版)
- 消化内科出科题目及答案
- 第7章广泛应用的酸碱盐(上)-2021学年九年级化学下册必背知识手册(沪教版)(默写卡)
- 2025年铅酸蓄电池行业研究报告及未来发展趋势预测
- 工伤预防培训试题(附答案)
- 2025年消防中控员理论考试题库
- 过渡金属催化机理-洞察及研究
- 南航国际创新港一期配套市政道路建设工程环境影响评价报告表
- DB37-T4894-2025植物耐盐性田间鉴定设施建设技术规程
- 老年保健慢性病管理课件
- the-road-not-taken教学培训课件
评论
0/150
提交评论