標題:
自己做的單片機心型燈
[打印本頁]
作者:
569079248
時間:
2018-3-25 22:23
標題:
自己做的單片機心型燈
QQ圖片20180325221738.png
(226.68 KB, 下載次數(shù): 47)
下載附件
仿真圖像
2018-3-25 22:22 上傳
單片機源程序如下:
#include <REGX51.H>
#include<intrins.h>
void delay500ms() //@12.000MHz
{
unsigned char i, j, k;
_nop_();
i = 1;
j = 205;
k = 187;
do
{
do
{
while (--k);
} while (--j);
} while (--i);
}
void moshi1(void)
{
char i=0;
for(i=0;i<5;i++)
{
P0=0X00;P1=0X00;P2=0X00;P3=0X00;
delay500ms();
P0=0Xff;P1=0Xff;P2=0Xff;P3=0Xff;
delay500ms();
}
}
/// e d b 7 ---> 1110 1101 1011 0111
unsigned char tab[]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f,};
void moshi2(void)
{
char i;
for(i=0;i<8;i++)
{
P0=tab[i];P1=0XFF;P2=0XFF;P3=0XFF;delay500ms();
}
for(i=0;i<8;i++)
{
P0=0XFF;P1=tab[i];P2=0XFF;P3=0XFF;delay500ms();
}
for(i=0;i<8;i++)
{
P0=0XFF;P1=0XFF;P2=tab[i];P3=0XFF;delay500ms();
}
for(i=0;i<8;i++)
{
P0=0XFF;P1=0XFF;P2=0XFF;P3=tab[i];delay500ms();
}
}
unsigned char code tab1[]={0xfe,0xfc,0xf8,0xf0,0xe0,0xc0,0x80,0x00,};
unsigned char code tab2[]={0x7f,0x3f,0x1f,0x0f,0x07,0x03,0x01,0x00,};
void moshi3(void) //0011 1111
{
char i;
for(i=0;i<8;i++)
{
P0=tab1[i];P1=0XFF;P2=0XFF;P3=tab2[i];delay500ms();
}
for(i=0;i<8;i++)
{
P1=tab1[i];P0=0X00;P3=0X00;P2=tab2[i];delay500ms();
}
for(i=0;i<8;i++)
{
P1=tab1[7-i];P0=0X00;P3=0X00;P2=tab2[7-i];delay500ms();
}
for(i=0;i<8;i++)
{
P0=tab1[7-i];P1=0Xff;P2=0Xff;P3=tab2[7-i];delay500ms();
}
}
void main(void)
{
while(1)
{
moshi1();
moshi2();
moshi3();
}
}
復制代碼
歡迎光臨 (http://www.torrancerestoration.com/bbs/)
Powered by Discuz! X3.1