资源描述:
《简单计算机程序》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、#include#include#include//#definej2h(x)(3.1415926*(x)/180)sbitP32=P3A2;sbitP23=P2A3;sbitP22=P2A2;sbitP21=P2A1;sbitP20=P2A0;//unsignedchartimerO_count1=0;codeunsignedcharTab[10]={0x81,0xed,0x43,0x49,0x2d,0x19,0x11,0xcd,0x01,0x09};codeunsignedch
2、arTab1[16]={0x81,0xed,0x43,0x49,0x2d,0x19,0x11,0xcd,0x01,0x09,0x05,0x00,0x93,0x80,0x13,Ox仃};unsignedintKeynumber;unsignedintnumber;unsignedchart=1;unsignedcharp=99;unsignedcharq=0;voidmDelay(unsignedintdelay)unsignedchari;for(;delay>0;delay-){for(i=0;i<124;i++){_nop_();_
3、nop_();_nop_();}}}广键盘扫描程序*/voidKeyscan(){unsignedintkey1;Keynumber=20;if((P2&0x0f)!=0x0f)〃有键按下mDelay(5);if(!P23){P1&=0x7f;P1
4、=0x70;if(!P23)Keynumber=0;else{P1&=0xbf;P1
5、=0xb0;if(!P23)Keynumber=1;else{P1&=0xdf;P1
6、=0xd0;if(!P23)Keynumber=2;else{P1&=0xef;P1
7、=0xe0;if(!P23)Key
8、number=3;elseKeynumber=20;}}}elseif(!P22){P1&=0x7f;P1
9、=0x70;if(!P22)Keynumber=4;else{P1&=0xbf;P1
10、=0xb0;if(!P22)Keynumber=5;else{P1&=0xdf;P1
11、=0xd0;if(!P22)Keynumber=6;else{elseKeynumber=20;}}}}elseif(!P21){P1&=0x7f;P1
12、=0x70;if(!P21)Keynumber=&else{P1&=0xbf;P1
13、=0xb0;if(!P2
14、1)Keynumber=9;else{P1&=0xdf;P1
15、=0xd0;if(!P21)Keynumber=10;elseP1&=0xef;P1
16、=0xe0;if(!P21)Keynumber=11;elseKeynumber=20;}}}}elseif(!P20){P1&=0x7f;P1
17、=0x70;if(!P20)Keynumber=12;else{P1&=0xbf;P1
18、=0xb0;if(!P20)Keynumber=13;else{elseP1&=0xef;P1
19、=OxeO;if(!P20){Keynumber=15;}els
20、eKeynumber=20;}}}}elseKeynumber=20;}elseKeynumber=20;//无键按下}广主程序*/voidmain()unsignedinta=0;unsignedintb=0;unsignedintnum;unsignedintkey=O;//Keynumber寄存unsignedintkey1;//数据寄存unsignedintplay;//算法判断while(1)Keyscan();if(Keynumber<10)//数字输入key=Keynumber;if(Keynumber==20)if(ke
21、y<10)a=key;b=10*b+a;key=20;if(Keynumber>11&Keynumbervi6)//算法判断{key=Keynumber;}if(Keynumber==20){if(key>11&key<16)key1=number;b=0;play=key;key=20;}}if(Keynumber==11)//加法运算(可以连加)if(Keynumber==20)if(key==11){if(play==12){number=key1+number;key=20;}}if(Keynumber==11)//减法运算(可
22、以连减){key=Keynumber;}if(Keynumber==20){if(key==11){if(play==13)(二”父雯)七(0审」①qcunuA①匸①qlunuAeyHA①上(鬃熾公冋)M凹