Re: A function in the script langauge


Soltész Miklós <solteszmiklos@...>
 

Hi Mario,
Thanks!

Best regards,

Miklós

----- Original Message -----
From: "Mario" <mrb620@hotmail.com>
To: <main@jfw.groups.io>
Sent: Thursday, November 03, 2016 6:51 PM
Subject: Re: A function in the script langauge


not to discourage from posting questions on this list, but you might
find it more useful to join the JAWS scripting list if you have specific
questions about writing scripts for JAWS, such as functions, statements,
etc.:
https://www.freelists.org/list/jawsscripting

hope this helps you.


-------- Original Message --------
From: Soltész Miklós [mailto:solteszmiklos@gmail.com]
Sent: Thursday, Nov 3, 2016 7:47 AM EST
To: main@jfw.groups.io
Subject: A function in the script langauge

Hi All,
I want to use the function
SetActiveVoiceProfileByIndex ()
but its running depends of operation system and voiceprofiles. If
somebody knows script translation and using - can try my test script
below. It usually ends between 120 and 380 cycles.
The error: the voice becames other faster voice or silence.
Why?

Best regards,

Miklos

***



Script Test ()

Var

Int English,

Int Hungarian,

Int I,

Int J,

String S

Let S="2"

If !(InputBox("First voice index?","Test",S)) Then

Return

Endif

Let English=StringToInt(S)-1

Let S="5"

If !(InputBox("Second voice index?","Test",S)) Then

Return

Endif

Let Hungarian=StringToInt(S)-1

Let S="500"

If !(InputBox("How many times?","Test",S)) Then

Return

Endif

Let J=StringToInt(S)

If J==0 Then

SayString("Value error!")

Endif

For I=1 to J

Beep()

SetActiveVoiceProfileByIndex (Hungarian)

If (i/20)*20==I Then

SayInteger(I)

Delay(13,1)

Endif

SetActiveVoiceProfileByIndex (English)

If (I/20)*20==I Then

SayInteger(I)

Delay(15,1)

Endif

Endfor

SetActiveVoiceProfileByIndex (Hungarian)

SayString("It is end of script.")

EndScript






.

Join main@jfw.groups.io to automatically receive all group messages.