diy廣州小蠻腰廣州燈塔單片機仿真及其程序最美diy

ID:116024 · 發表于 2016-4-22 21:02

這是我的一個廣州燈塔的制作

程序仿真資料（壓縮包）下載：

程序仿真圖.rar (92 KB, 下載次數: 248)
制作教程：

跟風模仿廣州塔，最美LEDDIY.rar (1.04 MB, 下載次數: 251)

小蠻腰的仿真電路圖：

單片機小蠻腰的制作過程：

單片機廣州小蠻腰燈塔的程序：

#include <AT89X51.H>
#include <intrins.h>
#define uchar unsigned char
#define uint unsigned int
#define p0 P0
#define p1 P1
#define p2 P2
#define p3 P3
uchar taba[]={0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,
0x09,0x0a,0x0b,0x0c,0x0d,0x0e,0x0f};
uchar tabc[]={0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80};
uchar tabb[]={0x01,0x03,0x07,0x0f,0x1f,0x3f,0x7f,0xff};
uchar tabd[]={0xfe,0xfc,0xf8,0xf0,0xe0,0xc0,0x80,0x00};
uchar a,b,c,d,e,f,g,h,i,j,k,l;
void delaya();
void delayb();
void delayc();
void delayd();
void delaye();
void delayf();
void delayg();
void delayh();
void delayi();
void delayj();
void delay(unsigned int z)
{
while(z--);
}
void main()
{
TMOD=0x11;
TH0=(65536-2000)/256;
TL0=(65536-2000)%256;
TH1=(65536-10000)/256;
TL1=(65536-10000)%256;
ET0=1;
TR0=1;
ET1=1;
TR1=1;
EA=1;
while(1)
{
delaya();
delayb();
delayc();
delayd();
delaye();
delayf();
delayg();
delayh();
delayi();
delayj();
}
}
void li1() interrupt 1
{
TH0=(65536-2000)/256;
TL0=(65536-2000)%256;
i++;
if(i==5) i=0;j++;
if(j==16) j=0;
}
void li2() interrupt 3
{
TH1=(65536-10000)/256;
TL1=(65536-10000)%256;
h++;
if(h==50) h=0;e++;l++;
if(e==8) e=0;
if(l==16) l=0;
}
void delaya()
{
for(c=0;c<3;c++)//下移
{
p0=0xff;p1=0xff;
for(a=0;a<16;a++)
{
p2=taba[a];
delay(6000);
}
}
for(c=0;c<3;c++)//上移
{
p0=0xff;p1=0xff;
for(a=0;a<16;a++)
{
p2=taba[15-a];
delay(6000);
}
}
for(c=0;c<3;c++)//上移和下移一起
{
p0=0xff;p1=0xff;
for(a=0;a<16;a++)
{
p2=taba[16-a];
delay(4000);
p2=taba[a];
delay(4000);
}
}
for(a=0;a<200;a++)
{
p0=0x01;
p1=0x01;
for(b=0;b<=8;b++)
{
p2=taba[15-j];
p0=_crol_(p0,1);
p1=_crol_(p0,1);
delay(200);
}
}
}
void delayb()
{
for(a=0;a<8;a++)
{
for(g=0;g<16;g++)
{
p1=0x00;
p2=taba[g];
p0=tabc[a];
delay(3000);
}
for(g=0;g<16;g++)
{
p2=taba[g];
p0=0x00;
p1=tabc[a];
delay(3000);
}
}
for(a=0;a<200;a++)
{
p0=0x3f;
p1=0x3f;
for(b=0;b<=8;b++)
{
p2=taba[j];
p0=_crol_(p0,1);
p1=_crol_(p0,1);
delay(200);
}
}
for(a=0;a<20;a++)//右移
{
for(c=0;c<=8;c++)
{
for(b=0;b<16;b++)
{
p2=taba[b];
delay(125);
}
p0=tabc[8-c];
p1=tabc[8-c];
delay(1000);
}
}
}
void delayc()
{
for(a=0;a<2;a++)
{
for(g=0;g<=16;g++)
{
if(g<8)
{
p1=0x00;
p2=taba[g];
p0=tabb[g];
delay(4000);
p2=taba[g];
p0=0x00;
p1=tabb[g];
delay(4000);
}
if(g>=8)
{
p1=0x00;
p2=taba[g];
p0=tabb[g-8];
delay(4000);
p2=taba[g];
p0=0x00;
p1=tabb[g-8];
delay(4000);
}
}
}
for(a=0;a<200;a++)
{
p0=0x01;
p1=0x01;
for(b=0;b<=8;b++)
{
p2=taba[j];
p0=_cror_(p0,1);
p1=_cror_(p0,1);
delay(200);
}
}
for(f=0;f<2;f++)
{
for(g=0;g<=16;g++)
{
if(g<8)
{
p2=taba[g];
p1=0x00;
p0=tabb[g];
delay(8000);
}
if(g>=8)
{
p2=taba[g];
p1=tabb[g-8];
delay(8000);
}
}
}
for(b=0;b<80;b++)
{
for(a=0;a<15;a++)
{
p0=tabc[l];
p1=tabc[l];
p2=taba[j];
delay(600);
}
}
}
void delayd()
{
for(a=0;a<=8;a++)
{
for(g=0;g<=16;g++)
{
p1=0x00;
p2=taba[g];
p0=tabb[a];
delay(2500);
p2=taba[g];
p0=0x00;
p1=tabb[a];
delay(2500);
}
}
for(a=0;a<=8;a++)
{
for(g=0;g<=16;g++)
{
p1=0x00;
p2=taba[16-g];
p0=tabb[a];
delay(2500);
p2=taba[16-g];
p0=0x00;
p1=tabb[a];
delay(2500);
}
}
for(b=0;b<120;b++)
{
for(a=0;a<15;a++)
{
p0=tabc[l];
p1=tabc[l];
p2=taba[j];
delay(200);
}
}
}
void delaye()
{
for(a=0;a<20;a++)//左移
{
for(c=0;c<8;c++)
{
for(b=0;b<16;b++)
{
p2=taba[b];
delay(125);
}
p0=tabc[c];
p1=tabc[c];
delay(1000);
}
}
for(c=0;c<3;c++)//上移和下移一起
{ p0=0xff;p1=0xff;
for(a=0;a<16;a++)
{
p2=taba[16-a];
delay(4000);
p2=taba[a];
delay(4000);
}
}
}
void delayf()
{
for(a=0;a<=8;a++)
{
for(g=0;g<=16;g++)
{
p1=0x00;
p2=taba[16-g];
p0=tabb[8-a];
delay(2500);
p2=taba[16-g];
p0=0x00;
p1=tabb[8-a];
delay(2500);
}
}
for(b=0;b<80;b++)
{
for(a=0;a<15;a++)
{
p0=tabc[l];
p1=tabc[l];
p2=taba[j];
delay(450);
}
}
}
void delayg()
{
for(b=0;b<120;b++)
{
for(a=0;a<15;a++)
{
p0=tabc[8-e];
p1=tabc[8-e];
p2=taba[15-j];
delay(150);
}
}
for(d=0;d<120;d++)
{
p0=0x01;
p1=0x01;
for(b=0;b<=8;b++)
{
p2=taba[15-j];
p0=_crol_(p0,1);
p1=_crol_(p0,1);
delay(200);
}
p0=0x01;
p1=0x01;
for(b=0;b<=8;b++)
{
p2=taba[j];
p0=_crol_(p0,1);
p1=_crol_(p0,1);
delay(200);
}
}
for(c=0;c<3;c++)//由中間向兩邊移動
{
p0=0xff;
p1=0xff;
for(a=8;a<16;a++)
{
p2=taba[a];
delay(4000);
p2=taba[16-a];
delay(4000);
}
}
for(a=0;a<200;a++)
{
p0=0x3f;
p1=0x3f;
for(b=0;b<=8;b++)
{
p2=taba[15-j];
p0=_cror_(p0,1);
p1=_cror_(p0,1);
delay(200);
}
}
for(b=0;b<80;b++)
{
for(a=0;a<15;a++)
{
p0=tabc[e];
p1=tabc[e];
p2=taba[j];
delay(600);
}
}
}
void delayh()
{
for(a=0;a<2;a++)//左移
{
delay(65000);
for(c=0;c<=8;c++)
{
for(b=0;b<16;b++)
{
p2=taba[b];
delay(125);
}
p0=tabb[c];
p1=tabb[c];
delay(2000);
}
for(c=0;c<=8;c++)
{
for(b=0;b<16;b++)
{
p2=taba[b];
delay(125);
}
p0=tabd[c];
p1=tabd[c];
delay(800);
}
}
}
void delayi()
{
for(d=0;d<120;d++)
{
p0=0x01;
p1=0x01;
for(b=0;b<=8;b++)
{
p2=taba[15-j];
p0=_cror_(p0,1);
p1=_cror_(p0,1);
delay(200);
}
p0=0x01;
p1=0x01;
for(b=0;b<=8;b++)
{
p2=taba[j];
p0=_cror_(p0,1);
p1=_cror_(p0,1);
delay(200);
}
}
for(a=0;a<200;a++)
{
p0=0x01;
p1=0x01;
for(b=0;b<=8;b++)
{
p2=taba[j];
p0=_crol_(p0,1);
p1=_crol_(p0,1);
delay(200);
}
}
for(a=0;a<200;a++)
{
p0=0x3f;
p1=0x3f;
for(b=0;b<=8;b++)
{
p2=taba[j];
p0=_cror_(p0,1);
p1=_cror_(p0,1);
delay(200);
}
}
for(a=0;a<200;a++)
{
p0=0x01;
p1=0x01;
for(b=0;b<=8;b++)
{
p2=taba[15-j];
p0=_cror_(p0,1);
p1=_cror_(p0,1);
delay(200);
}
}
for(b=0;b<80;b++) //星光璀璨
{
for(a=0;a<15;a++)
{
p0=tabc[e];
p1=tabc[e];
p2=taba[j];
delay(450);
}
}
}
void delayj()
{
for(a=0;a<200;a++)
{
p0=0x33;
p1=0x33;
for(b=0;b<=8;b++)
{
p2=taba[j];
p0=_crol_(p0,1);
p1=_crol_(p0,1);
delay(200);
}
}
for(a=0;a<200;a++)
{
p0=0x33;
p1=0x33;
for(b=0;b<=8;b++)
{
p2=taba[j];
p0=_cror_(p0,1);
p1=_cror_(p0,1);
delay(200);
}
}
}

