Hallo,
ich habe wieder mal was spezielles.
Da ich sehr viele Waituntils habe, möchte ich eine Routine bastelln wo ich die einzelene Signale/Variablen übergeben kann und dann in der Routine dementsprechend was mache.
z.B.:
rWaitUntil (di_FRG_Be_Entladung,1,AND,di_Streck_BeladeFRG,=1 AND di_Mat_Anf_Ein=1);
!-------------------------------------
!--Ablauf fürs ablegen auf die Biege--
!-------------------------------------
PROC rWaitUntil(
\signaldi di_Loc1,
\signaldi di_Loc2,
\signaldi di_Loc3,
\signaldo do_Loc1,
\signaldo do_Loc2,
\signaldo do_Loc3,
\bool bLoc1,
\bool bLoc2,
\bool bLoc3,
\and oder or mit dabei...)
VAR bool bWeiter;
ClkReset clZeit;
ClkStart clZeit;
WHILE (NOT bWeiter)
IF (Present(di_Loc1),Present(di_Loc2),Present(di_Loc3),Present(do_Loc1));
bWeiter:=TRUE;
ENDIF
IF ClkRead(clZeit)>60 StopTask:=TRUE;
ENDWHILE
ENDPROC