Animation

Plot[Sin[ Pi x],{x,-1,1}]

WaveT=Table[
Plot[Sin[Pi(x-t)],{x,-1,1}],
{t,0,2,0.1}
]

Export["Wave-Animation1.gif",WaveT]

Export["Wave-Animation2.gif",Most[WaveT]]

WaveA=Animate[
Plot[Sin[Pi(x-t)],{x,-1,1}],
{t,0,2,0.1}
]

Export["Wave-Animate.cdf",WaveA,"CDF"]

WaveM=Manipulate[
Plot[Sin[Pi(x-t)],{x,-1,1}],
{t,0,2,0.1}
]

Export["Wave-Manipulate.cdf",WaveM,"CDF"]

Sound

Play[Sin[440 * 2 Pi t],{t,0,5}]

Play[Sin[440 * 2 Pi t]+Sin[441 * 2 Pi t],{t,0,5}]

Beat=Manipulate[
Play[Sin[440 * 2 Pi t]+Sin[(440+f) * 2 Pi t],{t,0,5}],
{{f,0},-5,5,1}
]

Export["Beat.cdf",Beat,"CDF"]