簡介：在這里給大家提供一個PIC警笛聲音的程序。

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

LIST P=16F84A,R=DEC ;定義器件,默認(rèn)為十進制

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

__CONFIG B\'11111111110001\';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC

;沒有代碼保護

;看門狗關(guān)閉

;上電廷時器開啟

;振蕩器模式為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 ;聲音頻率變化計數(shù)器，從1.8~3.55KHZ

FRE_COUNT EQU 11H ;同一頻率的重復(fù)次數(shù)保存地址

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 ;同一頻率重復(fù)次數(shù)

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

ORG 0000H

MAIN

CLRF PORTA ;初始化IO口

BSF STATUS,RP0 ;設(shè)置數(shù)據(jù)寄存器體1

MOVLW 0000000B

MOVWF TRISA ;設(shè)置RA端口全部為輸出

BCF STATUS,RP0 ;恢復(fù)數(shù)據(jù)寄存器體0

LOOP

CALL SOUND200MS ;調(diào)用報警200MS子程序

GOTO LOOP ;反復(fù)循環(huán)報警

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

SOUND200MS

MOVLW S_LOOP

MOVWF FRE_COUNT ;46=93-47 最低頻率的計數(shù)減去最高頻率的計數(shù)等于頻率變化的次數(shù)

SOUND_LH_LP

MOVLW S_REPEAT ;同一頻率重復(fù)次數(shù)送FRE_REPEAT

MOVWF FRE_REPEAT

MOVFW FRE_COUNT

ADDLW S_MIN ;計數(shù)值加最小值

MOVWF TEMP

REPEAT0_LP

MOVFW TEMP

BSF PORTA,0

CALL SOUNDDELAY0 ;廷時W*3US

BCF PORTA,0

MOVFW TEMP

CALL SOUNDDELAY0

DECFSZ FRE_REPEAT,1 ;每四次減頻率計數(shù)一次

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 ;同一頻率重復(fù)次數(shù)送FRE_REPEAT

MOVWF FRE_REPEAT

MOVFW FRE_COUNT

SUBLW S_MAX ;最大值減計數(shù)值

MOVWF TEMP

REPEAT1_LP

MOVFW TEMP

BSF PORTA,0

CALL SOUNDDELAY0 ;廷時W*3US

BCF PORTA,0

MOVFW TEMP

CALL SOUNDDELAY0

DECFSZ FRE_REPEAT,1;四次減頻率計數(shù)一次

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套件產(chǎn)生450hz低音

;本實例的目的是讓大家學(xué)會用單片機產(chǎn)生聲音的方法，學(xué)會計算程序所用時間

;本實例的功能是能PIC16F84產(chǎn)生低音，

;450HZ,相當(dāng)于450HZ的方波信號發(fā)生器。

;程序復(fù)位后,蜂鳴器開始發(fā)音

;燒寫時應(yīng)注意：配置位已經(jīng)在程序中寫明，加載HEX文件時會自動加載，燒寫時不用再手動設(shè)置配置位。

;實驗時請注意套件跳線選擇；

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

LIST P=16F84A,R=DEC ;定義器件,默認(rèn)為十進制

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

__CONFIG B\'11111111110001\';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC

;沒有代碼保護

;看門狗關(guān)閉

;上電廷時器開啟

;振蕩器模式為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 ;聲音頻率變化計數(shù)器，從1.1K~0.5KHZ

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

ORG 0000H

MAIN

CLRF PORTA ;初始化IO口

BSF STATUS,RP0 ;設(shè)置數(shù)據(jù)寄存器體1

MOVLW 0000000B

MOVWF TRISA ;設(shè)置RA端口全部為輸出

BCF STATUS,RP0 ;恢復(fù)數(shù)據(jù)寄存器體0

SOUND

MOVLW 222 ;450HZ反復(fù)循環(huán)

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

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

;ST套件產(chǎn)生救護音

;本實例的目的是讓大家學(xué)會用單片機產(chǎn)生聲音的方法，學(xué)會計算程序所用時間

;本實例的功能是能PIC16F84產(chǎn)生救護音，頻率分兩個1S第一個

;1S頻率是440HZ,第二個1S頻率是180HZ,反復(fù)循環(huán)

;程序復(fù)位后,蜂鳴器開始報警

;燒寫時應(yīng)注意：配置位已經(jīng)在程序中寫明，加載HEX文件時會自動加載，燒寫時不用再手動設(shè)置配置位。

;實驗時請注意套件跳線選擇；

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

