英锐恩单片机论坛,Microchip单片机,模拟器件,接口电路,麦肯单片机,单片机应用交流

 找回密码
 立即注册
搜索
电子烟方案单片机单片机开发深圳单片机开发
单片机方案国产单片机8位单片机电子烟方案开发
查看: 5047|回复: 4

PIC编程实现音乐的程序:防盗器报警声 ZHUAN

[复制链接]
发表于 2012-8-21 19:00:06 | 显示全部楼层 |阅读模式
PIC编程实现音乐的程序:防盗器报警声
; 汽车防盗器报警声
;频率分两个0.1s第一个
;0.1S频率从1.8K-3.5K匀速增加第二个0.1S频率从3.5K-1.8K匀速减少,
;程序复位后,按S2喇叭叫两声,按S3喇叭叫15秒,中途可按S5停止.
;=========================================================
  LIST P=16F84A,R=DEC         
  __CONFIG B'11111111110001';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC

RTCC        EQU 01H                ;定义各寄存器
PC         EQU 02H
STATUS         EQU 03H
C         EQU 0
RP0         EQU 5
;----------------------
PORTA         EQU 05H
PORTB         EQU 06H

TRISA         EQU 5H
TRISB         EQU 6H
;-----------------------
SOUNDDELAY1         EQU 10H    ;声音频率变化计数器,从1.8~3.55KHZ
FRE_COUNT         EQU 11H    ;同一频率的重复次数保存地址
FRE_REPEAT         EQU 12H     
SOUND_TEMP         EQU 13H
TEMP                 EQU 14H     ;暂存寄存器
S_LOOP   EQU 46             ;93-47=46
S_MAX          EQU 93             ;最低频率1.8K  93*3=280US*2
S_MIN          EQU 47             ;最高频率3.55K  47*3=140*2
S_REPEAT EQU 4             ;同一频率重复次数
;----------------------RA
KEY1 EQU 3
KEY2 EQU 4
;----------------------RB
KEY3 EQU 0
KEY4 EQU 1
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA
    CLRF PORTB          ;初始化IO口

    BSF         STATUS,RP0      
    MOVLW         0011000B
    MOVWF         TRISA         
    MOVLW         00000011B
    MOVWF         TRISB
    BCF         STATUS,RP0      
LOOP
    BTFSS         PORTA,KEY1   ;扫描按键
    GOTO         SET_1
    BTFSS         PORTA,KEY2
    GOTO         SET_2
    GOTO         LOOP
;--------------------------------------------
SET_1
    BTFSC         PORTA,KEY1    ;去抖动
    GOTO         LOOP
    CALL         SOUNDDELAY
    BTFSC         PORTA,KEY1    ;按S2叫两声
    GOTO         LOOP
    CALL         SOUND200MS
    CALL         SOUND200MS
    GOTO         LOOP
;--------------------------------------------
SET_2
    BTFSC         PORTA,KEY2    ;去抖动
    GOTO         LOOP
    CALL         SOUNDDELAY
    BTFSC         PORTA,KEY2    ;按S3叫15秒
    GOTO         LOOP
    CALL         SOUND15S
    GOTO         LOOP
;- - ----------------------------------------
SOUND200MS
    MOVLW         S_LOOP
    MOVWF         FRE_COUNT     ;46=93-47
SOUND_LH_LP
    MOVLW         S_REPEAT      ;同一频率重复次数送FRE_REPEAT
    MOVWF         FRE_REPEAT
    MOVFW         FRE_COUNT
    ADDLW         S_MIN        ;计数值加最小值
    MOVWF         TEMP
REPEAT0_LP
    MOVFW         TEMP
    BSF         PORTA,0      
    CALL         SOUNDDELAY0   ;廷时W*3US
    BCF         PORTA,0
    MOVFW         TEMP
    CALL         SOUNDDELAY0
    DECFSZ         FRE_REPEAT,1 ;每四次减频率计数一次
    GOTO         REPEAT0_LP
    DECFSZ         FRE_COUNT,1
    GOTO         SOUND_LH_LP
SOUND_HL
    MOVLW         S_LOOP
    MOVWF         FRE_COUNT   ;46=93-47
SOUND_HL_LP
    MOVLW         S_REPEAT    ;同一频率重复次数送FRE_REPEAT
    MOVWF         FRE_REPEAT
    MOVFW         FRE_COUNT
    SUBLW         S_MAX       ;最大值减计数值
    MOVWF         TEMP
REPEAT1_LP
    MOVFW         TEMP
    BSF         PORTA,0
    CALL         SOUNDDELAY0    ;廷时W*3US
    BCF         PORTA,0
    MOVFW         TEMP
    CALL         SOUNDDELAY0
    DECFSZ         FRE_REPEAT,1;四次减频率计数一次
    GOTO         REPEAT1_LP
    DECFSZ         FRE_COUNT,1
    GOTO         SOUND_HL_LP
SOUND_END
    RETLW 0
;------------------------------
SOUNDDELAY:        ;廷时255*3US+2US
    MOVLW         255
SOUNDDELAY0
    MOVWF         SOUNDDELAY1     ;廷时W*3US+1US
SOUNDDELAYUS_1
    DECFSZ         SOUNDDELAY1,1
    GOTO         SOUNDDELAYUS_1
    RETLW 0
;---------------------
SOUND15S                    ;报警15秒
    MOVLW         73
    MOVWF         SOUND_TEMP
SOUND1S_LP
    CALL         SOUND200MS
    BTFSS         PORTB,KEY4       ;按S5退出
    RETLW 0
    DECFSZ         SOUND_TEMP,1
    GOTO         SOUND1S_LP
    RETLW 0
;------------------------
    END

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|公司首页|Microchip单片机,模拟器件,接口电路,麦肯单片机,单片机应用交流 ( 粤ICP备09008620号 )

GMT+8, 2024-3-29 08:53 , Processed in 0.063599 second(s), 26 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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