《匠人手记》推荐网上购书渠道:
互动出版网(china-pub)购书入口   >>>
当当网(dangdang)购书入口   >>>
卓越亚马逊网 购书入口   >>>
淘宝网(taobao)购书入口   >>>
更多购书渠道……   >>> 

设为首页加入收藏联系匠人管理入口21IC首页21IC博客21IC社区侃单片机回复的贴参与的贴

天气预报
百宝日历
载入中...

百宝专栏

载入中...
最新货色

载入中...

粉丝评论

载入中...

载入中...



百宝信息

载入中...

百宝流量

(2006-07-01开始)


匠人手记

 匠人观点: 好记性不如烂笔头  
 黑色幽默:三鹿门——后世畅想

几种警笛声音的PIC程序
程序匠人 发表于 2005-11-10 20:39:00  阅读全文 | 回复(0) | 引用通告 | 编辑

几种警笛声音的PIC程序
 
 
--  作者:宛城布衣
--  发布时间:2005-6-14 17:53:36

--  几种警笛声音的PIC程序

--  作者:陈学乾
--  发布时间:2004-8-26 12:32:27

--  给你几个程序参考

;ST套件产生报警音
;本实例的目的是让大家学会用单片机产生声音的方法,学会计算程序所用时间
;本实例的功能是能PIC16F84产生报警音,频率分两个0.1s第一个
;0.1S频率从1.8K-3.5K匀速增加第二个0.1S频率从3.5K-1.8K匀速减少,
;程序复位后,蜂鸣器开始报警
;PIC单片机学习网-----http://www.pic16.com
;烧写时应注意:配置位已经在程序中写明,加载HEX文件时会自动加载,烧写时不用再手动设置配置位。
;实验时请注意套件跳线选择;
;*****************************************************
  LIST P=16F84A,R=DEC         ;定义器件,默认为十进制
;-----------------------------------------------------
  __CONFIG B\\\'11111111110001\\\';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;没有代码保护
                                              ;看门狗关闭
                                              ;上电廷时器开启
                                              ;振荡器模式为XT
;-----------------------------------------------------
RTCC EQU 01H                ;定义各寄存器
PC EQU 02H
STATUS EQU 03H
C EQU 0
RP0 EQU 5
;----------------------
PORTA EQU 05H

TRISA EQU 05H
;-----------------------
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         ;同一频率重复次数
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;设置数据寄存器体1
    MOVLW 0000000B
    MOVWF TRISA        ;设置RA端口全部为输出
    BCF STATUS,RP0     ;恢复数据寄存器体0
LOOP
    CALL SOUND200MS    ;调用报警200MS子程序
    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
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷时W*3US+1US
SOUNDDELAYUS_1
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END

--------------------------------------------------------------------------------

--  作者:陈学乾
--  发布时间:2004-8-26 12:33:25

-- 

;ST套件产生450hz低音
;本实例的目的是让大家学会用单片机产生声音的方法,学会计算程序所用时间
;本实例的功能是能PIC16F84产生低音,
;450HZ,相当于450HZ的方波信号发生器。
;程序复位后,蜂鸣器开始发音
;PIC单片机学习网-----http://www.pic16.com
;烧写时应注意:配置位已经在程序中写明,加载HEX文件时会自动加载,烧写时不用再手动设置配置位。
;实验时请注意套件跳线选择;
;*****************************************************
  LIST P=16F84A,R=DEC         ;定义器件,默认为十进制
;-----------------------------------------------------
  __CONFIG B\\\'11111111110001\\\';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;没有代码保护
                                              ;看门狗关闭
                                              ;上电廷时器开启
                                              ;振荡器模式为XT
;-----------------------------------------------------
RTCC EQU 01H                ;定义各寄存器
PC EQU 02H
STATUS EQU 03H
C EQU 0
RP0 EQU 5
;----------------------
PORTA EQU 05H

TRISA EQU 05H
;-----------------------
SOUNDDELAY1 EQU 10H    ;声音频率变化计数器,从1.1K~0.5KHZ
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;设置数据寄存器体1
    MOVLW 0000000B
    MOVWF TRISA        ;设置RA端口全部为输出
    BCF STATUS,RP0     ;恢复数据寄存器体0
SOUND
    MOVLW 222           ;450HZ反复循环
    BSF PORTA,0
    CALL SOUNDDELAY0    ;廷时W*5US
    BCF PORTA,0
    MOVLW 222
    CALL SOUNDDELAY0
    GOTO SOUND
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷时W*5US+1US
SOUNDDELAYUS_1
    NOP
    NOP
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END

--------------------------------------------------------------------------------

