Verlichting halloweentocht

Spaceke
Gepost vrijdag 23 februari 2018 22:48:14

Hallo, ik heb een vraag over de verlichting van een Halloween tocht waaraan ik mee doe.
Mijn bedoeling is op gloeilampen zachtjes te laten dimmen en daarna terug helder te krijgen zodat je een spookie effect krijgt zoals spookhuizen.
Maar dit zou automatisch moeten kunnen herhalen, maar ik heb geen idee hoe ik dit kan regelen. Ik heb zelf wel een PLC van Siemens ter beschikking mocht het met dit mogelijk zijn?

Gadget_inc
Gepost vrijdag 23 februari 2018 22:52:43

TL starter in serie met een gloeilamp, lekker random en goedkoop.
Maar het moet mobiel blijkt ?

Je hebt tijd of je hebt geen tijd ! als je geen tijd hebt, waar is die dan gebleven ? https://ledverlichtingsoest.com/
Spaceke
Gepost vrijdag 23 februari 2018 23:29:18

Dit is messchien wel een idee :-D
Maar ik had eerder in mijn hoofd om de lamp stilletjes aan te laten gaan en daarna stilletjes terug uit automatisch.

Gadget_inc
Gepost zaterdag 24 februari 2018 00:10:09

Zo'n schakeling (module / bouwkitje) koop je ook voor een appel een ei.

Je hebt tijd of je hebt geen tijd ! als je geen tijd hebt, waar is die dan gebleven ? https://ledverlichtingsoest.com/
Spaceke
Gepost zaterdag 24 februari 2018 00:25:59

Heb je messchien een link of naam van zoon kitje?

deKees
Gepost zaterdag 24 februari 2018 20:51:38

Als je zelf iets wilt bouwen dan kan dat bijvoorbeeld met dit schema:

https://www.circuitsonline.net/schakelingen/151/lichteffecten/langzaam…

Maar zelf zou ik eerder een kleine microprocessor gebruiken, in dit geval een AtTiny13

Gadget_inc
Gepost zaterdag 24 februari 2018 20:58:00

TS zoekt meer een velleman kitje oid.

Zoekterm hello world ???

Je hebt tijd of je hebt geen tijd ! als je geen tijd hebt, waar is die dan gebleven ? https://ledverlichtingsoest.com/
K7Jz
Gepost zondag 25 februari 2018 10:43:36

Haal een rits tradfri smartlights van ikea. €7 voor GU10 spotjes of €10 voor gloeilamp formaat..

Dan óf via wifi app/programma laten flikkeren óf zo'n tradfi dimmer (€10) openschroeven en manipuleren.

Spaceke
Gepost maandag 26 februari 2018 16:52:23

Kan dit niet via een siemens plc?
Ben namelijk niet goed in al die elektronica ?. Ik zoek meer een wijze via een logo of plc en iets dat het vermogen van de lampen kan laten dimmen.

rew
Gepost maandag 26 februari 2018 17:11:11

Begin even met het "eisen pakket":
* mobiel
* lamp aan en uit(dimmen) volgens programma.
* liefst met siemens PLC.

Dan zeg ik: Volgens mij is zo'n PLC niet gemaakt om zuinig met batterijen om te gaan, dus mogelijk niet zo'n verstandige keuze.

Dan over het project: Wat voor lampen had je in gedachten? Je kan wel een 12V -> 230V converter kopen, maar ook dat is vaak niet "zuinig": gemaakt om op een lompe ("maakt toch niet uit") autoaccu te draaien. Dat is zeul-baar, maar mobiel... valt tegen.

Ohja, het dimmen van een 230V ding werkt vaak prima op netspanning. Of het ook werkt met zo'n "modified sine" 23V converter: ik weet het niet.

Ik zou adviseren om met 12V lampjes te werken: Geen conversies en als ie uit moet zijn ook erg zuinig: geen sluipverbruik. (wel bij een 230V converter).

Ik heb geen verstand van PLCs, dus of dat werkend te krijgen is op een draagbare accu: dat weet ik niet.

Maar met een arduino een MOSFET aansturen en dan een 12V lamp (of leds) aan en uit laten gaan (PWM, dus dimmen) is heel goed te doen.

