單片機紅外對射進出門開關燈程序（已在廁所中使用）

ID:261025 · 發表于 2020-5-6 15:48

做它的目的是提示廁所內有人不用走近后才被里面的人提示其他人在遠處看到裝在外面的燈亮了就知道里面有人紅外接收頭遮擋后重新接收到38khz信號會有一個低脈沖通過判斷兩個接收頭遮擋的先后順序判斷進出按鍵可以切換進出判斷

缺點是發射的38khz信號里不含有加密數據接收端沒有解碼判斷容易受到太陽光干擾造成進出不亮不滅
進去時蜂鳴器響一聲出來響兩聲如果受到太陽光干擾就沿著進或出的方向靠近接收端揮手就能開燈或關燈燈開啟后延時七八分鐘自動熄滅

制作出來的實物圖如下：

電路原理圖如下：

單片機源程序如下:
發射38khz方波
;12MHZ

               ORG 0000H
               SJMP STA
               ORG 000BH
               LJMP T0ISR
               ORG 0030H
STA:
      ;       MOV TMOD,#02H                ;AT89C2051       12MHZ
      ;       MOV TL0,#0B2H;#064H       ;
      ;       MOV TH0,#0FFH;#0FFH       ;
      ;       SETB TR0
      ;       SETB ET0
      ;       SETB EA
      ;       SJMP $
            MOV TMOD,#00010010B  ;STC15F104W       12MHZ
            MOV TH0,#0F4H
            MOV TL0,#0F4H
            SETB ET1
            SETB ET0
            SETB EA
            SETB TR1
            SETB TR0
                        SJMP $
T0ISR:
               CPL P3.4
               CPL P3.5
               RETI
      END

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
接收
;12MHZ


               SETB P3.3;IN1 紅外接收頭輸入端
            SETB P3.4;IN2 紅外接收頭輸入端
            SETB P3.5;LED 遮擋、延時指示
            CLR  P3.1;OUT 輸出控制電器
            SETB P3.0;蜂鳴器
            SETB P3.2;切換 A<=>B
            X EQU 04H;切換標志位
      SETB X
            LCALL DELAY;
            LCALL DELAY;
            CLR  P3.0;蜂鳴器
            MOV  60H,#00
      MOV  61H,#00
            MOV  62H,#00
            MOV  63H,#00 ;自動熄滅延時
MAIN1:       MOV  66H,#00
      MOV  67H,#00
            MOV  68H,#00
         SETB P3.5;LED 遮擋、延時指示
            LCALL DELAY;

            LCALL DELAY;
            LCALL DELAY;
            LCALL DELAY;
            LCALL DELAY;
            LCALL DELAY;
            LCALL DELAY;
            LCALL DELAY;
            LCALL DELAY;
            LCALL DELAY;
            LCALL DELAY;
            LCALL DELAY;
            LCALL DELAY;
            LCALL DELAY;
MAIN0:  JNB P3.4,KK111;       IN1;  關燈
      JNB P3.3,KK222;       IN2 開燈
            JNB P3.2,QIEHUAN;切換 A<=>B
         DJNZ 62H,MAIN0
      DJNZ 61H,MAIN0
         DJNZ 60H,MAIN0
            DJNZ 63H,MAI ;自動熄滅延時
         CLR P3.1; OUT  輸出關閉
MAIN: JNB P3.4,KK111;       IN1;  關燈
      JNB P3.3,KK222;       IN2 開燈
            JNB P3.2,QIEHUAN;切換 A<=>B
            LJMP MAIN;
MAI: MOV  60H,#240
   MOV  61H,#240
         MOV  62H,#240
         LJMP MAIN0;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
QIEHUAN:LCALL DELAY;
            LCALL DELAY;
      JNB P3.2,MAIN;
      CPL X;
            SETB P3.0;蜂鳴器
      JNB P3.2,$
            LCALL DELAY;
            CLR  P3.0;蜂鳴器
      LJMP MAIN1
