广告

原创 矩阵键盘proteus仿真程序

2009-5-14 09:13 1711 1 2 分类: MCU/ 嵌入式

http://space.ednchina.com/Upload/2009/5/14/ceba89a1-32a0-4361-98ac-91ab24b77466.rar# include <reg51.h>


unsigned char tab []={0xc0,0xf9,0xa4,0xb0,0x99,0x92, 0x82,0xf8,0x80,0x90,0xff}; //共阳数码管段码
 


sbit s0=P3^0;
sbit s1=P3^1;
sbit s2=P3^2;
sbit s3=P3^3;                           
sbit s4=P3^4;
sbit s5=P3^5;
sbit s6=P3^6;
sbit s7=P3^7;
unsigned char  temp;
unsigned char lin;
unsigned char row;
void  delay()
{
//去抖动
int i,j;
for (i=0;i<10;i++)
  {
  for (j=0;j<100;j++)
     {}
  }
}
 
void linscan ()
{
  P3=0xf0;
  if (s0==1)
   {
     delay() ;
     if (s0==1)
     lin="0";
   }


    if (s1==1)
   {
     delay() ;
     if (s1==1)
     lin="1";
   }


    if (s2==1)
   {
     delay() ;
     if (s2==1)
     lin="2";
   }


    if (s3==1)
   {
     delay() ;
     if (s3==1)
     lin="3";
   }
}


 


void rowscan ()
{
  P3=0x0f;
  if (s4==1)
   {
     delay() ;
     if (s4==1)
     row="0";
   }


    if (s5==1)
   {
     delay() ;
     if (s5==1)
     row="1";
   }


    if (s6==1)
   {
     delay() ;
     if (s6==1)
     row="2";
   }


    if (s7==1)
   {
     delay() ;
     if (s7==1)
     row="3";
   }
}


void main ()
{
  while (1)
    {
       linscan ();
       rowscan ();
       temp="lin"*4+row;
       P0=tab [temp];
    }
}

广告

文章评论 1条评论)

登录后参与讨论

studyharrrd 2009-6-25 17:56

我要一份 谢谢
相关推荐阅读
aas7502987 2012-04-07 11:48
51/STC最小系统板资料(更新中)
图片欣赏    淘宝网址:http://item.taobao.com/auction/item_detail.htm?item_num_id=9073446988  二   程...
aas7502987 2011-10-13 22:59
YL-3 资料
YL-3数码管模块资料:YL-3 串行数码管资料.zip...
aas7502987 2011-09-24 09:10
USB转TTL小板驱动
xp系统驱动:XP系统支持STC下载的PL-2303HX新版驱动.rar WIN7系统驱动:WIN7系统支持STC下载的PL2303HX驱动.rar...
aas7502987 2011-05-24 22:48
STM32F103RBT6最小系统原理图 PCB
STM32F103RBT6最小系统板原理图 PCB 附件:做好的成品板:淘宝链接网址:http://item.taobao.com/item.htm?id=8864376956...
aas7502987 2011-05-08 12:53
YL-16 STM32F103最小系统板资料(更新中)
二 数据手册:  USB协议中文版:attachment download  中文数据手册:attachment downloadSTM32选型手册:attachment downloadSTM32勘...
aas7502987 2011-03-20 13:27
DS18B20温度测量模块
DS18B20 数码管温度显示程序:...
我要评论
1
1
广告
关闭 热点推荐上一条 /2 下一条