当前位置:首页 > 单片机 > 单片机
[导读]吸取各位前辈的经验,将之前二极管用量多的问题优化一下,目前不用二极管能接6键,2只二极管能接12键,6只二极管能接18键,9只二极管能接21键,第22键要单独占用3只二极管最不化算。实验用89S51作试验,电路接线就是

吸取各位前辈的经验,将之前二极管用量多的问题优化一下,目前不用二极管能接6键,2只二极管能接12键,6只二极管能接18键,9只二极管能接21键,第22键要单独占用3只二极管最不化算。

实验用89S51作试验,电路接线就是P1.2,P1.3,P1.4接键盘,P1.0接显示器。





(原文件名:GIF.gif)





(原文件名SC00015.JPG)





(原文件名SC00016.jpg)








/*==================================================================*

* 3个IO接识别22键测试程序 *

* ------------------------------------------------ *

* MCU: AT89C2051 *

* OSC: 12M cysytel *

* 程序设计:Cowboy *

* 程序版本:V1.0 *

*==================================================================*/



#include



//================== IO口线连接 ==================

sbit Bus = P1^0;

sbit IO_a = P1^4;

sbit IO_b = P1^3;

sbit IO_c = P1^2;



//================== 变量声明 ====================

unsigned char Disp_buf[3];

unsigned char Dig;

unsigned char Key_count;

unsigned char bdata Key_state;

sbit KB0 = Key_state^0;

sbit KB1 = Key_state^1;

sbit KB2 = Key_state^2;

sbit KB3 = Key_state^3;

sbit KB4 = Key_state^4;

sbit KB5 = Key_state^5;



//================== 表格数据 ====================

code unsigned char LED_font[24]=

{

0x84,0x9f,0xa2,0x8a,0x99,0xc8,0xc0,0x9e,0x80, //012345678

0x88,0x90,0xc1,0xe4,0x83,0xe0,0xf0,0xff,0xfb, //9abcdef -

};



code unsigned char Key_tab[64]= //键码映射表

{//0123456789

22, 0, 2, 0, 0, 0, 0, 0, 4, 0, //0

0, 0, 0, 0, 0,18, 0, 0, 0, 0, //1X

0, 0, 0, 0, 0, 0, 3,14, 0, 0, //2X

20,10, 6, 0, 0, 0, 0, 0, 1,19, //3X

0, 5, 0, 0, 0,15, 0,11, 0, 0, //4X

0,17, 0, 0,13, 8, 0,21, 0, 9, //5X

16,12, 7, 0 //6X

};



//=============== 检测按键 =================

void Key_scan()

{

unsigned char i;

Key_count --; //扫描次序

Key_count &= 3;

switch (Key_count) //按次序处理

{

case 2: //第一轮扫描

KB0 = IO_b;

KB1 = IO_c;

IO_a = 1;

IO_b = 0;

break;



case 1: //每二轮扫描

KB2 = IO_c;

KB3 = IO_a;

IO_b = 1;

IO_c = 0;

break;



case 0: //每三轮扫描

KB4 = IO_a;

KB5 = IO_b;

IO_c = 1;

break;



default: //每四轮扫描

if (!IO_a) KB0 = 0;

if (!IO_b) KB2 = 0;

if (!IO_c) KB4 = 0;

IO_a = 0;



//======更新显示缓冲区=======

i = Key_tab[Key_state];

if (i == 0)

{

Disp_buf[2] = 0x11; //显示三横

Disp_buf[1] = 0x11;

Disp_buf[0] = 0x11;

}

else

{

Disp_buf[2] = 0x0c; //字符"C"

Disp_buf[1] = i / 10; //键码十位

Disp_buf[0] = B;于 //键码个位

}

Key_state = 0;

}

}





/*===================================================================

ONE WIRE 显示总线驱动程序

===================================================================*/



//=============== 发送一位 =================

void Send_bit(bit Dat)

{

unsigned char i = 3;

if (!Dat) Bus = 0;

else

{

Bus = 0;

Bus = 1;

}

while(--i); //延时8us

Bus = 1;

}



//=============== 总线驱动 =================

void Bus_drive()

