1
$\begingroup$

I want to create a script that "speaks" a few digits. This is what I got thus far:

A = RandomChoice[0 ;; 9, 15]; Do[Speak[i], {i, A}]

Mathematica "says" those 15 digits, but the time interval between each digit is arbitrary, sometimes takes even a few seconds.

What change do I need such that digits are to be spoken by an interval of, say, 1 second?

$\endgroup$
2
  • 3
    $\begingroup$ I don't know why there is a delay between each digit with your current approach, but generally, if you want to control timing you need to insert Pause into the Do loop. Another way would be to use RunScheduledTask. $\endgroup$
    – C. E.
    Apr 8 '17 at 19:23
  • $\begingroup$ Pause solves the problem. Thank you. $\endgroup$
    – E Be
    Apr 8 '17 at 19:59