Min Max

This code has been declared by its author to be Public Domain code.

Min Max by Diego

2007

Something simple but useful.

Edit:
I added a functions to process strings and the InRange function, which returns the value, if it's between min% and max% or otherwise min% or max% self. Maybe this is useful if you calculated some colors to draw and want to make sure, it's between 0 and 255. The Example would be:
InRange(0, MyColor%, 255)

- - - - -
Etwas einfaches aber nützliches.

Edit:
Ich habe Funktionen hinzugefügt um Strings zu verarbeiten und die InRange-Funktion, welche den Wert zurück gibt, wenn er zwischen min% und max% liegt oder im anderen Fall min% bzw. max% selbst. Vielleicht ist das nützlich, falls du Farben zum Zeichnen berechnet hastund du sicherstellen willst, dass sie zwischen 0 und 255 liegen. Das Beispiel dafür ist:
InRange(0, Farbe%, 255)

Function Min(Zahl1%, Zahl2%)
If Zahl1% < Zahl2% Then Return Zahl1% Else Return Zahl2%
End Function

Function MinFloat#(Zahl1#, Zahl2#)
If Zahl1# < Zahl2# Then Return Zahl1# Else Return Zahl2#
End Function

Function MinString$(String1$, String2$)
If String1$ < String2$ Then Return String1$ Else Return String2$
End Function

Function Max(Zahl1%, Zahl2%)
If Zahl1% > Zahl2% Then Return Zahl1% Else Return Zahl2%
End Function

Function MaxFloat#(Zahl1#, Zahl2#)
If Zahl1# > Zahl2# Then Return Zahl1# Else Return Zahl2#
End Function

Function MaxString$(String1$, String2$)
If String1$ > String2$ Then Return String1$ Else Return String2$
End Function

Function InRange(Min%, Value%, Max%)
If Value% < Min% Then Return Min%
If Value% > Max% Then Return Max%
Return Value%
End Function

Function InRangeFloat#(Min#, Value#, Max#)
If Value# < Min# Then Return Min#
If Value# > Max# Then Return Max#
Return Value#
End Function

Function InRangeString$(Min$, Value$, Max$)
If Value$ < Min$ Then Return Min$
If Value$ > Max$ Then Return Max$
Return Value$
End Function

Comments

Curtastic

2007

Zahl!

Yep thats useful

Code Archives Forum