Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // [high level] for motor and ventilator
- "EX009_IDB5_Management"(StartButton := "HD_Input".ButtonON,
- StopButton := "HD_Input".ButtonOFF,
- EmergencyButton := "HD_Input".EmergencyButton,
- SystemEnable => "EX009_MotorParameters".StartPumpSystem);
- // wywołanie funkcji EX009_MotorControl()
- "EX009_MotorControl"(StartSystem := "EX009_Motor_Parameters".StartPumpSystem,
- Pressure := "HD_Input".Pressure,
- ParametersMotor1 => "EX009_MotorParameters".Motor1,
- ParametersMotor2 => "EX009_MotorParameters".Motor2);
- // wywołanie funkcji EX009_Execution()
- "HD_Output".RunMotor1 := "EX009_MotorExecution"(ParametersMotor := "EX009_MotorParameters.Motor1);
- "HD_Output".RunMotor2 := "EX009_MotorExecution"(ParametersMotor := "EX009_MotorParameters.Motor2);
- // wywołanie funkcji EX009_VentilatorControl()
- "EX009_VentilatorControl"(StartSystem := "EX009_MotorParameters".StartPumpSystem,
- Temperature := "HD_Input". TemperatureMotor1,
- VentilatorOnOff => "EX009_MotorParameters".Motor1.VentilatorOnOff);
- "EX009_VentilatorControl"(StartSystem := "EX009_MotorParameters".StartPumpSystem,
- Temperature := "HD_Input". TemperatureMotor2,
- VentilatorOnOff => "EX009_MotorParameters".Motor2.VentilatorOnOff);
- // wywołanie funkcji EX009_VentilatorExecution()
- "HD_Output".RunVentilatorMotor1 := "EX009_VentilatorExecution"(ParametersVentilator := "EX009_MotorParameters".Motor1);
- "HD_Output".RunVentilatorMotor2 := "EX009_VentilatorExecution"(ParametersVentilator := "EX009_MotorParameters".Motor2);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement