DynamicModule[{t=0,slider=0},stepOnce[]:=(t++;);​​Column[{​​Grid[{{"Slider",Slider[Dynamic[slider],{0,1},ContinuousAction->False],Dynamic@NumberForm[slider,{4,2}]}},Alignment->Left,Spacings->{2,1}],​​Dynamic[​​Refresh[stepOnce[];​​Row[{"t = ",t}],UpdateInterval->2]]​​}​​]​​]