如果看不清 或喜歡該視頻可以下載原版
錄像4.rar
(186.78 KB, 下載次數(shù): 18)
2010-2-6 13:48 上傳
點(diǎn)擊文件名下載附件
下載積分: 金錢(qián) -1
下面是代碼支持下載回去自己玩:
- #include<reg51.h>
- sbit clk=P1^0;
- sbit dat=P1^1;
- sbit dis=P1^2;
- sbit soe=P3^0;
- void delay(unsigned int t)
- {while(t--);
- }
- void display(unsigned char x)
- {unsigned char i;
- for(i=0;i<8;i++)
- {clk=0;
- if(x&0x01)
- dat=1;
- else
- dat=0;
- x>>=1;
- clk=1;
- }
- }
- main()
- {unsigned char x[3][32]={
- {0x00,0x04,0x04,0xFE,0x7E,0x84,0x44,0x84,
- 0x44,0x84,0x44,0xFC,0x7C,0x84,0x44,0x84,
- 0x44,0x84,0x44,0xFC,0x7C,0x84,0x44,0x84,
- 0x01,0x04,0x01,0x04,0x02,0x14,0x04,0x08},
- {0x10,0x40,0x10,0x44,0x2F,0xFE,0x20,0x40,
- 0x47,0xFC,0x94,0xA4,0x14,0xA4,0x27,0xFC,
- 0x60,0x00,0xAF,0xFE,0x20,0x40,0x21,0x20,
- 0x25,0x24,0x25,0x0A,0x28,0xFA,0x20,0x00},
- {0x01,0x00,0x01,0x00,0x01,0x08,0x7F,0xFC,
- 0x01,0x00,0x01,0x00,0x01,0x10,0x3F,0xF8,
- 0x01,0x00,0x01,0x00,0x01,0x04,0xFF,0xFE,
- 0x01,0x00,0x01,0x00,0x01,0x00,0x01,0x00}};
- unsigned char i,k,tt;
- soe=0;
- while(1)
- {
- for(k=0;k<10;k++)
- for(i=0;i<16;i++)
- {P2=i;
- dis=0;
- display(x[2][2*i+1]);
- display(x[2][2*i]);
- display(x[1][2*i+1]);
- display(x[1][2*i]);
- display(x[0][2*i+1]);
- display(x[0][2*i]);
- dis=1;
- delay(300);
- }
- for(i=0;i<16;i++)
- {tt=x[0][2*i]>>7;
- x[0][2*i]<<=1;
- x[0][2*i]|=(x[0][2*i+1]>>7);
- x[0][2*i+1]<<=1;
- x[0][2*i+1]|=(x[1][2*i]>>7);
- x[1][2*i]<<=1;
- x[1][2*i]|=(x[1][2*i+1]>>7);
- x[1][2*i+1]<<=1;
- x[1][2*i+1]|=(x[2][2*i]>>7);
- x[2][2*i]<<=1;
- x[2][2*i]|=(x[2][2*i+1]>>7);
- x[2][2*i+1]<<=1;
- x[2][2*i+1]|=tt;
- }
- }
- }
復(fù)制代碼 |