Monitor[sol=NDSolve[{y'[x]==y[x] Cos[x+y[x]],y[0]==1},y,{x,0,30},EvaluationMonitor:>(Pause[0.005];step=x)],AngularGauge[Dynamic[step],{0,30},GaugeLabels->Automatic]]

Plot[Evaluate[y[x]/.sol],{x,0,30},PlotRange->All]