Wolfram Language

Cadre de canaux

Compte à rebours régressif multi-utilisateur

Définissez un canal qui affiche une horloge et une fonction qui entraîne le compte à rebours.

In[1]:=
Click for copyable input
CreateChannel["Countdown", HandlerFunctions -> Association["MessageReceived" -> ((Countdown`$time = #Message) &)], Initialization :> CreateWindow[ DocumentNotebook[{Dynamic[ ClockGauge[$time, PlotTheme -> "Business"]]}], WindowSize -> All, WindowElements -> {}, ShowCellBracket -> False, Background -> Black, WindowFrameElements -> {"CloseBox"}, Selectable -> False, WindowTitle -> "Countdown", CellContext -> "Countdown`"], Permissions -> Association["All" -> "Read", "Owner" -> {"Write", "Execute"}]]
Out[1]=
In[2]:=
Click for copyable input
countdown[t_] := DynamicModule[{paused = True, lbl = "Pause", ii = t, up = None}, Row[{Button[Dynamic[If[paused, "Start", lbl]], paused = ! paused; up = If[paused, None, UpdateInterval -> 1]], Dynamic[Refresh[ If[ii >= 0 && ! paused, " \[LongRightArrow] " <> TextString[ChannelSend["Countdown", ii--]], If[ii <= 0, up = None; lbl = "Done"]; ""], up, TrackedSymbols :> {paused}]]}]]

Abonnez-vous au canal.

In[3]:=
Click for copyable input
listener = ChannelListen["Countdown"]
Out[3]=

Configurez une horloge pour un certain nombre de secondes, puis cliquez sur le bouton pour démarrer.

In[4]:=
Click for copyable input
countdown[20]
Out[4]=

Mises à jour d'horloge pendant que le compte à rebours fonctionne, à moins que vous la mettiez en pause.

Out[5]=

Les autres utilisateurs peuvent souscrire à votre compte à rebours en se référant à votre canal dans ChannelListen.

In[6]:=
Click for copyable input
$WolframID <> ":Countdown"
Out[6]=
In[7]:=
Click for copyable input
$WolframID <> ":Countdown"; ChannelListen[%]
Out[7]=

Exemples connexes

de en es ja ko pt-br ru zh