历史上的今天
今天是:2025年05月07日(星期三)
2018年05月07日 | 51单片机--设置数码管的闪烁位置,便于输入数字
2018-05-07 来源:eefocus
/*
有四个独立按键为 K1~K4,有四个数码管,可显示 0000~9999。
初始时都显示 0。
四个数码管中,有一个处于闪烁状态。闪烁的频率为 1Hz。
利用 K3、K4 可以使得闪烁的位置左右移动。
只有不停闪烁的位,才可以用 K1、K2 使其数值递增或递减。
数值的范围是 0~9。
题目连接:http://zhidao.baidu.com/question/455550887523150405.html
做而论道编写程序如下:
*/
#include
#include
sbit k_a = P3^1;
sbit k_s = P3^3;
sbit k_l = P3^5;
sbit k_r = P3^7;
//---------------------------------------
unsigned char code SEG7[] = {
0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0xff};
unsigned char DISP_BUFF[] = {0, 0, 0, 0, 0, 0, 0, 0};
unsigned char num[] = {0, 0, 0, 0, 0, 0, 0, 0};
unsigned char n = 0, n_50ms;
bit flag;
//---------------------------------------
void DelayMS(unsigned int x)
{
unsigned char i;
while(x--) for(i = 200; i > 0; i--);
}
//---------------------------------------
void display()
{
unsigned char i, w = 128;
for(i = 0; i < 8; i++) DISP_BUFF[i] = num[i];
if (flag) DISP_BUFF[n] = 10;
for(i = 0; i < 8; i++) {
P0 = SEG7[DISP_BUFF[i]];
P2 = w; DelayMS(1); P2 = 0;
w = _cror_(w, 1);
}
}
//---------------------------------------
void main()
{
TMOD = 0x01;
TH0 = 0x3C;
TL0 = 0xB0;
TR0 = 1;
IE = 0x82;
while(1) {
if (!k_a) {
display();
if (!k_a) {
while (!k_a) display();
num[n]++; if (num[n] > 9) num[n] = 0;
}
}
if (!k_s) {
display();
if (!k_s) {
while (!k_s) display();
num[n]--; if (num[n] > 9) num[n] = 9;
}
}
if (!k_l) {
display();
if (!k_l) {
while (!k_l) display();
n++; if (n > 3) n = 0;
}
}
if (!k_r) {
display();
if (!k_r) {
while (!k_r) display();
n--; if (n > 3) n = 3;
}
}
display();
}
}
//---------------------------------------
void T0_INT() interrupt 1
{
TH0 = 0x3C;
TL0 = 0xB0;
n_50ms++;
n_50ms %= 6; //10对应1Hz
if(!n_50ms) flag = ~flag;
}
//---------------------------------------
//仿真运行的截图如下:

上一篇:51单片机--仿真出租车计价器
史海拾趣
|
media,mnt这两目录挂载文件系统有什么不同,挂在media下的能挂载在mnt下吗?除了这两目录,文件系统还能挂在其它目录下吗?如果不能那又是为什么呢?… 查看全部问答> |
|
3G时代,能否替代原有的固定宽带 2009年元月,中国3张3G牌照发放 电信 cdma2000 推出天翼品牌,声称测试速度已经达到3.3Mbps,年底升级到9Mbps。 联通 WCDMA 声称速度达到7.2Mbps,号称 ...… 查看全部问答> |
|
Linux 2.6.36内核移植飞凌OK6410开发板完整步骤详解 今天终于让Linux内核在飞凌的板子上跑起来了,想来也是艰辛,为了移植成功,断断续续做了将近两个月的努力,期间郁闷不可言 语形容啊, 了解其中艰辛,将自己移植步骤与心得与大家分享,希望对初踏次领域之人有所帮助,我所写 ...… 查看全部问答> |




