PureBasic Forums - English

Code: Select all

Global Dim state(2)
  
If OpenWindow(0, 0, 0, 320, 200, "TrackBarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  TrackBarGadget(1, 10, 10, 300, 40, 0, 30, #PB_TrackBar_Ticks)
     
AddWindowTimer(0,125,100)
Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Quit = 1
        
      Case #PB_Event_Timer
        If GetActiveGadget() = 1
          state(i) = GetGadgetState(1)
          i+1
          If i > 2
            i = 1
          EndIf          
          If state(1) = state(2)
            i = 0
            SetActiveGadget(-1)
          EndIf
        EndIf

        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            Debug state(0)
            Debug GetGadgetState(1)
        EndSelect
    EndSelect
Until Quit = 1
EndIf

Code: Select all

Global max
max = 30
Global Dim state(max+10)
  
If OpenWindow(0, 0, 0, 320, 200, "TrackBarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  TrackBarGadget(1, 10, 10, 250, 40, 0, max, #PB_TrackBar_Ticks)
     
AddWindowTimer(0,125,10)
Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Quit = 1
        
      Case #PB_Event_Timer
        If GetActiveGadget() = 1
          state(i) = GetGadgetState(1)
          i+1          
          If state(i) = state(i+10)
            i = 0
            SetActiveGadget(-1)
          EndIf
        EndIf

        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            Debug state(0)
            Debug GetGadgetState(1)
        EndSelect
    EndSelect
Until Quit = 1
EndIf

Code: Select all

Global Dim state(2)
  
If OpenWindow(0, 0, 0, 320, 200, "TrackBarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  TrackBarGadget(1, 10, 10, 300, 40, 0, 30, #PB_TrackBar_Ticks)
     
Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Quit = 1
        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1            
            If i = 0
              state(0) = GetGadgetState(1)
            EndIf
            i+1            
            If i > 2
              i = 1
            EndIf
            state(i) = GetGadgetState(1)          
            If state(1) = state(2)
              i = 0
;               If state(0) < GetGadgetState(1)         
;                 state(0)-1
;               Else 
;                 state(0)+1
;               EndIf
            EndIf
            Debug state(0)
            Debug GetGadgetState(1)
        EndSelect
    EndSelect
Until Quit = 1
EndIf