我有這樣的程序：如：按1，則顯示1，再按3，則顯示13，再按5，則顯示135，再按2，則顯示1352........八個數碼管循環顯示，當八個數碼管都有顯示后，再按鍵，則顯示內容左移。
程序如下：#include<reg51.h>
#define GPIO_DIG P0//數碼管
#define GPIO_KEY P1//矩陣鍵盤
sbit LSA=P2^2;//譯碼器
sbit LSB=P2^3;//
sbit LSC=P2^4;//
unsigned char code DIG_CODE[17]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,
0x77,0x7c,0x39,0x5e,0x79,0x71};//0、1、2、3、4、5、6、7、8、9、A、b、C、d、E、F的顯示碼
unsigned char KeyValue;
bit KeyState;
unsigned char DisplayData[8];
void Delay10ms();
void KeyDown();
void DigDisplay();
void main(void)
{
KeyState=0;
while(1)
{
KeyDown();
if(KeyState==1)
{
DisplayData[7]=DisplayData[6];
DisplayData[6]=DisplayData[5];
DisplayData[5]=DisplayData[4];
DisplayData[4]=DisplayData[3];
DisplayData[3]=DisplayData[2];
DisplayData[2]=DisplayData[1];
DisplayData[1]=DisplayData[0];
DisplayData[0]=DIG_CODE[KeyValue];
KeyState=0;
}
DigDisplay();//顯示
}
}
void DigDisplay()
{
unsigned char i;
unsigned int j;
for(i=0;i<8;i++)//只有8個數碼管
{
switch(i)
{
case(0):
LSA=0;LSB=0;LSC=0; break;//顯示第0位
case(1):
LSA=1;LSB=0;LSC=0; break;//顯示第1位
case(2):
LSA=0;LSB=1;LSC=0; break;//顯示第2位
case(3):
LSA=1;LSB=1;LSC=0; break;//顯示第3位
case(4):
LSA=0;LSB=0;LSC=1; break;//顯示第4位
case(5):
LSA=1;LSB=0;LSC=1; break;//顯示第5位
case(6):
LSA=0;LSB=1;LSC=1; break;//顯示第6位
case(7):
LSA=1;LSB=1;LSC=1; break;//顯示第7位
}
GPIO_DIG=DisplayData;
j=10;
while(j--);
GPIO_DIG=0x00;
}
}
void KeyDown(void)
{
unsigned char a=0;
GPIO_KEY=0x0f;
if(GPIO_KEY!=0x0f)
{
Delay10ms();
if(GPIO_KEY!=0x0f)
{
KeyState=1;
switch(GPIO_KEY)
{
case(0X07): KeyValue=0;break;
case(0X0b): KeyValue=1;break;
case(0X0d): KeyValue=2;break;
case(0X0e): KeyValue=3;break;
}
GPIO_KEY=0Xf0;
Delay10ms();
switch(GPIO_KEY)
{
case(0X70): KeyValue=KeyValue;break;
case(0Xb0): KeyValue=KeyValue+4;break;
case(0Xd0): KeyValue=KeyValue+8;break;
case(0Xe0): KeyValue=KeyValue+12;break;
}
while((a<200)&&(GPIO_KEY!=0xf0))
{
Delay10ms();
a++;
}
a=0;
}
}
}
void Delay10ms(void)
{
unsigned char a,b,c;
for(c=1;c>0;c--)
for(b=38;b>0;b--)
for(a=130;a>0;a--);
}
適用的電路如圖：
1.jpg (17.16 KB, 下載次數: 34)
下載附件
2018-6-21 07:34 上傳
2.jpg (62.34 KB, 下載次數: 25)
下載附件
2018-6-21 07:34 上傳
3.jpg (37.5 KB, 下載次數: 32)
下載附件
2018-6-21 07:34 上傳
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
