<< Graphics`Animation`
m  =  1;
B  =  1;
τ  =  10;
q  =  1;
CE  =  1;
A = 1;
B  = 
        5;


Solucion = 
FullSimplify[
        DSolve[{m x'[t] + q B y[t] + (m/τ) x[t]  +  
                q CE t == A, 
            m y'[t]  -  q B x [t]  + (m/τ) y[t] ==  B, 
            x[0]  == 1, y[0] == 1}, {x[t], y[t]}, 
          t]]
freia[t_] := x[t] /.  Solucion[[1, 1]]
logue[t_] := 
      y[t] /. Solucion[[1, 
            2]]

pts2 = Point[{15, 15, 0}]
pts3 = Point[{15, -15, 0}]
pts4 = Point[{-15, 15, 0}]
pts5 = Point[{-15, -15, 0}]
camino1 = 
        Point[{logue[t], freia[t],  .5}];
movi = 
      Table[Graphics3D[{PointSize[0.05], camino1, pts2, pts3, pts4, pts5}, 
            PlotRange -> {0, 5}, Axes -> True], {t, 0, 70}] // 
        Short
ShowAnimation[%]