In[]:=
myState=False;​​myActiveBColour=CMYKColor[0.5294,0.0980,0,0.4];​​mFontSize=1;​​​​CompleteTask[{x_,y_}]:={0.5,Floor[y,0.1]+0.05}​​​​pL=Table[{0.83,0.05+i*0.1},{i,0,9}];​​myState=True;​​mFontSize=1;​​​​myAI=Table[Sqrt[RandomInteger[{2,23}]^2*RandomInteger[{2,15}]],10];​​myTasks=Table[{Framed[Style[Sqrt[Text[myAI[[i]]*myAI[[i]]]],White,Bold],Background->CMYKColor[0,0.111,0.1197,0.5412],ImageSize{100,50},RoundingRadius10,Alignment->Center],Framed["",RoundingRadius10,ImageSize{100,50}],Framed[Style[myAI[[i]],FontSizeDynamic[mFontSize],Darker[Green,0.6],Bold],FrameStyleNone,ImageSize{100,50}]},{i,1,10}];​​​​​​​​myAI=Permute[myAI,RandomPermutation[10]];​​​​​​​​​​myTiles=Table[Framed[Style[myAI[[i]],White,Bold],BackgroundCMYKColor[0.5294,0.0980,0,0.4],ImageSize{90,40},RoundingRadius10,Alignment->Center,FrameStyleNone],{i,1,10}];​​​​​​​​myLocPane=LocatorPane[Dynamic[pL],Grid[myTasks],Appearance->myTiles,ContinuousActionFalse,EnabledDynamic[myState]];​​​​​​Deploy[Framed[​​Column[{​​myLocPane,Button["Hand In",{pL=CompleteTask/@pL,mFontSize=14,myState=False},ImageMargins10]​​}],​​BackgroundLightGray​​]]
Out[]=
448
8
7
3757
17
13
722
19
2
810
9
10
1024
32
1000
10
10
847
11
7
396
6
11
640
8
10
32
4
2
19
2
Hand In
Out[]=
1215
9
15
4000
20
10
288
12
2
3179
17
11
2400
20
6
4400
20
11
1600
40
722
19
2
588
14
3
4693
19
13
14
3
Hand In
In[]:=
​