LIST P=16F84A,R=DEC ;定義器件,默認(rèn)為十進制

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

__CONFIG B\'11111111110001\';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC

;沒有代碼保護

;看門狗關(guān)閉

;上電廷時器開啟

;振蕩器模式為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 ;聲音頻率高低電平廷時計數(shù)器

FRE_REPEATH EQU 11H ;同一頻率的重復(fù)次數(shù)外部循環(huán)

FRE_REPEATL EQU 12H ;同一頻率的重復(fù)次數(shù)內(nèi)部循環(huán)

TEMP EQU 14H ;暫存寄存器

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

ORG 0000H

MAIN

CLRF PORTA ;初始化IO口

BSF STATUS,RP0 ;設(shè)置數(shù)據(jù)寄存器體1

MOVLW 0000000B

MOVWF TRISA ;設(shè)置RA端口全部為輸出

BCF STATUS,RP0 ;恢復(fù)數(shù)據(jù)寄存器體0

LOOP

CALL SOUND2S ;調(diào)用報警200MS子程序

GOTO LOOP ;反復(fù)循環(huán)報警

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

SOUND2S ;先440HZ 1S

MOVLW 189

MOVWF TEMP ;440HZ頻率高低電平廷時值送TEMP 1S/[(189*6)US*2]=440HZ

MOVLW 2 ;同一頻率重復(fù)次數(shù)外部循環(huán)送初值

MOVWF FRE_REPEATH

SOUND2S_1

MOVLW 220

MOVFW FRE_REPEATL ;同一頻率重復(fù)次數(shù)內(nèi)部循環(huán)送初值220*2=440次,440HZ頻率重復(fù)440次即1S

REPEAT0_LP

MOVFW TEMP

BSF PORTA,0

CALL SOUNDDELAY0 ;廷時W*6US 440hz正半周

BCF PORTA,0

MOVFW TEMP

CALL SOUNDDELAY0 ;廷時W*6US 440hz負(fù)半周

DECFSZ FRE_REPEATL,1

GOTO REPEAT0_LP

DECFSZ FRE_REPEATH,1 ;同一頻率持續(xù)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 ;同一頻率重復(fù)次數(shù)送初值180HZ頻率重復(fù)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負(fù)半周

MOVFW TEMP

CALL SOUNDDELAY0

DECFSZ FRE_REPEATL,1 ;同一頻率持續(xù)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

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

;ST套件產(chǎn)生開道音

;本實例的目的是讓大家學(xué)會用單片機產(chǎn)生聲音的方法，學(xué)會計算程序所用時間

;本實例的功能是能PIC16F84產(chǎn)生開道音，每一個3S內(nèi)頻率

;從1.1K-0.5K勻速減少,反復(fù)循環(huán)。

;程序復(fù)位后,蜂鳴器開始報警

;燒寫時應(yīng)注意：配置位已經(jīng)在程序中寫明，加載HEX文件時會自動加載，燒寫時不用再手動設(shè)置配置位。

;實驗時請注意套件跳線選擇；

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

LIST P=16F84A,R=DEC ;定義器件,默認(rèn)為十進制

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

__CONFIG B\'11111111110001\';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC

;沒有代碼保護

;看門狗關(guān)閉

;上電廷時器開啟

;振蕩器模式為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 ;聲音頻率變化計數(shù)器，從1.1K~0.5KHZ

FRE_COUNT EQU 11H ;同一頻率的重復(fù)次數(shù)保存地址

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 ;同一頻率重復(fù)次數(shù)

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

ORG 0000H

MAIN

CLRF PORTA ;初始化IO口

BSF STATUS,RP0 ;設(shè)置數(shù)據(jù)寄存器體1

MOVLW 0000000B

MOVWF TRISA ;設(shè)置RA端口全部為輸出

BCF STATUS,RP0 ;恢復(fù)數(shù)據(jù)寄存器體0

LOOP

CALL SOUND3S ;調(diào)用報警3S子程序

GOTO LOOP ;反復(fù)循環(huán)報警

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

SOUND3S

MOVLW S_LOOP

MOVWF FRE_COUNT ;136=250-114

SOUND_HL_LP

MOVLW S_REPEAT ;同一頻率重復(fù)次數(shù)送FRE_REPEAT

MOVWF FRE_REPEAT

MOVFW FRE_COUNT

SUBLW S_MAX ;最大值減計數(shù)值

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次減頻率計數(shù)一次

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套件產(chǎn)生汽笛音800HZ

;本實例的目的是讓大家學(xué)會用單片機產(chǎn)生聲音的方法，學(xué)會計算程序所用時間

