Animate[
Manipulate[
A=1;
m=9.1*10^(-31);
(*Energy=1.6*10^(-19);*)
hbar=6.626*10^(-34);
(*v=1*10^(-19);*)
k1=(2*m*Energy/(hbar*hbar))^(1/2);
k2=(2*m*(Energy-v)/(hbar*hbar))^(1/2);
B=(k1-k2)/(k1+k2);
F=(2*k1)/(k1+k2);
w=Energy/hbar;
w1=hbar*k1*k1/(2*m);
w2=hbar*k2*k2/(2*m);
Plot[{Piecewise[{{Re[Exp[-I*(Energy/hbar)*t](A*Exp[I*((2*m*Energy/(hbar*hbar))^(1/2)*x)]+B*Exp[-I*((2*m*Energy/(hbar*hbar))^(1/2)*x)])],x<0},{Re[F*Exp[I*((2*m*(Energy-v)/(hbar*hbar))^(1/2)*x-(Energy/hbar)*t)]],x>0}}],Piecewise[{{Im[Exp[-I*(Energy/hbar)*t](A*Exp[I*((2*m*Energy/(hbar*hbar))^(1/2)*x)]+B*Exp[-I*((2*m*Energy/(hbar*hbar))^(1/2)*x)])],x<0},{Im[F*Exp[I*((2*m*(Energy-v)/(hbar*hbar))^(1/2)*x-(Energy/hbar)*t)]],x>0}}]},{x,-1*10^(-8),1*10^(-8)},PlotRange->{-2,2}],{{Energy,2*10^(-19)},1*10^(-19),3*10^(-19),0.1*10^(-19)},{v,1*10^(-19),3*10^(-19),0.1*10^(-19)}],{t,0,1*10^(-13)},AnimationRunning->False]
*Export["scatteringstep.swf",%]*

SystemOpen[DirectoryName[AbsoluteFileName["scattering2.swf"]]]