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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 电子技术分类讨论区 › 资料共享 › 多功能单片机电子琴电路+汇编语言源代码
返回列表 发新帖
查看: 1821|回复: 0
收起左侧

多功能单片机电子琴电路+汇编语言源代码

[复制链接]
ID:184978 发表于 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)
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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