[jawsscripts] Re: Is there a better way to do this

Hi Gian,

Try the modified version below. Whether the result is spoken in pairs, will
depend on your setting for speaking numbers.

Note1: I have not compiled it, so there may be some minor problems to fix.
note2: this presumes that when GetWord picks up the digit, that it does not
leave a space on either side of the digit.  If it does, you may wish to use
the following modification to each of the GetWord lines:
Let Digit1 = stringStripAllBlanks (GetWord ())

Note3: a space has been added to the front & end of each of the text
strings.
Note4: you can, if you wish,  concat all of the strings in one statement
such as:
Let StringToSpeak = "There are" + Digit1 + Digit2 + ...

Script TimeRemainingLeftDeck ()
Var
String Digit1,
String Digit2,
String Digit3,
String Digit4,
String Digit5,
String  StringToSpeak

MoveToFrame ("TimeRemainingLeftDeck")

Let Digit1 = GetWord ()
NextWord ()
Let Digit2 = GetWord ()
NextWord ()
Let Digit3 = GetWord ()
NextWord ()
Let Digit4 = GetWord ()
NextWord ()
Let Digit5 = GetWord ()

Let StringToSpeak = "There are"
let StringToSpeak = StringToSpeak + digit1
let StringToSpeak = StringToSpeak + digit2
let StringToSpeak = StringToSpeak + " minutes "
let StringToSpeak = StringToSpeak + digit3
let StringToSpeak = StringToSpeak + digit4
let StringToSpeak = StringToSpeak + " Point "
let StringToSpeak = StringToSpeak + digit5
let StringToSpeak = StringToSpeak + " Seconds left in the track on the left
deck "

SayString (StringToSpeak)
SpellString (StringToSpeak) ; for testing only. this will show where any
spaces are
EndScript


----- Original Message ----- 
From: "GianniP46" <giannip46@xxxxxxxxxxxxx>


OK guys,
I made a big discovery in my program scratchlive tonight.  I found out that
the remaining time is displayed in graphics that could be labeled. with the
digits from 0 through 9.  I tried to create a frame around these 5 graphics
for each deck, but the frames wouldn't read.  I then created the following
script, but I want to know if there is a better way of doing this.  Jaws
reads the info slowly.  Also, the other thing that I don't like is that the
remaining time is red in single digits. I would like it to be red in pares.
Here is the code:
Script TimeRemainingLeftDeck ()

Var

String Digit1,

String Digit2,

String Digit3,

String Digit4,

String Digit5

MoveToFrame ("TimeRemainingLeftDeck")

Let Digit1 = GetWord ()

NextWord ()

Let Digit2 = GetWord ()

NextWord ()

Let Digit3 = GetWord ()

NextWord ()

Let Digit4 = GetWord ()

NextWord ()

Let Digit5 = GetWord ()

SayString ("There are")

SayString (digit1)

SayString (digit2)

SayString ("minutes")

SayString (digit3)

SayString (digit4)

SayString ("Point")

SayString (Digit5)

SayString ("Seconds left in the track on the left deck")

EndScript


I am using Jaws 10.

Gian Pedulla

__________ 
Visit and contribute to The JAWS Script Repository http://jawsscripts.com

View the list's information and change your settings at 
http://www.freelists.org/list/jawsscripts

Other related posts: