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

標題: 多功能單片機電子琴電路+匯編語言源代碼 [打印本頁]
作者: lzh1762    時間: 2021-5-13 12:32
標題: 多功能單片機電子琴電路+匯編語言源代碼
分享一個已驗證的多功能電子琴

單片機源程序如下:
  1. RS EQU P3.5
  2. RW EQU P3.6
  3. E EQU P3.7
  4. ORG 00H
  5. SJMP MAIN
  6. ORG 00BH
  7. MOV TH0,33H
  8. MOV TL0,34H
  9. CPL P3.4
  10. RETI


  13. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  14. ORG     001BH
  15.         INC     3CH             ;中斷服務,中斷計數器加1
  16.         MOV     TH1,#0D8H
  17.         MOV     TL1,#0EFH       ;12M晶振，形成10毫秒中斷
  18.        RETI

  20. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!





  26. ORG 30H
  27. MAIN : SETB P3.4           ;關閉揚聲器
  28. LCALL CSH1602              ;初始化1602
  29. MOV      TMOD,#11H         ;設置定時器0為工作模式1
  30. SETB     EA                ;開總中斷
  31. SETB     ET0               ;開定時器0中斷
  32. HUANYING: MOV P1,#80H      ;歡迎語顯示地址
  33. LCALL ENABLE
  34. MOV DPTR,#TAB_HY
  35. MOV 30H,#00
  36. LP: MOV A,30H
  37. MOVC A,@A+DPTR
  38. JZ KEY
  39. LCALL DELAY_100MS
  40. LCALL WRITE_1602
  41. INC 30H
  42. SJMP LP
  43. KEY:   MOV P1,#01H               ;清屏
  44.        ACALL ENABLE
  45.        MOV P1,#80H
  46.        LCALL ENABLE
  47.        MOV DPTR,#TAB_YANZHOU
  48.        MOV 30H,#00
  49. LP7:   MOV A,30H
  50.        MOVC A,@A+DPTR
  51.        JZ KEY_0
  52.        LCALL WRITE_1602
  53.        INC 30H
  54.        SJMP LP7
  55. KEY_0: MOV P1,#0C0H                ;音符的顯示地址
  56.        LCALL ENABLE
  57.        MOV 38H,#16                 ;寫入1602的顯示地址指針
  58.        MOV 35H,#2                  ;控制節拍
  59. KEY_1: MOV P2,#0FFH                ;置P2為輸入
  60.        JB P2.0,KEY_2               ;K1鍵沒按下，轉移
  61.        LCALL DELAY_10MS            ;延時消抖
  62.        JNB P2.0,$
  63.        MOV 36H,#0                  ;裝入1的音符碼相對地址
  64.        LCALL     BOFANG_YF
  65. KEY_2:   
  66.        JB P2.1,KEY_3               ;K2鍵沒按下，轉移
  67.        LCALL DELAY_10MS            ;延時消抖
  68.        JNB P2.1,$
  69.        MOV 36H,#2
  70.        LCALL     BOFANG_YF
  71. KEY_3:
  72.        JB P2.2,KEY_4            ;K3鍵沒按下，轉移
  73.        LCALL DELAY_10MS            ;延時消抖
  74.        JNB P2.2,$
  75.        MOV 36H,#4
  76.        LCALL     BOFANG_YF
  77. KEY_4:
  78.        JB P2.3,KEY_5            ;K4鍵沒按下，轉移
  79.        LCALL DELAY_10MS            ;延時消抖
  80.        JNB P2.3,$
  81.        MOV 36H,#6
  82.        LCALL     BOFANG_YF
  83. KEY_5:
  84.        JB P2.4,KEY_6            ;K5鍵沒按下，轉移
  85.        LCALL DELAY_10MS            ;延時消抖
  86.        JNB P2.4,$
  87.        MOV 36H,#8
  88.        LCALL     BOFANG_YF
  89. KEY_6:
  90.        JB P2.5,KEY_7            ;K6鍵沒按下，轉移
  91.        LCALL DELAY_10MS            ;延時消抖
  92.        JNB P2.5,$
  93.        MOV 36H,#10
  94.        LCALL     BOFANG_YF
  95. KEY_7:
  96.        JB P2.6,KEY_9            ;K7鍵沒按下，轉移
  97.        LCALL DELAY_10MS         ;延時消抖
  98.        JNB P2.6,$
  99.        MOV 36H,#12
  100.        LCALL     BOFANG_YF
  101. KEY_9:
  102.        JB P3.2,KEY_1             ;K9鍵沒按下，重新掃描
  103.        LCALL DELAY_10MS          ;延時消抖
  104.        JNB P3.2,$
  105.        LCALL DELAY_10MS

  107. ;-----------播放音樂程序段---------------
  108.        MOV P1,#01H              ;清屏
  109.        ACALL ENABLE
  110.        MOV P1,#80H
  111.        LCALL ENABLE
  112.        MOV DPTR,#TAB_PLAY
  113.        MOV 30H,#00
  114. LP8:   MOV A,30H
  115.        MOVC A,@A+DPTR
  116.        JZ PLAY
  117.        LCALL WRITE_1602
  118.        INC 30H
  119.        SJMP LP8
  120. PLAY:  MOV P2,#0FFH              ;置P2為輸入
  121.        JB P2.0,PLAY_2            ;K1鍵沒按下，轉移
  122.        MOV DPTR,#TAB_GEQU1                ;存曲目標志
  123.        LCALL     BOFANG_GEQU
  124. PLAY_2:   
  125.        JB P2.1,PLAY_3            ;K2鍵沒按下，轉移
  126.        SETB ET1
  127. MOV 3BH,TMOD
  128. MOV      TMOD,#11H
  129. mov dptr,#tab2
  130. mov p1,#0c0h
  131. lcall enable
  132. lcall write1
  133. MOV     DPTR,#DAT2
  134.       LCALL MUSIc0
  135.       CLR TR1
  136.       CLR ET1
  137.       MOV TMOD,3BH
  138. PLAY_3:
  139.       JB P2.2,PLAY_4               ;K3鍵沒按下，轉移
  140. SETB ET1
  141. MOV 3BH,TMOD
  142. MOV      TMOD,#11H
  143. mov dptr,#tab1
  144. mov p1,#0c0h
  145. lcall enable
  146. lcall write1
  147. MOV     DPTR,#DAT1
  148.       LCALL MUSIc0
  149.       CLR TR1
  150.       CLR ET1
  151.       MOV TMOD,3BH
  152. PLAY_4:
  153.        JB P2.3,PLAY_9
  154.        MOV R1,#50H
  155.        LCALL BOFANG_LUYIN
  156. PLAY_9: JB P3.2,PLAY               ;K8鍵沒按下，重新掃描
  157.         LCALL DELAY_10MS          ;延時消抖
  158.         JNB P3.2,$
  159.         LCALL DELAY_10MS

  161. ;------------錄音程序段---------------
  162.        MOV P1,#01H              ;清屏
  163.        ACALL ENABLE
  164.        MOV P1,#80H
  165.        LCALL ENABLE
  166.        MOV DPTR,#TAB_RECORD
  167.        MOV 30H,#00
  168. LP9:   MOV A,30H
  169.        MOVC A,@A+DPTR
  170.        JZ RECORD_0
  171.        LCALL WRITE_1602
  172.        INC 30H
  173.        SJMP LP9
  174. RECORD_0: MOV R1,#50H                ;錄取音符存放地址
  175.         MOV 35H,#3                 ;控制節拍
  176.         MOV P1,#0C0H               ;音符的顯示地址
  177.         LCALL ENABLE
  178.         MOV 38H,#16                 ;寫入1602的顯示地址指針
  179. ;---------寫入錄音的名字---------
  180.         MOV 30H,#00
  181. C5:     MOV A,30H
  182.         LCALL TAB_RECORDING
  183.         MOV @R1,A
  184.         INC R1
  185.         INC 30H
  186.         CJNE A,#0FEH,C5
  187. RECORD_1: MOV P2,#0FFH                ;置P2為輸入
  188.        JB P2.0,RECORD_2               ;K1鍵沒按下，轉移
  189.        LCALL DELAY_10MS               ;延時消抖
  190.        JNB P2.0,$
  191.        MOV 36H,#0                  ;裝入1的音符碼相對地址
  192.        LCALL     BOFANG_YF      
  193.        LCALL CUNCU                 ;調存音符子程序
  194. RECORD_2:   
  195.        JB P2.1,RECORD_3               ;K2鍵沒按下，轉移
  196.        LCALL DELAY_10MS            ;延時消抖
  197.        JNB P2.1,$
  198.        MOV 36H,#2
  199.        LCALL     BOFANG_YF
  200.        LCALL CUNCU
  201. RECORD_3:
  202.       JB P2.2,RECORD_4            ;K3鍵沒按下，轉移
  203.        LCALL DELAY_10MS            ;延時消抖
  204.        JNB P2.2,$
  205.        MOV 36H,#4
  206.        LCALL     BOFANG_YF
  207.        LCALL CUNCU
  208. RECORD_4:
  209.        JB P2.3,RECORD_5            ;K4鍵沒按下，轉移
  210.        LCALL DELAY_10MS            ;延時消抖
  211.        JNB P2.3,$
  212.        MOV 36H,#6
  213.        LCALL     BOFANG_YF
  214.        LCALL CUNCU
  215. RECORD_5:
  216.        JB P2.4,RECORD_6            ;K5鍵沒按下，轉移
  217.        LCALL DELAY_10MS            ;延時消抖
  218.        JNB P2.4,$
  219.        MOV 36H,#8
  220.        LCALL     BOFANG_YF
  221.        LCALL CUNCU
  222. RECORD_6:
  223.        JB P2.5,RECORD_7            ;K6鍵沒按下，轉移
  224.        LCALL DELAY_10MS            ;延時消抖
  225.        JNB P2.5,$
  226.        MOV 36H,#10
  227.        LCALL     BOFANG_YF
  228.        LCALL CUNCU
  229. RECORD_7:
  230.        JB P2.6,RECORD_8            ;K7鍵沒按下，轉移
  231.        LCALL DELAY_10MS            ;延時消抖
  232.        JNB P2.6,$
  233.        MOV 36H,#12
  234.        LCALL     BOFANG_YF
  235.        LCALL CUNCU
  236. RECORD_8:
  237.        JB P2.7,RECORD_9            ;K8鍵沒按下，轉移
  238.        LCALL DELAY_10MS            ;延時消抖
  239.        JNB P2.7,$
  240.        MOV 36H,#42                 ;休止符標志存36H
  241.        LCALL DELAY_100MS
  242.        LCALL CUNCU
  243. RECORD_9:
  244.           JNB P3.2,J0               ;K8鍵沒按下，重新掃描
  245.           LJMP RECORD_1
  246. J0:       LCALL DELAY_10MS          ;延時消抖
  247.           JNB P3.2,$
  248.           LCALL DELAY_10MS
  249.           MOV @R1,#255              ;寫入歌曲結束標志
  250.           LJMP KEY                  ;回演奏模式






  257. ;***********子程序區***************
  258. ;=======初始化1602顯示器========
  259. CSH1602: MOV P3,#0FFH
  260. MOV P1,#01H
  261. ACALL ENABLE
  262. MOV P1,#38H
  263. ACALL ENABLE
  264. MOV P1,#0CH
  265. ACALL ENABLE
  266. MOV P1,#06H
  267. ACALL ENABLE
  268. RET

  270. ;====1602發命令子程序====
  271. ENABLE: CLR RS         
  272. CLR RW
  273. CLR E
  274. ACALL DELAY_2MS
  275. SETB E
  276. RET

  278. ;=====讀1602IR中命令子程序======
  279. ENABLE_1: CLR RS
  280. SETB RW
  281. CLR E
  282. ACALL DELAY_2MS
  283. SETB E
  284. RET

  286. ;====寫數據子程序(1602)====
  287. WRITE_1602: MOV P1,A        
  288. SETB RS
  289. CLR RW
  290. CLR E
  291. MOV R5,#50       ;延時100us（12M晶振）
  292. DJNZ R5,$
  293. SETB E
  294. RET

  296. ;===========播放一個音符并顯示音符和頻譜=========
  297. BOFANG_YF: MOV A,36H
  298.       LCALL TAB_YF
  299.       MOV 33H,A
  300.       MOV A,36H
  301.       INC A
  302.       LCALL TAB_YF
  303.       MOV 34H,A
  304.       MOV TH0,33H
  305.       MOV TL0,34H
  306.       SETB TR0                  ;啟動定時器0
  307.       MOV A,36H                 ;取音符的顯示碼   
  308.       LCALL TAB_YF1      
  309.       LCALL WRITE_1602
  310.       DEC 38H
  311.       MOV A,36H
  312.       INC A
  313.       LCALL TAB_YF1
  314.       LCALL WRITE_1602
  315.       DJNZ 38H,D2               ;1602一行沒寫滿，轉移
  316.       MOV 30H,#16               ;1602滿行清行并從頭開始寫
  317.       MOV P1,#0C0H              
  318.       LCALL ENABLE
  319.       MOV A,#' '
  320. LP10: LCALL WRITE_1602
  321.       DJNZ 30H,LP10
  322.       MOV 38H,#16
  323.       MOV P1,#0C0H              
  324.       LCALL ENABLE
  325. ;----------顯示頻譜分析條程序段----------
  326. D2:   MOV A,36H                 ;音符碼轉換為相應鍵值
  327.       MOV B,#2
  328.       DIV AB
  329.       ADD A,#1
  330.       MOV 39H,A
  331.       MOV 3AH,39H               ;保護音符碼對應的鍵值
  332.       MOV P1,#85H               ;設定頻譜分析條顯示初地址
  333.       LCALL ENABLE
  334.       MOV A,#'>'
  335. D5:   LCALL WRITE_1602
  336.       DJNZ 39H,D5
  337. ;--------控制節拍時長程序段---------
  338.       MOV 37H,35H                   ;保護循環次數控制（節拍）      
  339. LP1:  ACALL DELAY_100MS
  340.       DJNZ 35H,LP1                  ;延時次數控制
  341.       MOV 35H,37H
  342. ;---------發音結束，清除頻譜分析條------------
  343.       MOV P1,#85H               ;頻譜分析條顯示的初地址
  344.       LCALL ENABLE
  345.       MOV A,#' '
  346.       MOV 39H,3AH      
  347. D6:   LCALL WRITE_1602
  348.       DJNZ 39H,D6
  349.       MOV A,#10H                 ;釋放音符碼顯示地址
  350.       CLR C
  351.       SUBB A,38H
  352.       ADD A,#0C0H
  353.       MOV P1,A
  354.       LCALL ENABLE
  355.       CLR TR0                   ;關定時器0
  356.       RET

  358. ;===========播放一個音符并顯示頻譜=========
  359. BOFANG_YF_1: MOV A,36H
  360.       LCALL TAB_YF
  361.       MOV 33H,A
  362.       MOV A,36H
  363.       INC A
  364.       LCALL TAB_YF
  365.       MOV 34H,A
  366.       MOV TH0,33H
  367.       MOV TL0,34H
  368.       SETB TR0                  ;啟動定時器0      
  369. ;----------顯示頻譜分析條程序段----------
  370.       MOV A,36H                 ;音符碼轉換為相應鍵值
  371.       MOV B,#2
  372.       DIV AB
  373.       ADD A,#1
  374.       MOV 39H,A
  375.       MOV 3AH,39H               ;保護音符碼對應的鍵值
  376.       MOV P1,#85H               ;設定頻譜分析條顯示初地址
  377.       LCALL ENABLE
  378.       MOV A,#'>'
  379. D7:   LCALL WRITE_1602
  380.       DJNZ 39H,D7
  381. ;--------控制節拍時長程序段---------
  382.       MOV 37H,35H                   ;保護循環次數控制（節拍）      
  383. LP11: ACALL DELAY_100MS
  384.       DJNZ 35H,LP11                  ;延時次數控制
  385.       MOV 35H,37H
  386. ;---------發音結束，清除頻譜分析條------------
  387.       MOV P1,#85H               ;頻譜分析條顯示的初地址
  388.       LCALL ENABLE
  389.       MOV A,#' '
  390.       MOV 39H,3AH      
  391. D8:   LCALL WRITE_1602
  392.       DJNZ 39H,D8
  393.       CLR TR0                   ;關定時器0
  394.       RET

  396. ;============播放一首歌并顯示歌名=============
  397. ;------（一個音符2字節存儲，音符碼存低字節，節拍存高字節；254為歌曲名結束標志，255為歌曲結束標志）----------
  398. BOFANG_GEQU: MOV P1,#0C0H                    ;歌名顯示地址
  399.              LCALL ENABLE
  400.              MOV 30H,#00
  401. LP2:             MOV A,30H
  402.              MOVC A,@A+DPTR
  403.              INC 30H
  404.              CJNE A,#254,XIANSHI_GEMING
  405.              SJMP C1
  406. XIANSHI_GEMING: MOV P1,A
  407.                 LCALL WRITE_1602
  408.                 SJMP LP2
  409. C1:                MOV P1,#0C0H                 ;歌詞顯示地址
  410.                 LCALL ENABLE
  411. LP3:                MOV A,30H
  412.                 MOVC A,@A+DPTR               ;取音符碼
  413.                 CJNE A,#0FFH,C6
  414.                 SJMP S0


  417. C6:                CJNE A,#42,C0             ;音符碼為休止符不開定時器，直接調用延時
  418.                 INC 30H
  419.                 MOV A,30H
  420.                 MOVC A,@A+DPTR
  421.                 INC 30H
  422.                 MOV 35H,A
  423. LP12:           LCALL DELAY_100MS
  424.                 DJNZ 35H,LP12
  425.                 SJMP LP3



  429. C0:                MOV 36H,A
  430.                 INC 30H
  431.                 MOV A,30H
  432.                 MOVC A,@A+DPTR
  433.                 MOV 35H,A
  434.                 INC 30H
  435.                 LCALL BOFANG_YF_1
  436.                 SJMP LP3
  437. S0:                RET

  439. ;============播放一錄音并顯示歌名和歌詞=============
  440. ;------（一個音符2字節存儲，音符碼存低字節，節拍存高字節；254為歌曲名結束標志，255為歌曲結束標志）----------
  441. BOFANG_LUYIN: MOV P1,#0C0H                    ;歌名顯示地址
  442.              LCALL ENABLE            
  443. LP4:             MOV A,@R1
  444.              INC R1
  445.              CJNE A,#254,XIANSHI_LUYIN
  446.              SJMP C2
  447. XIANSHI_LUYIN: MOV P1,A
  448.                 LCALL WRITE_1602
  449.                 SJMP LP4
  450. C2:                MOV P1,#0C0H                 ;歌詞顯示地址
  451.                 LCALL ENABLE
  452. LP5:                MOV A,@R1               ;取音符碼
  453.                 CJNE A,#255,C3
  454.                 SJMP S2
  455. C3:                CJNE A,#42,C4             ;音符碼為休止符不開定時器，直接調用延時
  456.                 INC R1
  457.                 MOV A,@R1
  458.                 MOV 35H,A
  459.                 INC R1
  460. LP6:            LCALL DELAY_100MS
  461.                 DJNZ 35H,LP6
  462.                 SJMP LP5
  463. C4:             MOV 36H,A
  464.                 INC R1
  465.                 MOV A,@R1
  466.                 MOV 35H,A
  467.                 INC R1
  468.                 LCALL BOFANG_YF_1
  469.                 SJMP LP5
  470. ……………………

  472. …………限于本文篇幅 余下代碼請從51黑下載附件…………
復制代碼

完整代碼:
電子琴.rar (67.51 KB, 下載次數: 18)






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