Return
Main
1-Outlet
2-Outlet
3-Outlet
4-Outlet
Outside
Display Cabinet
Pole Lamp
Cube
Flower
Download

“Cube” Alarm Receiver

This device is part of a security system which also includes the Gate Switch the Ceiling Light and the Cube Alarm. The gate which provided access to the rear of our house cannot be locked because of a legal easement, so it is fitted with a switch which is part of the Gate Alarm. While the gate is open this periodically transmits a “Gate Open” message. When the gate is subsequently closed, it sends a single “Gate Closed” message.

The Picaxe 14M2 generates distinct tune snippets in response to these messages. These are amplified to a power level for sounding by the speaker. 

The Cobe Alarm has a 3-color LED at the front which shows RED whenever the gate is open.

 This project also responds to these  manually-initiated commands:

  • Additional tunes.
  • Turning the 3-Color LED Blue, Green or OFF..

The speaker, the LED,  and the antenna are fastened to the box.  A metal chassis holds the 5 NiMh AA-size batteries and the charging and programing connectors. A flange at is front holds it down, and another on the side helps. The electronics board fits into a slot and has a bracket at the top for the antenna connector.  There is a wooden back.

System Diagram

Speaker Amplifier

The LM317 provides a constant 250 MA charging current, The battery voltage is measured at pin B.2 while pin B.3 measures the charging voltage,

The LP 2951 is a low-dropout regulator to provide 5V for the microcontroller and the receiver.

The LM385 audio amplifier is only powered briefly while making sounds,

Definitions and Declarations

#rem Alarm_Receiver2024.BAS  This is for the wood cube with the speaker

The Receiver gets a 433 Mhz signal from the gate transmitter or the 6-button Transmitter

The main loop of 1/10 sec times LED on duration, blinking and flashing

The command codes accepted are in Rcvr_Val and have correspondinf OpCodes as inteces to the parameter tables in EEPROM:

e:0 Flashes blue LED battery volts in morse code

D:1 Flashes green LED battery tenth volts in morse code 

A;2 Lights red LED

H:3 Turns off the LEDs

Q:4 Lights red LED and plays Gate Open tun

B:5 Lights red LED and plays Gate Closed tune

h:6 Flashes red LED and plays Siren tune

John Saunders 11/13/2024

#endrem


#PICAXE 14M2


'Input Ports

symbol Rcvr_In      = B.1        'Idle low

symbol Batt_Mon     = B.2        '1/2 of the battery voltage

symbol Chg_Mon      = B.3        '1/4 of the charging voltage

symbol Reg_Err      = pinC.3        'Goes low if the 5V regulator drops below 5V


'Output Ports

symbol Outport      = B.0

symbol Aud_Cont     = B.4

symbol Aud_Tune     = B.5

symbol Red_LED      = C.1

symbol Green_LED    = C.2

symbol Blue_LED     = C.4

    

'Variables 

'Interrupt variables

symbol Temp          = b1        

symbol Rcvr_Val      = b2

symbol LenCode       = b3


'Specific variables

symbol MorseStep        = b10

symbol Loop_Cnt        = b11        'Count of main loop of 1/10 sec        =  7

symbol DataAddr        = b12

symbol OpCode        = b14        'Index into parameter tables

symbol Steplen        = b15

symbol DigitVal        = b16

symbol DecVal        = b17

symbol Batt_Mv        = w10        'ADC output

symbol PauseVal        = w11


'General variables

symbol Scratch          = b4



'Constants

symbol MorseInterval    = 50

symbol MaxOpCode        = 7


rem EEPROM tables: 

rem morse code for 0-9

DATA   0,(60,60,60,60,60)

DATA   5,(20,60,60,60,60)

DATA  10,(20,20,60,60,60)

DATA  15,(20,20,20,60,60)

DATA  20,(20,20,20,20,60)

DATA  25,(20,20,20,20,20)

DATA  30,(60,20,20,20,20)

DATA  35,(60,60,20,20,20)

DATA  40,(60,60,60,20,20)

DATA  45,(60,60,60,60,20)

Init and Main


Init:

SETFREQ m8

LOW Aud_Cont

LOW Aud_Tune

LOW Outport

LET OpCode = 2

