My Post Box Messenger

RonnS

Member
My Post Box Messenger

i think thats not a new idea but it works and it is usefull

used Parts :
axe213 transmitter 2x and reciver 1x
axe117
axe118
axe LCD

Part1;

a Postbox with a sensor ,the sensor is the line follower Modul from the Microbot

P1010002.JPG

If a letter is done during the sensor reacts

Part2;

the Doorbellbutton

in these button are fitted the led from the transmitter PCB and a Status led the "Redled"
P1010001.JPG

Part3;

PIR Motion detector

motion detector for the great Gate
 
Last edited:

RonnS

Member
P1010003.JPG

Code:
; *******************************
; ***** Sample Header File  *****
; *******************************
;    Filename:    Post und Alarmmelder    
;    Date:  	19.03.2014  
;    File Version:      
;    Written by:  Ronald	
;    Function: Sensing Letters and Send a Signal,
;              Doorbell and Thermometer,PIR Melder  	
;    Last Revision:
;    Target PICAXE:14M2 
; ******************************* 



Rem Version Briefkastenw?chter mit Klingelknopf & Batteriew?chter neu
Symbol IRSensor=  pinC.1
Symbol LDR =      C.0
Symbol KL =    pinC.3; Klingelbutton
Symbol SensorIN = C.4; Empf?nger LineFollowerModul
symbol txpin =  B.3  ; Sendepin
Symbol RedLed = B.2  ; MeldeLED Klingelbutton
Symbol GrnLed = B.4  ; MeldeLED Briefkasten
Symbol Sensor = B.5  ; Power_IRDiode LineFollowerModul
symbol index = b20
Symbol LDRval = b16

rem ----------------------------------------------
SYMBOL batV        = w10 
SYMBOL ADCval      = w9
SYMBOL D1          = b14 
SYMBOL D2          = b15 
rem ----------------------------------------------    
	


start0:

SensorCheck:
High Sensor
readadc SensorIN, b1
if b1<100 then high GrnLed
endif
Pause 5000
Low GrnLed

Schleife:
readadc LDR, LDRval

if IRSensor = 0 and LDRval < 70 then
      do
      loop until IRSensor = 1

serout txpin, n2400, ( "R",D1,D2,2,2,0,0,0 )
pause 250
endif
goto schleife

;--------------------------------------------------------------------------------------------
start1:
do
rem low RedLed
if Kl=1 then
      pulsout Redled, 1000
      for index = 0 to 2
serout txpin, n2400, ( "R",D1,D2,4,4,0,0,0 )
pause 50
next index
endif
loop
goto start1

;---------------------------------------------------------------------------------------------
Start2:
CALIBADC10 ADCval 							
batV = 10475 / ADCval
BinToAscii batV,D2,D2,D1

PAUSE 10
serout txpin, n2400, ( "R",D2,D1,0,0,0,0,0 )

      pause 5000
goto start2


	
Start3:
 low Sensor   
 For w0 = 0 to 1800
 Pause 1000
 Next w0
	
	high Sensor
	pause 5000
	readadc c.4, b1
      if b1<100 then melden
	low GrnLed
goto Start3
	melden:
	High GrnLed: High Redled:serout txpin, n2400, ( "R",D2,D1,9,9,0,0,0 )
goto start3
 

RonnS

Member
and the second transmitter 2 the "Dog Doorbell" .. if the Dog Named "Frodo" sitting near the door and wonts to come in, its reacts an send a message and the green led goes high

P1010005.JPG

the code:
thanks Mr BoomBoom for the inspiration

Code:
;*******************************
; ***** Sample Header File  *****
; *******************************
;    Filename: 	RFTramsmitter 14M2 Temperatur IR und Kl	
;    Date: 		25.02.14 / 4:29	
;    File Version: 	
;    Written by: 		
;    Function:		
;    Last Revision:
;    Target PICAXE:	
; ******************************* 


#picaxe 14M2


let dirsB=%11111111
let dirsc=%00000000

symbol txpin = B.1
symbol IrModul = pinc.0
symbol Klingel = pinc.3
symbol DS18B20 = c.4

symbol Temperatur = b0
symbol Senden 	= b2
symbol Zehner 	= b6
symbol Einer  	= b7


main:

  if Klingel=1 then
 	do
 	loop until Klingel=0
 	warten:
 	if Senden =0 then
    	Senden=1
    	serout txpin, n2400, ( "R",85,85,9,9,43,b6,b7 )
    	pause 500
    	Senden=0
 	else
    	goto warten
 	endif
  endif  	

