data.nodescript.application.ReadyServo8.ReadyServo8-ServoTurnout_with_sensor.nodescript Maven / Gradle / Ivy

Go to download
## Dieses Script erstellt Accessory, Macro und ServoPort mit mehr als 2 Positionen.
##  
## history: 2024-08-05 A.Kuhtz, erste Version
##
##

## Prüfung auf ReadyServo8
##require(vid="251", pid="232")

## -------------- 1. Select Target
##application(text:de="Weichenantrieb mit Servo mit mehr als 2 Positionen", text:en="Turnout (servo) for more than 2 positions", text:nl="Wisselaandrijving met Servo met meer dan twee posities")
##instruction(text:de="Konfiguration von Servo für Weichensteuerung mit mehr als 2 Positionen", text:en="Configuration of servo for turnouts with more than 2 positions")
##
##input($AccessoryName:string, text:de="Name des Accessory: ", text:en="Name of the Accessory: ", default="Multipos-Servo")
##input($AccessoryNumber:accessory, text:de="Nummer des verwendeten Accessory", text:en="Number of the used Accessory", default=0)
##input($MacroNumber:macro, text:de="Nummer des ersten Macros (Benötigt = Anzahl Positionen)", text:en="Number of the first macro (total = number of positions)", default=0)
##input($ServoCount:int, text:de="Anzahl der Servos", text:en="Number of the servos", default=1)
##input($ServoPortNumber:servo, text:de="Nummer des ServoPort", text:en="Number of the servo port", default=0)
##input($ServoPositionCount:int, text:de="Anzahl der ServoPositionen", text:en="Number of servo positions", default=2)
##input($ServoName:string, text:de="Name des Servo: ", text:en="Name of the servo: ", default="Multipos-Servo")
##input($InputPortNumber:input, text:de="Nummer des Eingang (Total: 2 pro Servo)", text:en="Number of the input port (total: 2 per servo)", default=8)
##input($InputName:string, text:de="Name des Eingang", text:en="Name of the input port", default="Endschalter-Servo")

#set ($accessoryOffset = 0)
#set ($macroOffset = $MacroNumber)
#set ($maxServo = $ServoCount - 1)
#set ($currentServo = ${ServoPortNumber})
#set ($currentInput = ${InputPortNumber})

## calculate the number of macros that are required
#set($macroCount  = $ServoPositionCount - 1)

#foreach ($currentServoIndex in [0..$maxServo])


### -------------- 3. execute part of the script

#set($currentAccessory = $AccessoryNumber + $accessoryOffset)

### Set label of Accessories
set accessory ${currentAccessory} name="${AccessoryName}_${accessoryOffset}"

### Set label of ServoPort
set servo $currentServo name="${ServoName}_${currentServoIndex}"

### configure the port as inputport
assert port number=${currentInput} ptype=input

### Set label of InputPort
set input $currentInput name="${InputName}_${currentServoIndex}"

########################################
#set($firstMacroNumber = $macroOffset)

#foreach ($currentMacroIndex in [0..$macroCount])

#set($currentMacroNum = $currentMacroIndex + $firstMacroNumber)

## calculate the target position
#set($targetPosition = $currentMacroIndex *10)
#if ($currentMacroIndex == $macroCount)
#set($targetPosition = 100)
#end

### Set label of Macro
set macro ${currentMacroNum} name="${AccessoryName}_${accessoryOffset}_Pos_${currentMacroIndex}"

################################################
### configure macro
###
select macro ${currentMacroNum}
config macro repeat=1 slowdown=1

### stop all macro
#foreach ($macroNum in [0..$macroCount])

#set($stopMacroNum = $macroNum + $firstMacroNumber)
#if ($stopMacroNum != $currentMacroNum)
add step ptype=macro action=stop number=${stopMacroNum}
#end ## #if
#end ## #foreach

#if ($targetPosition == 0)
#set($halfTargetPosition = 50)
#set($switchAction = "off")
#else 
#set($halfTargetPosition = $targetPosition / 2)
#set($switchAction = "on")
#end
add step ptype=servo action=start target=$halfTargetPosition number=$currentServo
add step ptype=moveServoQuery number=$currentServo

add step ptype=servo action=start target=$targetPosition number=$currentServo
add step ptype=moveServoQuery number=$currentServo

#if ($currentMacroIndex == 0)
add step ptype=input action=query0 number=$currentInput
#else
add step ptype=input action=query1 number=$currentInput
#end


#end

### Define Accessory
select accessory ${currentAccessory}
config accessory startup restore
#foreach ($currentMacroIndex in [0..$macroCount])

#set($currentMacroNum = $currentMacroIndex + $firstMacroNumber)

add aspect $currentMacroIndex macronumber=$currentMacroNum
#if ($currentMacroIndex == 0)
set aspect $currentMacroIndex accessory=${currentAccessory} name="gerade"
#else
set aspect $currentMacroIndex accessory=${currentAccessory} name="abzweig"
#end

#end

#set ($accessoryOffset = $accessoryOffset + 1)
#set ($macroOffset = $macroOffset + $ServoPositionCount)
#set ($currentServo = $currentServo + 1)
#set ($currentInput = $currentInput + 1)
#end