Animate[
Graphics[{
circle=Disk[{0,0},0.04];
Rotate[Inset[PieChart[{1,1,1,1,1,1,1,1},ChartLabels->{"1","2","3","4","5","6","7","8"}],Automatic,Automatic,2],rot],
Thickness[.02],Red,Arrow[{{0,0},.8 {Sin[7 Pi/30],Cos[7 Pi/30]}}],
circle},PlotRange->1,ImageSize->500],
{{rot,0,"ルーレットを回す"},0,Dynamic[RandomReal[{0,4Pi}]],
(*Dynamicをつけることで、毎回の実行で異なる結果を出すことができる*)
AppearanceElements->"ResetPlayButton",
AnimationRepetitions->1,
AnimationRunning->False
}]