Manipulate[Plot[Sin[k*x],{x,0,16.28}],{k,.2,10}]