slide control

[PhilBreau]

I wrote a script to control my receiver. I don't I can turn up the volume by creating a dialogue with a button. I have to keep clicking the button to change the volume. Is there a way I can create a slide control?

proc main
integer Event


dialogbox 0 193 54 210 164 2 "Onkyo Control Panel"
pushbutton 1 136 70 61 27 "Mute"
pushbutton 2 141 135 53 14 "&Exit"
pushbutton 3 15 20 26 9 "On"
pushbutton 4 15 40 26 9 "Off"
pushbutton 5 15 60 26 9 "TV"
pushbutton 6 15 80 26 9 "CD"
pushbutton 7 15 100 26 9 "PC"
pushbutton 8 15 120 26 9 "FM"
pushbutton 9 15 140 26 9 "DVD"
pushbutton 10 65 20 61 27 "VOL UP"
pushbutton 11 138 20 61 27 "VOL DOWN"
pushbutton 12 65 70 61 27 "Quiet"
pushbutton 13 65 121 61 27 "Loud"
enddialog

while 1
dlgevent 0 Event
switch Event
case 0
endcase


case 2
exit
endcase


case 3
Transmit "ISCP^@^@^@^P^@^@^@^H^A^@^@^@!1PWR01^M^J"
endcase
case 4
Transmit "ISCP^@^@^@^P^@^@^@^H^A^@^@^@!1PWR00^M^J"

case 5
Transmit "ISCP^@^@^@^P^@^@^@^G^A^@^@^@!1SLI12^M^J"
endcase
case 6
Transmit "ISCP^@^@^@^P^@^@^@^G^A^@^@^@!1SLI23^M^J"
endcase

case 7
Transmit "ISCP^@^@^@^P^@^@^@^G^A^@^@^@!1SLI05^M^J"
endcase

case 8
Transmit "ISCP^@^@^@^P^@^@^@^G^A^@^@^@!1SLI24^M^J"


;_____________________________________________________________
dialogbox 30 193 54 210 164 2 "FM Control Panel"
pushbutton 31 136 70 61 27 "Mute"
pushbutton 32 141 135 53 14 "&Exit"
pushbutton 33 15 20 26 9 "CHFI"
pushbutton 34 15 40 26 9 "Off"
pushbutton 35 15 60 26 9 "TV"
pushbutton 36 15 80 26 9 "CD"
pushbutton 37 15 100 26 9 "PC"
pushbutton 38 15 120 26 9 "FM"
pushbutton 39 15 140 26 9 "DVD"
pushbutton 40 65 20 61 27 "Tune up"
pushbutton 41 138 20 61 27 "Tune down"
pushbutton 42 65 70 61 27 "Quiet"
pushbutton 49 65 118 61 27 "Back"
enddialog

while 1
dlgevent 30 Event
switch Event


case 32
exit
dlgdestroy 30 CANCEL
endcase

case 33
transmit "ISCP^@^@^@^P^@^@^@^J^A^@^@^@!1TUN09810^M^J"
endcase






endswitch
endwhile
dlgdestroy 30 CANCEL
;


;_____________________________________________________________



endcase












case 9
Transmit "ISCP^@^@^@^P^@^@^@^G^A^@^@^@!1SLI10^M^J"
endcase



case 11
Transmit "ISCP^@^@^@^P^@^@^@^J^A^@^@^@!1MVLDOWN1^M^J"
endcase
case 10
Transmit "ISCP^@^@^@^P^@^@^@^J^A^@^@^@!1MVLUP1^M^J"
endcase
case 1
Transmit "ISCP^@^@^@^P^@^@^@^G^A^@^@^@!1AMT01^M^J"
endcase

case 12
Transmit "ISCP^@^@^@^P^@^@^@^G^A^@^@^@!1MVL20^M^J"
endcase


case 13
Transmit "ISCP^@^@^@^P^@^@^@^G^A^@^@^@!1MVL60^M^J"
endcase



default
exitwhile
endcase
endswitch
endwhile
dlgdestroy 0 CANCEL

endproc


Thank you

 

[kxboy]

I'm not aware of any way to do this in Aspect. There is no scroll bar or slide bar in the dialog box controls.