This is used in a protected location outside to control a string a LEDs hanging in cascades from the eves.

Declarations and Data

#rem Clear Box Outlet.bas This is the receiver in a clear box with attached blue outlet box.

This box contains a duplex receptacle, a transformer and a relay, 7A capacity

One receptacle labelled "LIVE" is not switched; It is connected o a power transformer.

The other receptacle labelled "SWITCHED" is controlled by a wire from the Clear Receiver;

The Clear Receiver box also has two outputs configured for 5V relays connected to an audio socket.

It has a 434 MHz receiver which receives 2400 Hz messages. 

The applicable messages start with an unlock code "14L1776", then a key code character.

hey originate from manual transitters.

This program accepts messages with the following key codes:

m(on),J(off)    These control the Outlet. 

d(on),9(off)    These control the ring of the socket.

X(on),N(off)    These control the tip of the socket.

John Saunders 10/12/2020

#endrem

#picaxe 08M2

'Output Ports

symbol Ring_Port      = C.0        

symbol Outlet_Port    = C.1        

symbol Tip_Port       = C.2        

'Input ports

symbol Rcvr_In          = C.4        'Data from messages

'Variables:

'Interrupt variables:

symbol Rcvr_Val     = b1

symbol temp         = b2

'Constants:

symbol Threshold      = "3"            'Below this its night, above its day

symbol Alarm_On_Delay    = 25        'Delay to turn on the ceiling light in 200 ms

symbol Alarm_Off_Delay    = 75        'Delay to turn offthe ceiling light in 200 ms

Init and  Main

init:

SETFREQ m8

HIGH Tip_Port            'Off

LOW Outlet_Port

HIGH Ring_Port

SETINT  %00001000,%00001000    'Interrupt when C,3 high

main:

PAUSE 400

GOTO main

Interrupt

Interrupt:

LET Temp = 0

LET Rcvr_Val = "~"

DO WHILE PinC.3 = 1    AND Temp < 20        'Noise interrupts are nearly always shorter

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

LOOP

IF Temp < 10 THEN End_Interrupt    'Minimises the time to recover from a noise interrupt

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

IF Rcvr_Val = "~" THEN End_Interrupt

IF Rcvr_Val = "O" THEN End_Interrupt

SELECT Rcvr_Val

    CASE "m" 

        HIGH Outlet_Port

    CASE "J"

        LOW Outlet_Port

    CASE "d" 

        LOW Ring_Port

    CASE "9"

        HIGH Ring_Port

    CASE "X" 

        LOW Tip_Port

    CASE "N"

        HIGH Tip_Port

ENDSELECT

DO

    PAUSE 1

LOOP WHILE PinC.3 = 1

End_Interrupt:

SETINT  %00001000,%00001000    'Interrupt when C.3 high

RETURN