机电之家资源网
|  网站首页  |  设备管理  |  安全生产  |  工程管理  |  免费论文  |  行业培训  |  电工园地  | 设为首页
|  机电网址  |  应急预案  |  工程论文  |  变频技术  |  行业下载  |  防雷接地  |  机床技术  | 加入收藏
|  供应信息  |  求购信息  |  创业招商  |  职业认证  |  产品展台  |  行业展会  |  招聘求职  | 联系我们
单片机首页|单片机基础|单片机应用|单片机开发|单片机文案|软件资料下载|音响制作|电路图下载 |嵌入式开发
   位置： 机电之家下载站 >> 单片机技术网 >> 单片机应用 >> PIC单片机 >> 正文
热门文章
推荐文章
培训信息
·单片机基础班近期火爆招生！
·杭州PLC培训
·江苏/上海PLC培训
·北京PLC培训
·东莞单片机开发实战班
·嵌入式单片机开发工程师
·模具设计培训
·南昌百瑞装载机培训
·智能建筑弱电工程师培训
·电工、焊工培训考证
·变频器、PLC专业培训
·重庆UG数控编程培训
·单片机基础班近期火爆招生！
·无锡园林设计培训—无锡蓝天
·继电保护专业技术培训
·无锡PLC培训—无锡蓝天培
·SMT资格认证
·兰州市---现代设备润滑管
赞助商
警笛声音的PIC程序
警笛声音的PIC程序
作者:jdzj868  来源:机电之家下载站  录入:jdzj868  更新时间：2009-12-12 11:09:05  点击数：0
【字体： 字体颜色】

--  给你几个程序参考

;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
  • 上一篇： PIC16C711电压检测程序
  • 下一篇： 没有了
    		•
    发表评论   告诉好友   打印此文  收藏此页  关闭窗口  返回顶部
    热点文章
    		 
    推荐文章
    		 
    相关文章
    网友评论：（只显示最新5条。）
    关于我们　|　联系我们　|　广告合作　|　付款方式　|　使用帮助 | 机电之家 | 会员助手 | 免费链接

    点击这里给我发消息66821730(技术支持)点击这里给我发消息66821730(广告投放) 点击这里给我发消息41031197(编辑) 点击这里给我发消息58733127(审核)
    本站提供的机电设备，机电供求等信息由机电企业自行提供，该企业负责信息内容的真实性、准确性和合法性。
    机电之家对此不承担任何保证责任，有侵犯您利益的地方请联系机电之家，机电之家将及时作出处理。
    Copyright 2007 机电之家 Inc All Rights Reserved.机电之家-由机电一体化网更名-声明
    电话：0571-87774297 传真：0571-87774298
    杭州滨兴科技有限公司提供技术支持

    主办：杭州市高新区（滨江）机电一体化学会
    中国行业电子商务100强网站

    网站经营许可证:浙B2-20080178-1