////////////////////////////////////
KK111: MOV  66H,#50
   MOV  67H,#240
         MOV  68H,#240
         CLR P3.5;LED 遮擋、延時指示
RLA: JB P3.3,RLL;       IN2
   JNB X,QH1;切換 A<=>B
QH2: CLR P3.1; OUT       輸出關閉
   SETB P3.0;蜂鳴器
         LCALL DELAY;
         CLR  P3.0;蜂鳴器
         LCALL DELAY;
         SETB P3.0;蜂鳴器
         LCALL DELAY;
         CLR  P3.0;蜂鳴器
         LJMP MAIN1;
////////////////////////////////////////////
RLL: DJNZ 68H,RLA
   DJNZ 67H,RLA
         DJNZ 66H,RLA
         LJMP MAIN1;
////////////////////////////////////
KK222: MOV  66H,#50
   MOV  67H,#240
         MOV  68H,#240
         CLR P3.5;  LED 遮擋、延時指示
RRA: JB P3.4,RRR;       IN1
         JNB X,QH2;切換 A<=>B
QH1: SETB P3.1; OUT       輸出開啟
         SETB P3.0;蜂鳴器
         LCALL DELAY;
         CLR  P3.0;蜂鳴器
         MOV  60H,#240
   MOV  61H,#240
         MOV  62H,#240
         MOV  63H,#20
         LJMP MAIN1;
///////////////////////////////////////
RRR: DJNZ 68H,RRA
   DJNZ 67H,RRA
         DJNZ 66H,RRA
         LJMP MAIN1;
////////////////////////////////////////
;秒延時子程序
DELAY: MOV R4,#5;10
         MOV R5,#248;248
   MOV R6,#248;
D10: DJNZ R6,D10;
   DJNZ R5,D10;$
   DJNZ R4,D10
   RET
   END;

ID:253767 · 發表于 2020-5-8 07:18

謝謝分享!!!

ID:282850 · 發表于 2020-5-8 14:24

思路很好，盒子及整體做工優秀。與我一樣是實戰派

ID:305511 · 發表于 2020-5-9 13:11

挺有意思的！

ID:584814 · 發表于 2020-5-15 07:35

去掉單片機可有效降低成本和故障率

ID:261025 · 發表于 2020-5-27 21:08

man1234567 發表于 2020-5-15 07:35
去掉單片機可有效降低成本和故障率

還有一個版本我沒發數碼管顯示進去+1 出來-1 減到0關閉燈用的是2.3寸數碼管單片機用的是貼片的和數碼管固定在一起

ID:1075398 · 發表于 2025-3-3 15:51

我也做了一個類似功能的,也是放廁所門口,程序是請人幫寫的,有問題, 會自已亮,會不到時間滅,會很長時間不滅,湊合用了好幾年了,改天發圖片上來

ID:1075398 · 發表于 2025-3-3 16:00