goto main

'-------------------------------------------------------------------------

start1:

  if IrModul=0 then
 	do
 	loop until IrModul=1
 	warten1:
 	if Senden =0 then
    	Senden=1
    	serout txpin, n2400, ( "R",85,85,3,3,43,b6,b7 )   ' actived LED
    	pause 500
    	Senden=0
 	else
    	goto warten1
 	endif
  endif  	

goto start1

'-------------------------------------------------------------------------

start2:

   if time=10 then
	  readtemp DS18B20,Temperatur
	  bintoascii Temperatur,Zehner,Zehner,Einer
	  if b0>127 then
	 	b0=b0-127
	 	b1=45
	  else
	 	b1=43
	  endif   
	  warten2:
	  if Senden =0 then
	 	Senden=1
	 	serout txpin, n2400, ( "R",85,85,85,85,b1,zehner,einer)
	 	pause 1000
	 	Senden=0
	  else
		goto warten2
	  endif
 	let time=0
  endif   
  
goto start2
 
Last edited:

RonnS

Member
the "HeadQuarter "
P1010010.JPG

show: Green led = Dog doorbell
Yellow led= a Letter in the Box
Redled " Gate"
sound everey.- big sound if the doorbell button is pushed ( external Piezo )

and the messages too

the code :

Code:
; *******************************
; ***** Sample Header File  *****
; *******************************
;    Filename:    Empf?nger mit NKM Modul und 20X2 am LCD 
;    Date:  26.03.14    	
;    File Version:      
;    Written by:  	
;    Function:    	
;    Last Revision:
;    Target PICAXE:20x2 
; ******************************* 


Rem erstmal alles per b4
init: pause 500 ; wait for display to initialise
serout B.7,N4800,(254,128)
Pause 50
serout B.7,N4800,("   Empfang      ")
pause 50
serout b.7,N4800,(254,$25):pause 250:serout b.7,N4800,(254,$23):pause 250
serout b.7,N4800,(254,$21)
pause 50
serout b.7,N4800,(254,$24):pause 250:serout b.7,N4800,(254,$22):pause 250
serout b.7,N4800,(254,$20)


main:
do
b0= "R"
serin C.3, N2400, (b0),b1,b2,b3,b4,b5,b6,b7 


if b4= 4 then
gosub Klingel
endif
if b4 = 9 then 
gosub Post
endif
if b4=3 then
gosub PIR
endif
if b4=2 then
gosub PIR2
endif	
gosub Status
loop
goto main

Klingel:
b4=0
serout B.7,N4800,(254,128)
serout B.7,N4800,("!!! Klingel  !!!")
tune B.1, 6, ($30,$39,$35,$39,$30,$39,$35)
return
Post:
b4=0
serout B.7,N4800,(254,128)
serout B.7,N4800,("Sie haben Post !!")
tune B.1, 6, ($30,$30,$30)
return
PIR:
b4=0
serout B.7,N4800,(254,128)
serout B.7,N4800,("Frodo will rein!")
tune B.1, 6, ($45,$45,$45)
return
PIR2:
b4=0
serout B.7,N4800,(254,128)
serout B.7,N4800,("!!!Hoftor!!!")
Pause 50
serout b.7,N4800,(254,$25):pause 250
return
Status:
serout B.7,N4800,(254,192)
if b6 <> 0 then
serout B.7,N4800,("T:",b6,b7,223,"C  ")
elseif b1  <> 0 then
serout B.7,N4800,(254,200)
Pause 10
serout B.7,N4800,("Bat:",b1,",",b2,"V")
endif

return
 
Last edited:
How I can see , you still works adventurous ;)
Beauty is in the eye of the beholder.
Well , if it's to a certain degree works , .... :)
Maybe , next time you better use a PCB ?
 

RonnS

Member
thanks Goeytex but it isnt finishd.. i hope too use an OLED or an another display to see somthing more in the darkness
 
Just for fun , I ' ve had a look at the Code : Post und Alarmmelder
Simple snafu. It's badly to comprehensible.
well ,you have realised multiple task are enable ,
but on the other side , you bold send in every task without validation
maybe whether another task is just sending - lumberjack kind , right ? :D
 

RonnS

Member
""Your project has also been entered into this month's competition - good luck!
Best wishes,""

i am so glad
 
Top