復制代碼

ID:116974 · 發表于 2016-4-27 08:42

樓主制作燈塔需要哪些材料

ID:120850 · 發表于 2016-5-15 11:37

樓主需要準備哪些元器件？

ID:142817 · 發表于 2016-10-16 09:16

樓主，有PCB電路圖嗎

ID:108247 · 發表于 2016-10-17 18:10

恩挺漂亮的頂一個~~~

ID:143461 · 發表于 2016-10-22 20:10

16*16點陣圖是怎么連到鎖存器上的

ID:143461 · 發表于 2016-10-22 23:51

譚雅Ayom 發表于 2016-5-15 11:37
樓主需要準備哪些元器件？

我也想知道，同求

ID:145845 · 發表于 2016-11-6 23:42

下載來做一個

ID:149853 · 發表于 2016-11-27 23:00

樓主還在嗎？你能說下二極管的引腳的折法嗎

ID:150832 · 發表于 2016-11-29 11:41

多色就更好了嗷

ID:155412 · 發表于 2016-12-19 16:02

支持一下。。

ID:137563 · 發表于 2016-12-22 18:57

支持一下
加油！！！

ID:158544 · 發表于 2016-12-29 10:30

謝謝樓主的支持，對我非常有用

ID:145141 · 發表于 2017-1-14 21:28

