Pagina 1 din 1

Script JAWS pentru modificarea volumului calculatorului

Scris: 03 Noi 2013, 10:44
de Manu
Am facut un mic scriptulet care modifica volumul calculatorului anuntand si procentajul acestuia de la 0% la 100%.
Am o tastatura care imi place foarte mult, dar nu are taste multifunctionale, astfel ca m-am plictisit sa tot merg in System Tray Icon pentru a da mai tare si mai incet.

Mai jos e scriptul, poate fi copiat la sfarsit in fisierul "Default.JSS".
Nu trebuie scrise alte lucruri, variabile globale etc, ci doar atribuite combinatii de taste pentru scripturile VolumeUp si VolumeDown.
Eu am setat Control + Shift + minus de pe blocul numeric pentru mai incet si Control + Shift + plus pentru mai tare.

Cod: Selectaţi tot

Script VolumeUp ()
VolumeUpOrDown (1)
EndScript

Script VolumeDown ()
VolumeUpOrDown (2)
EndScript

Void Function VolumeUpOrDown (Int iDirection)
var
Int iSysVolume,
Int iMaxVolume,
Int iStep

Let iMaxVolume = 65535
Let iStep = iMaxVolume / 100 ; it means aprox 1%
Let iSysVolume = GetSystemVolume ()

If iDirection == 1 Then
; Volume up:
Let iSysVolume = iSysVolume + iStep
If iSysVolume > iMaxVolume Then
iSysVolume = iMaxVolume
EndIf

ElIf iDirection == 2 Then
; Volume down:
Let iSysVolume = iSysVolume - iStep
If iSysVolume<0 Then
iSysVolume = 0
EndIf
EndIf

; Set it:
SetSystemVolume (iSysVolume)

; Announce the change in base 10 from 0% to 100%:
Beep ()
SayString (IntToString(iSysVolume*100/iMaxVolume)+"%")
EndFunction
; sfarsit cod

Daca se doreste o combinatie de taste doar pentru a auzi ce volum este setat in prezent fara a-l modifica, se poate chema dintr-un alt script functia VolumeUpOrDown cu orice alta valoare decat 1 sau 2 la parametru.

De exemplu:

Cod: Selectaţi tot

Script GetVolumeLevel ()
VolumeUpOrDown (0)
EndScript

Re: Script JAWS pentru modificarea volumului calculatorului

Scris: 03 Noi 2013, 14:39
de IonPop
Este foarte buna idea!

Eu l-am modificat putin ca sa sara din 10 in 10 procente, fiindca altfel trebuie sa apas de prea multe ori combinatia de taste, si l-am pus sa sara din procent in procent doar cand volumul este sub 10% cu:

Let iStep = iMaxVolume / 10 ; it means aprox 10%

if iSysVolume*100/iMaxVolume <= 10 then
iStep = iMaxVolume / 100
endif

In prezent folosesc un shortcut care deschide acel applet din Control panel pentru reglarea volumelor, care ruleaza comanda:

sndvol32

Iar cu sndvol32 -r se deschide fereastra in care se regleaza volumul pentru recording.

Scris: 03 Noi 2013, 17:22
de Manu
Adevarul e ca nu mai aveam chef sa apara tot felul de ferestre, pana la urma repede puteam ajunge si in Tray Icon cu Insert + F11.
Eu prefer cate un procent si pe la 50% pentru ca am niste boxe foarte proaste la care uneori 5 sau 10 procente poate insemna mult.
De obicei ascult JAWS si muzica in castile care au rotita de volum, dar am zis sa mai trec si pe boxe, cica nu e bine pentru auz sa folosesti tot timpul casti. :)
Sa schimbi volumul boxelor de la rotita corespunzatoare presupune un efort destul de mare daca ai un birou incarcat cu tot felul de lucruri inutile si daca boxele sunt, cum am spus, proaste, si fac un zgomot ciudat cand le atingi pe la butoane. :)

Scris: 03 Noi 2013, 18:00
de IonPop
Intr-adevar, si mie imi este mai util asa, fiindca uneori vreau sa schimb rapid sonorul. Acasa mai rar fac asta, dar la serviciu am nevoie uneori de asa ceva, iar acum am si acasa si la serviciu niste casti foarte bune, care insa nu au potentiometru.

Scris: 25 Noi 2013, 17:07
de BosGrigore
Foarte util scriptul pentru reglarea volumului. Mersi Manu!