Categorie: Projecten

Ik heb hier een nas staan die s’ nachts af moet. Nu blijft die een 15W verbruiken als hij “af” staat. Daarom heb ik iets ontworpen dat de 230V afschakelt als het vermogen onder een bepaald punt zakt.

Schema:

Print layout:

Foto van de print:

Ik vond dat die 220 Ohm weerstand in de voeding te warm werd en er zo teveel vermogen verloren ging. Daarom heb ik een klein transformatortje ingebouwd.

Het kastje opgehangen en aangesloten:

De code in de pic:

'****************************************************************
'*  Project : Standby killer                                    *
'*  Author  : Coenen Stijn [Stynus]                             *
'*  Notice  : Copyright (c) 2008 ElektronicaStynus.be           *
'*          : All Rights Reserved                               *
'*  Date    : 15/10/2008                                        *
'*  Version : 1.0                                               *
'****************************************************************
Device 12F629               
Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, BODEN_OFF, MCLRE_OFF     
ALL_DIGITAL TRUE   

Symbol  GPIF        = INTCON.0
Symbol  GPIE        = INTCON.3

Symbol  GIE         = INTCON.7
Symbol  stroom      = GPIO.5                
Symbol  druk        = GPIO.3  
Symbol  ssr         = GPIO.2 
Symbol  LED1        = GPIO.1  

Symbol  LED2        = GPIO.0
Dim     index       As Byte

;         76543210
GPIO   = %00000000   
TRISIO = %11111000         
IOC    = %00101000        
GIE    = 0         ;Global Interrupt Enable uitschakelen(!)
GPIE   = 1         ;GPIO Port change Interrupt Enable inschakelen
 

Clear        

begin:
While 1 = 1
    GPIF = 0 
    Sleep
    If druk = 0 Then
        GoTo aan
    EndIf
Wend

aan:
While 1 = 1
    High ssr
    High LED2
    GPIF = 0
    Sleep   
    If stroom = 0 Then
        GoTo uit
    EndIf
    If druk = 0 Then
        GoTo af
    EndIf
Wend


uit:
While 1 = 1
    LED1 = 0
    For index = 0 To 5
        Toggle LED1
        DelayMS 500
        If stroom = 1 Then 
            LED1 = 0
            GoTo aan
        EndIf 
    Next
    Low ssr
    Low LED2
    GoTo begin

Wend

af:
While 1 = 1
    LED1 = 0
    For index = 0 To 5
        Toggle LED1
        DelayMS 500
        If druk = 1 Then 
            LED1 = 0
            GoTo aan
        EndIf 
    Next
    Low ssr
    Low LED2
    While druk = 0: Wend
    DelayMS 2000
    GoTo begin

Wend

End