开发者社区> 技术小美> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

按键盘数码管流动显示实验

简介:
+关注继续查看

要求:按下键盘,六个数码管流动显示按下的值。

连线:将片选CS0接到key_LED_CS上


#include  <reg52.h>

#define   LEDLen   6


xdata unsigned char OUTBIT _at_ 0x8002;   // 位控制口
xdata unsigned char OUTSEG _at_ 0x8004;   // 段控制口
xdata unsigned char IN     _at_ 0x8001;   // 键盘读入口


unsigned char LEDBuf[LEDLen];    // 显示缓冲
code unsigned char LEDMAP[] = {  // 八段管显示码 (点不显示,0-F)
  0x3f, 0x06, 0x5b, 0x4f, 0x66, 0x6d, 0x7d, 0x07,
  0x7f, 0x6f, 0x77, 0x7c, 0x39, 0x5e, 0x79, 0x71
};


code unsigned char KeyTable[] = {   // 键码定义
  0x16, 0x15, 0x14, 0xff,
  0x13, 0x12, 0x11, 0x10,
  0x0d, 0x0c, 0x0b, 0x0a,
  0x0e, 0x03, 0x06, 0x09,
  0x0f, 0x02, 0x05, 0x08,
  0x00, 0x01, 0x04, 0x07
};




void Delay(unsigned char CNT)
{
  unsigned char i;
  while (CNT-- !=0)
    for (i=100; i !=0; i--);
}


void DisplayLED()
{
  unsigned char i;
  unsigned char Pos;
  unsigned char LED;


  Pos = 0x20;       // 从左边开始显示
  for (i = 0; i < LEDLen; i++) {
    OUTBIT = 0;     // 关所有八段管
    LED = LEDBuf[i];
    OUTSEG = LED;
    OUTBIT = Pos;   // 显示一位八段管
    Delay(2);
    Pos >>= 1;      // 显示下一位
  }
}




unsigned char TestKey()
{
   OUTBIT = 0;            // 输出线置为0
   return (~IN & 0x0f);   // 读入键状态(高四位不用)
}


unsigned char GetKey()
{
  unsigned char Pos;
  unsigned char i;
  unsigned char k;


  i = 6;
  Pos = 0x20;     // 找出键所在列
  do {
    OUTBIT = ~ Pos;
    Pos >>= 1;
    k = ~IN & 0x0f;
  } while ((--i != 0) && (k == 0));


  // 键值 = 列 x 4 + 行
  if (k != 0)
  {
    i *= 4;
    if (k & 2)
      i += 1;
    else if (k & 4)
      i += 2;
    else if (k & 8)
      i += 3;


    OUTBIT = 0;
    do
      Delay(10); while (TestKey());  // 等键释放


    return(KeyTable[i]);  // 取出键码
  } else return(0xff);
}


void main()
{    unsigned int i=0;
   LEDBuf[0] = 0x00;  //如果设置为3F那么最初第一个数码管显示为0
   LEDBuf[1] = 0x00;
   LEDBuf[2] = 0x00;
   LEDBuf[3] = 0x00;
   LEDBuf[4] = 0x00;
   LEDBuf[5] = 0x00;


   while (1) {
     DisplayLED();
     if (TestKey())
     {


         LEDBuf[i++%6] = LEDMAP[GetKey() & 0x0f];
       //LEDBuf[5]=LEDMP[GetKey()&0x0f];
     }
   }

}




















本文转自蓬莱仙羽51CTO博客,原文链接:http://blog.51cto.com/dingxiaowei/1366582,如需转载请自行联系原作者


版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
单片机原理及其应用——单片机定时器中断实验(八段数码管依次显示0~9数字)
单片机原理及其应用——单片机定时器中断实验(八段数码管依次显示0~9数字)
82 0
对比显示每条线路的价格和该类型线路的平均价格,分别使用子查询和 exists 获取线路数量
对比显示每条线路的价格和该类型线路的平均价格,分别使用子查询和 exists 获取线路数量
26 0
实验4 单功能流水线调度机构模拟
结合数据结构的相关知识,编写流水线调度模拟程序。
43 0
Mac 键盘快捷键
要使用键盘快捷键,请按住一个或多个修饰键,同时按快捷键的最后一个键。例如,要使用快捷键 Command-C(拷贝),请按住 Command 键并按 C 键,然后同时松开这两个键。Mac 菜单和键盘通常使用符号来代表某些按键,其中包括以下修饰键: Command ⌘ Shift ⇧ Option ⌥ Control ⌃ Caps Lock ⇪ Fn 如果您使用的是 Windows PC 专用键盘,请用 Alt 键代替 Option 键,用 Windows 标志键代替 Command 键。
847 0
下载文件并显示进度条
  UINT DownloadFile(LPVOID pParam){ CWnd*   pwnd = AfxGetMainWnd(); CProgressCtrl* m_Prog = (CProgressCtrl*)pwnd->GetDlgItem(IDC_PROGRESS1); CButto...
991 0
建议检察院服务器服务器配置 显示器,切换器 键鼠
建议检察院服务器服务器配置 显示器,切换器 键鼠1.1 空0.9 xuc2013@163.com
531 0
QT显示机制
了解QT显示机制,最重要的就是要了解QT是如何管理窗体的显示区域的,这里有个重要的类:QRegion, 在QT中可以通过QRegion定义一个窗体的显示区域,也可以通过QRegion定义窗体的可修改区域,比如在QPainter()中通过QPainter::setClipRect设定一个区域,我们绘图则只能在这个区域,此区域外绘图都是无效的。
939 0
+关注
文章
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载