把它改為C語言版,誰驗證一下#include <stc15.h> #include <intrins.h> // 發射部分代碼 #if 0 // 發射代碼，通過定義宏切換發射/接收 /************** 發射程序 **************/ sbit TxPin1 = P3^4; // 38kHz輸出引腳 sbit TxPin2 = P3^5; void Timer0_Init() { TMOD = 0x12; // 定時器0模式2(8位自動重裝) TH0 = 0xF4; // 12MHz下產生38kHz方波 TL0 = 0xF4; ET0 = 1; // 允許定時器0中斷 EA = 1; // 開總中斷 TR0 = 1; // 啟動定時器0 } void main() { P3M0 = 0x00; // 設置P3為準雙向口 P3M1 = 0x00; Timer0_Init(); while(1); } void Timer0_ISR() interrupt 1 { TxPin1 = !TxPin1; // 翻轉輸出 TxPin2 = !TxPin2; } #else /************** 接收程序 **************/ sbit RxPin1 = P3^3; // 紅外輸入1 sbit RxPin2 = P3^4; // 紅外輸入2 sbit LED = P3^5; // 狀態指示燈 sbit Out = P3^1; // 控制輸出 sbit Buzzer = P3^0; // 蜂鳴器 sbit Switch = P3^2; // 模式切換 bit X = 1; // 切換標志 unsigned char counter[8]; // 60H-67H void delay() { // 約10ms延時 unsigned char i = 5; while(i--) { unsigned char j = 248; while(j--) { unsigned char k = 248; while(k--); } } } void main() { // IO初始化 P3M0 = 0x00; P3M1 = 0x00; // 準雙向模式 RxPin1 = RxPin2 = LED = Switch = 1; Out = 0; Buzzer = 1; X = 1; delay(); delay(); Buzzer = 0; // 計數器初始化 for(unsigned char i=0; i<8; i++) counter[i] = 0; while(1) { LED = 1; // 初始延時(約130ms) for(int i=0; i<13; i++) delay(); while(1) { // 輸入檢測 if(!RxPin2) { // 關燈檢測 counter[6] = 50; counter[7] = 240; counter[0] = 240; LED = 0; // 防抖動檢測 while(counter[0]-- || counter[7]-- || counter[6]--) { if(RxPin1) { if(!X) { // 模式B Out = 0; Buzzer = 1; delay(); Buzzer = 0; delay(); Buzzer = 1; delay(); Buzzer = 0; goto RESTART; } break; } } goto RESTART; } if(!RxPin1) { // 開燈檢測 counter[6] = 50; counter[7] = 240; counter[0] = 240; LED = 0; while(counter[0]-- || counter[7]-- || counter[6]--) { if(RxPin2) { if(X) { // 模式A Out = 1; Buzzer = 1; delay(); Buzzer = 0; counter[0] = counter[1] = counter[2] = 240; counter[3] = 20; goto RESTART; } break; } } goto RESTART; } if(!Switch) { // 模式切換 delay(); delay(); if(!Switch) { X = !X; Buzzer = 1; delay(); Buzzer = 0; } while(!Switch); goto RESTART; } // 自動關閉檢測 if(!--counter[2] && !--counter[1] && !--counter[0] && !--counter[3]) { Out = 0; break; } } RESTART: // 重啟循環 counter[3] = 20; // 重置自動關閉定時 counter[0] = counter[1] = counter[2] = 240; } } #endif

ID:1075398 · 發表于 2025-3-4 10:41

Lthrwy 發表于 2025-3-3 15:51
我也做了一個類似功能的,也是放廁所門口,程序是請人幫寫的,有問題, 會自已亮,會不到時間滅,會很長時間不滅, ...

就是這樣

ID:325985 · 發表于 2025-3-4 16:06

那如果搞個雙穩態電路不是也能實現這個功能嗎？是不是簡單多了呢。

ID:1075398 · 發表于 2025-3-5 08:43

是問我嗎?我這個原來是打算帶3路輸出,實際上只作了2路,一路控燈,一路控風扇, 進入的話,先開燈,稍延時才開風扇,出來的話,先關燈,風扇會繼續延時一小會兒才關掉, 所以用雙穩態可能不能達到相要的效果, 再說用MCU電路可能會比較簡單一些

ID:1075398 · 發表于 2025-6-30 11:30

樓主,你這個發射接收的距離有多遠,發射,接收管的使用壽命長不長,

帳號		自動登錄	找回密碼
密碼			立即注冊

wwwxxx国产_337p日本欧洲亚洲大胆张筱雨_免费在线看成人av_日本黄色不卡视频_国产精品成熟老女人_99视频一区_亚洲精品97久久中文字幕_免费精品视频在线_亚洲色图欧美视频_欧美一区二三区

單片機紅外對射進出門開關燈程序（已在廁所中使用）

評分