Скрипты для подправленой мышки

Здравствуйте, уважаемые JFWRusисты!

Я рад приветствовать участников уже
переехавших на новую квартиру нашей рассылки,
а также тех, кто совсем скоро тоже последует
их примеру.

Всвязи с таким неожиданным и, в то же время,
долгожданным
появлением подправленной "Говорящей Мышки"
стараниями Сергея Волкова, за что большое ему
человеческое спасибо, предлагаю Вашему
вниманию пару скриптов специально для этого синтезатора.
Собственно, ничего кардинально нового, но
кому-то будет меньше мороки, особенно
начинающим Джозистам.

Первых два скрипта (SayIncreaseSPMVSRate,
SayDecreaseSPMVSRate) - это оперативное изменение
темпа речи, как для старого мауса, но
несколько упрощённый и ускоренный.
Вторая пара скриптов (SayIncreaseSPMVSVolume, SayDecreaseSPMVSVolume) обеспечивает
оперативное
изменение громкости речи, сделаны по образу и подобию
первых.
Каждый скрипт сопровождается своей почти одноимённой функцией. Функция
выполняет собственно изменение, а вызывающий её скрипт озвучивает это.
Конечно, можно было бы и совместить эти блоки, но считайте, что это так
проявляется программистское занудство.
Каждый может сам посадить скрипты на удобные для него горячие клавиши.
Для этого нужно вставить тексты этих скриптов файл Default.JSS,
установить курсор в пределах текста каждого скрипта (именно скрипта, а не
функции), нажать Control+D пройтись табом до поля назначения клавиши,
нажать желаемую комбинацию и закрепить результат ещё раз табульнув на
кнопку "ОКэй" и нажав Энтер. А функции трогать не нужно!
Ну а можно просто вставить в файл Default.JKM строки с готовыми определениями
ассоциированных клавиш. Привожу и эти строки после скриптов.

Итак, скрипты для файла Default.JSS:

int function IncreaseSPMVSRate ()
var
int B,
string SPMIni
let SPMIni=GetJawsDirectory () + "\\SPMVS.Ini"
Let B = IniReadInteger ("parameters", "speed", 0, SPMIni)
if B < 300 then
let B=B+25
IniWriteInteger ("parameters", "speed", B, SPMIni)
SetSynth ("SPMVS")
return B;
else return -1
endif
EndFunction

int function DecreaseSPMVSRate()
var
int B,
string SPMIni
let SPMIni=GetJawsDirectory () + "\\SPMVS.Ini"
Let B = IniReadInteger ("parameters", "speed", 0, SPMIni)

let B=B-25
IniWriteInteger ("parameters", "speed", B, SPMIni)
SetSynth ("SPMVS")
return B
else return -1
endif
EndFunction

script SayIncreaseSPMVSRate ()
var
int N
let N = IncreaseSPMVSRate ()

SayInteger(N)
else SayString("нельзя")
endif
EndScript

script SayDecreaseSPMVSRate ()
var
int N
let N=DecreaseSPMVSRate ()

SayInteger(N)
else SayString("нельзя")
endif
EndScript

int function IncreaseSPMVSVolume ()
var
int B,
string SPMIni
let SPMIni=GetJawsDirectory () + "\\SPMVS.Ini"
Let B = IniReadInteger ("parameters", "Volume", 0, SPMIni)
if B < 100 then
let B=B+5
IniWriteInteger ("parameters", "Volume", B, SPMIni)
SetSynth ("SPMVS")
return B;
else return -1
endif
EndFunction

int function DecreaseSPMVSVolume ()
var
int B,
string SPMIni
let SPMIni=GetJawsDirectory () + "\\SPMVS.Ini"
Let B = IniReadInteger ("parameters", "Volume", 0, SPMIni)

let B=B-5
IniWriteInteger ("parameters", "Volume", B, SPMIni)
SetSynth ("SPMVS")
return B
else return -1
endif
EndFunction

Script SayIncreaseSPMVSVolume ()
var
int N
let N = IncreaseSPMVSVolume ()

SayInteger(N)
else SayString("нельзя")
endif
EndScript

Script SayDecreaseSPMVSVvolume ()
var
int N
let N = DecreaseSPMVSVolume ()

SayInteger(N)
else SayString("нельзя")
endif
EndScript

И теперь строки для файла Default.JKM:

Alt+PageUp=sayincreasespmvsRate
Alt+PageDown=saydecreasespmvsRate

Alt+Shift+PageUp=sayincreasespmvsvolume
Alt+Shift+PageDown=saydecreasespmvsvolume

Желаю приятной работы!

--
С уважением,
Сергей mailto:skart***@m*****.ru

-*Информационный канал Subscribe.Ru
Адрес подписки:
Написать в лист: mailto:comp.soft.others.jfwrus-list@subscribe.ru
Отписать: mailto:comp.soft.others.jfwrus--unsub@subscribe.ru

http://subscribe.ru/ http://subscribe.ru/feedback