ArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArray
Statistics: Posted by senso — 15 Jan 2008, 21:37
]]>
Statistics: Posted by senso — 15 Jan 2008, 18:47
Statistics: Posted by bsork — 15 Jan 2008, 15:14
Statistics: Posted by antwan — 15 Jan 2008, 13:54
Statistics: Posted by senso — 15 Jan 2008, 13:14
Statistics: Posted by senso — 15 Jan 2008, 10:11
Statistics: Posted by bsork — 15 Jan 2008, 09:57
Statistics: Posted by antwan — 14 Jan 2008, 19:37
Statistics: Posted by bsork — 22 Nov 2007, 14:51
Statistics: Posted by moody33 — 22 Nov 2007, 12:28
Statistics: Posted by moody33 — 22 Nov 2007, 11:10
Statistics: Posted by antwan — 22 Nov 2007, 11:02
Statistics: Posted by bsork — 22 Nov 2007, 10:31
Statistics: Posted by antwan — 22 Nov 2007, 09:51
CODE:
VAR pIn : ARRAY OF TParameter;VAR pOut : ARRAY OF TParameter;VAR i : integer;VAR bOn : BOOLEAN;VAR tmp : ARRAY OF integer;CONST NUM_CH = 8;PROCEDURE init;BEGIN SetArrayLength(pIn, NUM_CH); SetArrayLength(pOut, NUM_CH); SetArrayLength(tmp, NUM_CH); FOR i := 0 TO (NUM_CH - 1) DO BEGIN pIn[i] := CreateParam('solo in'+IntToStr(i+1), ptSwitch); SetIsOutput(pIn[i], FALSE); END; FOR i := 0 TO (NUM_CH - 1) DO BEGIN pOut[i] := CreateParam('mute out'+IntToStr(i+1), ptSwitch); SetIsInput(pOut[i], FALSE); END;END;BEGIN bOn := FALSE; FOR i := 0 TO (NUM_CH - 1) DO BEGIN tmp[i] := trunc(GetValue(pIn[i])); IF (tmp[i] = 1) THEN bOn := TRUE; END; IF (bOn) THEN BEGIN FOR i := 0 TO (NUM_CH - 1) DO BEGIN IF (tmp[i] = 1) THEN BEGIN SetValue(pOut[i], 0); END ELSE BEGIN SetValue(pOut[i], 1); END; END; END ELSE BEGIN FOR i := 0 TO (NUM_CH - 1) DO SetValue(pOut[i], 0); END;END.I think it could have been a bit more compact and efficient, but I'm tired tonight...Statistics: Posted by bsork — 21 Nov 2007, 21:45
Statistics: Posted by moody33 — 21 Nov 2007, 20:23
Statistics: Posted by antwan — 21 Nov 2007, 19:51
Statistics: Posted by senso — 21 Nov 2007, 19:48
Statistics: Posted by moody33 — 21 Nov 2007, 14:19
Statistics: Posted by senso — 15 Jan 2008, 21:37
Statistics: Posted by senso — 15 Jan 2008, 18:47
Statistics: Posted by bsork — 15 Jan 2008, 15:14
Statistics: Posted by antwan — 15 Jan 2008, 13:54
Statistics: Posted by senso — 15 Jan 2008, 13:14
Statistics: Posted by senso — 15 Jan 2008, 10:11
Statistics: Posted by bsork — 15 Jan 2008, 09:57
Statistics: Posted by antwan — 14 Jan 2008, 19:37
Statistics: Posted by bsork — 22 Nov 2007, 14:51
Statistics: Posted by moody33 — 22 Nov 2007, 12:28
Statistics: Posted by moody33 — 22 Nov 2007, 11:10
Statistics: Posted by antwan — 22 Nov 2007, 11:02
Statistics: Posted by bsork — 22 Nov 2007, 10:31
Statistics: Posted by antwan — 22 Nov 2007, 09:51
CODE:
VAR pIn : ARRAY OF TParameter;VAR pOut : ARRAY OF TParameter;VAR i : integer;VAR bOn : BOOLEAN;VAR tmp : ARRAY OF integer;CONST NUM_CH = 8;PROCEDURE init;BEGIN SetArrayLength(pIn, NUM_CH); SetArrayLength(pOut, NUM_CH); SetArrayLength(tmp, NUM_CH); FOR i := 0 TO (NUM_CH - 1) DO BEGIN pIn[i] := CreateParam('solo in'+IntToStr(i+1), ptSwitch); SetIsOutput(pIn[i], FALSE); END; FOR i := 0 TO (NUM_CH - 1) DO BEGIN pOut[i] := CreateParam('mute out'+IntToStr(i+1), ptSwitch); SetIsInput(pOut[i], FALSE); END;END;BEGIN bOn := FALSE; FOR i := 0 TO (NUM_CH - 1) DO BEGIN tmp[i] := trunc(GetValue(pIn[i])); IF (tmp[i] = 1) THEN bOn := TRUE; END; IF (bOn) THEN BEGIN FOR i := 0 TO (NUM_CH - 1) DO BEGIN IF (tmp[i] = 1) THEN BEGIN SetValue(pOut[i], 0); END ELSE BEGIN SetValue(pOut[i], 1); END; END; END ELSE BEGIN FOR i := 0 TO (NUM_CH - 1) DO SetValue(pOut[i], 0); END;END.I think it could have been a bit more compact and efficient, but I'm tired tonight...Statistics: Posted by bsork — 21 Nov 2007, 21:45
Statistics: Posted by moody33 — 21 Nov 2007, 20:23
Statistics: Posted by antwan — 21 Nov 2007, 19:51
Statistics: Posted by senso — 21 Nov 2007, 19:48
Statistics: Posted by moody33 — 21 Nov 2007, 14:19