--  作者:陈学乾
--  发布时间:2004-8-26 12:33:56

-- 

;ST套件产生救护音
;本实例的目的是让大家学会用单片机产生声音的方法,学会计算程序所用时间
;本实例的功能是能PIC16F84产生救护音,频率分两个1S第一个
;1S频率是440HZ,第二个1S频率是180HZ,反复循环
;程序复位后,蜂鸣器开始报警
;PIC单片机学习网-----http://www.pic16.com
;烧写时应注意:配置位已经在程序中写明,加载HEX文件时会自动加载,烧写时不用再手动设置配置位。
;实验时请注意套件跳线选择;
;*****************************************************
  LIST P=16F84A,R=DEC         ;定义器件,默认为十进制
;-----------------------------------------------------
  __CONFIG B\\\'11111111110001\\\';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;没有代码保护
                                              ;看门狗关闭
                                              ;上电廷时器开启
                                              ;振荡器模式为XT
;-----------------------------------------------------
RTCC EQU 01H                ;定义各寄存器
PC EQU 02H
STATUS EQU 03H
C EQU 0
RP0 EQU 5
;----------------------
PORTA EQU 05H
TRISA EQU 05H
;-----------------------
SOUNDDELAY1 EQU 10H      ;声音频率高低电平廷时计数器
FRE_REPEATH EQU 11H      ;同一频率的重复次数外部循环
FRE_REPEATL EQU 12H      ;同一频率的重复次数内部循环
TEMP EQU 14H           ;暂存寄存器
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;设置数据寄存器体1
    MOVLW 0000000B
    MOVWF TRISA        ;设置RA端口全部为输出
    BCF STATUS,RP0     ;恢复数据寄存器体0
LOOP
    CALL SOUND2S       ;调用报警200MS子程序
    GOTO LOOP          ;反复循环报警
;-------------------------------
SOUND2S                          ;先440HZ 1S
    MOVLW 189
    MOVWF TEMP         ;440HZ频率高低电平廷时值送TEMP 1S/[(189*6)US*2]=440HZ
    MOVLW 2             ;同一频率重复次数外部循环送初值
    MOVWF FRE_REPEATH
SOUND2S_1
    MOVLW 220
    MOVFW FRE_REPEATL     ;同一频率重复次数内部循环送初值220*2=440次,440HZ频率重复440次即1S
REPEAT0_LP
    MOVFW TEMP
    BSF PORTA,0      
    CALL SOUNDDELAY0   ;廷时W*6US 440hz正半周
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0    ;廷时W*6US 440hz负半周
    DECFSZ FRE_REPEATL,1
    GOTO REPEAT0_LP
    DECFSZ FRE_REPEATH,1    ;同一频率持续1S
    GOTO SOUND2S_1
SOUND2S_B                  ;再180HZ  1S
    MOVLW 231
    MOVWF TEMP         ;180HZ频率高低电平廷时值送TEMP 1S/[(231*2*6)US*2]=180HZ
    MOVLW 180
    MOVFW FRE_REPEATL     ;同一频率重复次数送初值180HZ频率重复180次即1S
REPEAT0_LP_B
    MOVFW TEMP
    BSF PORTA,0      
    CALL SOUNDDELAY0   ;廷时W*6US*2  180HZ正半周
    MOVFW TEMP
    CALL SOUNDDELAY0
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0   ;廷时W*6US*2  180HZ负半周
    MOVFW TEMP
    CALL SOUNDDELAY0
    DECFSZ FRE_REPEATL,1  ;同一频率持续1S
    GOTO REPEAT0_LP_B
SOUND_END
    RETLW 0
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷时W*6US+1US
SOUNDDELAYUS_1
    nop
    nop
    nop
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END

--------------------------------------------------------------------------------

--  作者:陈学乾
--  发布时间:2004-8-26 12:34:23

-- 

;ST套件产生开道音
;本实例的目的是让大家学会用单片机产生声音的方法,学会计算程序所用时间
;本实例的功能是能PIC16F84产生开道音,每一个3S内频率
;从1.1K-0.5K匀速减少,反复循环。
;程序复位后,蜂鸣器开始报警
;PIC单片机学习网-----http://www.pic16.com
;烧写时应注意:配置位已经在程序中写明,加载HEX文件时会自动加载,烧写时不用再手动设置配置位。
;实验时请注意套件跳线选择;
;*****************************************************
  LIST P=16F84A,R=DEC         ;定义器件,默认为十进制
;-----------------------------------------------------
  __CONFIG B\\\'11111111110001\\\';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;没有代码保护
                                              ;看门狗关闭
                                              ;上电廷时器开启
                                              ;振荡器模式为XT
