PIC警笛声音的程序-电子工程世界

简介：在这里给大家提供一个PIC警笛声音的程序。

;*****************************************************

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

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

;ST套件产生450hz低音

;本实例的目的是让大家学会用单片机产生声音的方法，学会计算程序所用时间

;本实例的功能是能PIC16F84产生低音，

;450HZ,相当于450HZ的方波信号发生器。

;程序复位后,蜂鸣器开始发音

;烧写时应注意：配置位已经在程序中写明，加载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

DECFSZ SOUNDDELAY1,1

GOTO SOUNDDELAYUS_1

RETLW 0

;------------------------

END

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

;ST套件产生救护音

;本实例的目的是让大家学会用单片机产生声音的方法，学会计算程序所用时间

;本实例的功能是能PIC16F84产生救护音，频率分两个1S第一个

;1S频率是440HZ,第二个1S频率是180HZ,反复循环

;程序复位后,蜂鸣器开始报警

;烧写时应注意：配置位已经在程序中写明，加载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

DECFSZ SOUNDDELAY1,1

GOTO SOUNDDELAYUS_1

RETLW 0

;------------------------

END

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

;ST套件产生开道音

;本实例的目的是让大家学会用单片机产生声音的方法，学会计算程序所用时间

;本实例的功能是能PIC16F84产生开道音，每一个3S内频率

;从1.1K-0.5K匀速减少,反复循环。

;程序复位后,蜂鸣器开始报警

;烧写时应注意：配置位已经在程序中写明，加载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

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

;ST套件产生汽笛音800HZ

;本实例的目的是让大家学会用单片机产生声音的方法，学会计算程序所用时间

;本实例的功能是能PIC16F84产生汽笛音800HZ

;相当于800HZ的方波信号发生器。

;程序复位后,蜂鸣器开始发音

;烧写时应注意：配置位已经在程序中写明，加载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

DECFSZ SOUNDDELAY1,1

GOTO SOUNDDELAYUS_1

RETLW 0

;------------------------

END

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

;ST套件产生治安音

;本实例的目的是让大家学会用单片机产生声音的方法，学会计算程序所用时间

;本实例的功能是能PIC16F84产生治安音，频率分两个0.4s第一个

;0.4S频率从1.8K-2.2K匀速增加第二个0.4S频率从2.2K-1.8K匀速减少,

;程序复位后,蜂鸣器开始报警

;烧写时应注意：配置位已经在程序中写明，加载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

关键字：PIC 警笛声音引用地址：PIC警笛声音的程序

上一篇：PIC16f877A AD转换LED显示8位值
下一篇：对PIC CCS编译器的一些使用心得

推荐阅读最新更新时间：2024-11-17 07:12

PIC16C71/PIC16C84单片机应用中问题和对策

一：PIC16C71单片机的问题和对策问题1：在芯片进入低功耗睡眠模式 (SLEEP MODE)后，其振荡脚将处于浮态，这将使芯片的睡眠功耗上升，比原手册中的指标高了10μA以上。对策：在振荡脚OSC1和地 (GND)之间加一10MΩ电阻可防止OSC1进入浮态，且不会影响单片机正常振荡。问题2：RA口方向寄存器TRISA目前只是一个4位寄存器，对应于RA0~RA3，并非手册中所言是8位寄存器，对应于RA0~RA4，即RA4并没有相应的输入/输出方向控制位，它是一个具有开极输出，施密特输入I/O脚。对策：避免使用对RA口进行读-修改-写指令（如BCF RA， BSF RA），以免非意愿地改变RA4的输入/输出

[单片机]

基于PIC16C72单片机的空调控制系统的研制

摘要：提出一种基于单片机PIC16C72的热泵式分体壁挂空调控制系统的设计方案。设计出系统硬件结构的主要组成部分电路；简述其工作原理；给出软件设计思想和主控程序软件框图。关键词： PIC单片机空调控制热泵式分体壁挂空调以其优越的性能，已越来越被广大家庭所选用，其功能更是日新月异，而对其功能的提高起核心作用的其控制系统。本文介绍一种基于PIC16C72控制的空调控制系统设计方法。该系统具有制冷、制热、除湿、自动4种工作模式，包括定时、睡眠、风向、智能化霜、应急运转、试运转以及5种可调室内风速等控制功能；在定时开机时，可根据访间温度作智能判断，自动调整定时开机时间，避免开机时太冷或太

