Clear["Global`*"]

eq1 = x''[t] + 2 γ x'[t] + (w0^2) x[t] == q0 Exp[I wd t]

bc={x'[0]==v0,x[0]==x0}

dsol1=DSolve[Join[{eq1},bc],x,t][[1]] //Simplify;

values={γ->0.1, w0->1, wd->5,q0->3,v0->1,x0->1}
Plot[ x[t] /. dsol1 //.values //Re ,{t,0,30}]

Clear[f]
f[t_,γ_,w0_,wd_,q0_,x0_,v0_]=Re[ x[t] /. dsol1] ;
f[1,2,3,4,5,6,7 ] //N

Manipulate[
Plot[Sin[ n x],{x,0,10}]
,{n,1,10,1}]

Manipulate[
Plot[f[t,0.1,w0,5,3,1,1 ],{t,0,30}] 
,{{w0,1},0.1,10,0.1}]

Manipulate[
Plot[f[t,0.1,w0,wd,3,1,1 ],{t,0,30}] 
,{{w0,1},0.1,10,0.1}
,{{wd,5},0.1,10,0.1}

]

Manipulate[
Plot[f[t,γ,w0,wd,q0,x0,v0 ],{t,0,100}] 
,{{w0,1},0.1,10,0.1}
,{{wd,5},0.1,10,0.1}
,{{γ,0.1},0.1,2,0.1}
,{{q0,3},0,10,0.1}
,{{x0,1},-10,10,0.5}
,{{v0,1},-10,10,0.5}
]

?Manipulate