trackbar results.

[Bong-Mong]

im trien to make a fader bar.
the code was given to me in help, i got it to work with as a balance trackbar, but i cant get it to move my 2 volume trackbars

Code: Select all

Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #TrackBar_fade
  #TrackBar_lplayer
  #TrackBar_rplayer
EndEnumeration

MessageRequester("Hello", "i have got half working, the trackbar_lplayer is ment to go down as trackbar_rplayer goes up! controled but trackbar_fade",0)

      OpenWindow(#Window_0, 310, 74, 545, 259,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "bongmong")
      CreateGadgetList(WindowID())
      TrackBarGadget(#TrackBar_fade, 90, 100, 370, 80, 1, 100)
      SetGadgetState(#TrackBar_fade,50)
      TrackBarGadget(#TrackBar_lplayer, 20, 30, 70, 220, 0, 100, #PB_TrackBar_Vertical)
      SetGadgetState(#TrackBar_lplayer,50)
      TrackBarGadget(#TrackBar_rplayer, 500, 30, 70, 220, 0, 100, #PB_TrackBar_Vertical)
      SetGadgetState(#TrackBar_rplayer,50)
Repeat 
  EventID = WaitWindowEvent() 
  Select EventID 
   Case #PB_EventGadget 
      Select EventGadgetID() 
         Case #TrackBar_fade
           result = 100 - GetGadgetState(#TrackBar_fade) 
           If result < 0
             SetGadgetState(#TrackBar_lplayer,GetGadgetState(#TrackBar_fade) - 1)
           ElseIf result > 0 
              SetGadgetState(#TrackBar_rplayer,GetGadgetState(#TrackBar_fade) + 1)
            Else 
          SetGadgetState(#TrackBar_lplayer,50)
          SetGadgetState(#TrackBar_rplayer,50)          
           EndIf 
      EndSelect 
   EndSelect 
Until eventID = #PB_EventCloseWindow   

when trackbar_fade gets to 100 it trips trackbar_r

while trackbar_lplayer = 50, trackbar_rplayer = 50 trackbar_fade = 50
while trackbar_lplayer = 20, trackbar_rplayer = 80
while trackbar_lplayer = 40, trackbar_rplayer = 60
while trackbar_lplayer = 60, trackbar_rplayer = 40
while trackbar_lplayer = 80, trackbar_rplayer = 20
while trackbar_lplayer = 100, trackbar_rplayer = 0

[ebs]

Bong-Mong,

You have a lot of unnecessary calculations. Try something simpler, like this:

Code: Select all

Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #TrackBar_fade
  #TrackBar_lplayer
  #TrackBar_rplayer
EndEnumeration

MessageRequester("Fader Bar", "Is this what you want?", 0)

OpenWindow(#Window_0, 310, 74, 545, 259,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "bongmong")
CreateGadgetList(WindowID())
TrackBarGadget(#TrackBar_fade, 90, 100, 370, 80, 0, 100)
SetGadgetState(#TrackBar_fade,50)
TrackBarGadget(#TrackBar_lplayer, 20, 30, 70, 220, 0, 100, #PB_TrackBar_Vertical)
SetGadgetState(#TrackBar_lplayer,50)
TrackBarGadget(#TrackBar_rplayer, 500, 30, 70, 220, 0, 100, #PB_TrackBar_Vertical)
SetGadgetState(#TrackBar_rplayer,50)
Repeat
  EventID = WaitWindowEvent()
  Select EventID
    Case #PB_EventGadget
      Select EventGadgetID()
        Case #TrackBar_fade
          result = GetGadgetState(#TrackBar_fade)
          SetGadgetState(#TrackBar_lplayer,result)
          SetGadgetState(#TrackBar_rplayer,100-result)
      EndSelect
  EndSelect
Until EventID = #PB_EventCloseWindow