欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 八弦激光豎琴電路圖與單片機源碼 [打印本頁]

作者: 383687411    時間: 2018-5-20 14:37
標題: 八弦激光豎琴電路圖與單片機源碼
利用C語言實現八弦激光豎琴圖片詳見:http://www.raoushi.com/bbs/dpj-52056-1.html
==============所需元件==========================
激光頭 * 8
5mm光敏電阻 * 8
開關 * 1
輕觸按鍵 * 1
usb座或DC座 * 1
1k電阻 *2
10k電阻 * 10
3mmLED * 1
無源蜂鳴器 * 1
s8550三極管 * 1
排針(用于下載) * 1
STC89C52單片機 * 1
DIP40的單片機座 * 1
12M晶振 * 1
30pf瓷片電容 * 2
10uf電解電容 * 1

===============用到的工具=======================
電烙鐵、焊錫絲、助焊劑可選、剪鉗、鑷子、熱熔膠槍與熱熔膠

================================================
===============激光豎琴使用說明=================
================================================

8個激光束 —— 對應中音的1、2、3、4、5、6、7,還有高音1


注意事項  —— 手彈奏時,請選取光線較弱的室內。當彈奏不靈敏時,請轉到更暗的環境。

電路原理圖如下:


單片機源程序如下:
  1. //*********            51簡易電子琴程序              *****************

  2. #include<reg52.h>
  3. #define uint unsigned int
  4. #define uchar unsigned char

  5. sbit fmq=P0^0;//定義P0.0口為蜂鳴器信號輸出
  6. uint z;
  7. uint code tone[8]={0xfc44,0xfcac,0xfd09,0xfd34,0xfd82,0xfdc8,0xfe06,0xfe22};//對應每個單調的計數初值
  8. uchar code keymode[8]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f};//按鍵值,對應io:0,1,2,3,4,5,6,7

  9. /************************************
  10. *********按鍵掃描函數***************/

  11. void anjian()//用整個P2口作為音調的輸入按鍵(獨立按鍵方式)
  12. {
  13.         
  14.         P2=0xff;//讀數據先置1
  15.         if(P2==~keymode[0]) //1
  16.         {
  17.                 z=tone[0];
  18.                 P1=keymode[0];
  19.         }
  20. /**/
  21.         if(P2==~keymode[1]) //2
  22.         {
  23.                 z=tone[1];
  24.                 P1=keymode[1];
  25.         }
  26. /**/
  27.          if(P2==~keymode[2]) //3
  28.         {
  29.                 z=tone[2];
  30.                 P1=keymode[2];
  31.         }
  32. /**/
  33.         if(P2==~keymode[3]) //4
  34.         {
  35.                 z=tone[3];
  36.                 P1=keymode[3];
  37.         }
  38. /**/
  39.         if(P2==~keymode[4]) //5
  40.         {
  41.                 z=tone[4];
  42.                 P1=keymode[4];
  43.         }
  44. /**/
  45.          if(P2==~keymode[5]) //6
  46.         {
  47.                 z=tone[5];
  48.                 P1=keymode[5];
  49.         }
  50. /***/
  51.         if(P2==~keymode[6]) //7
  52.         {
  53.                 z=tone[6];
  54.                 P1=keymode[6];
  55.         }
  56. /* */
  57.         if(P2==~keymode[7]) //1.
  58.         {
  59.                 z=tone[7];
  60.                 P1=keymode[7];
  61.         }


  62. }
  63. /************************************/
  64. void zdkg()
  65. {
  66.         if(P2==0xff)
  67.         {
  68.                 P1=0xff;
  69.                 TR1=0;//如果沒有按鍵按下,就關閉定時器中斷
  70.                 fmq=1;//同時也關閉蜂鳴器
  71.         }
  72.         else          //否則就進入中斷
  73.         {
  74.                 TR1=1;
  75.         }
  76. }
  77. /*************************************************
  78. ****************主函數****************************
  79. *************************************************/
  80. void main()
  81. {
  82.         EA=1;//開總中斷
  83.         ET1=1;//定時器T1中斷允許
  84.         TMOD=0x10;//使用定時器T1的模式1
  85.         TH1=(65536-500)/256;//定時器T1的高8位重新賦初值
  86.         TL1=(65536-500)%256;//定時器T1的低8位重新賦初值
  87.         P1=0xff;//先關所有LED燈

  88.         while(1)
  89.         {
  90.         
  91.           anjian();//按鍵掃描函數
  92.           zdkg();
  93.                   
  94.         }

  95. }
  96. /*定時器T1的中斷服務程序*/
  97. void Time1(void) interrupt 3 using 1//
  98. {        fmq=~fmq; //每進入一次中斷就取反一次,快速的進入退出中斷,就會聽到蜂鳴器發出的音調
  99.         TH1=z/256;//定時器T1的高8位重新賦初值
  100.         TL1=z%256;//定時器T1的低8位重新賦初值
  101. }

復制代碼

所有資料51hei提供下載:
8弦激光豎琴.zip (157.65 KB, 下載次數: 193)



作者: 楓谷落葉    時間: 2018-8-24 21:07
為啥沒人回復?贊一個
作者: 波波杏仁    時間: 2018-8-25 10:42
楓谷落葉 發表于 2018-8-24 21:07
為啥沒人回復?贊一個

很棒,謝謝樓主的分享
作者: 波波杏仁    時間: 2018-8-25 11:14
每個單調的計數初值是怎么確定的?希望樓主看到回復一下
作者: 小小斑鳩    時間: 2018-8-25 12:15
激光檢測的距離會影響發出的聲音嗎
作者: zhanghan121    時間: 2018-9-11 08:45
很棒,謝謝樓主的分享
作者: 1508330424    時間: 2018-10-25 21:44
為啥給的是電子琴的程序
作者: linnyshow    時間: 2018-11-7 13:52
創意不錯。
作者: cooleaf    時間: 2018-11-21 13:35
這個有點意思哦!!
作者: C-Zachary    時間: 2019-10-30 16:42
為什么我按照這個原理做了一個豎琴,它發出聲音卻停不下來一直響的?
作者: ther丶    時間: 2019-12-21 22:08
非常好,非常棒
作者: qq1144030432    時間: 2019-12-30 12:19
感謝樓主,太酷炫了!!!
作者: 51黑科技人    時間: 2020-8-20 21:41
這個程序不對吧
作者: dj3365191    時間: 2021-4-1 16:13
不錯,根據這種方式可以延伸控制電子琴模塊發聲

作者: Gavin23    時間: 2022-8-19 11:00
這個音頻能轉為跟平板上一樣逼真的聲音嘛?
作者: test101    時間: 2023-6-27 12:41
很厲害,讓我自己仿真試試看




歡迎光臨 (http://www.raoushi.com/bbs/) Powered by Discuz! X3.1