單片機激光豎琴仿真+電路程序設計資料

ID:452807 · 發表于 2018-12-23 19:02

激光豎琴電路原理圖如下：

名稱	數量
PCB板	1
5V激光發射頭（多發3個）	10
22#導線20CM	1
5516光敏電阻	8
4CM黑色熱縮管 20CM	1
10K電阻	10
1K電阻	12
3MM LED 白發藍	12
DC005座	1
USB轉DC005線	1
無源蜂鳴器	1
8*8自鎖開關	1
自鎖開關帽	1
8550三極管	1
6620按鍵	2
40P IC座	1
STC89C52（燒寫好程序）	1
10UF電解電容	1
12M晶振	1
22P 瓷片電容	3

外殼的清單：
M3*10螺絲	12
M3螺母	7
M3*15雙通銅柱	5
一片外殼或者2片2外殼	1

單片機源程序如下:

//內容：7個激光束控制7個音符7個LED顯示
#include<reg52.h>
#define uchar unsigned char
#define uint unsigned int
uchar button,i,timeh,timel;
sbit speaker=P3^4;
sbit music=P3^3;
sbit tone=P0^0;
sbit LED_L = P3^7;
sbit LED_M = P3^6;
sbit LED_H = P3^5;
uchar code cuzhi[]={0xfc,0x44,0xfc,0xad,0xfd,0x0a,0xfd,0x34,0xfd,0x83,0xfd,0xc8,0xfe,0x06};//do re mi 。。。si
void delay1ms(uint z) //延時1ms
{uint x,y;
for(x=z;x>0;x--)
for(y=120;y>0;y--);
}
void timer0() interrupt 1 //定時器0溢出中斷子程序用于產生各種音調
{
TH0=timeh;
TL0=timel;
speaker=~speaker; //產生方波
}
void main()
{
EA=1; //開總中斷
ET0=1; //開定時器0
TMOD=0x01; //定時器0工作在方式1
while(1)
{button=P2;
switch (button)
{case 0xfe:
{TR0=1;
timeh=cuzhi[0]; //取中音do的計數初值高4位值
timel=cuzhi[1]; //取中音do的計數初值低4位值
P1=0xfe;
delay1ms(100);
} break;
case 0xfd:
{TR0=1;
timeh=cuzhi[2]; //取中音re的計數初值高4位值
timel=cuzhi[3];
P1=0xfd; //取中音re的計數初值低4位值
delay1ms(100);
}break;
case 0xfb:
{TR0=1;
timeh=cuzhi[4]; //取中音mi的計數初值高4位值
timel=cuzhi[5];
P1=0xfb; //取中音mi的計數初值低4位值
delay1ms(100);
}break;
case 0xf7:
{TR0=1;
timeh=cuzhi[6]; //取中音fa的計數初值高4位值
timel=cuzhi[7];
P1=0xf7; //取中音fa的計數初值低4位值
delay1ms(100);
}break;
case 0xef:
{TR0=1;
timeh=cuzhi[8]; //取中音so的計數初值高4位值
timel=cuzhi[9];
P1=0xef; //取中音so的計數初值低4位值
delay1ms(100);
}break;
case 0xdf:
{TR0=1;
timeh=cuzhi[10]; //取中音la的計數初值高4位值
timel=cuzhi[11];
P1=0xdf; //取中音la的計數初值低4位值
delay1ms(100);
}break;
case 0xbf:
{TR0=1;
timeh=cuzhi[12]; //取中音si的計數初值高4位值
timel=cuzhi[13];
P1=0xbf; //取中音si的計數初值低4位值
delay1ms(100);
}break;
}
}
}

復制代碼

所有資料51hei提供下載:

豎琴編程.zip (104.42 KB, 下載次數: 77)

ID:704585 · 發表于 2020-6-9 18:50

感謝樓主分享

ID:1086134 · 發表于 2023-6-28 19:31

程序燒進去后不出聲，把二極管換成按鍵后仿真也是

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

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

單片機激光豎琴仿真+電路程序設計資料

評分