设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › PIC单片机 › 警报声原理图+pic单片机源程序
返回列表 发新帖
查看: 5235|回复: 5
打印 上一主题 下一主题
收起左侧

警报声原理图+pic单片机源程序

[复制链接]
跳转到指定楼层
楼主
ID:257277 发表于 2017-12-4 17:14 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
1脚为电源端接5V电源，8脚接地， 4脚为控制端，暂不用.2,6,7脚为警音
        控制端，按下S1、S2、S3可发出不同的警音
       5脚为音频输出端,当停止音频输出时,该脚置低;
电路原理图如下：


pic单片机源程序如下:
  1. #include<p12f629.inc>       ;
  2. #include <pic12f629.inc>
  3.     __config 0x3F4C ;_CPC_ON & _CPU_ON & _CPP_ON & _PWRTE_OFF & _WDT_ON & _FOSC_HS ; 0x3F4C

  5. ; RAM-Variable

  7. CSR1         equ 0x20
  8. CSR2        equ 0x21
  9. STATUS_TEMP equ 0x2C
  10. PCL_TEMP equ 0x2D
  11. DE_TIME1 equ 0x22
  12. DE_TIME0 equ 0x23
  13. DE_TIME2 equ 0x24
  14. DE_TIME3 equ 0x25
  15. TIME_TMP0 equ 0x26
  16. TIME_TMP1 equ 0x27
  17. SOUND_D_TIME0 equ 0x28
  18. SOUND_D_TIME1 equ 0x29
  19. DE_TMEP0 equ 0x2A
  20. DE_TMEP1 equ 0x2B
  21. CON_SOUND equ 0x55
  22. SOUND_B_TIME0 equ 0x56
  23. SOUND_B_TIME1 equ 0x57
  24. SOUND_D_TIME2 equ 0x58
  25. CON_A_STAY equ 0x59
  26. TR0_TIME equ 0x5A
  27. SOUND_C_TIME1 equ 0x5B
  28. SOUND_D_TIME3 equ 0x5C
  29. SOUND_C_TIME0 equ 0x5D
  30. W_TEMP equ 0x5E

  32. ; Program

  34.     Org 0x0000

  36. ;   Reset-Vector
  37.     GOTO MAIN

  39.     Org 0x0004

  41. ;   Interrupt-Vector
  42.     MOVWF W_TEMP
  43.     SWAPF STATUS,W
  44.     BCF STATUS,RP0      
  45.     MOVWF STATUS_TEMP
  46.     MOVF PCLATH,W      
  47.     MOVWF PCL_TEMP
  48.     GOTO Interrupt_0
  49. Interrupt_0
  50.     BTFSC INTCON,T0IF
  51.     BTFSS INTCON,T0IE
  52.     GOTO Interrupt_exit
  53.     MOVF TR0_TIME,W
  54.     ADDWF TMR0,F         
  55.     MOVLW 0x04
  56.     BCF INTCON,T0IF
  57.     BSF CON_SOUND,2
  58.         XORWF GPIO,F
  59.     CLRWDT
  60. Interrupt_exit
  61.     MOVF PCL_TEMP,W
  62.     MOVWF PCLATH         
  63.     SWAPF STATUS_TEMP,W
  64.     MOVWF STATUS
  65.     SWAPF W_TEMP,F
  66.     SWAPF W_TEMP,W
  67.     RETFIE
  68. ;*****************************************
  69. RAM_00
  70.     MOVLW 0x49
  71.     MOVWF CSR1
  72.     MOVLW 0x21
  73.     MOVWF CSR2
  74. MAIN_RAM
  75.     INCF CSR2,F
  76.     MOVF CSR2,W
  77.     MOVWF FSR
  78.     CLRF INDF
  79.     DECFSZ CSR1,F
  80.     GOTO MAIN_RAM     
  81.     CLRF CSR2
  82.     RETURN

  84. MAIN
  85.     CALL RAM_00

  87.     BSF STATUS,RP0      
  88.     ;CALL LADR_0x03FF
  89.     ;MOVWF SFR_0x10      
  90.     CLRF STATUS
  91.     MOVLW 0xA7
  92.     CLRF SOUND_B_TIME0
  93.     CLRF SOUND_B_TIME1
  94.     CLRF SOUND_D_TIME2
  95.     CLRF CON_A_STAY
  96.     CLRF TR0_TIME
  97.     CLRF SOUND_C_TIME1
  98.     MOVWF SOUND_D_TIME3
  99.     MOVLW 0xFE
  100.     MOVWF SOUND_C_TIME0
  101.     CLRF STATUS

  103.     MOVLW 0x58
  104.     MOVWF TIME_TMP0
  105.     MOVLW 0x02
  106.     MOVWF TIME_TMP1
  107.     ;CALL DELAY_0
  108.     MOVLW 0x07
  109.     MOVWF CMCON ;SFR_0x19       ; !!Warning: SFR_0x19 is Unimplemented
  110.     MOVLW 0x81
  111.     BSF STATUS,RP0      
  112.     MOVWF TMR0         
  113.     MOVLW 0x3B  ;0x3B
  114.     MOVWF GPIO  ;PORTA         
  115.     BCF STATUS,RP0      
  116.     CLRF GPIO  ;PORTA         
  117.     BSF INTCON,GIE
  118.     CLRF GPIO   ;PORTA         
  119.     GOTO SEARCH_KEY

  121. WHILE_0
  122.     BTFSS CON_SOUND,5
  123.     GOTO WHILE_1
  124.     BCF CON_SOUND,0
  125.     CALL LADR_0x0154

  127. SEARCH_KEY
  128.     CLRWDT
  129.     BCF STATUS,RP0      
  130.     BTFSC GPIO  ,4        ;BTFSC GPIO  ,4   ;PORTA,4         
  131.     GOTO SOUND_A_0
  132.     BTFSC   GPIO,5      
  133.     GOTO SOUND_B_0
  134.     BTFSC GPIO,0   ;PORTA,0      
  135.     GOTO SOUND_C_0
  136.     BTFSC GPIO,1  ;  PORTA,1      
  137.     GOTO SOUND_D_0
  138.     BTFSS GPIO   ,1   ;PORTA,1      
  139.     GOTO WHILE_0

  141.    


  144. WHILE_1

  146.     CLRF GPIO   ;PORTA         
  147.     MOVLW 0xA7
  148.     BCF INTCON,T0IE
  149.     BCF CON_SOUND,5
  150.     BCF CON_SOUND,0
  151.     MOVWF SOUND_D_TIME3
  152.     BCF GPIO,2   ;   PORTA,2         
  153.     GOTO SEARCH_KEY


  156. ;********************************
  157. SOUND_A_0
  158.     BTFSC CON_SOUND,0
  159.     GOTO SOUND_A_1
  160.     BSF INTCON,T0IE
  161.     BSF CON_SOUND,0
  162.     BCF CON_SOUND,5
  163. SOUND_A_1
  164.     CALL SOUND_A_2
  165.     GOTO SEARCH_KEY

  167. SOUND_A_2
  168.     BSF STATUS,RP0      
  169.     MOVF TMR0,W         
  170.     XORLW 0x81
  171.     BTFSC STATUS,Z
  172.     GOTO SOUND_A_3
  173.     MOVLW 0x81
  174.     MOVWF TMR0           
  175. SOUND_A_3
  176.     BCF STATUS,RP0      
  177.     BTFSS CON_SOUND,2
  178.     RETURN
  179.     BCF CON_SOUND,2
  180.     INCFSZ CON_A_STAY,F
  181.     GOTO SOUND_A_5
  182. SOUND_A_EXIT
  183.     MOVLW 0x3B
  184.     MOVWF TR0_TIME
  185.     RETURN

  187. SOUND_A_5
  188.     MOVLW 0x02
  189.     SUBWF CON_A_STAY,W
  190.     BTFSC STATUS,C
  191.     GOTO SOUND_A_6
  192. SOUND_A_51
  193.     MOVLW 0x76
  194.     MOVWF TR0_TIME
  195.     RETURN
  196. SOUND_A_6
  197.     MOVLW 0x03
  198.     SUBWF CON_A_STAY,W
  199.     BTFSC STATUS,C
  200.     GOTO SOUND_A_7
  201. SOUND_A_61
  202.     MOVLW 0x8F
  203.     MOVWF TR0_TIME
  204.     RETURN
  205. SOUND_A_7
  206.     MOVLW 0x04
  207.     SUBWF CON_A_STAY,W
  208.     BTFSC STATUS,C
  209.     GOTO SOUND_A_8
  210. SOUND_A_71
  211.     MOVLW 0x94
  212.     MOVWF TR0_TIME
  213.     RETURN
  214. SOUND_A_8
  215.     MOVLW 0x05
  216.     SUBWF CON_A_STAY,W
  217.     BTFSC STATUS,C
  218.     GOTO SOUND_A_9
  219. SOUND_A_81
  220.     MOVLW 0xA3
  221.     MOVWF TR0_TIME
  222.     RETURN
  223. SOUND_A_9
  224.     MOVLW 0x06
  225.     SUBWF CON_A_STAY,W
  226.     BTFSS STATUS,C
  227.     GOTO SOUND_A_81
  228.     MOVLW 0x07
  229.     SUBWF CON_A_STAY,W
  230.     BTFSS STATUS,C
  231.     GOTO SOUND_A_71
  232.     MOVLW 0x08
  233.     SUBWF CON_A_STAY,W
  234.     BTFSS STATUS,C
  235.     GOTO SOUND_A_61
  236.     MOVLW 0x09
  237.     SUBWF CON_A_STAY,W
  238.     BTFSS STATUS,C
  239.     GOTO SOUND_A_51
  240.     CLRF CON_A_STAY
  241.     GOTO SOUND_A_EXIT



  245. ;********************************
  246. SOUND_B_0
  247.     BTFSC CON_SOUND,0
  248.     GOTO SOUND_B_1
  249.     BSF INTCON,T0IE
  250.     BSF CON_SOUND,0
  251.     BCF CON_SOUND,5
  252.     CLRF SOUND_B_TIME0
  253.     CLRF SOUND_B_TIME1
  254. SOUND_B_1
  255.     CALL SOUND_B_2
  256.     GOTO SEARCH_KEY


  259. SOUND_B_2
  260.     BSF STATUS,RP0      
  261.     MOVF TMR0,W         
  262.     XORLW 0x81
  263.     BTFSC STATUS,Z
  264.     GOTO SOUND_B_3
  265.     MOVLW 0x81
  266.     MOVWF TMR0           
  267. SOUND_B_3
  268.     BCF STATUS,RP0      
  269.     BTFSS CON_SOUND,1
  270.     GOTO SOUND_B_5
  271.     MOVLW 0x66
  272.     MOVWF TR0_TIME
  273.     BTFSS CON_SOUND,2
  274.     RETURN
  275.     BCF CON_SOUND,2
  276.     INCF SOUND_B_TIME0,F
  277.     BTFSC STATUS,Z
  278.     INCF SOUND_B_TIME1,F
  279.     DECF SOUND_B_TIME1,W
  280.     MOVLW 0x90
  281. SOUND_B_4
  282.     BTFSC STATUS,Z
  283.     XORWF SOUND_B_TIME0,W
  284.     BTFSS STATUS,Z
  285.     RETURN
  286.     MOVLW 0x02
  287.     CLRF SOUND_B_TIME0
  288.     CLRF SOUND_B_TIME1
  289.         XORWF CON_SOUND,F
  290.     RETURN
  291. SOUND_B_5
  292.     MOVLW 0x85
  293.     …………
  294. …………
  295. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
警报声程序.rar (2.07 KB, 下载次数: 37)



评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励！

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏2 分享淘帖 顶顶 踩踩
回复

使用道具 举报

沙发
ID:331059 发表于 2018-5-16 10:23 | 只看该作者
你好 请问有c语言的源程序可以发一个吗
回复

使用道具 举报

板凳
ID:138119 发表于 2019-1-22 23:36 | 只看该作者
注意：下载的文件是汇编格式的。
回复

使用道具 举报

地板
ID:536354 发表于 2023-5-8 18:57 | 只看该作者
是不是随便一个型号都行？
回复

使用道具 举报

5#
ID:328023 发表于 2023-8-5 08:28 | 只看该作者
初学者水平，
回复

使用道具 举报

6#
ID:1083996 发表于 2023-8-24 11:52 | 只看该作者
一直想找世界各地的警报的频谱，比如频率，波形，占空比等参数，没有资料，有知道的吗？
比如咱的119,120，其他地区的 笛频率，波形等信息
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

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