×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

slide control

slide control

slide control

(OP)
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

RE: slide control

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.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close