B4J Question [Solved] AnotherProgressBar - Why this strange behvior?

[LucaMs]

Private Sub Test
    Dim ProgrBarStep As Double
    ProgrBarStep = 100 / 789
    AnotherProgressBar1.Value = 0
    AnotherProgressBar1.Visible = True
    Sleep(0)
    For i = 1 To 789
        AnotherProgressBar1.Value = i * ProgrBarStep
        Sleep(5)
    Next
    AnotherProgressBar1.Visible = False
End Sub

(Project attached but that's all the code)

 

[aeric]

What do you expect?

 

[LucaMs]

What do you expect?

The animation from 1 to 789 (1 to 100), from empty bar to full.

 

[aeric]

The animation from 1 to 789 (1 to 100), from empty bar to full.

I think because in the Designer, the value is 100.

 

[LucaMs]

I think because in the Designer, the value is 100.

Add this in AppStart.

AnotherProgressBar1.Value = 0

Yes, even though I set the value to zero, initially, but obviously that's not enough, it will still animate from 100 to zero, before.

It's all Erel's fault, who set that value to 100, for no reason ?

 

[aeric]

What is the ProgrBarStep doing?

 

[LucaMs]

What is the ProgrBarStep doing?

Adapt the value that I need to "display" to 100 (bad explanation).
(if I have a process that requires N cycles, the ProgressBar should show the completion of each one).

 

[LucaMs]

The problem remains when I call the Sub Test the second time. I set its value to zero but somehow I have to hide the animation from 100 to zero and wait who knows how long!

 

[LucaMs]

Solved, using:

AnotherProgressBar1.SetValueNoAnimation(0)

Private Sub Test
    Dim ProgrBarStep As Double
    ProgrBarStep = 100 / 789
    AnotherProgressBar1.SetValueNoAnimation(0) '<---
    AnotherProgressBar1.Visible = True
    For i = 1 To 789
        AnotherProgressBar1.Value = i * ProgrBarStep
        Sleep(5)
    Next
    AnotherProgressBar1.Visible = False
End Sub

 

[aeric]

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private Button1 As B4XView
    Private AnotherProgressBar1 As AnotherProgressBar
    Private ProgrBarStep As Int
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
End Sub

Sub Button1_Click
    ProgrBarStep = (450 / 789) * 100
    AnotherProgressBar1.Value = ProgrBarStep
    AnotherProgressBar1.SetValueNoAnimation(ProgrBarStep)
    AnotherProgressBar1.Visible = True
    Sleep(0)
    Test
End Sub

Private Sub Test
    Do While AnotherProgressBar1.Value < 100
        AnotherProgressBar1.Value = AnotherProgressBar1.Value + 1
        Log(AnotherProgressBar1.Value)
        Sleep(50)
    Loop
    AnotherProgressBar1.Visible = False
End Sub

 

[LucaMs]

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private Button1 As B4XView
    Private AnotherProgressBar1 As AnotherProgressBar
    Private ProgrBarStep As Int
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
End Sub

Sub Button1_Click
    ProgrBarStep = (450 / 789) * 100
    AnotherProgressBar1.Value = ProgrBarStep
    AnotherProgressBar1.SetValueNoAnimation(ProgrBarStep)
    AnotherProgressBar1.Visible = True
    Sleep(0)
    Test
End Sub

Private Sub Test
    Do While AnotherProgressBar1.Value < 100
        AnotherProgressBar1.Value = AnotherProgressBar1.Value + 1
        Log(AnotherProgressBar1.Value)
        Sleep(50)
    Loop
    AnotherProgressBar1.Visible = False
End Sub

No, that's not good. The number of cycles must be variable, not 100.
For example, you have to process 47 files; at the end of each single processing, you want to show the progress in the ProgressBar which, in this example, must increase its value by 47/100.
(47 which can be different, obviously, even higher than 100)

 

[LucaMs]

However, SetValueNoAnimation is the solution only to avoid animating from the current value (100, usually) to zero.
Then, however, in B4J-Release I still wasn't able to get what I wanted, the ProgressBar remains empty until the end of the processing (after which I set it as not visible).
It doesn't work adding a Sleep (which would slow down processing anyway) and neither using AnotherProgressBar1.UpdateGraphics.



P.S. The test project works, with a simple Sleep(5), the real project does not, not even by setting very high values in Sleep.
Okay, I'll find out the problem (I hope ? ).

 

[LucaMs]

Okay, I'll find out the problem (I hope ? ).

That also solved. It was a stupid mistake, as always