De hoofd-reden dat arduino zo populair is, is dat de code zo simpel is.

code:


void loop (void)
{
  int i;
 

  for (i=0;i<255;i++) {
     analogOut (mypin, i);
     delay (10);
  }

  for (i=255;i>0;i--) {
     analogOut (mypin, i);
     delay (10);
  }
}

Volgens mij wil jij zoiets. Kortom, 6 regels code die ik zomaar uit m'n mouw schud....

four NANDS do make a NOR . Kijk ook eens in onze shop: http://www.bitwizard.nl/shop/
Spaceke
Gepost maandag 26 februari 2018 17:16:26

Wij krijgen spanning van een stroomgroep en daarna een kabel naar de plaats.
Ik wou oude gloeilampen gebruiken omdat die het meeste in horror films worden gebruikt.

K7Jz
Gepost maandag 26 februari 2018 18:07:06

Op 26 februari 2018 17:16:26 schreef Spaceke:
Wij krijgen spanning van een stroomgroep en daarna een kabel naar de plaats.
Ik wou oude gloeilampen gebruiken omdat die het meeste in horror films worden gebruikt.

Hou rekening met het totaalvermogen als je echte gloeilampen gebruikt. Dit geldt voor dimmer en die aansluiting natuurlijk.

Met de PLC kan je vast een 0-10volt dimmmer aansturen, maar aangezien je project waarschijnlijk een beperkt budget heeft:

Zoek/koop een paar 230V relais, hiermee zet je de gloeilampen op volle sterkte. Je kan voor het wisselend effect een stuk of 4 lampen per relais doen.
Als het relais dan niet bekrachtigd is (niet 'aan' staat) dan krijgen de lampen hun spanning via een dimmer (stekkerdimmer, enkele euro's in de grabbelton van de bouwmarkt). Je kan de dimmer 'kortsluiten' (overbruggen) of een relais met wisselpool gebruiken.

Dan heb je dus 2 standen: gedimd of 100%

Iets geavanceerder (als je genoeg spullen vindt)

Relais 1 bedient Dimmer 1 en die zet je vast op 15%
Relais 2 bedient Dimmer 2 en die zet je vast op 50%
Relais 3 bedient lamp direct (100%)

Dan kan je met de PLC de relais regelen en zo schakelen tussen 0,15,50 en 100%

Pas op je budget, voor €20-50 heb je vast een lichtorgeltje die alles doet.
https://www.marktplaats.nl/a/muziek-en-instrumenten/licht-en-laser/m12…
https://www.marktplaats.nl/a/muziek-en-instrumenten/licht-en-laser/m12…

Lambiek

Special Member

Gepost maandag 26 februari 2018 18:45:33

Hier heb je een compleet voorbeeld van een dimmer plus software.

Hier het programma.

pic basic code:


Device 16F887                     ; Processor type

Xtal 10                           ; Cristal 10Mhz

Asm                               ; Config settings  HS_OSC
CONFIG_REQ            
__CONFIG _CONFIG1, HS_OSC & WDT_OFF & DEBUG_OFF & FCMEN_OFF & LVP_OFF & IESO_OFF & BOR_OFF & CPD_OFF & CP_OFF & MCLRE_OFF & PWRTE_ON 
__CONFIG _CONFIG2, WRT_OFF & BOR40V 
EndAsm
   
All_Digital true                  ; Alle poorten digitaal

Declare Adin_Res = 8              ; resolutie 8 bits
Declare Adin_Tad = frc            ; set RC osc
Declare Adin_Stime = 50           ; sample tijd 5

Declare LCD_RSPin PORTD.2         ; Reset display poort D.2
Declare LCD_ENPin PORTD.3         ; Enable display poort D.3
Declare LCD_DTPin PORTD.4         ; Data display poort D.4 t/m D.7

Declare CCP1_Pin PORTC.2          ; HPWM 1 op poort C.2

Symbol FREQUENTIE = 1000          ; PWM frequentie

Symbol KEUZE_SCHAK_1 = PORTA.2    ; Ingang schakelaar 1
Symbol KEUZE_SCHAK_2 = PORTA.3    ; Ingang schakelaar 2
Symbol KEUZE_SCHAK_3 = PORTA.5    ; Ingang schakelaar 3
Symbol KEUZE_SCHAK_4 = PORTE.0    ; Ingang schakelaar 4
Symbol KEUZE_SCHAK_5 = PORTE.1    ; Ingang schakelaar 5
Symbol KEUZE_SCHAK_6 = PORTE.2    ; Ingang schakelaar 6
Symbol KEUZE_SCHAK_7 = PORTC.0    ; Ingang schakelaar 7

Symbol LED = PORTC.1              ; Uitgang controle led

Dim WAARDE As Byte                ; Variabele waarde
Dim TELLER As Byte                ; Variabele teller
Dim TIJD As Word                  ; Variabele tijd
Dim MAX_PWM As Byte               ; Variabele pwm

Cls                               ; Wis display

DelayMS 500                       ; Pauze 0.5 sec 


Clear                             ; Wis geheugen

         ;543210                  ; Hulpregel poort A
PORTA  = %000000                  ; Maak poort A laag
TRISA  = %111111                  ; Poort_A I/O

         ;543210                  ; Hulpregel poort B
PORTB  = %000000                  ; Maak poort B laag
TRISB  = %000000                  ; Poort_B I/O

         ;76543210                ; Hulpregel poort C
PORTC  = %00000000                ; Maak poort C laag
TRISC  = %00000001                ; Poort_C I/O

         ;76543210                ; Hulpregel poort D
PORTD  = %00000000                ; Maak poort D laag
TRISD  = %00000000                ; Poort_D I/O

         ;210                     ; Hulpregel poort E 
PORTE  = %000                     ; Maak poort E laag
TRISE  = %111                     ; Poort_E I/O

         ;76543210                ; Hulpregel analoog
ADCON0 = %00000001                ; ADCON0 register 8 bit analoog

         ;76543210                ; Hulpregel analoog
;ADCON1 = %10000000                ; ADCON1 register 10 bit analoog

         ;543210                  ; Hulpregel analoog poort_B
ANSELH = %000000                  ; ANSEL register analoog poort_B

;------------
; PROGRAMMA.
;------------

SELECT_MENU:

    HPWM 1,0,FREQUENTIE 
    WAARDE = 0
    TELLER = 0
    TIJD = 0
    
    LED = 1
    DelayMS 250
    LED = 0
    DelayMS 250

    Print At 1,1,"PROG-0";;;;;;;;;;
    Print At 2,1,"**SELECT--MENU**"

    If KEUZE_SCHAK_1 = 1 Then
     GoTo LENTE_ZOMER_HEFST_WINTER
    EndIf
    
    If KEUZE_SCHAK_2 = 1 Then
     GoTo FADE_IN_FADE_OUT
    EndIf
    
    If KEUZE_SCHAK_3 = 1 Then
     GoTo FADE_IN_UIT
    EndIf
    
    If KEUZE_SCHAK_4 = 1 Then
     GoTo AAN_FADE_UIT
    EndIf
    
    If KEUZE_SCHAK_5 = 1 Then
     GoTo RUN_RANDOM
    EndIf
    
    If KEUZE_SCHAK_6 = 1 Then
     GoTo RUN_KAARS
    EndIf
    
    If KEUZE_SCHAK_7 = 1 Then
     GoTo RUN_BLIKSEM
    EndIf
     
GoTo SELECT_MENU
    
LENTE_ZOMER_HEFST_WINTER:


    LED = 1
    
    Print At 1,1,"PROG-1" 
    Print At 2,1,"LEN-ZOM-HER-WINT"

    If KEUZE_SCHAK_1 = 1 Then
     WAARDE = ADIn 0
      HPWM 1,WAARDE,FREQUENTIE
    EndIf

    If KEUZE_SCHAK_1 = 0 Then
     GoTo SELECT_MENU
    EndIf
       
GoTo LENTE_ZOMER_HEFST_WINTER

FADE_IN_FADE_OUT:


    LED = 1
    
    Print At 1,1,"PROG-2" 
    Print At 2,1,"FADE_IN_FADE_OUT"
     
    TIJD = ADIn 0
    TELLER = TELLER + 1
    DelayMS TIJD
    HPWM 1,TELLER,FREQUENTIE
    
    MAX_PWM = ADIn 1 
    
    If TELLER  > = MAX_PWM Then 
     TELLER = TELLER - 1
      GoTo WACHT_RAMP_DOWN
    EndIf
         
GoTo FADE_IN_FADE_OUT

WACHT_RAMP_DOWN:


    If KEUZE_SCHAK_2 = 0 Then
     If TELLER > 0 Then 
      HPWM 1,0,FREQUENTIE
      GoTo SELECT_MENU
     EndIf
    EndIf
    
    DelayMS 1000
    GoTo RAMP_DOWN
    
GoTo WACHT_RAMP_DOWN    

RAMP_DOWN:


    TIJD = ADIn 0
    TELLER = TELLER - 1
    DelayMS TIJD
    HPWM 1,TELLER,FREQUENTIE
    
    If TELLER < 1 Then
     TELLER = TELLER + 1
      GoTo WACHT_RAMP_UP
    EndIf
       
GoTo RAMP_DOWN

WACHT_RAMP_UP:


    If KEUZE_SCHAK_2 = 0 Then
     If TELLER > 0 Then 
      HPWM 1,0,FREQUENTIE
      GoTo SELECT_MENU
     EndIf
    EndIf
    
    DelayMS 1000
    GoTo FADE_IN_FADE_OUT
    
GoTo WACHT_RAMP_UP

FADE_IN_UIT:


    LED = 1

    Print At 1,1,"PROG-3"
    Print At 2,1,"**FADE_IN__UIT**"

    TIJD = ADIn 0
    
    TELLER = TELLER + 1
     DelayMS TIJD
    HPWM 1,TELLER,1000
    
    If KEUZE_SCHAK_3 = 0 Then
     If TELLER = 0 Then
      GoTo SELECT_MENU
     EndIf
    EndIf
    
GoTo FADE_IN_UIT

AAN_FADE_UIT:


    LED = 1

    Print At 1,1,"PROG-4"
    Print At 2,1,"**AAN_FADE_UIT**"

    TIJD = ADIn 0
    
    TELLER = TELLER - 1
     DelayMS TIJD
    HPWM 1,TELLER,1000
    
    If KEUZE_SCHAK_4 = 0 Then
     If TELLER = 0 Then
      GoTo SELECT_MENU
     EndIf
    EndIf

GoTo AAN_FADE_UIT

RUN_RANDOM:


    LED = 1
    
    Print At 1,1,"PROG-5"
    Print At 2,1,"***RUN_RANDOM***"
    
    TIJD = ADIn 0

    WAARDE = Random
    
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS TIJD;8
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS TIJD;5
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS TIJD;2
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS TIJD;15
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS TIJD;8
    HPWM 1,WAARDE,FREQUENTIE 
    DelayMS TIJD;20
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS TIJD;1
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS TIJD;5
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS TIJD;20
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS TIJD;1
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS TIJD;10
    HPWM 1,WAARDE,FREQUENTIE 
    DelayMS TIJD;20 
    
    If KEUZE_SCHAK_5 = 0 Then
     If WAARDE < 255 Then
      HPWM 1,0,FREQUENTIE
      GoTo SELECT_MENU
     EndIf
    EndIf 
    
GoTo RUN_RANDOM

RUN_KAARS:


    LED = 1
    
    Print At 1,1,"PROG-6"
    Print At 2,1,"***RUN__KAARS***" 

    WAARDE = Random
    
    If WAARDE < 75 Then
    WAARDE = 200
    EndIf
    
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 4
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 2
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 3
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 15
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 8
    HPWM 1,WAARDE,FREQUENTIE 
    DelayMS 20
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 8
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 5
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 10
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 3
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 15
    HPWM 1,WAARDE,FREQUENTIE 
    DelayMS 8
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 4
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 2
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 3
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 10
    HPWM 1,WAARDE,FREQUENTIE
    DelayMS 1
    HPWM 1,WAARDE,FREQUENTIE 
    DelayMS 8
    
    If KEUZE_SCHAK_6 = 0 Then
     If WAARDE < 255 Then
      HPWM 1,0,FREQUENTIE
      GoTo SELECT_MENU
     EndIf
    EndIf
              
GoTo RUN_KAARS

RUN_BLIKSEM:


    LED = 1

    Print At 1,1,"PROG-7"
    Print At 2,1,"**RUN__BLIKSEM**"

    HPWM 1,255,FREQUENTIE
    DelayMS 50
    HPWM 1,0,FREQUENTIE
    DelayMS 50
    HPWM 1,255,FREQUENTIE
    DelayMS 30
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 60
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 30
    HPWM 1,0,FREQUENTIE
    DelayMS 50
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    DelayMS 100
    HPWM 1,255,FREQUENTIE
    DelayMS 30
    HPWM 1,0,FREQUENTIE
    DelayMS 50
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    
    If KEUZE_SCHAK_7 = 0 Then
     GoTo SELECT_MENU
      HPWM 1,0,FREQUENTIE
    EndIf
    
    DelayMS 5000
    
    HPWM 1,255,FREQUENTIE
    DelayMS 50
    HPWM 1,0,FREQUENTIE
    DelayMS 50
    HPWM 1,255,FREQUENTIE
    DelayMS 30
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 60
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 30
    HPWM 1,0,FREQUENTIE
    DelayMS 50
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    DelayMS 100
    HPWM 1,255,FREQUENTIE
    DelayMS 30
    HPWM 1,0,FREQUENTIE
    DelayMS 50
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    DelayMS 250
    HPWM 1,255,FREQUENTIE
    DelayMS 50
    HPWM 1,0,FREQUENTIE
    DelayMS 100
    HPWM 1,255,FREQUENTIE
    DelayMS 80
    HPWM 1,0,FREQUENTIE
    DelayMS 30
    HPWM 1,255,FREQUENTIE
    DelayMS 60
    HPWM 1,0,FREQUENTIE
    
    If KEUZE_SCHAK_7 = 0 Then
     GoTo SELECT_MENU
      HPWM 1,0,FREQUENTIE
    EndIf
    
    DelayMS 10000
    
    HPWM 1,255,FREQUENTIE
    DelayMS 50
    HPWM 1,0,FREQUENTIE
    DelayMS 50
    HPWM 1,255,FREQUENTIE
    DelayMS 30
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 60
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 30
    HPWM 1,0,FREQUENTIE
    DelayMS 50
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    DelayMS 100
    HPWM 1,255,FREQUENTIE
    DelayMS 30
    HPWM 1,0,FREQUENTIE
    DelayMS 50
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    
    If KEUZE_SCHAK_7 = 0 Then
     GoTo SELECT_MENU
      HPWM 1,0,FREQUENTIE
    EndIf
    
    DelayMS 2500
    
    HPWM 1,255,FREQUENTIE
    DelayMS 50
    HPWM 1,0,FREQUENTIE
    DelayMS 100
    HPWM 1,255,FREQUENTIE
    DelayMS 80
    HPWM 1,0,FREQUENTIE
    DelayMS 30
    HPWM 1,255,FREQUENTIE
    DelayMS 60
    HPWM 1,0,FREQUENTIE
    DelayMS 300
    HPWM 1,255,FREQUENTIE
    DelayMS 50
    HPWM 1,0,FREQUENTIE
    DelayMS 50
    HPWM 1,255,FREQUENTIE
    DelayMS 30
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 60
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 30
    HPWM 1,0,FREQUENTIE
    DelayMS 50
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    DelayMS 100
    HPWM 1,255,FREQUENTIE
    DelayMS 30
    HPWM 1,0,FREQUENTIE
    DelayMS 50
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    DelayMS 10
    HPWM 1,255,FREQUENTIE
    DelayMS 20
    HPWM 1,0,FREQUENTIE
    
    DelayMS 30000
    
    If KEUZE_SCHAK_7 = 0 Then
     GoTo SELECT_MENU
      HPWM 1,0,FREQUENTIE
    EndIf
       
GoTo RUN_BLIKSEM

End

Hier kun je 7 licht scenario's mee aansturen, fade_in fade_out en kaars simulatie en bliksem geven mooie licht effecten.

Je kan er +/- 16 lampen van 60Watt, of 25 lampen van 40Watt aan hangen.

Als je haar maar goed zit, GROETEN LAMBIEK.