{

unsigned char i = 0;

unsigned char Sdat;

Send_bit(1); //Bit6消隐

do Bus = 1; while(--i); //延时768us

do Bus = 0; while(--i); //延时768us

Bus = 1;

Sdat = LED_font[Disp_buf[Dig++]]; //获取显示数据

Send_bit(Sdat & 0x01); //发送位0

Send_bit(Sdat & 0x02); //发送位1

Send_bit(Sdat & 0x04); //发送位2

Send_bit(Sdat & 0x08); //发送位3

Send_bit(Sdat & 0x10); //发送位4

Send_bit(Sdat & 0x20); //发送位5

Send_bit(Dig& 0x01); //发送位选1

Send_bit(Dig& 0x02); //发送位选2

while(--i); //延时512us

Send_bit(Sdat & 0x40); //发送位6

for (i = 7;i> 0;i--) Send_bit(1);//位6移至Dout

if (Dig == 3) Dig = 0;

}



/*===================================================================

延时 5ms 程序

===================================================================*/

void Delay_5ms()

{

while(!TF1);

TF1 = 0;

TH1 = (- 5000) / 256;

TL1 = (- 5000) % 256;

}



/*===================================================================

主程序

===================================================================*/
void main()

{

TMOD = 0x10; //定时器1,16位模式

TCON = 0xc0; //TR1=1;TF1=1;

while(1) //主循环

{

Bus_drive(); //显示总线驱动

Key_scan(); //检测按键

Delay_5ms(); //延时5MS

}

本站声明: 本文章由作者或相关机构授权发布,目的在于传递更多信息,并不代表本站赞同其观点,本站亦不保证或承诺内容真实性等。需要转载请联系该专栏作者,如若文章内容侵犯您的权益,请及时联系本站删除。
换一批
延伸阅读

9月2日消息,不造车的华为或将催生出更大的独角兽公司,随着阿维塔和赛力斯的入局,华为引望愈发显得引人瞩目。

关键字: 阿维塔 塞力斯 华为

加利福尼亚州圣克拉拉县2024年8月30日 /美通社/ -- 数字化转型技术解决方案公司Trianz今天宣布,该公司与Amazon Web Services (AWS)签订了...

关键字: AWS AN BSP 数字化

伦敦2024年8月29日 /美通社/ -- 英国汽车技术公司SODA.Auto推出其旗舰产品SODA V,这是全球首款涵盖汽车工程师从创意到认证的所有需求的工具,可用于创建软件定义汽车。 SODA V工具的开发耗时1.5...

关键字: 汽车 人工智能 智能驱动 BSP

北京2024年8月28日 /美通社/ -- 越来越多用户希望企业业务能7×24不间断运行,同时企业却面临越来越多业务中断的风险,如企业系统复杂性的增加,频繁的功能更新和发布等。如何确保业务连续性,提升韧性,成...

关键字: 亚马逊 解密 控制平面 BSP

8月30日消息,据媒体报道,腾讯和网易近期正在缩减他们对日本游戏市场的投资。

关键字: 腾讯 编码器 CPU

8月28日消息,今天上午,2024中国国际大数据产业博览会开幕式在贵阳举行,华为董事、质量流程IT总裁陶景文发表了演讲。

关键字: 华为 12nm EDA 半导体

8月28日消息,在2024中国国际大数据产业博览会上,华为常务董事、华为云CEO张平安发表演讲称,数字世界的话语权最终是由生态的繁荣决定的。

关键字: 华为 12nm 手机 卫星通信

要点: 有效应对环境变化,经营业绩稳中有升 落实提质增效举措,毛利润率延续升势 战略布局成效显著,战新业务引领增长 以科技创新为引领,提升企业核心竞争力 坚持高质量发展策略,塑强核心竞争优势...

关键字: 通信 BSP 电信运营商 数字经济

北京2024年8月27日 /美通社/ -- 8月21日,由中央广播电视总台与中国电影电视技术学会联合牵头组建的NVI技术创新联盟在BIRTV2024超高清全产业链发展研讨会上宣布正式成立。 活动现场 NVI技术创新联...

关键字: VI 传输协议 音频 BSP

北京2024年8月27日 /美通社/ -- 在8月23日举办的2024年长三角生态绿色一体化发展示范区联合招商会上,软通动力信息技术(集团)股份有限公司(以下简称"软通动力")与长三角投资(上海)有限...

关键字: BSP 信息技术
关闭
关闭