Code archives/Algorithms/Incr()/Decr() with safety check
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
Increment or decrement by a value with bounds check | |||||
Function Incr(iValue,iIncAmount,iMax) If iValue + iIncAmount > iMax Then Return iMax Return iValue + iIncAmount End Function Function Decr(iValue,iDecAmount,iMin) If iValue - iDecAmount < iMin Then Return iMin Return iValue - iDecAmount End Function x = 1 For z = 1 to 20 Print Incr(x,1,10) ; Will not print higher than 10 Next x = 10 For p = 20 to 1 Print Decr(x,3,0) ; Will not print lower than 0 Next ;Excellent for nice and neat bounds checking! |
Comments
None.
Code Archives Forum