找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 3760|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

光立方的制作方法與程序

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:203853 發(fā)表于 2017-6-19 18:08 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
#include<reg51.h>
#define uchar unsigned char;
#define uint unsigned int

sbit in1=P1^1;
sbit in2=P1^0;
uchar ccount=0,count;

unsigned char code digit[]=
{
0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80,
        0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80,
        0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80,
        0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80,
        0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80,
        0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80,
        0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80,
        0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80,//1       

        0x00,0x01,0x06,0x08,0x10,0x60,0x80,0x00,
        0x00,0x01,0x06,0x08,0x10,0x60,0x80,0x00,
        0x00,0x01,0x06,0x08,0x10,0x60,0x80,0x00,
        0x00,0x01,0x06,0x08,0x10,0x60,0x80,0x00,
        0x00,0x01,0x06,0x08,0x10,0x60,0x80,0x00,
        0x00,0x01,0x06,0x08,0x10,0x60,0x80,0x00,
        0x00,0x01,0x06,0x08,0x10,0x60,0x80,0x00,
        0x00,0x01,0x06,0x08,0x10,0x60,0x80,0x00,//2

        0x00,0x00,0x01,0x0e,0x70,0x80,0x00,0x00,
        0x00,0x00,0x01,0x0e,0x70,0x80,0x00,0x00,
        0x00,0x00,0x01,0x0e,0x70,0x80,0x00,0x00,
        0x00,0x00,0x01,0x0e,0x70,0x80,0x00,0x00,
        0x00,0x00,0x01,0x0e,0x70,0x80,0x00,0x00,
        0x00,0x00,0x01,0x0e,0x70,0x80,0x00,0x00,
        0x00,0x00,0x01,0x0e,0x70,0x80,0x00,0x00,
        0x00,0x00,0x01,0x0e,0x70,0x80,0x00,0x00,//3

        0X00,0X00,0X00,0X0F,0XF0,0X00,0X00,0X00,
        0X00,0X00,0X00,0X0F,0XF0,0X00,0X00,0X00,
        0X00,0X00,0X00,0X0F,0XF0,0X00,0X00,0X00,
        0X00,0X00,0X00,0X0F,0XF0,0X00,0X00,0X00,
        0X00,0X00,0X00,0X0F,0XF0,0X00,0X00,0X00,
        0X00,0X00,0X00,0X0F,0XF0,0X00,0X00,0X00,
        0X00,0X00,0X00,0X0F,0XF0,0X00,0X00,0X00,
        0X00,0X00,0X00,0X0F,0XF0,0X00,0X00,0X00,  //4變形開始

        0X00,0X00,0X00,0X0F,0X00,0XF0,0X00,0X00,
        0X00,0X00,0X00,0X0F,0X00,0XF0,0X00,0X00,
        0X00,0X00,0X00,0X0F,0X00,0XF0,0X00,0X00,
        0X00,0X00,0X00,0X0F,0X00,0XF0,0X00,0X00,
        0X00,0X00,0X0F,0X00,0XF0,0X00,0X00,0X00,
        0X00,0X00,0X0F,0X00,0XF0,0X00,0X00,0X00,
        0X00,0X00,0X0F,0X00,0XF0,0X00,0X00,0X00,
        0X00,0X00,0X0F,0X00,0XF0,0X00,0X00,0X00,//5

        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0X00,0X00,0X00,0X0F,0X00,0XF0,0X00,0X00,
        0X00,0X00,0X00,0X0F,0X00,0XF0,0X00,0X00,
        0X00,0X00,0X0F,0X0F,0XF0,0XF0,0X00,0X00,
        0X00,0X00,0X0F,0X0F,0XF0,0XF0,0X00,0X00,
        0X00,0X00,0X0F,0X00,0XF0,0X00,0X00,0X00,
        0X00,0X00,0X0F,0X00,0XF0,0X00,0X00,0X00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//6

        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0X00,0X00,0X0F,0X0F,0XF0,0XF0,0X00,0X00,
        0X00,0X00,0X0F,0X0F,0XF0,0XF0,0X00,0X00,
        0X00,0X00,0X0F,0X0F,0XF0,0XF0,0X00,0X00,
        0X00,0X00,0X0F,0X0F,0XF0,0XF0,0X00,0X00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//7
       
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x00,0x1e,0x1e,0x78,0x78,0x00,0x00,
        0x00,0x00,0x1e,0x1e,0x78,0x78,0x00,0x00,
        0x00,0x00,0x1e,0x1e,0x78,0x78,0x00,0x00,
        0x00,0x00,0x1e,0x1e,0x78,0x78,0x00,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//8

        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x00,0x3c,0x3c,0x3c,0x3c,0x00,0x00,
        0x00,0x00,0x3c,0x3c,0x3c,0x3c,0x00,0x00,
        0x00,0x00,0x3c,0x3c,0x3c,0x3c,0x00,0x00,
        0x00,0x00,0x3c,0x3c,0x3c,0x3c,0x00,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//9,方體成型

        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x66,0x66,0x00,0x00,0x66,0x66,0x00,
        0x00,0x66,0x66,0x00,0x00,0x66,0x66,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x66,0x66,0x00,0x00,0x66,0x66,0x00,
        0x00,0x66,0x66,0x00,0x00,0x66,0x66,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//10
       
        0xc3,0xc3,0x00,0x00,0x00,0x00,0xc3,0xc3,
        0xc3,0xc3,0x00,0x00,0x00,0x00,0xc3,0xc3,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
        0xc3,0xc3,0x00,0x00,0x00,0x00,0xc3,0xc3,
        0xc3,0xc3,0x00,0x00,0x00,0x00,0xc3,0xc3,//11


};

void delay(unsigned int );
void delay1(int t);
void in1_scan();
void zfun();
void zzhen();

void main()
{





while(1)
        {
                  in1_scan();
                  delay(50);
                  zzhen();               
   }
}












void delay(uint x)
{
unsigned int a,b;
for(a=x;a>0;a--)
for(b=3;b>0;b--);
}


void delay1(int t)
{
   int i;
        while(t--)
        for(i=0;i<700;i++);
}


void in1_scan()
{
        if(in1||in2)
        {ccount=(ccount+1)%11;}
                while(in1);//釋放判斷
}

void zfun()//層填充
{
        unsigned char i,p;
        p=1;
        for(i=0;i<8;i++)
        {
                P2=p;
                P0=digit[ccount*64+count+i*8];
                P2=0;
                p<<=1;
        }
}

void zzhen()
{
        unsigned char p;

       
                p=1;
                for(count=0;count<8;count++)
                {
                       
                       
                               
                        P3=0;
                        zfun();
                        P3=p;
                        delay1(2);
                        p<<=1;
                }

}


光立方制作方法.pdf

589.87 KB, 下載次數(shù): 7, 下載積分: 黑幣 -5

與或非頻譜圖.pdf

209.96 KB, 下載次數(shù): 4, 下載積分: 黑幣 -5

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂 踩
回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復(fù) 返回頂部 返回列表