#include<reg52.h>
#include<intrins.h>
#define uchar unsigned char
#define uint unsigned int
//intrins.h函數，一般出現在C51單片機編程中，一般程序中需要使用到空指令_nop_();字符循環移位指令_crol_等時使用
//OE 第13腳 輸出有效（低電平）
//MR 第10腳 主復位（低電平）
sbit BEEP=P2^0; //定義喇叭輸出端口
sbit SER = P3^4; //p3.4串行數據輸入 DS
sbit SCK = P3^6; //串行輸入時鐘，上升沿有效 SHCP 第11腳 數據輸入時鐘線
sbit RCK = P3^5; //串行寄存器時鐘，上升沿有效 STCP 第12腳 輸出存儲器鎖存時鐘線
uchar tick,tl,th; //定義節拍和T0初值變量
uchar TABLE[]={ //音符節拍表
0x82,0x01,0x81,0x94,0x84,0xB4,0xA4,0x04,
0x82,0x01,0x81,0x94,0x84,0xC4,0xB4,0x04,
0x82,0x01,0x81,0xF4,0xD4,0xB4,0xA4,0x94,
0xE2,0x01,0xE1,0xD4,0xB4,0xC4,0xB4,0x04,
0x82,0x01,0x81,0x94,0x84,0xB4,0xA4,0x04,
0x82,0x01,0x81,0x94,0x84,0xC4,0xB4,0x04,
0x82,0x01,0x81,0xF4,0xD4,0xB4,0xA4,0x94,
0xE2,0x01,0xE1,0xD4,0xB4,0xC4,0xB4,0x04,
0x00};
uchar code TABLE1[]={ //定時器初值表
0xfb,0x04,0xfb,0x90,0xfc,0x09,0xfc,0x44,
0xfc,0xac,0xfd,0x09,0xfd,0x34,0xfd,0x82,
0xfd,0xc8,0xfe,0x06,0xfe,0x22,0xfe,0x56,
0xfe,0x85,0xfe,0x9a,0xfe,0xc1};
//T0中斷服務函數
timer0()interrupt 1 using 1{
TL0=tl;TH0=th;
BEEP=~BEEP;
}
void SendTo595(uchar Data);
char shu=0xFE;
char a[32]={0x3e,0x08,0x08,0x08,0x08,0x08,0x08,0x3e,
0x00,0x66,0x99,0x81,0x42,0x24,0x18,0x00,
0x42,0x42,0x42,0x42,0x42,0x42,0x42,0x7e,
0x00,0x3e,0x08,0x08,0x08,0x08,0x08,0x08} ;//列
void delay2(unsigned int n)//延時函數
{
unsigned int x=0,y=0;
for(x=0;x<n;x++)
for(y=0;y<123;y++);
}
void Hang()//行掃描
{
P1=shu;
shu=_crol_(shu,1);
}
//基本單位延時函數
void delay1(){
uint i;
for(i=0;i<20000;i++);
}
//節拍延時函數
void delay(tt){
uchar i;
for(i=0;i<=tt;i++)delay1();
}
//主函數
void main(){
int x=0,changeRow=0;
uchar t,t1,k=0;
while(1){
TMOD=0x01;IE=0x82;
while(TABLE[k]!=0){
tick=(TABLE[k])&0x0f;
t=(_crol_(TABLE[k],4))&0x0f;
if(t!=0){
t1=--t*2+1;
t=t*2;
tl=TL0=TABLE1[t1];
th=TH0=TABLE1[t];
TR0=1;
}
else TR0=0;
delay(tick);
k++;
}
TR0=0;
}
while(1){
int speed=12; //控制速度
while(speed--)
{for(x=0;x<8;x++)
{Hang();
SendTo595(a[x+changeRow]); //串行，控制列.
delay2(4);} }
changeRow++; //原來的第二行，變成第一行了.
if (changeRow>=24)
changeRow=0; //循環開始.
}
}
void SendTo595(uchar Data){
int x;
for(x=0;x<8;x++){
SCK=0;
SER = 0x80&Data;
Data = _crol_(Data,1);
SCK=1;
nop_();//等待一個機器指令時間.
/*位移寄存器完畢，轉移到存儲寄存器*/
RCK = 1; //上升沿，存儲寄存器變為高電平 延遲兩個時鐘周期
_nop_();
_nop_();
RCK = 0; //不加出錯,因為電平不變化，存儲寄存器的內容不變，為第一次輸入的移位寄存器內容0x00.
} }
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