樓主真是牛的不行,新手膜拜..

ID:180730 · 發表于 2017-3-22 19:26

新手膜拜..

ID:186556 · 發表于 2017-4-6 09:13

up,頂一下

ID:186556 · 發表于 2017-4-6 09:14

比較好的diy制作，可以看下偶

ID:191847 · 發表于 2017-4-20 22:23

學習了。。。。

ID:121496 · 發表于 2017-4-25 15:45

好厲害的工藝~

ID:111453 · 發表于 2017-5-11 20:51

正需要，謝謝。

ID:195028 · 發表于 2017-5-12 14:26

謝謝分享！！！

ID:204608 · 發表于 2017-5-25 09:47

很好我喜歡但是我不會制作啊

ID:205770 · 發表于 2017-5-29 10:56

謝謝分享！

ID:212174 · 發表于 2017-6-18 02:03

謝謝分享！！！

ID:220216 · 發表于 2017-7-17 12:44

二極管接的很漂亮！

ID:144786 · 發表于 2017-9-21 20:38

很給力，如果資料更詳細一點就更好了

ID:3802 · 發表于 2017-9-22 14:58

樓主，有PCB電路圖嗎

ID:243495 · 發表于 2017-10-27 18:12

很不錯，現在正在試著做一個

ID:249520 · 發表于 2017-11-21 18:40

怎么做的

ID:245683 · 發表于 2017-11-27 21:18

非常強

ID:254741 · 發表于 2017-11-28 16:11

樓主，有PCB電路圖嗎

ID:269459 · 發表于 2018-1-1 20:20

手機下載了怎么打不開

ID:228186 · 發表于 2018-1-2 10:34

好厲害呀，51單片機也可以做廣東塔呀。

ID:277136 · 發表于 2018-1-18 09:30

樓主很強大！！！

ID:293708 · 發表于 2018-3-18 20:12

怎么做的，求樓主分享，謝謝。

ID:299588 · 發表于 2018-4-1 16:32

樓主很牛

ID:303190 · 發表于 2018-4-11 23:07

好厲害，學習學習

ID:303190 · 發表于 2018-4-11 23:09

厲害厲害，學習

ID:304315 · 發表于 2018-4-14 17:53

今天做了一個！挺好！

ID:299588 · 發表于 2018-4-26 10:40

精彩，51hei需要你。

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

diy廣州小蠻腰廣州燈塔單片機仿真及其程序最美diy

評分

相關帖子

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

diy廣州小蠻腰 廣州燈塔 單片機仿真及其程序 最美diy

評分

相關帖子

diy廣州小蠻腰廣州燈塔單片機仿真及其程序最美diy