单片机按键蜂鸣器演奏歌曲功能C程序

K2:     MOV  R2,#0EFH
      MOV  R4,#00H
K3:     MOV  P1,R2
L6:    JB P1.0,L1 
      MOV  A,#00H
     AJMP LK
L1:    JB P1.1,L2
      MOV  A,#04H
     AJMP LK
L2: JB P1.2,L3              
      MOV  A,#08H
     AJMP LK
L3:    JB P1.3,NEXT1
      MOV  A,#0cH
LK:    ADD A,R4
         MOV     34h,a
K4:    ;LCALL delay4ms
;        lcall display
;     LCALL KS
;     JNZ K4
     RET
     
NEXT1:
    INC  R4
     MOV  A,R2
    JNB ACC.7,key_exit
    RL A
     MOV  R2,A
    AJMP K3
key_exit:
         MOV  a,#0ffh
        ret

KS:     MOV  P1,#0FH
      MOV  A,P1
     XRL A,#0FH
     RET
delay4ms:                        ;4ms
       MOV  R5,#08H
L7:     MOV  R6,#0FAH
L8:    DJNZ R6,L8
     DJNZ R5,L7
     RET

table1:
    dw    64260,64400,64524,64580
    dw    64684,64777,64820,64898
    dw    64968,65030,65058,65110
    dw    65157,65178,65217

table:
    ;1
    db    82h,01h,81h,94h,84h,0b4h,0a4h,04h,82h,01h,81h,94h,84h,0c4h,0b4h,04h
    ;2
    db    82h,01h,81h,0f4h,0d4h,0b4h,0a4h,94h,0e2h,01h,0e1h,0d4h,0b4h,0c4h,0b4h,04h
    ;3
    db    82h,01h,81h,94h,84h,0b4h,0a4h,04h,82h,01h,81h,94h,84h,0c4h,0b4h,04h
    ;4
    db    82h,01h,81h,0f4h,0d4h,0b4h,0a4h,94h,0e2h,01h,0e1h,0d4h,0b4h,0c4h,0b4h,04h,00
    end

实现按键蜂鸣器演奏歌曲功能,按“A”键开始播放，按“B”键停止播放.

上一页  [1] [2] 

本文关键字：单片机  程序  蜂鸣器  歌曲  51单片机，单片机-工控设备 - 51单片机