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

QQ登錄

只需一步，快速開始

搜索
查看: 3908|回復(fù): 3
收起左側(cè)

原創(chuàng)單片機(jī)紅外反射開關(guān)源碼,有詳細(xì)注釋,可以做小便池前面的開關(guān)

[復(fù)制鏈接]
ID:140489 發(fā)表于 2018-3-8 08:43 | 顯示全部樓層 |閱讀模式
51單片機(jī)源程序如下：
  1. //紅外反射開關(guān)，接收頭HS0038B，發(fā)射管用pnp三極管驅(qū)動(dòng)
  2. //第一次上電，燈亮1秒后熄滅，
  3. //有人在開關(guān)前面，延時(shí)約1秒，燈亮，人離開后，延時(shí)X 秒后燈滅
  4. //如果燈還沒滅，人又來到開關(guān)前面，燈長亮，人離開后，延時(shí)X 秒后燈滅
  5. //實(shí)驗(yàn)板測(cè)試正常
  6. //哪位大神有更好的方法來實(shí)現(xiàn)這個(gè)功能，也希望發(fā)出來
  7. #include <reg52.h>
  8. #include <intrins.h>
  9. #define uchar unsigned char
  10. #define uint  unsigned int

  12. sbit ir=P2^4;         //紅外發(fā)射
  13. sbit ir_in=P3^2; //紅外接收
  14. sbit led=P1^7;
  15. bit flag,flag2;
  16. uint cont,cont1;

  18. bit f1,f2;
  19. void delay(uint z)           //ms
  20. {
  21.         uint x,y;
  22.         for(x=z; x>0; x--)
  23.                 for(y=114; y>0; y--);
  24. }


  27. void fa_38k()          //38k 載波                         //接收頭前面有濾光片，發(fā)射管要用黑色熱縮套管套起來
  28. {                                  //不是很準(zhǔn)，沒有邏輯分析儀，搞不準(zhǔn)，現(xiàn)在的反射距離在60厘米左右（發(fā)射管串100歐電阻）
  29.         ir=0;                  //如果有邏輯分析儀，把頻率調(diào)準(zhǔn)，反射距離肯定要遠(yuǎn)些
  30.         _nop_();_nop_();_nop_();_nop_();
  31.         _nop_();_nop_();_nop_();_nop_();
  32.         
  33.         ir=1;
  34.         _nop_();_nop_();_nop_();_nop_();
  35.         _nop_();_nop_();_nop_();_nop_();
  36.         _nop_();_nop_();_nop_();_nop_();
  37.         _nop_();_nop_();_nop_();_nop_();
  38.         _nop_();//_nop_();
  39. }

  41. void main()
  42. {
  43.         uint i;
  44.         ir_in=1;
  45.         TMOD |= 0X01;                          //T0定時(shí)器，模式1, 16位計(jì)數(shù)
  46.         TH0 = (65536-10000)/256;  //10ms初值 @12MHz晶振
  47.         TL0 = (65536-10000)%256;
  48.         EA=1;
  49.         ET0=1;
  50.         TR0=1;
  51.         led=0;
  52.         delay(1000);
  53.         led=1;
  54.         while(1)
  55.         {
  56.                 if(flag)
  57.                 {
  58.                         fa_38k();  //發(fā)38K
  59.                 }
  60.                 else ir=1;           //停止發(fā)射
  61.            
  62.                
  63.                 if(ir_in==0)  //如果紅外接收的輸出端為0，表示前面有反射物體
  64.                 {        
  65.                         i++;          //這句起消抖的作用 ,i取大些，抗干擾能力強(qiáng)些
  66.                         if((ir_in==0) && (i>15000)) //確認(rèn)反射物體還在開關(guān)前面,這里i的延時(shí)燈點(diǎn)亮的速度
  67.                         {                                                //i越小，燈點(diǎn)亮越快，i的數(shù)值如果設(shè)定20000，可以不要下面那句delay（2000）；
  68.                                 i=0;                         //消抖計(jì)時(shí)變量清0
  69.                         //        delay(1000);         //延時(shí)2秒后，這里不加延時(shí)也可以，看自己的喜好
  70.                                 led=0;                         //亮燈
  71.                                 f1=1;                         //延時(shí)計(jì)時(shí)標(biāo)志置1
  72.                                 cont1=0;                 //延時(shí)計(jì)時(shí)變量清零
  73.                                 while(!ir_in);         //判斷反射物體是否離開，如果沒離開，程序就停在這里，
  74.                                                                  //燈一直亮，相當(dāng)于按鍵的松手檢測(cè)
  75.                         }
  76.                 }

  78.                 if(cont1==1000 && ir_in==1)  //松手+延時(shí)時(shí)間到后，這里是設(shè)定延時(shí)10秒
  79.                 {
  80.                         f1=0;                                          //延時(shí)計(jì)時(shí)標(biāo)志清0
  81.                         cont1=0;                                  //延時(shí)關(guān)燈計(jì)時(shí)變量清0
  82.                         led=1;                                          //關(guān)燈
  83.                 }

  85.         }
  86. }

  88. void timer0() interrupt 1
  89. {
  90.         TH0 = (65536-10000)/256;  //重裝10ms初值
  91.         TL0 = (65536-10000)%256;
  92.         cont++;
  93.         if(cont==10)  
  94.         {        
  95.                 cont=0;
  96.                 flag=!flag;         //發(fā)100ms 38K，停100ms
  97.         }
  98.         
  99.         if(f1)
  100.         {
  101.                 cont1++;
  102.         }        
  103. }

復(fù)制代碼


評(píng)分

參與人數(shù) 2黑幣 +55 收起 理由
kkggg12345 + 5 贊一個(gè)！
admin + 50 共享資料的黑幣獎(jiǎng)勵(lì)！

查看全部評(píng)分

回復(fù)

使用道具 舉報(bào)

ID:387856 發(fā)表于 2020-3-10 12:05 | 顯示全部樓層
能不能不用紅外接收頭，用紅外對(duì)管，程序能做到防太陽光。高手能不能搞
回復(fù)

使用道具 舉報(bào)

ID:140489 發(fā)表于 2020-3-10 14:28 | 顯示全部樓層
可以做的，紅外對(duì)管的反射距離比較近，只能做到10幾厘米
回復(fù)

使用道具 舉報(bào)

ID:964852 發(fā)表于 2021-11-19 10:59 來自觸屏版 | 顯示全部樓層
大神，能否發(fā)下紅外對(duì)管的參考點(diǎn)代碼
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

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

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

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