91av视频/亚洲h视频/操亚洲美女/外国一级黄色毛片 - 国产三级三级三级三级

  • 大小: 40KB
    文件類型: .rar
    金幣: 2
    下載: 1 次
    發布日期: 2021-08-02
  • 語言: 其他
  • 標簽: C51??

資源簡介

51程序紅外模塊檢測有紅外線后(人或動物出現)蜂鳴器報警,數碼管顯示倒計時停止報警(附加原理圖)

資源截圖

代碼片段和文件信息

#include??		?

#define?u8?unsigned?char
#define?u16?unsigned?int ???

#define?Dla?P1 ?//數碼管段

u8?TIME=0; ?//=20計時?1?s
u8?TIMES=0; ?//=1?計時?1?s
u8?TIMEM=0; ?//=1?計時?1?min

sbit?Wla1?=?P0^2;? ?//數碼管位
sbit?Wla2?=?P0^3; ?//數碼管位

sbit?Beep?=?P3^6; ??//Beep
sbit?Din?=?P3^4;? ??//Din
sbit?Led?=?P3^5; ??//Led

u8?code?table[16]={0x3f0x060x5b0x4f0x660x6d0x7d0x070x7f0x6f0x770x7c0x390x5e0x790x71};??//0-F?編碼

void?display(u8?time);//顯示time

void?Delayms(u8?ms);??//延時ms毫秒

void?TimerInit(void);?//定時器初始化

void?main()?
{?
TimerInit();
while(1)?
{
? if(Din)
{
TR0=1; //啟動定時器0
Led=0;
Beep=0;
}
else
{
Led=1;
TR0=0;??//關閉定時器0
Beep=1;
TIMES=0;
}
display(TIMES); ??//顯示
}
}

void?TimerInit(void)
{
? TMOD=0x11; //GATE?C/T?M0?M1?GATE?C/T?M0?M1
TH0=(65536-50000)/256; //50MS初值
TL0=(65536-50000)%256; //50MS初值
EA=1;
ET0=1;
TR0=0;
}
void?display(u8?time)
{
u8?shi=0ge=0; ??
shi=time/10;
ge=time%10;

Wla2=1; ??
Dla=~table[shi];
Delayms(1);
Wla2=0;

Dla=0xFF;

Wla1=1; ??
Dla=~table[ge];
Delayms(1);
Wla1=0;

Dla=0xFF;
}
void?Delayms(u8?ms)
{
u8?i=0;
for(i=0;i {
TH1=(65536-1000)/256; //1MS初值
TL1=(65536-1000)%256;
TR1=1;
while(!TF1);
TF1=0;
}
TR1=0;
}
void?timer0()?interrupt?1
{
TH0=(65536-50000)/256;
TL0=(65536-50000)%256;
TIME++;
if(TIME==20)
{
TIME=0;
TIMES++;
if(TIMES==60)
{
TIMEM++;
if(TIMEM==60)
TIMEM=0;
}
}
}

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????399??2015-04-22?16:23??紅外報警程序\keilkilll.bat

?????文件???????2369??2017-05-04?20:20??紅外報警程序\Obj\紅外報警

?????文件????????258??2017-05-04?20:20??紅外報警程序\Obj\紅外報警.hex

?????文件?????193536??2017-05-05?17:04??紅外報警程序\Sheet1.SchDoc

?????文件???????5707??2017-05-05?09:56??紅外報警程序\User\Obj\紅外報警

?????文件???????1053??2017-05-05?09:56??紅外報警程序\User\Obj\紅外報警.hex

?????文件???????6376??2017-05-04?19:10??紅外報警程序\User\STARTUP.A51

?????文件???????1613??2017-05-05?10:22??紅外報警程序\User\紅外報警.c

?????文件???????9274??2017-05-05?09:56??紅外報警程序\User\紅外報警.m51

????.......?????70573??2019-03-16?09:55??紅外報警程序\User\紅外報警.uvgui.Guoqing

????.......??????5025??2019-03-16?09:55??紅外報警程序\User\紅外報警.uvopt

????.......?????13968??2019-03-16?09:55??紅外報警程序\User\紅外報警.uvproj

?????目錄??????????0??2017-08-19?18:16??紅外報警程序\User\Obj

?????目錄??????????0??2017-08-19?18:16??紅外報警程序\Obj

?????目錄??????????0??2019-03-16?09:55??紅外報警程序\User

?????目錄??????????0??2017-08-19?18:16??紅外報警程序

-----------?---------??----------?-----??----

???????????????310151????????????????????16


評論

共有 條評論