sound=Import["ExampleData/rule30.wav"]

Animate[If[k==0||k==1,EmitSound[sound]];
Plot[k*x^2,{x,-2,2},PlotRange->{{-2,2},{-10,10}}],{k,-2,2,0.1,AnimationRate->1,AnimationRunning->False}]