Добрый день, alexey и другие заинтересованные лица.
В своё время Сергей Картавцев сделал скрипты для изменения темпа и
громкости моей мыши.
Но изменив имя ини файла этими скриптами
можно управлять и темпом обычной мышки, но не громкостью.
Итак привожу письмо Сергея.
От: Сергей Картавцев <skart***@m*****.ru>
Кому: "comp.soft.others.jfwrus" <putevka1***@l*****.ru> (3973661)
Написано: 1 августа 2004 г., 13:00:53
Тема: Скрипты для подправленой мышки
Файлы: <none>
Здравствуйте, уважаемые 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)
if B > 0 then
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 ()
If N >= 0 then
SayInteger(N)
else SayString("нельзя")
endif
EndScript
script SayDecreaseSPMVSRate ()
var
int N
let N=DecreaseSPMVSRate ()
If N >= 0 then
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)
if B > 0 then
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 ()
If N >= 0 then
SayInteger(N)
else SayString("нельзя")
endif
EndScript
Script SayDecreaseSPMVSVvolume ()
var
int N
let N = DecreaseSPMVSVolume ()
If N >= 0 then
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
--
С уважением, Сергей.
