Android Question Bug in B4A Fluidslider No Wrap

[mcqueccu]

I realised the Fluidslider here goes beyond the Max and Min Limit. Even though its label stops at the min and max value, value still increases when you continue to hold the slider when it reaches the ends.

Note: Its same example provided, i just added the label to display the values and reduced the width of the slider

 

[Peter Simpson]

You should have put this post on the original thread.

UPDATE: I've just downloaded the FluidSlider, it appears to be working 100% here...

 

[mcqueccu]

You should have put this post on the original thread...

Forum Rule: Don't bump old thread....

There was a warning about the thread being Old (More than 1 Month) that is why I created this new one

 

[Peter Simpson]

Don't worry about the warning, you can post an apparent error on the original post for the author to look at.

Anyway the slider is working on my test device, double check your label code and add Min/Max if you have to...

 

[mcqueccu]

Attached is my example

Sub FluidSlider1_ChangeValue (Value As Int)
    Label1.Text = Value
End Sub

 

[Peter Simpson]

@mcqueccu What device are you using, also what happens if you replace the original sub with this sub, does it make any difference to you?

Private Sub Panel_Touch (Action As Int, X As Float, Y As Float)
    Select Action
        Case 0 ' ACTION_DOWN
            Dim P As Int = ((X / mBase.Width) * (MaxValue - MinValue)) + MinValue
            setValue(P, True)
            If SubExists(mCallBack, mEventName & "_ChangeValue") Then CallSub2(mCallBack, mEventName & "_ChangeValue", p)
        Case 1 ' ACTION_UP
            Ball.SetLayoutAnimated(200, Ball.Left, mBase.Height / 2, mBase.Height / 2, mBase.Height / 2)
        Case 2 ' ACTION_MOVE
            Dim P As Int = ((X / mBase.Width) * (MaxValue - MinValue)) + MinValue
            If P < 0 Then P = 0 : If P > 100 Then P = 100
            setValue(P, True)
            If SubExists(mCallBack, mEventName & "_ChangeValue") Then CallSub2(mCallBack, mEventName & "_ChangeValue", p)
        Case 3 ' Error
    End Select
End Sub

Enjoy...

 

[mcqueccu]

Works Perfectly.

 

[mcqueccu]

The solution above works perfectly if you are selecting between 0 and 100.
But if you set your Minimum Value say 10, and maximum value say 91, the slider still goes to 0 or to 100 irrespective of the Limits.

This Now works for me:

Private Sub Panel_Touch (Action As Int, X As Float, Y As Float)
    Select Action
        Case 0 ' ACTION_DOWN
            Dim P As Int = ((X / mBase.Width) * (MaxValue  -MinValue)) + MinValue
          '  If P < 0 Then P  =0 : If P > 100 Then P = 100
              If P<MinValue Then p = MinValue : If p > MaxValue Then p = MaxValue '<-----------------------------
            setValue(P,True)
            If SubExists(mCallBack, mEventName & "_ChangeValue") Then CallSub2(mCallBack, mEventName & "_ChangeValue", p)
        Case 1 ' ACTION_UP
            Ball.SetLayoutAnimated(200, Ball.Left, mBase.Height/2, mBase.Height/2, mBase.Height/2)
        Case 2 ' ACTION_MOVE
            Dim P As Int = ((X / mBase.Width) * (MaxValue - MinValue)) + MinValue
            'If P<0 Then P=0 : If P> 100 Then P=100
            If P<MinValue Then p = MinValue : If p > MaxValue Then p = MaxValue    '<-----------------------------
            setValue(P,True)
            If SubExists(mCallBack, mEventName & "_ChangeValue") Then CallSub2(mCallBack, mEventName & "_ChangeValue", p)
        Case 3 ' Error
    End Select
End Sub

 

[Peter Simpson]

Here you go @mcqueccu , the following code covers all set ranges, you can completely remove one of the lines.

Private Sub Panel_Touch (Action As Int, X As Float, Y As Float)
    Select Action
        Case 0 ' ACTION_DOWN
            Dim P As Int = ((X / mBase.Width) * (MaxValue - MinValue)) + MinValue
            'If P < 0 Then P = 0 : If P > 100 Then P = 100
            setValue(P, True)
            If SubExists(mCallBack, mEventName & "_ChangeValue") Then CallSub2(mCallBack, mEventName & "_ChangeValue", p)
        Case 1 ' ACTION_UP
            Ball.SetLayoutAnimated(200, Ball.Left, mBase.Height / 2, mBase.Height / 2, mBase.Height / 2)
        Case 2 ' ACTION_MOVE
            Dim P As Int = ((X / mBase.Width) * (MaxValue - MinValue)) + MinValue
            If P < MinValue Then P = MinValue : If P > MaxValue Then P = MaxValue
            setValue(P, True)
            If SubExists(mCallBack, mEventName & "_ChangeValue") Then CallSub2(mCallBack, mEventName & "_ChangeValue", p)
        Case 3 ' Error
    End Select
End Sub

Enjoy...

 

[MbedAndroid]

added my cent:
use it when the ball is released to store the final result to the database....

Case 1 ' ACTION_UP
            
            Ball.SetLayoutAnimated(200,Ball.Left,mBase.Height/2,mBase.Height/2,mBase.Height/2)
            Private p=getValue As Int
            If SubExists(mCallBack,mEventName & "_KeyUp") Then CallSub2(mCallBack,mEventName & "_KeyUp",p)