设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 单片机DIY制作 › 激光电子竖琴的制作过程 含单片机程序,原理图,教程
返回列表 发新帖
查看: 16696|回复: 13
收起左侧

激光电子竖琴的制作过程 含单片机程序,原理图,教程

  [复制链接]
ID:213599 发表于 2017-6-22 10:45 | 显示全部楼层 |阅读模式
一个非常漂亮的可弹奏激光电子竖琴，用手弹的时候遮挡住激光柱，就会发出相应的声音.包括制作过程，程序，原理，实物图，有需要的话可以参考一下
0.png 0.png
S70622-102241.jpg
电路原理图：
0.png
激光竖琴制作教程：
0.png
单片机源程序如下:
  1. /*-----------------------------------------------
  2. 名称：电子琴
  3. 编写：Cgr
  4. 修改：无
  5. 内容：7个激光束控制7个音符7个LED显示，1个控制播放音乐,1个高中低音切换
  6.      
  7. ------------------------------------------------*/
  8. #include "reg52.h"
  9. #include "intrins.h"

  11. sbit SPK    = P3^4;
  12. sbit LED_L  = P3^7;
  13. sbit LED_M  = P3^6;
  14. sbit LED_H  = P3^5;
  15. sbit KEY    = P3^3;

  17. #define KEYDELAY 20
  18. #define KEY_PORT P2
  19. #define LED_PORT P1

  21. bit FT_1ms,FT_250ms;
  22. bit F_PlaySong,F_PlayTone,F_KeyDelay,F_Tone,F_KeyUp,F_Music_Ide;
  23. unsigned char Freq_H,Freq_L,SongLen,PlayIde,i;
  24. unsigned char KeyBuf,KeySure,KeyDelay_Cnt,Timer1_Cnt,KeyDelay_Cnt1;
  25. unsigned char k,Time,PortTemp;

  27.                          //世上只有妈妈好数据表
  28. code unsigned char MUSIC[]={6,2,6,     5,2,2,      3,2,4,    5,2,4,    1,3,4,    6,2,2,    5,2,2,
  29.                             6,2,8,      3,2,4,      5,2,2,    6,2,2,    5,2,4,   3,2,4,    1,2,2,
  30.                             6,1,2,      5,2,2,      3,2,2,    2,2,8,    2,2,6,   3,2,2,    5,2,4,
  31.                             5,2,2,      6,2,2,      3,2,4,    2,2,4,    1,2,8,   5,2,6,    3,2,2,
  32.                             2,2,2,      1,2,2,      6,1,2,   1,2,2,    5,1,12,   0,0,0
  33.                             };
  34. /***********************生日快乐**********************/
  35. code unsigned char MUSIC1[]={
  36.                                  5,1,2, 5,1,2, 6,1,4, 5,1,4, 1,2,4, 7,1,8,
  37.                                  5,1,2, 5,1,2, 6,1,4, 5,1,4, 2,2,4, 1,2,8,
  38.                                  5,1,2, 5,1,2, 5,2,4, 3,2,4, 1,2,4, 7,1,4,
  39.                                  6,1,8, 4,2,2, 4,2,2, 3,2,4, 1,2,4, 2,2,4,
  40.                                  1,2,12, 0,0,0};

  42.                          // 音阶频率表 高八位
  43. code unsigned char FREQH[]={
  44.                                 0xF2,0xF3,0xF5,0xF5,0xF6,0xF7,0xF8,
  45.                                 0xF9,0xF9,0xFA,0xFA,0xFB,0xFB,0xFC,0xFC, //1,2,3,4,5,6,7,8,i
  46.                                 0xFC,0xFD,0xFD,0xFD,0xFD,0xFE,
  47.                                 0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFF,
  48.                                } ;
  49.                          // 音阶频率表 低八位
  50. code unsigned char FREQL[]={
  51.                                  0x42,0xC1,0x17,0xB6,0xD0,0xD1,0xB6,
  52.                                  0x21,0xE1,0x8C,0xD8,0x68,0xE9,0x5B,0x8F, //1,2,3,4,5,6,7,8,i
  53.                                  0xEE,0x44, 0x6B,0xB4,0xF4,0x2D,
  54.                                  0x47,0x77,0xA2,0xB6,0xDA,0xFA,0x16,
  55.                                 };

  57. void TimerInit(void)
  58. {   
  59.     TMOD = 0x11;
  60.     TH1  = (65536 - 1000) / 256;
  61.     TL1  = (65536 - 1000) % 256;
  62.     ET0  = 1;
  63.     ET1  = 1;
  64.     TR0 = 1;
  65.     TR1  = 1;
  66.     EA   = 1;
  67. }
  68. void ScanKey(void)
  69. {
  70.     if(F_KeyDelay)
  71.     {
  72.         KeyDelay_Cnt --;
  73.         if(KeyDelay_Cnt == 0)
  74.         {
  75.             F_KeyDelay = 0;
  76.             KeySure = KeyBuf;
  77.             F_KeyUp = 1;
  78.         }        
  79.     }
  80.     if(KeyBuf != KEY_PORT)
  81.     {
  82.         KeyBuf = KEY_PORT;
  83.         KeyDelay_Cnt = KEYDELAY;
  84.         F_KeyDelay = 1;
  85.     }

  87.     if(!KEY)
  88.     {
  89.         KeyDelay_Cnt1 --;
  90.         if(KeyDelay_Cnt1 == 0)
  91.         {
  92.             if(F_PlaySong == 0)
  93.                 {
  94.                 F_Music_Ide = !F_Music_Ide;
  95.                 F_PlaySong = 1;
  96.                 i = 0;
  97.                 }
  98.         }
  99.     }
  100.     else
  101.     {
  102.          KeyDelay_Cnt1 = KEYDELAY;
  103.     }
  104.     if(PlayIde == 1)
  105.     {
  106.         LED_L = 1;
  107.         LED_M = 0;
  108.         LED_H = 1;
  109.     }
  110.     if(PlayIde == 2)
  111.     {
  112.         LED_L = 1;
  113.         LED_M = 1;
  114.         LED_H = 0;
  115.     }
  116.     if(PlayIde == 0)
  117.     {
  118.         LED_L = 0;
  119.         LED_M = 1;
  120.         LED_H = 1;
  121.     }
  122. }
  123. void main(void)
  124. {
  125.     TimerInit();
  126.     F_PlayTone = 0;
  127.     PortTemp = 0x7f;
  128.     for(i = 0;i < 7;)
  129.     {
  130.         if(FT_250ms)
  131.         {
  132.             FT_250ms = 0;
  133.             i++;
  134.             PortTemp = _crol_(PortTemp,1);
  135.             LED_PORT= PortTemp;
  136.         }
  137.     }
  138.     for(i = 0;i < 7;)
  139.     {
  140.         if(FT_250ms)
  141.         {
  142.             FT_250ms = 0;
  143.             i++;
  144.             PortTemp = _cror_(PortTemp,1);
  145.             LED_PORT= PortTemp;
  146.         }
  147.     }
  148.     LED_PORT = 0xff;
  149.     i = 0;
  150.     while(1)
  151.     {
  152.         if(FT_1ms)
  153.         {
  154.             FT_1ms = 0;
  155.             WDT_CONTR = 0x38;
  156.             ScanKey();
  157.             if(F_PlaySong)
  158.                 {
  159.                 if(FT_250ms)
  160.                     {
  161.                     FT_250ms = 0;
  162.                     if(Time > 0)
  163.                             {
  164.                         Time --;
  165.                             }
  166.                     else
  167.                             {
  168.                         PortTemp = 0x01;
  169.                         F_PlayTone = 1;
  170.                         if(F_Music_Ide)
  171.                                 {
  172.                             k = MUSIC[i] + 7 * MUSIC[i + 1] - 1;//去音符振荡频率所需数据
  173.                             PlayIde = MUSIC[i + 1] - 1;
  174.                             PortTemp <<= (MUSIC[i]-1);
  175.                             Time = MUSIC[i+2] - 1;          //节拍时长           
  176.                             if(! MUSIC[i])
  177.                                         {
  178.                                     i = 0;
  179.                                 F_PlaySong = 0;
  180.                                 LED_PORT = 0xff;
  181.                                 F_PlayTone = 0;
  182.                                     SPK = 1;
  183.                                 PlayIde = 1;
  184.                                 Time = 4;
  185.                                         }
  186.                                 }
  187.                             else
  188.                                 {
  189.                             k = MUSIC1[i] + 7 * MUSIC1[i + 1] - 1;//去音符振荡频率所需数据
  190.                             PlayIde = MUSIC1[i + 1] - 1;
  191.                             PortTemp <<= (MUSIC1[i]-1);
  192.                             Time = MUSIC1[i+2] - 1;          //节拍时长     
  193.                             if(! MUSIC1[i])
  194.                                         {
  195.                                     i = 0;
  196.                                 F_PlaySong = 0;
  197.                                 LED_PORT = 0xff;
  198.                                 F_PlayTone = 0;
  199.                                     SPK = 1;
  200.                                 PlayIde = 1;
  201.                                 Time = 4;
  202.                                         }
  203.                                 }
  204.                         PortTemp = ~PortTemp;
  205.                         LED_PORT = PortTemp;
  206.                         Freq_H = FREQH[k];
  207.                         Freq_L = FREQL[k];
  208.                         i = i + 3;
  209.                     }                              
  210.                     }
  211.                 }
  212.             else
  213.             {               
  214.                 switch(KeySure)
  215.                     {
  216.                            
  217.                     case 0x81:  F_Tone = 0;F_PlayTone = 1;  Timer1_Cnt = 0;k=0; LED_PORT = 0xfe;
  218.                         break;
  219.                     case 0x41:  F_Tone = 0;F_PlayTone = 1;  Timer1_Cnt = 0;k=1; LED_PORT = 0xfd;
  220.                         break;
  221.                     case 0x21:  F_Tone = 0;F_PlayTone = 1;  Timer1_Cnt = 0;k=2; LED_PORT = 0xfb;
  222.                         break;
  223.                     case 0x11:  F_Tone = 0;F_PlayTone = 1;  Timer1_Cnt = 0;k=3; LED_PORT = 0xf7;
  224.                         break;
  225.                     case 0x09:  F_Tone = 0;F_PlayTone = 1;  Timer1_Cnt = 0;k=4; LED_PORT = 0xef;
  226.                         break;
  227.                     case 0x05:  F_Tone = 0;F_PlayTone = 1;  Timer1_Cnt = 0;k=5; LED_PORT = 0xdf;
  228.                         break;
  229.                     case 0x03:  F_Tone = 0;F_PlayTone = 1;  Timer1_Cnt = 0;k=6; LED_PORT = 0xbf;
  230.                         break;
  231.                     case 0x00:        
  232.                                 if(F_KeyUp)
  233.                                             {
  234.                                     F_KeyUp = 0;        
  235.                                     PlayIde++;        
  236.                                     if(PlayIde == 3)
  237.                                                 {               
  238.                                         PlayIde = 0;
  239.                                                     }
  240.                                             }
  241.                         break;
  242.                     default:         
  243.                         break;
  244.                 }         
  245.                 Freq_H = FREQH[(PlayIde * 7) + k];
  246.                 Freq_L = FREQL[(PlayIde * 7) + k];
  247.                 if(F_Tone)
  248.                     {
  249.                     F_Tone = 0;
  250.                     F_PlayTone = 0;
  251. ……………………

  253. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

0.png
所有资料51hei提供下载(包含详细的制作教程和完整代码):
激光琴资料V2.0（以上资料打包下载）.rar (19.6 MB, 下载次数: 255)
电子, 激光, 制作

相关帖子
回复

使用道具 举报

ID:203436 发表于 2017-6-28 15:59 | 显示全部楼层
那个原型的是喇叭么？
回复

使用道具 举报

ID:96711 发表于 2017-6-28 16:44 | 显示全部楼层
很有创意哦，学习一下
回复

使用道具 举报

ID:215892 发表于 2017-6-29 17:41 | 显示全部楼层
很有创意哦，学习一下
回复

使用道具 举报

ID:215892 发表于 2017-6-29 17:42 | 显示全部楼层
很有创意哦，学习一下
回复

使用道具 举报

ID:210627 发表于 2017-9-6 16:51 | 显示全部楼层
WDT_CONTR = 0x38;这句语句什么意思，该怎么定义，编译有错。
回复

使用道具 举报

ID:249545 发表于 2017-11-27 10:36 | 显示全部楼层
作品漂亮,老师软件,硬件都能做,木工技术学得真好!
回复

使用道具 举报

ID:318951 发表于 2018-4-29 17:24 | 显示全部楼层
很有创意哦，学习一下
回复

使用道具 举报

ID:318951 发表于 2018-4-29 17:24 | 显示全部楼层

很有创意哦，学习一下
回复

使用道具 举报

ID:304350 发表于 2018-9-22 21:04 | 显示全部楼层
很有创意哦，值得学习
回复

使用道具 举报

ID:213599 发表于 2018-10-12 17:38 | 显示全部楼层
xydedanpianji 发表于 2017-6-28 15:59
**** 作者被禁止或删除 内容自动屏蔽 ****

耳麦上拆的，声音会比较大
回复

使用道具 举报

ID:612620 发表于 2019-9-17 15:43 | 显示全部楼层
还可以哦
回复

使用道具 举报

ID:613217 发表于 2019-12-30 15:50 | 显示全部楼层
感觉还不错比较详细，请问这个能在isis7上模拟吗
回复

使用道具 举报

ID:979932 发表于 2021-11-10 22:19 | 显示全部楼层
很有创意哦，学习一下
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表