;-----------------------------------------------------
RTCC EQU 01H                ;定义各寄存器
PC EQU 02H
STATUS EQU 03H
C EQU 0
RP0 EQU 5
;----------------------
PORTA EQU 05H

TRISA EQU 05H
;-----------------------
SOUNDDELAY1 EQU 10H    ;声音频率变化计数器,从1.1K~0.5KHZ
FRE_COUNT EQU 11H      ;同一频率的重复次数保存地址
FRE_REPEAT EQU 12H    
SOUND_TEMP EQU 13H
TEMP EQU 14H           ;暂存寄存器
S_LOOP EQU 136         ;250-114=136
S_MAX EQU 250           ;最低频率0.5K  250*4=1000 *2
S_MIN EQU 114           ;最高频率1.1K  114*4=456 *2
S_REPEAT EQU 17         ;同一频率重复次数
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;设置数据寄存器体1
    MOVLW 0000000B
    MOVWF TRISA        ;设置RA端口全部为输出
    BCF STATUS,RP0     ;恢复数据寄存器体0
LOOP
    CALL SOUND3S    ;调用报警3S子程序
    GOTO LOOP         ;反复循环报警
;-------------------------------
SOUND3S
    MOVLW S_LOOP
    MOVWF FRE_COUNT   ;136=250-114
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*4US
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0
    DECFSZ FRE_REPEAT,1;17次减频率计数一次
    GOTO REPEAT1_LP
    DECFSZ FRE_COUNT,1
    GOTO SOUND_HL_LP
SOUND_END
    RETLW 0
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷时W*4US+1US
SOUNDDELAYUS_1
    NOP
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END

--------------------------------------------------------------------------------

--  作者:陈学乾
--  发布时间:2004-8-26 12:34:47

-- 

;ST套件产生汽笛音800HZ
;本实例的目的是让大家学会用单片机产生声音的方法,学会计算程序所用时间
;本实例的功能是能PIC16F84产生汽笛音800HZ
;相当于800HZ的方波信号发生器。
;程序复位后,蜂鸣器开始发音
;PIC单片机学习网-----http://www.pic16.com
;烧写时应注意:配置位已经在程序中写明,加载HEX文件时会自动加载,烧写时不用再手动设置配置位。
;实验时请注意套件跳线选择;
;*****************************************************
  LIST P=16F84A,R=DEC         ;定义器件,默认为十进制
;-----------------------------------------------------
  __CONFIG B\\\'11111111110001\\\';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;没有代码保护
                                              ;看门狗关闭
                                              ;上电廷时器开启
                                              ;振荡器模式为XT
;-----------------------------------------------------
RTCC EQU 01H                ;定义各寄存器
PC EQU 02H
STATUS EQU 03H
C EQU 0
RP0 EQU 5
;----------------------
PORTA EQU 05H

TRISA EQU 05H
;-----------------------
SOUNDDELAY1 EQU 10H    ;声音频率变化计数器,从1.1K~0.5KHZ
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;设置数据寄存器体1
    MOVLW 0000000B
    MOVWF TRISA        ;设置RA端口全部为输出
    BCF STATUS,RP0     ;恢复数据寄存器体0
SOUND
    MOVLW 125           ;800HZ反复循环
    BSF PORTA,0
    CALL SOUNDDELAY0    ;廷时W*5US
    BCF PORTA,0
    MOVLW 125
    CALL SOUNDDELAY0
    GOTO SOUND
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷时W*5US+1US
SOUNDDELAYUS_1
    NOP
    NOP
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END

--------------------------------------------------------------------------------

--  作者:陈学乾
--  发布时间:2004-8-26 12:35:14

-- 

;ST套件产生治安音
;本实例的目的是让大家学会用单片机产生声音的方法,学会计算程序所用时间
;本实例的功能是能PIC16F84产生治安音,频率分两个0.4s第一个
;0.4S频率从1.8K-2.2K匀速增加第二个0.4S频率从2.2K-1.8K匀速减少,
;程序复位后,蜂鸣器开始报警
;PIC单片机学习网-----http://www.pic16.com
;烧写时应注意:配置位已经在程序中写明,加载HEX文件时会自动加载,烧写时不用再手动设置配置位。
;实验时请注意套件跳线选择;
;*****************************************************
  LIST P=16F84A,R=DEC         ;定义器件,默认为十进制
;-----------------------------------------------------
  __CONFIG B\\\'11111111110001\\\';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;没有代码保护
                                              ;看门狗关闭
                                              ;上电廷时器开启
                                              ;振荡器模式为XT
