ArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArray
Statistics: Posted by multiphone — 24 Sep 2010, 17:52
Statistics: Posted by senso — 24 Sep 2010, 16:59
Statistics: Posted by multiphone — 24 Sep 2010, 14:12
Statistics: Posted by bsork — 24 Sep 2010, 00:02
Statistics: Posted by senso — 23 Sep 2010, 22:31
Statistics: Posted by senso — 23 Sep 2010, 21:24
Statistics: Posted by ethnix73 — 23 Sep 2010, 21:07
Statistics: Posted by 23fx23 — 23 Sep 2010, 00:13
Statistics: Posted by gurulogic — 22 Sep 2010, 23:35
Statistics: Posted by 23fx23 — 22 Sep 2010, 16:53

Statistics: Posted by nay-seven — 22 Sep 2010, 15:54
Statistics: Posted by bsork — 22 Sep 2010, 13:25
Statistics: Posted by 23fx23 — 22 Sep 2010, 12:56
Statistics: Posted by nay-seven — 22 Sep 2010, 12:48
Statistics: Posted by gurulogic — 22 Sep 2010, 11:44
Statistics: Posted by gurulogic — 22 Sep 2010, 11:24
CODE:
VAR pInValue, pOutValue, pResetValue, pHoldTime, pIgnoreWhileHold : tParameter;VAR lastTime : Single;VAR holding : Boolean;PROCEDURE Init;BEGIN pInValue := CreateParam('value in', ptDataField); SetIsOutput(pInValue, FALSE); pOutValue := CreateParam('value out', ptDataField); SetIsInput(pOutValue, FALSE); pResetValue := CreateParam('reset value', ptDataField); SetIsOutput(pResetValue, FALSE); pHoldTime := CreateParam('hold time', ptDataFader); SetIsOutput(pHoldTime, FALSE); SetSymbol(pHoldTime, 'ms'); SetMin(pHoldTime, 0); SetMax(pHoldTime, 10000); pIgnoreWhileHold := CreateParam('ignore new', ptSwitch); SetIsOutput(pIgnoreWhileHold, FALSE); holding := FALSE;END; // InitPROCEDURE Callback(n : Integer);BEGIN IF (n = pInvalue) THEN BEGIN IF ((GetValue(pIgnoreWhileHold) = 0) OR (NOT holding)) THEN BEGIN SetValue(pOutValue, GetValue(pInValue)); lastTime := TimeMs; holding := TRUE; END; END;END; // CallbackPROCEDURE Process;BEGIN IF ((holding) AND ((TimeMs - lastTime) >= GetValue(pHoldTime))) THEN BEGIN SetValue(pOutValue, GetValue(pResetValue)); holding := FALSE; END;END; // ProcessStatistics: Posted by bsork — 22 Sep 2010, 10:59
Statistics: Posted by ethnix73 — 22 Sep 2010, 10:07
Statistics: Posted by nay-seven — 22 Sep 2010, 09:39
Statistics: Posted by gurulogic — 22 Sep 2010, 09:28
Statistics: Posted by multiphone — 24 Sep 2010, 17:52
Statistics: Posted by senso — 24 Sep 2010, 16:59
Statistics: Posted by multiphone — 24 Sep 2010, 14:12
Statistics: Posted by bsork — 24 Sep 2010, 00:02
Statistics: Posted by senso — 23 Sep 2010, 22:31
Statistics: Posted by senso — 23 Sep 2010, 21:24
Statistics: Posted by ethnix73 — 23 Sep 2010, 21:07
Statistics: Posted by 23fx23 — 23 Sep 2010, 00:13
Statistics: Posted by gurulogic — 22 Sep 2010, 23:35
Statistics: Posted by 23fx23 — 22 Sep 2010, 16:53

Statistics: Posted by nay-seven — 22 Sep 2010, 15:54
Statistics: Posted by bsork — 22 Sep 2010, 13:25
Statistics: Posted by 23fx23 — 22 Sep 2010, 12:56
Statistics: Posted by nay-seven — 22 Sep 2010, 12:48
Statistics: Posted by gurulogic — 22 Sep 2010, 11:44
Statistics: Posted by gurulogic — 22 Sep 2010, 11:24
CODE:
VAR pInValue, pOutValue, pResetValue, pHoldTime, pIgnoreWhileHold : tParameter;VAR lastTime : Single;VAR holding : Boolean;PROCEDURE Init;BEGIN pInValue := CreateParam('value in', ptDataField); SetIsOutput(pInValue, FALSE); pOutValue := CreateParam('value out', ptDataField); SetIsInput(pOutValue, FALSE); pResetValue := CreateParam('reset value', ptDataField); SetIsOutput(pResetValue, FALSE); pHoldTime := CreateParam('hold time', ptDataFader); SetIsOutput(pHoldTime, FALSE); SetSymbol(pHoldTime, 'ms'); SetMin(pHoldTime, 0); SetMax(pHoldTime, 10000); pIgnoreWhileHold := CreateParam('ignore new', ptSwitch); SetIsOutput(pIgnoreWhileHold, FALSE); holding := FALSE;END; // InitPROCEDURE Callback(n : Integer);BEGIN IF (n = pInvalue) THEN BEGIN IF ((GetValue(pIgnoreWhileHold) = 0) OR (NOT holding)) THEN BEGIN SetValue(pOutValue, GetValue(pInValue)); lastTime := TimeMs; holding := TRUE; END; END;END; // CallbackPROCEDURE Process;BEGIN IF ((holding) AND ((TimeMs - lastTime) >= GetValue(pHoldTime))) THEN BEGIN SetValue(pOutValue, GetValue(pResetValue)); holding := FALSE; END;END; // ProcessStatistics: Posted by bsork — 22 Sep 2010, 10:59
Statistics: Posted by ethnix73 — 22 Sep 2010, 10:07
Statistics: Posted by nay-seven — 22 Sep 2010, 09:39
Statistics: Posted by gurulogic — 22 Sep 2010, 09:28