LET Loop_Cnt  = 3        'Count of main loop of 1/10 sec        =  7


SETINT %00000001,%00000001    'Interrupt when Rcvr_Int high


Main:

PAUSE 1

LET Loop_Cnt = 3        'Count of main loop of 1/10 sec        =  7

IF OpCode < 2 THEN

    FVRSETUP FVR4096            '1000 count at battery 8V

    ADCCONFIG $03            'Use fixed internal reference

    READADC10 Batt_Mon,Batt_mv    'Battery tap 1/2, scale is 8 mv/count

    LET DigitVal = Batt_mv / 125SERTXD ("Op Code = ",#OpCode,13,10)

    LET DecVal = Batt_mv // 125

    LET DecVal = 2 * DecVal

    LET DecVal = DecVal/25

    SERTXD (#Batt_mv,": ", #DigitVal,".",#DecVal,13,10)

    SETINT OFF

    FOR MorseStep = 0 TO 4

        IF OpCode = 0 THEN

            LOW Blue_LED

            LET DataAddr = 5 * DigitVal + MorseStep 

        ELSE

            LET DataAddr = 5 * DecVal + MorseStep 

            LOW Green_LED

        ENDIF

        READ DataAddr,StepLen 

        FOR Scratch = 0 TO StepLen

            PAUSE MorseInterval

        NEXT

        HIGH Blue_LED

        HIGH Green_LED

        FOR Scratch = 0 TO 50

            PAUSE MorseInterval

        NEXT

    NEXT

    LET OpCode = 2

    SETINT %00000001,%00000001    'Interrupt when Rcvr_Int high

ENDIF

IF OpCode >2 AND OpCode < MaxOpCode THEN

    SERTXD ("Op Code = ",#OpCode,13,10)

    LOW Red_LED

    HIGH Aud_Cont

    PAUSE 250        'Time for the audio amp to stabilize

    SETINT OFF

    SELECT OpCode

    CASE 3        'Short Tune

        TUNE Aud_tune,5,($40,$05,$49,$05,$40,$2BC7,$45,$04,$47,$04,$64,$29,$C5,$40,$05,$49,$05,$40,$2B,$C7,$45,$04) 

    CASE 4        'Chime

        TUNE Aud_tune,2,($04,$07,$05,$AB) 

    CASE 5        'Baba

        TUNE Aud_tune,2,($30,$30,$37,$37,$79,$7B,$40,$79,$37,$3C,$35,$35,$34,$34,$32,$32,$30)

    CASE 6        'Siren

        'SETINT %00000001,%00000001

        FOR Scratch = 0 TO 20

         'SOUND Aud_Tune,(86,300,95,300,86,300,95,300,86,300,95,300,86,300,95,300,86,300,95,300,86,300,95,300,86,300,95,300)

        SOUND Aud_Tune,(86,300,95,300)

    '    PAUSE 30

    '    IF OpCode = 2 THEN EXIT

        NEXT

    ELSE

        LOW Aud_Cont    

    ENDSELECT

    LET OpCode = 2

    LOW Aud_Cont

    SETINT %00000001,%00000001    'Interrupt when Rcvr_Int high    

ENDIF

LET PauseVal = Loop_Cnt * 124

PAUSE PauseVal

HIGH Red_LED    

HIGH Blue_LED

HIGH Green_LED

GOTO Main


Interrupt


Interrupt:

LET Rcvr_Val = "z"

LET LenCode  = "x"

LET temp = 0

LET OpCode = MaxOpCode                '6/24/2024    

DO WHILE PinC.0 = 1

    LET temp = temp + 1    'Twice as fast as INC Usual count is 15

LOOP

IF temp < 5 OR temp > 20 THEN 

    GOTO End_Interrupt    'Minimises the time to recover from a noise interrupt

ENDIF

SERIN [40],Rcvr_In,N2400_8,("14L1776"),Rcvr_Val,temp,LenCode,temp,temp,temp, temp

IF Rcvr_Val = "O" OR Rcvr_Val >= "n" THEN End_Interrupt

LOOKDOWN Rcvr_Val,("e","D","H","A","Q","B","h"),OpCode

End_Interrupt:

SETINT %00000001,%00000001    'Interrupt when Rcvr_Int high

RETURN