电子星系工程pic实验指导6.doc_第1页
电子星系工程pic实验指导6.doc_第2页
电子星系工程pic实验指导6.doc_第3页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

#include /调用头文件#include #include int temp;int t;int disp1,disp2,disp3,disp4;/数码管从左到右排列void ad_convertor(void);void led_disp(void);const unsigned char LED10=0x3f, /00x06, /10x5b, /20x4f, /30x66, /40x6d, /50x7d, /60x07, /70x7f, /80x6f, /9;/-/名称: 主函数 /- void main(void)ADCON1=0X06; /所有IO均为数字口,模拟量输入禁止TRISD=0B00000000; /RD设置为输出 TRISC=0B00000000; /RC设置为输出 while(1) ad_convertor();/启动AD转换,结果存入tempNop();for(t=0;t20;t+)/循环20次显示程序,解决最后一位变化太快,无法看清led_disp();/将temp的值,转换成四位并显示 /*/ configure A/D convertorvoid ad_convertor()OpenADC( ADC_FOSC_32 & ADC_RIGHT_JUST & ADC_8ANA_0REF, ADC_CH0 & ADC_INT_OFF );/ A/D 时钟源,晶振32分频率/ A/D 转换结果右对齐/ A/D 参考电压源,电源工作电压/ 通道选择/ 中断关闭,查询模式Delay10TCYx( 5 ); / Delay for 50TCYConvertADC(); / Start conversionwhile( BusyADC() ); / Wait for completiontemp = ReadADC(); / Read resultCloseADC(); / Disable A/D converterNop();/*/显示子程序,显示变量通过,temp传递void led_disp() /*/把一个数按千 百 十 个位分离出来 disp1=temp/1000;disp2=temp%1000/100;disp3=temp%100/10;disp4=temp%10;/*/显示千位 PORTC=0x00;PORTD=LEDdisp1; Delay100TCYx(50); /延时太长,4位显示分开,延时太短,4显示重影/*/显示百位PORTC=0x01;PORTD=LEDdisp2; Delay100TCYx(50);/*/显示十位PORTC=0x02;PORTD=LEDdisp3; Delay100TCY

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论