2022年2022年量程自动转换程序设计源程序 .pdf-得力文库

资源描述

《2022年2022年量程自动转换程序设计源程序 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年量程自动转换程序设计源程序 .pdf（7页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、*/-主程序-/void main(void)unsigned int ad_adv;long B;TMOD=0 x01;TH0=hi;TL0=lo;ET0=1;TR0=1;EA=1;lcm_init();/初始化液晶显示器lcm_clr();/清屏lcm_w_test(0,0 x80);lcm_w_word(欢迎使用本仪器);/显示欢迎字DelayM(3000);/显示等留 3 秒lcm_clr();/清屏speak=1;int_mem5045();/read 5045 when run lcm_w_test(0,0 x90);lcm_w_word(梧州学院财政部);_250v:keyfun

2、();P32=1;P31=0;P30=1;L1=1;L2=0;L3=1;DelayM(200);speak=1;ad_adv=ADlvbo1();B=(long)ad_adv*2.5*1250/4095;/xx*2000/4092*1185/1000;/B=B*125;if(B1001)speak=0;goto _100v;qw=B/1000;bw=(B%1000)/100;sw=(B%100)/10;gw=B%10;if(key1=0)名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 7 页 -delay2(100);if(key1=0)write5045(0,qw);delay

3、2(20);/write 5045 write5045(1,bw);delay2(20);write5045(2,sw);delay2(20);write5045(3,gw);delay2(20);display5();display2();display3();/if(flag3=0)flag4=1;if(flag4=0)goto dianliu;else goto _250v;_100v:keyfun();P32=1;P31=1;P30=1;L1=1;L2=1;L3=1;DelayM(200);speak=1;ad_adv=ADlvbo1();B=(long)ad_adv*2.5*5000

4、/4095;/xx*2000/4092*1185/1000;/B=B*5;if(B10000)speak=0;goto _250v;qw=B/1000;bw=(B%1000)/100;sw=(B%100)/10;gw=B%10;if(key1=0)delay2(100);if(key1=0)write5045(0,qw);delay2(20);/write 5045 write5045(1,bw);delay2(20);write5045(2,sw);delay2(20);write5045(3,gw);delay2(20);名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 7 页

5、 -display1();display2();display3();/if(flag3=0)flag4=1;if(flag4=0)goto dianliu;else goto _100v;_10v:keyfun();P32=1;P31=1;P30=0;L1=1;L2=1;L3=0;DelayM(200);speak=1;ad_adv=ADlvbo1();B=(long)ad_adv*2.5*5000/4095;/xx*2000/4092*1185/1000;/B=B*5;if(B10000)speak=0;goto _100v;qw=B/1000;bw=(B%1000)/100;sw=(B%

6、100)/10;gw=B%10;if(key1=0)delay2(100);if(key1=0)write5045(0,qw);delay2(20);/write 5045 write5045(1,bw);delay2(20);write5045(2,sw);delay2(20);write5045(3,gw);delay2(20);display4();display2();display3();名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 7 页 -/if(flag3=0)flag4=1;if(flag4=0)goto dianliu;else goto _10v;_1v:

7、keyfun();P32=1;P31=0;P30=0;L1=1;L2=0;L3=0;DelayM(200);speak=1;ad_adv=ADlvbo1();B=(long)ad_adv*2.5*5000/4095;/xx*2000/4092*1185/1000;/B=B*5;if(B10000)speak=0;goto _10v;qw=B/1000;bw=(B%1000)/100;sw=(B%100)/10;gw=B%10;if(key1=0)delay2(100);if(key1=0)write5045(0,qw);delay2(20);/write 5045 write5045(1,bw

8、);delay2(20);write5045(2,sw);delay2(20);write5045(3,gw);delay2(20);display6();display2();display3();/if(flag3=0)flag4=1;if(flag4=0)goto dianliu;else goto _1v;_02v:keyfun();P32=0;P31=0;P30=1;L1=0;L2=0;L3=1;DelayM(200);speak=1;ad_adv=ADlvbo1();B=(long)ad_adv*2.5*1000/4095;/xx*2000/4092*1185/1000;/B=B*

9、10;名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 7 页 -if(B2000)speak=0;goto _1v;qw=B/1000;bw=(B%1000)/100;sw=(B%100)/10;gw=B%10;if(key1=0)delay2(100);if(key1=0)write5045(0,qw);delay2(20);/write 5045 write5045(1,bw);delay2(20);write5045(2,sw);delay2(20);write5045(3,gw);delay2(20);display6();display2();display3();/i

10、f(flag3=0)flag4=1;if(flag4=0)goto dianliu;else goto _02v;_01v:keyfun();P32=0;P31=1;P30=0;L1=0;L2=1;L3=0;DelayM(200);speak=1;ad_adv=ADlvbo1();B=(long)ad_adv*2.5*5000/4095;/xx*2000/4092*1185/1000;/B=B*5;if(B10000)speak=0;goto _02v;qw=B/1000;bw=(B%1000)/100;sw=(B%100)/10;gw=B%10;if(key1=0)名师资料总结-精品资料欢迎

11、下载-名师精心整理-第 5 页，共 7 页 -delay2(100);if(key1=0)write5045(0,qw);delay2(20);/write 5045 write5045(1,bw);delay2(20);write5045(2,sw);delay2(20);write5045(3,gw);delay2(20);display7();display2();display3();/if(flag3=0)flag4=1;if(flag4=0)goto dianliu;else goto _01v;dianliu:keyfun();L1=!L1;L2=0;L3=1;DelayM(200);ad_adv=ADlvbo2();B=(long)ad_adv*2.5*1000/4095;/xx*2000/4092*1185/1000;/B=B*125;qw=B/1000;bw=(B%1000)/100;sw=(B%100)/10;gw=B%10;display4();display2();display3();/if(flag3=0)flag4=1;if(flag4=0)goto dianliu;else goto _250v;名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 7 页 -名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 7 页 -

展开阅读全文