/*********************************1***************************************
標題: 讓一位數(shù)碼管循環(huán)顯示“0-F”
作者: aphi
日期: 2009.5.25 ok！
軟件: Keil uVision3
芯片: STC89C51
說明: 采用查表方法,延時1's
*************************************************************************/
#include<reg52.h>
#define uchar unsigned char
#define uint unsigned int
sbit d1=P3^0;
unsigned char led[]={0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,0xF8,0x80,
0x90,0x88,0x83,0xC6,0xA1,0x86,0x8E}; //0-F段碼
uchar t,i;
void delay(uint i)
{
uint j;
for(;i>0;i--)
for(j=0;j<500;j++);
}
void main()
{
while(1)
{
P3=0;
d1=1;
for(i=0;i<16;i++)
{
P1=led;
delay(200);
}
}
}
/*********************************2***************************************
標題: 讓6位數(shù)碼管逐位循環(huán)顯示“0-5”
作者: aphi
日期: 2009.5.25 ok！
軟件: Keil uVision3
芯片: STC89C51
說明: 段碼采用查表（0-5），位碼采用循環(huán)指令（0-5），延時1s
1S，6位數(shù)碼管是每次只顯示一位
*************************************************************************/
#include<reg52.h>
#define uchar unsigned char
#define uint unsigned int
unsigned char led[]={0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,0xF8,
0x80,0x90,0x88,0x83,0xC6,0xA1,0x86,0x8E};
uchar t,i;
void delay(uint i)
{
uint j;
for(;i>0;i--)
for(j=0;j<500;j++);
}
void main()
{
uchar j=0;
P3=0x01;
while(1)
{
for(i=0;i<5;i++) //段碼0-5
{
P1=led;
delay(200); //延時1S
j++;
P3=P3<<1;
if(j==6) //位碼0-5
{
P3=0x01;
j=0;
}
}
}
}
/*********************************3***************************************
標題: 讓6位數(shù)碼管依次動態(tài)顯示“0-5”
作者: aphi
日期: 2009.5.25 ok！
軟件: Keil uVision3
芯片: STC89C51
說明: 段碼采用查表（0-5），位碼采用循環(huán)指令（0-5），延時1ms
1ms，由于人眼視覺暫留，6位數(shù)碼管看起來好像是都在顯示
*************************************************************************/
#include<reg52.h>
#define uchar unsigned char
#define uint unsigned int
unsigned char led[]={0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,0xF8,
0x80,0x90,0x88,0x83,0xC6,0xA1,0x86,0x8E};
uchar t,i;
void delay(uint i)
{
uint j;
for(;i>0;i--)
for(j=0;j<50;j++);
}
void main()
{
uchar j=0;
P3=0x01;
while(1)
{
for(i=0;i<6;i++)
{
P1=led;
delay(10); //延時1ms
j++;
P3=P3<<1;
if(j==6)
{
P3=0x01;
j=0;
}
}
}
}
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
