找回密碼
 立即注冊(cè)

QQ登錄

只需一步,快速開(kāi)始

搜索
查看: 2629|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

單片機(jī)模擬消防車聲音源程序與Proteus仿真

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:34643 發(fā)表于 2020-6-21 08:36 | 只看該作者 |只看大圖 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
單片機(jī)模擬消防車聲音源程序與仿真。能過(guò)仿真測(cè)試,模擬的消防車聲音效果較好。
下載: 51單片機(jī)i消防警報(bào)聲模擬程序與仿真.zip (259.77 KB, 下載次數(shù): 24)
#include <reg51.h>
#include <intrins.h>

#define uchar unsigned char
#define uint  unsigned int

uchar  Count;
        
sbit  K1 = P3^5 ;
sbit  K2 = P3^4 ;
sbit BEEP = P3^6 ;          //蜂鳴器
/********************************************************
鍵控制函數(shù)
*********************************************************/
void key_control()
{

   if(K1==0)
   {
            while(K1==0);
            TR0=1;
   }  
   if(K2==0)
   {
     while(K2==0);
            TR0=0;
   }
}
/********************************************************
延時(shí)函數(shù)
*********************************************************/
void  delay(void)
{
  uint  k;
  for(k=1700;k>0;k--);
}

/*********************************************************
  Time0中斷函數(shù)
**********************************************************/
void Time0(void) interrupt 1 using 0
{
   TH0=0xfe;               
   TL0=Count;
   BEEP=~BEEP;
}

/*********************************************************/

/********************************************************
主函數(shù)
*********************************************************/
main()
{
   P0=0x0;
   P1=0xff;
   P2=0xff;
   Count=0x00;
   BEEP=1;

   TMOD=0x01;
   TH0=0x00; TL0=0xff;      
   EA=1; ET0=1;

   while(1)
   {      
     do
     {
       Count++;
           key_control();
       delay();
     }while(Count!=0xff);

     do
     {
       Count--;
           key_control();
       delay();
     }while(Count!=0x00);
   }
}

評(píng)分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎(jiǎng)勵(lì)!

查看全部評(píng)分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏1 分享淘帖 頂1 踩
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表