Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: Easy to get the audio out of sync with the graphics (Repost)
Replies: 3   Last Post: May 7, 2013 3:53 AM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
Clif McInnis

Posts: 11
Registered: 4/11/13
Re: Easy to get the audio out of sync with the graphics (Repost)
Posted: May 3, 2013 3:50 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

This is not the perfect solution to the problem, however the behavior of the manipulate is improved over what it was in the original question. Thanks to all who looked at this and to those that left comments, especially David Park who gave me the choiceEnabled =True/False. As for this answer I feel like one of the keys was to place the Speak and Pause statements after the graphics, forcing the program to read through the graphics before encountering the Pause.


Manipulate[
Pane[Column[{Text[
Row[If[n < 2, {Spacer[160],
Style[nnames[[n]], Bold, Large, Hue[RandomReal[]]],
Style[" Ball", Bold, Large, Green]}, {Spacer[160],
Style[nnames[[n]], Bold, Large, Hue[RandomReal[]]],
Style[" Balls", Bold, Large, Green]}]]],
Row[Table[
Graphics[{Darker[Green], Disk[],
Text[Style[numerals[[r]], Orange, "Label", 48], {0, 0}]}], {r,
1, n}]], Speak[n], Pause[1], choiceEnabled = True;},
BaseStyle -> {LinebreakAdjustments -> {1., 10, 0, 0, 10}}], {525,
300}], Row[{Button[
" Start \n ", {If[n < 2,
"", {n = 1, Speak["lets count the numbers 1 to 9 out loud"],
choiceEnabled = False}]}, Enabled -> Dynamic[choiceEnabled]],
Spacer[55],
Button[
"\[FilledLeftTriangle]\[FilledLeftTriangle] Start Over", {If[
n < 2, "", {n = 1, choiceEnabled = False}]},
Enabled -> Dynamic[choiceEnabled]],
Button[
"\[FilledLeftTriangle] Less", {If[
n < 2, {n = 1,
Speak["Today we are just working on the numbers from one to \
nine."], Pause[3]}, {n -= 1, choiceEnabled = False}]},
Enabled -> Dynamic[choiceEnabled]], Spacer[10],
Button["More \[FilledRightTriangle]", {If[
n > 8, {n = 9,
Speak["Lets learn the numbers from one to nine before we go \
on."], Pause[3]}, {n += 1, choiceEnabled = False}]},
Enabled -> Dynamic[choiceEnabled]],
Button[
"All \[FilledRightTriangle]\[FilledRightTriangle]", {If[n > 8,
"", {n = 9, choiceEnabled = False}]},
Enabled -> Dynamic[choiceEnabled]]}],
{{n, 9, " "}, ControlType -> None},
Initialization :> (numerals = {"1", "2", "3", "4", "5", "6", "7",
"8", "9"};
nnames = {"One", "Two", "Three", "Four", "Five", "Six", "Seven",
"Eight", "Nine"};
choiceEnabled = True;)]




Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.