【proteus练一练2.15】数码管显示4X4矩阵键盘按键号

proteus

/*  名称：数码管显示 4X4矩阵
键盘按键号
说明：按下任意键时，数码
管都会显示其键的序号，扫描程
序首先判断按键发生在哪一列，
然后根据所发生的行附加不同的
值，从而得到按键的序号。
*/
#include
#define uchar unsigned char
#define uint unsigned int
//段码
uchar code DSY_CODE[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,
0x88,0x83,0xc6,0xa1,0x86,0x8e,0x00};
***it BEEP=P3^7;
//上次按键和当前按键的序号，该矩阵中序号范围 0~15，16表示无按键
uchar Pre_KeyNo=16,KeyNo=16;
//延时
void DelayMS(uint x)
{
uchar i;
while(x--) for(i=0;i<120;i++);
}
//矩阵键盘扫描
void Keys_Scan()
{
uchar Tmp;
P1=0x0f; //高4 位置0，放入 4 行
DelayMS(1);
Tmp=P1^0x0f;//按键后0f变成 0000XXXX，X中一个为 0，3 个仍为 1，通过异或把 3 个1 变为0，唯
一的 0 变为1
switch(Tmp) //判断按键发生于 0~3 列的哪一列
{
  case 1: KeyNo=0;break;
  case 2: KeyNo=1;break;
  case 4: KeyNo=2;break;
  case 8: KeyNo=3;break;
  default:KeyNo=16; //无键按下
}
  P1=0xf0; //低 4 位置0，放入 4 列
DelayMS(1);
Tmp=P1>>4^0x0f;//按键后 f0 变成 XXXX0000，X中有 1 个为 0，三个仍为 1；高4 位转移到低 4位并
异或得到改变的值
switch(Tmp) //对0~3 行分别附加起始值 0，4，8，12
{
  case 1: KeyNo+=0;break;
  case 2: KeyNo+=4;break;
  case 4: KeyNo+=8;break;
  case 8: KeyNo+=12;
}
}
//蜂鸣器
void Beep()
{
uchar i;
for(i=0;i<100;i++)
{
  DelayMS(1);
  BEEP=~BEEP;
}
BEEP=0;
}
//主程序
void main()
{
P0=0x00;
BEEP=0;
while(1)
{
  P1=0xf0;
  if(P1!=0xf0) Keys_Scan();  //获取键序号
  if(Pre_KeyNo!=KeyNo)
  {
P0=~DSY_CODE[KeyNo];
Beep();
Pre_KeyNo=KeyNo;
  }
  DelayMS(100);
}
}
proteus 仿真图：

游客
，如果您要查看本帖隐藏内容请回复

明大爷 · 2017-1-16 19:01:27

不知道你说的对不对

Everglow123 · 2017-1-19 22:16:22

看看

会发酵乳酸菌 · 2017-1-20 23:18:35

楼主，你们发的资料是我们新手学习的保证

啊哈哈地方 · 2017-3-8 19:49:45

王辉 · 2017-4-6 14:53:37

看看

刘大宝 · 2017-4-16 13:05:27

scccx8106 · 2017-4-18 21:09:09

向24C02中存放一个数字,并读取出来用数码管显示

scccx8106 · 2017-4-18 21:09:15

向24C02中存放一个数字,并读取出来用数码管显示

奕凡321 · 2017-4-19 17:05:17

看看，学习一下！！！！

死神的艺术 · 2017-4-27 13:39:51

非常好，楼主赞一个！！！感谢分享

东皇落笙 · 2017-4-29 10:25:38

看你看看阿奎那看啊看看那

*172*^#

提示: 该帖被管理员或版主屏蔽

evtepe · 2017-5-1 08:45:13

学习一下.

呃呃呃 · 2017-5-3 00:28:57

panicwq · 2017-5-8 21:04:41

666

白驹过隙_254 · 2017-5-9 16:35:48

看看～～～～～～～～

readykk · 2017-5-11 10:42:33

学习一下！毕设加油

學思行仁 · 2017-5-11 14:46:03

2161613

亩产八万八TnT · 2017-5-13 17:39:48

赤条条

无情79uii · 2017-5-16 17:33:16

发光

搜索历史

【proteus练一练2.15】数码管显示4X4矩阵键盘按键号

相关推荐

254 条评论

评论

精选推荐

站长推荐 /6