Light control unit
From uCtrl.net
 |  I am moving to a new location, and therefor terminating the Rack box project, my plan is to build an even bigger system based on slot-in cards in a full size rack. I'll keep you posted. Feel tree to leave a comment if you have any question. |
LCU, driven by AVR ATTiny2313.
Contents |
Information
The unit controls three outputs for lights, etc. in the apartment. Every output has one LED and one switch, if the switch is active for more then one second the output toggles. The LEDs only light up when a change to an output is made. To see actual status the switch can be activated for less then one second, the LEDs will then show the state without toggling the output.
When lights out 45 seconds is counting down all LEDs flash, the speed is increased the last 10 seconds. The output status is saved in EEPROM, and set to last state at power-up. The auto light input is used by the Alarm unit to turn on the lights when someone enter the apartment. The IR sensor input is used so that the light stays on as long as there is movement. Two minutes after the movement stops the lights turn back off.
Control
- Lamp living room
- Subwoofer
- Lights and printer on desk
- Lights living room (handled by MPM1)
I/O
Inputs
- Switch channel 1
- Switch channel 2
- Switch channel 3
- IR Sensor (from MPM1)
- Lights out 45 sec
- Auto light 2 min
- Lights out
Outputs
Wires
Top
- Red +5V
- Black 0V
- Brown Lifesignal
- White IR sensor
- Green Lights out 45 sec
- Orange Auto light 2 min
- Blue Lights out
Bottom
- White Switch 1
- Orange Switch 2
- Green Switch 3
- Yellow Relay 1
- Blue Relay 2
- Red Relay 3
- Brown LED1
- Black LED2
- White (clear) LED3
Panels
Hall
- Blue LED 1 -
- Purple LED 2 -
- Red LEDs +
- Yellow Switch 1 -
- Green Switch 2 -
- Black Switch lights out 45 sec
- White Switches common
Living room
- Red +12V
- Black 0V
- Yellow Relay subwoofer -
- Green Switch lamp
- White Switch subwoofer
- Orange LED lamp
- Brown LED subwoofer
- Blue Relay living room lights - (N.C)
Images
 Relay for subwoofer |
 Modification |
 Lights |
 Subwoofer |
 Panel living room |
 Panel hall |
 Relay box inside |
 Drawing panel living room |
LCU installed in the Rack box |
Schematic drawing
Source code
The program is written in basic, using Bascom-AVR.
'-------------------------------------------------------------- ' Thomas Jensen '-------------------------------------------------------------- ' file: AVR_LCU v1.2 ' date: 28/03/2007 '-------------------------------------------------------------- $crystal = 4000000 Config Portd = Input Config Portb = Output Config Watchdog = 1024 Dim Utgang1 As Byte , Utgang2 As Byte , Utgang3 As Byte Dim Ut1 As Bit , Ut2 As Bit , Ut3 As Bit , Led As Byte Dim Lifesignal As Byte , Ir_timer As Byte Dim Alt_av As Integer , Lys_timer As Integer Dim Led_timer As Byte , Led1_timer As Byte Dim Eeprom_save As Byte , Eeprom_value As Eram Byte Portb = 0 For Ir_timer = 1 To 15 'boot Portb.3 = Not Portb.3 Portb.4 = Not Portb.4 Portb.5 = Not Portb.5 Portb.6 = Not Portb.6 Waitms 200 Next Ir_timer Ir_timer = 0 Lifesignal = 21 Waitms 1000 Start Watchdog Portb = Eeprom_value Portb.3 = 0 Portb.4 = 0 Portb.5 = 0 Portb.6 = 0 Portb.7 = 0 Main: If Pind.0 = 0 Then 'output 1 Alt_av = 0 Lys_timer = 0 Incr Utgang1 Led = 21 If Utgang1 = 11 And Ut1 = 0 Then Portb.0 = Not Portb.0 Utgang1 = 0 Ut1 = 1 Eeprom_save = 51 End If End If If Pind.1 = 0 Then 'output 2 Alt_av = 0 Incr Utgang2 Led = 21 If Utgang2 = 11 And Ut2 = 0 Then Portb.1 = Not Portb.1 Utgang2 = 0 Ut2 = 1 Eeprom_save = 51 End If End If If Pind.2 = 0 Then 'output 3 Alt_av = 0 Incr Utgang3 Led = 21 If Utgang3 = 11 And Ut3 = 0 Then Portb.2 = Not Portb.2 Utgang3 = 0 Ut3 = 1 Eeprom_save = 51 End If End If If Pind.0 = 1 Then 'turn of leds and reset Ut1 = 0 'var if inactive switch Utgang1 = 0 End If If Pind.1 = 1 Then Ut2 = 0 Utgang2 = 0 End If If Pind.2 = 1 Then Ut3 = 0 Utgang3 = 0 End If If Led > 0 Then Decr Led 'led timer If Led > 1 Then Portb.3 = Portb.0 Portb.4 = Portb.1 Portb.5 = Portb.2 End If If Led = 1 Then Portb.3 = 0 Portb.4 = 0 Portb.5 = 0 End If If Pind.3 = 0 Then Ir_timer = 31 'ir sensor timer If Ir_timer > 0 Then Decr Ir_timer If Pind.5 = 0 And Portb.0 = 0 Then 'auto light on Portb.0 = 1 Lys_timer = 1201 Eeprom_save = 51 End If If Ir_timer > 0 And Lys_timer > 0 Then Lys_timer = 1201 If Lys_timer > 0 And Led1_timer = 0 Then 'auto light led If Ir_timer = 0 Then Led1_timer = 11 If Ir_timer > 0 Then Led1_timer = 7 End If If Led1_timer > 0 Then Decr Led1_timer If Led1_timer = 6 Then Portb.3 = 1 If Led1_timer = 1 Then Portb.3 = 0 If Lys_timer > 0 Then Decr Lys_timer 'auto light If Lys_timer = 1 Then Portb.0 = 0 Eeprom_save = 51 End If If Pind.6 = 0 Then 'lights out, everything off Portb.0 = 0 Portb.1 = 0 Portb.2 = 0 Alt_av = 0 Lys_timer = 0 Eeprom_save = 51 End If If Pind.4 = 0 Then Alt_av = 451 'set lights out 45s var If Alt_av > 0 And Led_timer = 0 Then 'lights out 45s leds If Alt_av > 100 Then Led_timer = 16 If Alt_av <= 100 Then Led_timer = 6 End If If Led_timer > 0 Then Decr Led_timer If Led_timer = 3 Then Portb.3 = 1 Portb.4 = 1 Portb.5 = 1 End If If Led_timer = 1 Then Portb.3 = 0 Portb.4 = 0 Portb.5 = 0 End If If Alt_av > 0 Then Decr Alt_av 'lights out 45s timer If Alt_av = 1 Then Lys_timer = 0 Portb.0 = 0 Portb.1 = 0 Portb.2 = 0 Eeprom_save = 51 End If If Eeprom_save > 0 Then Decr Eeprom_save 'eeprom save If Eeprom_save = 1 Then Eeprom_value = Portb If Lifesignal > 0 Then Decr Lifesignal 'lifesignal If Lifesignal = 6 Then Portb.7 = 1 Portb.6 = 1 End If If Lifesignal = 1 Then Portb.7 = 0 Portb.6 = 0 End If If Lifesignal = 0 Then Lifesignal = 21 Reset Watchdog 'loop cycle Waitms 100 Goto Main End
