The title say it all
#1 :
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