Main.st 891 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253
  1. PROGRAM _INIT
  2. (* Insert code here *)
  3. END_PROGRAM
  4. PROGRAM _CYCLIC
  5. gDO_doppelt_lasern;
  6. gDI_keiner_Stoerung_Laser;
  7. gDI_Laser_fertig;
  8. gDO_Start_Laser;
  9. IF VK_Start = TRUE THEN
  10. gMerker_Motoren_ein := TRUE;
  11. VK_Start := FALSE;
  12. END_IF
  13. IF VK_Stop = TRUE THEN
  14. gMerker_Motoren_ein := FALSE;
  15. VK_Stop := FALSE;
  16. END_IF
  17. IF gMerker_Motoren_ein = TRUE THEN
  18. gDO_Motor_K1 := TRUE;
  19. gDO_Motor_K2 := TRUE;
  20. gDO_Motor_K3 := TRUE;
  21. gDO_Motor_K4 := TRUE;
  22. gDO_Motor_K5 := TRUE;
  23. gDO_Motor_K6 := TRUE;
  24. gDO_Motor_K7 := TRUE;
  25. gDO_Motor_K8 := TRUE;
  26. END_IF
  27. IF gMerker_Motoren_ein = FALSE THEN
  28. gDO_Motor_K1 := FALSE;
  29. gDO_Motor_K2 := FALSE;
  30. gDO_Motor_K3 := FALSE;
  31. gDO_Motor_K4 := FALSE;
  32. gDO_Motor_K5 := FALSE;
  33. gDO_Motor_K6 := FALSE;
  34. gDO_Motor_K7 := FALSE;
  35. gDO_Motor_K8 := FALSE;
  36. END_IF
  37. END_PROGRAM
  38. PROGRAM _EXIT
  39. (* Insert code here *)
  40. END_PROGRAM