Hallo
Das ist jetzt mal die ganze SPS.SUB.
Wenn ich den Schlüsselschalter umlege und auf EXT schalte startet mein HP.
Dann wieder auf T1 und gut ist.
Grüße
&ACCESS RVO
&REL 13
&COMMENT PLC on control
DEF SPS ( )
;FOLD DECLARATIONS
;FOLD BASISTECH DECL
;Automatik extern
DECL STATE_T STAT
DECL MODUS_T MODE
;ENDFOLD (BASISTECH DECL)
;FOLD USER DECL
; Please insert user defined declarations
;ENDFOLD (USER DECL)
;ENDFOLD (DECLARATIONS)
;FOLD INI
;FOLD AUTOEXT INIT
INTERRUPT DECL 91 WHEN $PRO_STATE1==#P_FREE DO RESET_OUT ()
INTERRUPT ON 91
INTERRUPT DECL 92 WHEN $PRO_MOVE==TRUE DO RESET_LINESEL()
INTERRUPT ON 92
$LOOP_MSG[]=" "
MODE=#SYNC
$H_POS=$H_POS
;Automatik extern
;REMOVED AUTOGENERATED -- DO NOT CHANGE -- DAI_POWERTRAIN_V86_S7-1500 sps SpsSub_Block_Del.add InsertSpsSubInit
;ENDFOLD (AUTOEXT INIT)
;FOLD BACKUPMANAGER PLC INIT
BM_ENABLED = FALSE
BM_OUTPUTVALUE = 0
;ENDFOLD (BACKUPMANAGER PLC INIT)
;START AUTOGENERATED -- DO NOT CHANGE -- DAI_POWERTRAIN_V86_S7-1500 sps SpsSub_Block_Init.add InsertSpsSubInit
;FOLD DAI_SPS_INI
;Automatik extern
IF $MODE_OP==#EX THEN
CWRITE($CMD,STAT,MODE,"RUN /R1/Program/HP_OP098_R01()")
ENDIF
;ENDFOLD (DAI_SPS_INI)
;END AUTOGENERATED -- DO NOT CHANGE -- (DAI_POWERTRAIN_V86_S7-1500 sps SpsSub_Block_Init.add InsertSpsSubInit)
;FOLD USER INIT
;START AUTOGENERATED -- DO NOT CHANGE -- DAI_TRMD sps TRMD_sps.sub.add InsertDAI_TRMD
;FOLD INIT Fuer_Transfermodul_PT
dai_sps_init( )
;ENDFOLD INIT Fuer_Transfermodul_PT
;END AUTOGENERATED -- DO NOT CHANGE -- (DAI_TRMD sps TRMD_sps.sub.add InsertDAI_TRMD)
; Please insert user defined initialization commands
;ENDFOLD (USER INIT)
;ENDFOLD (INI)
LOOP
WAIT FOR NOT($POWER_FAIL)
;FOLD BACKUPMANAGER PLC
IF BM_ENABLED THEN
BM_OUTPUTSIGNAL = BM_OUTPUTVALUE
ENDIF
;ENDFOLD (BACKUPMANAGER PLC)
;START AUTOGENERATED -- DO NOT CHANGE -- GripperSpotTech sps SpsSub.add InsertGripperTechGlobals
;FOLD GRIPPERTECH LOOP
GRPg_ChkSetStatePLC()
;ENDFOLD (GRIPPERTECH LOOP)
;END AUTOGENERATED -- DO NOT CHANGE -- (GripperSpotTech sps SpsSub.add InsertGripperTechGlobals)
;START AUTOGENERATED -- DO NOT CHANGE -- DAI_POWERTRAIN_V86_S7-1500 sps SpsSub_Block_Loop.add InsertSpsSubLoop
;FOLD DAI_SPS_LOOP
dai_system_sps()
dai_user_sps()
;ENDFOLD (DAI_SPS_LOOP)
;END AUTOGENERATED -- DO NOT CHANGE -- (DAI_POWERTRAIN_V86_S7-1500 sps SpsSub_Block_Loop.add InsertSpsSubLoop)
;START AUTOGENERATED -- DO NOT CHANGE -- DAI_CollDetect Sps spssub.add InsertSPSFold
;FOLD DAI_CollDetect
DAI_CollDetect()
;ENDFOLD (DAI_CollDetect)
;END AUTOGENERATED -- DO NOT CHANGE -- (DAI_CollDetect Sps spssub.add InsertSPSFold)
;FOLD USER PLC
;Make your modifications here
IF NOT diKollisionsschutz_545 AND $T2 THEN
$OV_PRO=0
ENDIF
doKollSchutzIO_258 = diKollisionsschutz_545
;ENDFOLD (USER PLC)
ENDLOOP
END
;ENDFOLD
DEF RESET_OUT ( )
INT N
MsgLoop(" ")
IF REFLECT_PROG_NR == 1 THEN
FOR N = 0 TO PGNO_LENGTH - 1
$OUT[PGNO_FBIT_REFL + N] = FALSE
ENDFOR
ENDIF
IF (PGNO_REQ>0) THEN
$OUT[PGNO_REQ]=FALSE
ELSE
IF (PGNO_REQ<0) THEN
$OUT[-PGNO_REQ]=TRUE
ENDIF
ENDIF
END
DEF RESET_LINESEL()
$LINE_SEL_OK=FALSE
END
;FOLD USER SUBROUTINE
; Integrate your user defined subroutines
;ENDFOLD (USER SUBROUTINE)
;ENDFOLD