BeginPackage["Wikicode`Slider`Computing`"]
LogSlider::usage = "LogSlider[Dynamic[x],max] creates a slider with a \
logarithmic scale that manipulates the value of x from 1 to max."
Begin["`Private`"]
LogSlider[Dynamic[x_], max_] :=
Slider[Dynamic[Log[max, x], (x = max^#) &]]
End[]
EndPackage[]
References
edit"Logarithmic slider". Mathematica Stack Exchange. Retrieved 9 February 2014.