;-----------------------------------------------------
RTCC EQU 01H                ;定义各寄存器
PC EQU 02H
STATUS EQU 03H
C EQU 0
RP0 EQU 5
;----------------------
PORTA EQU 05H

TRISA EQU 05H
;-----------------------
SOUNDDELAY1 EQU 10H    ;声音频率变化计数器,从0.8~2.2KHZ
FRE_COUNT EQU 11H      ;同一频率的重复次数保存地址
FRE_REPEAT EQU 12H    
SOUND_TEMP EQU 13H
TEMP EQU 14H           ;暂存寄存器
S_LOOP EQU 132          ;208-76=132
S_MAX EQU 208           ;最低频率0.8K  208*3=624US *2
S_MIN EQU 76           ;最高频率2.2K  76*3=228 *2
S_REPEAT EQU 5         ;同一频率重复次数   5*132个变化点*(1S/1.5KHZ)=0.4S
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;设置数据寄存器体1
    MOVLW 0000000B
    MOVWF TRISA        ;设置RA端口全部为输出
    BCF STATUS,RP0     ;恢复数据寄存器体0
LOOP
    CALL SOUND800MS    ;调用报警800MS子程序
    GOTO LOOP          ;反复循环报警
;-------------------------------
SOUND800MS
    MOVLW S_LOOP
    MOVWF FRE_COUNT     ;132=208-76 最低频率的计数减去最高频率的计数等于频率变化的次数
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   ;132=208-76
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
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷时W*3US+1US
SOUNDDELAYUS_1
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END

 
 

 

看《匠人手记》,与匠人同行!北航出版,正在热卖!

发表评论:
载入中...

芯片专题

器件专题

软件专题

硬件专题

综合专题

项目专题

原创专题

器件检测
LCD LED
按键 触摸键
E2PROM
电池 电机
电阻 电容 电感

指令系统
软件算法
编程规范
滤波算法
串行通讯

PCB设计
I2C PWM
红外遥控
充电技术
中断 ADC 

匠人手记
匠人夜话
网络心路
一周热点串烧
从零开始玩PIC
DIY旋转时钟

广告5号位 [投放]


学习板、开发板、编程器、下载器、仿真器(查看详情……)

广告3号位 [投放]

站内搜索


站外搜索


百度  google
mp3  歌词 
图片  FLASH 
知道  文档
新闻  词典 
地图  mp3 
软件  天网 
雅虎  爱问 
搜狗  讯雷 
网讯  华军 
天空 

21IC器件搜索
百宝箱分站
  • 《匠人的百宝箱》21IC站
  • 《匠人的百宝箱》21IC笔记团队
  • 《匠人手记》21IC书友会
  • 《匠人的百宝箱》MCUBLOG站
  • 《匠人的百宝箱》MCUBLOG笔记团队
  • 《匠人的百宝箱》EDN站
  • 《匠人手记》EDN书友会
  • 《匠人的百宝箱》与非网站
  • 《匠人的百宝箱》新浪站
  • 《匠人的百宝箱》百度站
  • 《匠人的百宝箱》网易126站
  • 《匠人的百宝箱》网易163站
  • 《匠人的百宝箱》互动出版网站
  • 广告4号位 [投放]

     
     

    匠人原创

    往日酷贴

     
     
     

    大千八卦

    友情连接

    新浪新闻:
    新浪财经:
    AK58新闻:
    新浪股票:
    新浪股票:
    证券之星:

     [更多酷站连接]

     

     

    [欢迎交换连接]

    [百宝箱之与非门分舵]

    [电脑圈圈的家当]

    [IC921的博客]

    [柔月阁]

    [八楼的呼吸]

    [hotpower 的水潭]

    [xwj的文君阁]

    [所长的BLOG]

    [阿摆手记]

    [电子伙伴]

    [unaided的笔记]

    [小飞的笔记]

    [单片机开发联盟]

    [网址之家]

    [好东西网址大全]

    [美萍中文精选]

    [数字电视之家]

    [SMARTCODE电子书斋]

    [软件开发之窗]

    [Armoric]

    [我爱研发网]

    [infernal的笔记]

    [雄鹰的空中加油站]

    [SunK]

    [逍遥电子]

    [ningpanda的博客]

    [C-Design]

    [一网见天下]

    [海边淘沙]

    [嵌入式365]

    [水牛的仓库]

    [股剩是怎样炼成的]

    [PIC论坛]

    [ICC AVR开发网]

    [中国高校自动化网]

     

     

     

    MCU博客-中国电子工程师博客网 

    大学生电子网 

     

     

     

     

     

    !!! 《匠人的百宝箱》 !!!