[传感技术]

PIC单片机软件编程技巧

项目是有关机器人控制的实现。控制部分采用PICl6F7X系列单片机，运用汇编语言编程，运行速度较快，能够达到系统的要求。在这里使用的大多是数字信号的控制，电机的控制只有开和合两种状态。在动作的过程中需要两只手臂、身体、头部、脚部等的协调动作。整个控制系统比较复杂，因而在PIC程序编写和空间分配方面需要注意一些问题。 1、动作标志位的使用在整个控制中，组合的动作很多，当所有动作定位都通过光电开关控制时，在程序编写上就有一些问题。如要求左手上升到鼓掌位、右手上升到举手位(手初始位置在最下的放下位)，光电开关0有效(即为0时是挡住)，到达正确位置。用简单的理解可以写成下面的程序： list P=16c73 call left

[单片机]

通过PIC单片机使用DHT21温度传感器

//****************************************************************// // DHT21使用范例 //单片机： AT89S52 或 STC89C52RC // 功能：串口发送温湿度数据波特率 9600 //****************************************************************// #include p18f4620.h #include string.h // typedef unsigned char U8; /* defined for unsigned 8-bits i

[单片机]

PIC之CCP输出比较

/*CCP1输出比较*/ #include pic.h void initPORTB(void); void initCCP1(void); void interrupt CCP1INT(void); void main() { initPORTB(); initCCP1(); while(1) { } } void initCCP1() { TRISC=0x00; T1CON=0x00; CCPR1H=0x61; CCPR1L=0xa8; CCP1CON=0x0a; CCP1IE=1; PEIE=1; GIE=1; TMR1ON=1; } void interrupt CCP1INT(void) {CCP1IF=0; TM

[单片机]

【PIC32MZ】Timer定时器

PIC32MZ有多达9组Timer，但是并非任何时候都能同时使用，主要是在使用32位计数器时的问题。 Timer的2、4、6、8定时器支持16位和32位，但是在使用32位，占用的ID并非自身，而是下一个。以Timer4为例，在system_interrupt中可以看到，若是使用16位模式，显示为Timer4，而使用32位时，其使用的是Timer5。如果同时使用Timer4的32位和Timer5，生成代码时，则会出现冲突提示。还有就是设置系统频率时需要注意，若是要求较短间隔(us)，最好使用32位模式，因为分频后的频率数值若是超过计数器长度，则无法正常使用，并且没有提示，你会看到定时器没有起作用。以下使用timer4

[单片机]

【<font color='red'>PIC</font>32MZ】Timer定时器

PIC单片机双机异步通信程序详解

1 单片机PIC1编程(发送部分) #include /*该程序实现单片机双机异步通信功能，该程序是发送部分*/ unsigned char tran ; /*定义一个数组存储发送数据*/ unsigned char k，data; /*定义通用寄存器*/ cONST char table ={0xc0，0xf9，0xa4，0xb0，0x99，0x92，0x82，0XD8，0x80， 0x90，0x88，0x83，0xc6，0xa1，0x86，0x8e，0x7f，0xbf，0x89，0xff}; /*不带小数点的显示段码表*/ /*SPI显示初始化子程序*/ void SPIINIT() {

[单片机]

PIC16F874在喷织机控制系统中的应用

正在运行的纺织机因故障、交班等其他原因需要停机后，再开机时就会出现纬线之间不均匀现象，不是2条纬线之间间隙过大，就是间隙太小，结果都会使所织布匹出现次品，虽然一次停机造成损失不太大，但由于停机是经常性的，积累起来的损失就大了。所以需要在每次重新开机前对纬线进行松紧调整，由于其精度高，手动调整很难调到最佳状态，且费时费力。本控制器基于PIC16F874单片机设计了纺织机松紧度调整控制器，成功地解决了该问题。具有精度高、运行可靠方便、性价比高等优点。 1　控制器工作原理松紧度调整控制器是一个独立的控制部件，安装在纺织机的机身上，其控制系统由检测电路、输出控制电路、设定显示电路等几部分组成。控制器原理框图如图1所示。

[单片机]

热门资源推荐
热门放大器推荐

小广播

PIC警笛声音的程序

设计资源 培训 开发板 精华推荐

设计资源培训开发板精华推荐