;本實例的功能是能PIC16F84產(chǎn)生汽笛音800HZ

;相當(dāng)于800HZ的方波信號發(fā)生器。

;程序復(fù)位后,蜂鳴器開始發(fā)音

;燒寫時應(yīng)注意：配置位已經(jīng)在程序中寫明，加載HEX文件時會自動加載，燒寫時不用再手動設(shè)置配置位。

;實驗時請注意套件跳線選擇；

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

LIST P=16F84A,R=DEC ;定義器件,默認(rèn)為十進制

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

__CONFIG B\'11111111110001\';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC

;沒有代碼保護

;看門狗關(guān)閉

;上電廷時器開啟

;振蕩器模式為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 ;聲音頻率變化計數(shù)器，從1.1K~0.5KHZ

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

ORG 0000H

MAIN

CLRF PORTA ;初始化IO口

BSF STATUS,RP0 ;設(shè)置數(shù)據(jù)寄存器體1

MOVLW 0000000B

MOVWF TRISA ;設(shè)置RA端口全部為輸出

BCF STATUS,RP0 ;恢復(fù)數(shù)據(jù)寄存器體0

SOUND

MOVLW 125 ;800HZ反復(fù)循環(huán)

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

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

;ST套件產(chǎn)生治安音

;本實例的目的是讓大家學(xué)會用單片機產(chǎn)生聲音的方法，學(xué)會計算程序所用時間

;本實例的功能是能PIC16F84產(chǎn)生治安音，頻率分兩個0.4s第一個

;0.4S頻率從1.8K-2.2K勻速增加第二個0.4S頻率從2.2K-1.8K勻速減少,

;程序復(fù)位后,蜂鳴器開始報警

;燒寫時應(yīng)注意：配置位已經(jīng)在程序中寫明，加載HEX文件時會自動加載，燒寫時不用再手動設(shè)置配置位。

;實驗時請注意套件跳線選擇；

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

LIST P=16F84A,R=DEC ;定義器件,默認(rèn)為十進制

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

__CONFIG B\'11111111110001\';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC

;沒有代碼保護

;看門狗關(guān)閉

;上電廷時器開啟

;振蕩器模式為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 ;聲音頻率變化計數(shù)器，從0.8~2.2KHZ

FRE_COUNT EQU 11H ;同一頻率的重復(fù)次數(shù)保存地址

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 ;同一頻率重復(fù)次數(shù) 5*132個變化點*(1S/1.5KHZ)=0.4S

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

ORG 0000H

MAIN

CLRF PORTA ;初始化IO口

BSF STATUS,RP0 ;設(shè)置數(shù)據(jù)寄存器體1

MOVLW 0000000B

MOVWF TRISA ;設(shè)置RA端口全部為輸出

BCF STATUS,RP0 ;恢復(fù)數(shù)據(jù)寄存器體0

LOOP

CALL SOUND800MS ;調(diào)用報警800MS子程序

GOTO LOOP ;反復(fù)循環(huán)報警

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

SOUND800MS

MOVLW S_LOOP

MOVWF FRE_COUNT ;132=208-76 最低頻率的計數(shù)減去最高頻率的計數(shù)等于頻率變化的次數(shù)

SOUND_LH_LP

MOVLW S_REPEAT ;同一頻率重復(fù)次數(shù)送FRE_REPEAT

MOVWF FRE_REPEAT

MOVFW FRE_COUNT

ADDLW S_MIN ;計數(shù)值加最小值

MOVWF TEMP

REPEAT0_LP

MOVFW TEMP

BSF PORTA,0

CALL SOUNDDELAY0 ;廷時W*3US

BCF PORTA,0

MOVFW TEMP

CALL SOUNDDELAY0

DECFSZ FRE_REPEAT,1 ;每五次減頻率計數(shù)一次

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 ;同一頻率重復(fù)次數(shù)送FRE_REPEAT

MOVWF FRE_REPEAT

MOVFW FRE_COUNT

SUBLW S_MAX ;最大值減計數(shù)值

MOVWF TEMP

REPEAT1_LP

MOVFW TEMP

BSF PORTA,0

CALL SOUNDDELAY0 ;廷時W*3US

BCF PORTA,0

MOVFW TEMP

CALL SOUNDDELAY0

DECFSZ FRE_REPEAT,1;五次減頻率計數(shù)一次

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

總結(jié)

以上是生活随笔為你收集整理的警笛声c语言程序,PIC警笛声音的程序的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。