I will be publishing Core 4.13 soon, here is your solution. In this example we run an update every 1 second using BANAno.SetInterval
1. Define the variable in process_globals
B4X:
Private pc5 As VMProgressCircular
2. Build the component. NB: Note that for .SetText we just pass the suffix '%'. Your .SetValue can just be '90' on your case, I have used '0' for my demo here.
3. We are running this every 1 second, lets define the callback... What we do here is check the value, when it reaches 100, we make it zero and start all over again.
B4X:
Sub startit
Dim cb As BANanoObject = BANano.callback(Me,"circulate", Null)
BANano.Window.SetInterval(cb, 1000)
End Sub
Sub circulate
'read the stored value
Dim vpc5 As String = pc5.GetValue
Log(vpc5)
vpc5 = BANano.parseint(vpc5)
If vpc5 = "100" Then
'we have reached 100%
vpc5 = "0"
Else
'increment by 10
vpc5 = BANano.parseint(vpc5) + 10
End If
'save the state
pc5.SetValue(vpc5)
End Sub
4. This produces
So on your case, just run something like this
B4X:
pc1.SetValue("60")
The update will be available here, in a couple of days..
PS: With the BVM Designer - the source code will be generated based on your options as depicted below.