標(biāo)題: 51單片機(jī)紅外遙控電子琴匯編語(yǔ)言示例源程序 [打印本頁(yè)]
作者: 你好戀人    時(shí)間: 2018-6-8 20:09
標(biāo)題: 51單片機(jī)紅外遙控電子琴匯編語(yǔ)言示例源程序
用51單片機(jī)實(shí)現(xiàn)的用紅外線控制電子琴的部分程序，可借用。
    該程序可以實(shí)現(xiàn)用紅外遙控器控制JD51蜂鳴器發(fā)出不同音調(diào)與歌曲，其中1~7分別發(fā)出dou rai mi fa so la ti的音調(diào)，8和9分別會(huì)播放一首歌曲。
    另附有“紅外接收與控制”子程序，請(qǐng)大家務(wù)必先單獨(dú)運(yùn)行子程序，弄明白遙控器上1~9對(duì)應(yīng)的二進(jìn)制編碼方式，并模仿示例中的操作，進(jìn)行補(bǔ)充完善。
    說(shuō)明：該例子除了沒(méi)有按鍵2~7,9的功能，還缺少歌曲播放中的中斷程序?qū)崿F(xiàn)，請(qǐng)大家完善，謝謝！


單片機(jī)匯編語(yǔ)言源程序如下:
  1.         ORG 0030H
  2. public infrared
  3. ;DELAYY SEGMENT CODE
  4. ;RSEG   AELAYY

  6. INFRARED:
  7.     JNB    P3.2,IR        ;遙控掃描
  8.     LJMP   INFRARED           ;在正常無(wú)遙控信號(hào)時(shí)，一體化紅外接收頭輸出是高電平，程序一直在循環(huán)。

  10. ;=================================================
  11. ;   解碼程序
  12. IR:
  13.     ;以下對(duì)遙控信號(hào)的9000微秒的初始低電平信號(hào)的識(shí)別
  14.     MOV    R6,#10
  15. IR_SB:
  16.     ACALL  DELAY882        ;調(diào)用882微秒延時(shí)子程序
  17.     JB     P3.2,IR_ERROR   ;延時(shí)882微秒后判斷P2.2腳是否出現(xiàn)高電平如果有就退出解碼程序
  18.     DJNZ   R6,IR_SB        ;重復(fù)10次，目的是檢測(cè)在8820微秒內(nèi)如果出現(xiàn)高電平就退出解碼程序

  20.     ;識(shí)別連發(fā)碼，和跳過(guò)4.5ma的高電平。
  21.     JNB     P3.2, $         ;等待高電平避開(kāi)9毫秒低電平引導(dǎo)脈沖
  22.     ACALL  DELAY2400
  23.     JNB     P3.2,IR_Rp    ;這里為低電平，認(rèn)為是連發(fā)碼信號(hào)，見(jiàn)圖６。
  24.     ACALL  DELAY2400      ;延時(shí)4.74毫秒避開(kāi)4.5毫秒的結(jié)果碼

  26.     ;以下32數(shù)據(jù)碼的讀取　，０和１的識(shí)別　請(qǐng)看圖２
  27.     MOV     R1,#1AH        ;設(shè)定1AH為起始RAM區(qū)
  28.     MOV     R2,#4
  29. IR_4BYTE:
  30.     MOV     R3,#8
  31. IR_8BIT:   
  32.     JNB     P3.2,$         ;等待地址碼第一位的高電平信號(hào)
  33.     LCALL  DELAY882        ;高電平開(kāi)始后用882微秒的時(shí)間尺去判斷信號(hào)此時(shí)的高低電平狀態(tài)
  34.     MOV    C,P3.2          ;將P2.2引腳此時(shí)的電平狀態(tài)0或1存入C中
  35.     JNC     IR_8BIT_0      ;如果為0就跳轉(zhuǎn)到IR_8BIT_0
  36.     LCALL  DELAY1000
  37. IR_8BIT_0:
  38.     MOV    A,@R1           ;將R1中地址的給A
  39.     RRC    A               ;將C中的值0或1移入A中的最低位
  40.     MOV    @R1,A           ;將A中的數(shù)暫時(shí)存放在R1中
  41.     DJNZ   R3,IR_8BIT      ;接收地址碼的高8位
  42.     INC    R1              ;對(duì)R1中的值加1，換下一個(gè)RAM
  43.     DJNZ   R2,IR_4BYTE     ;接收完16位地址碼和8位數(shù)據(jù)碼和8位數(shù)據(jù)，
  44.                            ;存放在1AH/1BH/1CH/1DH的RAM中
  45.      ;解碼成功
  46.     JMP    IR_GOTO

  48. IR_Rp:
  49.     ;這里為重復(fù)碼執(zhí)行處
  50.     ;按住遙控按鍵時(shí)，每過(guò)108ms就到這里來(lái)
  51.     JMP    IR_GOTO

  53. IR_ERROR:
  54.     ;錯(cuò)語(yǔ)退出
  55.     LJMP   INFRARED ;退出解碼子程序

  57. ;=================================================
  58. ;遙控執(zhí)行部份
  59. IR_GOTO:
  60.     ;這里還要判斷1AH和1BH　兩個(gè)系統(tǒng)碼或用戶(hù)碼，用于識(shí)別不同的遙控器
  61.     ;MOV   A,1AH
  62.     ;CJNE  A,#xxH,IR_ERROR   ;用戶(hù)碼１不對(duì)則退出
  63.     ;MOV   A,1BH
  64.     ;CJNE  A,#xxH,IR_ERROR   ;用戶(hù)碼２不對(duì)則退出



  68.     ;判斷兩個(gè)數(shù)據(jù)碼是否相反
  69.     MOV    A,1CH
  70.     CPL    A
  71.     CJNE   A,1DH,IR_ERROR    ;兩個(gè)數(shù)據(jù)碼不相反則退出
  72.     ;遙控執(zhí)行部份
  73.     ;MOV   A,1DH             ;判斷對(duì)應(yīng)按鍵
  74.     ;CJNE  A,#xxH,$+6
  75.     ;LJMP  -à跳到對(duì)應(yīng)按鍵執(zhí)行處
  76.     ;CJNE  A,#xxH,$+6
  77.     ;LJMP  -à跳到對(duì)應(yīng)按鍵執(zhí)行處
  78.     ;.
  79.     MOV     R0,1DH         ;
  80. KEYP0:   
  81.       CLR TR0
  82.       SETB P2.4     ;關(guān)蜂鳴器
  83.      SETB P2.3                           ;關(guān)數(shù)碼管
  84. //        MOV  P1,R0
  85.         CJNE R0,#11110011B,L1          ;�。。》浅ｊP(guān)鍵的一步，遙控器上的按鍵1對(duì)應(yīng)的二進(jìn)制碼為 11110011，所以此處判斷是否是按鍵1按下，獲得的功能相當(dāng)于板子的S1
  86.                                                        ; 如果不是按鍵1，則跳轉(zhuǎn)繼續(xù)判斷是否是別的按鍵，此處弱化了功能，只寫(xiě)了按鍵1 和8,
  87.                                                            ;所以此時(shí)大家的任務(wù)就是參考這個(gè)例子和原有的電子音調(diào)發(fā)生器程序，繼續(xù)添加按鍵2~7，以及9的內(nèi)容，從而完善功能
  88.     SETB P2.4        ;蜂鳴器置于高電平
  89.         MOV R4,#200  
  90. MAIN01:MOV TMOD,#01H   
  91.        MOV TL0,#021H         ;寫(xiě)入計(jì)數(shù)初值
  92.        MOV TH0,#0F9H
  93.        SETB TR0
  94. WAIT1:JNB TF0,WAIT1
  95.      CLR TF0
  96.      CPL P2.4            ;蜂鳴器響
  97.           CLR P2.3            ;數(shù)碼管顯示2
  98.           MOV A,#11111001B
  99.                  MOV P0,A
  100.      DJNZ R4,MAIN01      ;數(shù)碼管顯示1
  101.          
  102.                                                                   

  104. L1:CJNE R0,#10101101B,L2   ;   判斷是否是按鍵8按下，如果是，發(fā)出一段音樂(lè)

  106. MUSTART1:                     
  107.      MOV R0,#00H               ;節(jié)拍表指針置零
  108.      MOV R1,#00H               ;音符表指針置零
  109. RTAB:MOV A,R0
  110.      MOV DPTR,#RYTH
  111.      MOVC A,@A+DPTR            ;查表法將一個(gè)節(jié)拍數(shù)據(jù)取出放R2計(jì)數(shù)器中
  112.      MOV R2,A
  113. TTAB:MOV A,R1
  114.      MOV DPTR,#TONE
  115.      MOVC A,@A+DPTR
  116.      MOV R3,A                  ;取出音符表高8位
  117.      INC R1                    ;指針加1
  118.      MOV A,R1
  119.      MOV DPTR,#TONE
  120.      MOVC A,@A+DPTR
  121.      MOV R4,A                  ;取出低8位
  122.      SETB P2.4  

  124. LOOP:MOV R5,#3BH
  125. JMP MAIN
  126. L2:JMP L3
  127. MAIN:MOV TMOD,#01H
  128.      MOV TL0,R4
  129.      MOV TH0,R3
  130.      SETB TR0
  131. WAIT:JNB TF0,WAIT
  132.      CLR TF0
  133.      CPL P2.4

  135. RA:  DJNZ R5,MAIN             ;無(wú)打斷則繼續(xù)放第一首歌
  136.      DJNZ R2,LOOP
  137. INC R0                        ;兩個(gè)表的指針都加1
  138. INC R1
  139. CJNE R1,#88,RTAB              ;判斷是否取完
  140. LJMP KEYP0
  141. TONE:
  142. DB 0FBH,68H,0FDH,6EH,0FDH,45H,0FCH,0EFH,0FCH,8FH,0FCH,8FH,0FCH,8FH,0FCH,5BH,0FCH,8FH
  143. DB 0FCH,0EFH,0FDH,45H,0FBH,68H,0FBH,68H,0FCH,8FH,0FCH,5BH,0FBH,0E9H,0FBH,68H,0FBH,68H
  144. DB 0FAH,0DBH,0FAH,8CH,0F9H,21H,0FAH,8CH,0FAH,0D8H,0FBH,68H,0FBH,68H,0FBH,68H,0FBH,68H
  145. DB 0FBH,0E9H,0FBH,0E9H,0FBH,68H,0FBH,0E9H,0FCH,5BH,0FAH,8CH,0FCH,8FH,0FCH,8FH,0FCH,5BH
  146. DB 0FCH,8FH,0FCH,0EFH,0FCH,0EFH,0FCH,0EFH,0FCH,8FH,0FDH,45H,0FDH,6EH,0FCH,0EFH
  147. RYTH:
  148. DB 04,04,04,04,04,04,04,04,04,04
  149. DB 04,05,04,04,04,04,04,04,04,04
  150. DB 04,04,04,06,04,04,04,07,04,04
  151. DB 04,04,04,06,04,04,04,07,04,04
  152. DB 04,04,04,04

  154. L3:


  157.     ;清除遙控值使連按失效
  158.     MOV    1AH,#00H
  159.     MOV    1BH,#00H
  160.     MOV    1CH,#00H
  161.     MOV    1DH,#00H
  162.     LJMP   INFRARED
  163. ;=================================================
  164. ; 延時(shí)子程序
  165. ;=============================882
  166. ;1.085x ((202x4)+5)=882
  167. DELAY882:   
  168.     MOV R7,#202
  169. DELAY882_A:
  170.     NOP
  171.     NOP
  172.     DJNZ   R7,DELAY882_A
  173. RET

  175. ;=============================1000
  176. ;1.085x ((229x4)+5)=999.285
  177. DELAY1000:
  178.     MOV R7,#229
  179. DELAY1000_A:
  180.     NOP
  181.     NOP
  182.     DJNZ   R7,DELAY1000_A
  183. RET
  184. ;=============================2400
  185. ……………………

  187. …………限于本文篇幅 余下代碼請(qǐng)從51黑下載附件…………
復(fù)制代碼

紅外遙控電子琴示例程序.zip

4.91 KB, 下載次數(shù): 94, 下載積分: 黑幣 -5

作者: rsx9583    時(shí)間: 2021-6-15 08:48
厲害，其實(shí)匯編語(yǔ)言的單步思維，還比較容易學(xué)，就是可移植性不太好。
作者: 2071451401    時(shí)間: 2022-4-24 09:34
點(diǎn)贊樓主思維



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