Android Question AnotherProgressBar.ValueChangePerSecond

[PhilipBrown]

ValueChangePerSecond moves the bar of AnotherProgressBar but it does not change Value:

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")

    AnotherProgressBar1.ValueChangePerSecond = -10

    If FirstTime = True Then
        Timer1.Initialize("Timer1", 100)
        Timer1.Enabled = True
    End If
End Sub

Sub Timer1_Tick
    Dim val As Int
    val = AnotherProgressBar1.Value
    Log(val) 'value logged never changes
End Sub

Also the way the bar moves seems contrary to expectations.
If ValueChangePerSecond is positive then the bar shrinks, if negative then it grows.

 

[William Lancee]

The code below moves the bar from 50% to 25% at a rate of 10% per second and then 2.5 seconds later moves it back.
Negative numbers for change are invalid (and confusing).

    AnotherProgressBar1.ValueChangePerSecond = 10
    AnotherProgressBar1.Value = 50
    AnotherProgressBar1.Value = 25
    Sleep(2500)
    AnotherProgressBar1.Value = 50

 

[Jorge M A]

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    AnotherProgressBar1.Value = 100
    'AnotherProgressBar1.ValueChangePerSecond = -10 Dont Use This!

    If FirstTime = True Then
        Timer1.Initialize("Timer1", 100)
        Timer1.Enabled = True
    End If
End Sub

Sub Timer1_Tick
    Dim val As Int = AnotherProgressBar1.Value
    Log(val) 'value logged
    AnotherProgressBar1.Value = AnotherProgressBar1.Value - 1 'Subtract your desired value
    If AnotherProgressBar1.Value <= 0 Then
        Timer1.Enabled=False
        AnotherProgressBar1.Value = 0
        AnotherProgressBar1.SetValueNoAnimation(0)
    End If
End Sub

 

[PhilipBrown]

The code below moves the bar from 50% to 25% at a rate of 10% per second and then 2.5 seconds later moves it back.
Negative numbers for change are invalid (and confusing).

    AnotherProgressBar1.ValueChangePerSecond = 10
    AnotherProgressBar1.Value = 50
    AnotherProgressBar1.Value = 25
    Sleep(2500)
    AnotherProgressBar1.Value = 50

Thanks William. In fact I find you need to allow enough time for the bar to move. If not, the bar will never reach the target.