Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance. Project price only 1 $
You can buy this project and download/modify it how often you want.
### Dieses Script definiert ein Asseccory,
### um die LED von Strassenlampen, mit Neoneffekt
### anzusteuern.
### Getestet wurde das Script mit vier Lampen
###
### Hardware: Anzahl der Lightport kann im Menu eingegeben werden.
### Software: 1 accessory
### 2 0 = Alles aus, 1 = Alle an
###
### history: 2017-04-28 A.Tillner, erste Version
### 2019-12-19 A.Kuhtz, validate input parameters
###
###
### -------------- 1. Select Target
##application(text:de="Strassenlampen (Neon), mit flexibler Anzahl LED", text:en="Streetlamps (Neon), with flexible number of LEDs")
##instruction(text:de="Strassenlampen mit Neoneffekt: Der Accessoryname wird als verwendet. Lightports = _neon_0, _neon_1, _neon_2, _neon_3, ... Macros = Alles aus, Alles an", text:en="Streetlamps with neon effekt: The accessoryname will used as lightports = _neon_0, _neon_1, _neon_2, _neon_3, ... macros = all off, all on", link="http://wiki.fichtelbahn.de/doku.php?id=konfigvorlagen:lichteffekte" )
###
##input($AccessoryName:string, text:de="Name der Strasse (Accessorie): ", text:en="Name of the street (Accessory): ", default="Hauptstrasse")
##input($my_accessory:accessory, text:de="Nummer des zu erzeugenden Accessory: ", text:en="Nummber of the Accessory: ", default=0)
##input($my_macro:macro, text:de="Nummer des ersten Macros (Alles aus): ", text:en="Number of the first macro (all off): ", default=0)
##input($start_led:light, text:de="Nummer des ersten Lightport (_neon_0): ", text:en="Number of the first Lightport (_neon_0): ", default=0)
##input($led_count:int, text:de="Anzahl der Strassenlampen: ", text:en="Number of streetlamps: ", default=8)
##input($prevent_replace_labels:boolean, text:de="Keine Namen fuer Accessory, Makros, Ports ersetzen", text:en="Prevent replace labels for accessory, macro and ports", default=false)
### -------------- 1a. validate input parameters
#if ($node_macro_size < $led_count)
#if ($user_lang == "de")
$exceptionThrower.throwUserDefined("Maximale Anzahl der Strassenlampen pro Makro auf diesem Knoten: $node_macro_size")
#else
$exceptionThrower.throwUserDefined("Maximum supported streetlamps per macro on this node: $node_macro_size")
#end
#end
#set($led_gap = 1) ### die anderen LED sind an den folgenden Lightports angeschlossen
###
### -------------- 2. set Parameters for Ports
#set($WertbeiOff = 0)
#set($WertbeiOn = 220)
#set($UpTime = 4)
#set($Ueberblenden8 = 24)
#set($DownTime = 1)
#if (${dimm_range} == 8) ### Es handelt sich um einen Knoten mit 8 Bit Dimming
#set($DimmzeitOff = 100)
#set($DimmzeitOn = 175)
#set($DimmzeitOff_Param = "DimmOff=${DimmzeitOff}")
#set($DimmzeitOn_Param = "DimmOn=${DimmzeitOn}")
#else ### Es handelt sich um einen Knoten mit 16 Bit Dimming
#set($DimmzeitOff = 56320)
#set($DimmzeitOn = 56320)
#set($DimmzeitOff_Param = "DimmOff88=${DimmzeitOff}")
#set($DimmzeitOn_Param = "DimmOn88=${DimmzeitOn}")
#end
### -------------- 3. execute part of the script
#set($macro_count = 0)
#set($macro_off = $my_macro) ### need some additional macros
#set($macro_on = $my_macro + 1) ### need some additional macros
set macro ${macro_off} name="${AccessoryName}_${my_accessory}_Off"
set macro ${macro_on} name="${AccessoryName}_${my_accessory}_On"
#set($led_max = (($led_count * $led_gap) + $start_led) - 1 )
#########################################
#########################################
### Define Number of LED
### set LED-Label
### configure port
#foreach ( $led_neon in [${start_led}..${led_max}] )
### Set label of Ports
#if (!${prevent_replace_labels})
set light ${led_neon} name="${AccessoryName}_${my_accessory}_neon_${led_neon}"
#end
###
### Ports: (set Parameters)
config port ptype=light ValueOff=${WertbeiOff} ValueOn=${WertbeiOn} ${DimmzeitOff_Param} ${DimmzeitOn_Param} number=${led_neon}
#end
########################################
########################################
########################################
### Setzt label, wenn ${prevent_replace_labels} NICHT true
#if (!${prevent_replace_labels})
### Set label of Accessories
set accessory ${my_accessory} name="${AccessoryName}_${my_accessory}"
#end
########################################
#set ($start_macro = $my_macro + 1)
#set ($last_macro = $my_macro + $macro_count)
################################################/
### Macro Alle Lampen aus
###
select macro ${macro_off}
config macro repeat=1 slowdown=1
### Macro stoppen
add step ptype=macro action=stop number=${macro_on}
### nicht benoetigte LED's ausschalten
#foreach ( $led_neon in [${start_led}..${led_max}] )
add step ptype=light action=off number=${led_neon}
#end
###
### Ende Alle Lampen aus
###
################################################/
################################################/
### Macro Alle Lampen an
###
select macro ${macro_on}
config macro repeat=1 slowdown=1
### Macro stoppen
add step ptype=macro action=stop number=${macro_off}
### nicht benoetigte LED's ausschalten
#foreach ( $led_neon in [${start_led}..${led_max}] )
add step ptype=light action=neon number=${led_neon}
#end
###
### Ende Alle Lampen an
###
################################################/
###
### Ende Feuer an
###
################################################/
### Define Accessory
select accessory ${my_accessory}
add aspect 0 macronumber=${macro_off}
add aspect 1 macronumber=${macro_on}