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

標題: 51單片機紅外遙控電子琴匯編語言示例源程序 [打印本頁]
作者: 你好戀人    時間: 2018-6-8 20:09
標題: 51單片機紅外遙控電子琴匯編語言示例源程序
用51單片機實現的用紅外線控制電子琴的部分程序，可借用。
    該程序可以實現用紅外遙控器控制JD51蜂鳴器發出不同音調與歌曲，其中1~7分別發出dou rai mi fa so la ti的音調，8和9分別會播放一首歌曲。
    另附有“紅外接收與控制”子程序，請大家務必先單獨運行子程序，弄明白遙控器上1~9對應的二進制編碼方式，并模仿示例中的操作，進行補充完善。
    說明：該例子除了沒有按鍵2~7,9的功能，還缺少歌曲播放中的中斷程序實現，請大家完善，謝謝！


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

  6. INFRARED:
  7.     JNB    P3.2,IR        ;遙控掃描
  8.     LJMP   INFRARED           ;在正常無遙控信號時，一體化紅外接收頭輸出是高電平，程序一直在循環。

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

  20.     ;識別連發碼，和跳過4.5ma的高電平。
  21.     JNB     P3.2, $         ;等待高電平避開9毫秒低電平引導脈沖
  22.     ACALL  DELAY2400
  23.     JNB     P3.2,IR_Rp    ;這里為低電平，認為是連發碼信號，見圖６。
  24.     ACALL  DELAY2400      ;延時4.74毫秒避開4.5毫秒的結果碼

  26.     ;以下32數據碼的讀取　，０和１的識別　請看圖２
  27.     MOV     R1,#1AH        ;設定1AH為起始RAM區
  28.     MOV     R2,#4
  29. IR_4BYTE:
  30.     MOV     R3,#8
  31. IR_8BIT:   
  32.     JNB     P3.2,$         ;等待地址碼第一位的高電平信號
  33.     LCALL  DELAY882        ;高電平開始后用882微秒的時間尺去判斷信號此時的高低電平狀態
  34.     MOV    C,P3.2          ;將P2.2引腳此時的電平狀態0或1存入C中
  35.     JNC     IR_8BIT_0      ;如果為0就跳轉到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中的數暫時存放在R1中
  41.     DJNZ   R3,IR_8BIT      ;接收地址碼的高8位
  42.     INC    R1              ;對R1中的值加1，換下一個RAM
  43.     DJNZ   R2,IR_4BYTE     ;接收完16位地址碼和8位數據碼和8位數據，
  44.                            ;存放在1AH/1BH/1CH/1DH的RAM中
  45.      ;解碼成功
  46.     JMP    IR_GOTO

  48. IR_Rp:
  49.     ;這里為重復碼執行處
  50.     ;按住遙控按鍵時，每過108ms就到這里來
  51.     JMP    IR_GOTO

  53. IR_ERROR:
  54.     ;錯語退出
  55.     LJMP   INFRARED ;退出解碼子程序

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



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

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

  106. MUSTART1:                     
  107.      MOV R0,#00H               ;節拍表指針置零
  108.      MOV R1,#00H               ;音符表指針置零
  109. RTAB:MOV A,R0
  110.      MOV DPTR,#RYTH
  111.      MOVC A,@A+DPTR            ;查表法將一個節拍數據取出放R2計數器中
  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             ;無打斷則繼續放第一首歌
  136.      DJNZ R2,LOOP
  137. INC R0                        ;兩個表的指針都加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. ; 延時子程序
  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. …………限于本文篇幅 余下代碼請從51黑下載附件…………
復制代碼

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

4.91 KB, 下載次數: 94, 下載積分: 黑幣 -5

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



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