Advertisement
Guest User

Blok OB1

a guest
Apr 22nd, 2016
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SCL 1.55 KB | None | 0 0
  1. // [high level] for motor and ventilator
  2. "EX009_IDB5_Management"(StartButton := "HD_Input".ButtonON,
  3.                         StopButton := "HD_Input".ButtonOFF,
  4.                         EmergencyButton := "HD_Input".EmergencyButton,
  5.                         SystemEnable => "EX009_MotorParameters".StartPumpSystem);
  6.  
  7. // wywołanie funkcji EX009_MotorControl()
  8. "EX009_MotorControl"(StartSystem := "EX009_Motor_Parameters".StartPumpSystem,
  9.                      Pressure := "HD_Input".Pressure,
  10.                      ParametersMotor1 => "EX009_MotorParameters".Motor1,
  11.                      ParametersMotor2 => "EX009_MotorParameters".Motor2);
  12.  
  13. // wywołanie funkcji EX009_Execution()
  14. "HD_Output".RunMotor1 := "EX009_MotorExecution"(ParametersMotor := "EX009_MotorParameters.Motor1);
  15. "HD_Output".RunMotor2 := "EX009_MotorExecution"(ParametersMotor := "EX009_MotorParameters.Motor2);
  16.  
  17. // wywołanie funkcji EX009_VentilatorControl()
  18. "EX009_VentilatorControl"(StartSystem := "EX009_MotorParameters".StartPumpSystem,
  19.                                           Temperature := "HD_Input". TemperatureMotor1,
  20.                                           VentilatorOnOff => "EX009_MotorParameters".Motor1.VentilatorOnOff);
  21.  
  22. "EX009_VentilatorControl"(StartSystem := "EX009_MotorParameters".StartPumpSystem,
  23.                                           Temperature := "HD_Input". TemperatureMotor2,
  24.                                           VentilatorOnOff => "EX009_MotorParameters".Motor2.VentilatorOnOff);
  25.  
  26. // wywołanie funkcji EX009_VentilatorExecution()
  27. "HD_Output".RunVentilatorMotor1 := "EX009_VentilatorExecution"(ParametersVentilator := "EX009_MotorParameters".Motor1);    
  28. "HD_Output".RunVentilatorMotor2 := "EX009_VentilatorExecution"(ParametersVentilator := "EX009_MotorParameters".Motor2);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement