籃球計分器在附件里,不知道怎么上傳
0.png (12.36 KB, 下載次數: 23)
下載附件
2019-4-27 21:51 上傳
單片機源程序如下:
- #include<at89x52.h>
- unsigned char code table[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f};
- unsigned char a;
- unsigned char a1;
- void delay10ms(void)
- {
- unsigned char i,j;
- for(i=20;i>0;i--)
- for(j=248;j>0;j--);
- }
- void delay1ms(void)
- {
- unsigned char i,j;
- for(i=2;i>0;i--)
- for(j=248;j>0;j--);
- }
-
- void main(void)
- {
- while(1)
- {
- if(P2_0==0)
- {
- delay10ms();
- if(P2_0==0)
- {
- a=a+1;
- }
- if(a>99)
- {
- a=0;
- }
- }
- else if(P2_1==0)
- {
- delay10ms();
- if(P2_1==0)
- {
- a=a+2;
- }
- if(a>99)
- {
- a=0;
- }
- }
- else if(P2_2==0)
- {
- delay10ms();
- if(P2_2==0)
- {
- a=a+3;
- }
- if(a>99)
- {
- a=0;
- }
- }
- else if(P2_3==0)
- {
- delay10ms();
- if(P2_3==0)
- {
- a=a-1;
- }
- if(a>99)
- {
- a=0;
- }
- }
- else if(P2_4==0)
- {
- delay10ms();
- if(P2_4==0)
- {
- a1=a1+1;
- }
- if(a1>99)
- {
- a1=0;
- }
- }
- else if(P2_5==0)
- {
- delay10ms();
- if(P2_5==0)
- {
- a1=a1+2;
- }
- if(a1>99)
- {
- a1=0;
- }
- }
- else if(P2_6==0)
- {
- delay10ms();
- if(P2_6==0)
- {
- a1=a1+3;
- }
- if(a1>99)
- {
- a1=0;
- }
- }
- else if(P2_7==0)
- {
- delay10ms();
- if(P2_7==0)
- {
- a1=a1-1;
- }
- if(a1>99)
- {
- a1=0;
- }
- }
- while(P2_0==0);
- while(P2_1==0);
- while(P2_2==0);
- while(P2_3==0);
- while(P2_4==0);
- while(P2_5==0);
- while(P2_6==0);
- while(P2_7==0);
-
- P1=table[a/100];
- P0_0=0;
- delay1ms();
- P0_0=1;
- P1=table[a/10%10];
- P0_1=0;
- delay1ms();
- P0_1=1;
- P1=table[a%10];
- P0_2=0;
- delay1ms();
- P0_2=1;
- ……………………
- …………限于本文篇幅 余下代碼請從51黑下載附件…………
復制代碼
所有資料51hei提供下載:
籃球計分器.rar
(49.32 KB, 下載次數: 27)
2019-4-27 15:35 上傳
點擊文件名下載附件
籃球計分器 下載積分: 黑幣 -5
|