Android Question Reverse timer

rezaghasmi · Feb 10, 2021

How can I have a 30 second countdown timer?

MarcoRome · Feb 11, 2021

[B4X] [XUI] [custom view] CircularProgressBar

This class is compatible with B4A, B4i and B4J. A simple circular progress bar implemented as a custom view. Usage: Add the class to your project and add a custom view with the designer. Set its value with" CircularProgressBar1.Value = 100 The animation is smooth in release mode...

www.b4x.com

LucaMs · Feb 11, 2021

MarcoRome said:
[B4X] [XUI] [custom view] CircularProgressBar

This class is compatible with B4A, B4i and B4J. A simple circular progress bar implemented as a custom view. Usage: Add the class to your project and add a custom view with the designer. Set its value with" CircularProgressBar1.Value = 100 The animation is smooth in release mode...

www.b4x.com

That animation has initial acceleration and final deceleration, intentionally, if I'm not mistaken, so it should be tweaked a bit.

Are you able to look at the circle?

rezaghasmi · Feb 11, 2021

MarcoRome said:
[B4X] [XUI] [custom view] CircularProgressBar

This class is compatible with B4A, B4i and B4J. A simple circular progress bar implemented as a custom view. Usage: Add the class to your project and add a custom view with the designer. Set its value with" CircularProgressBar1.Value = 100 The animation is smooth in release mode...

www.b4x.com

Thank
But dear friend, this code is too much and complicated

I just want to show the reverse of the activity from 30 to 0 in a tag after running

LucaMs · Feb 11, 2021

https://www.b4x.com/android/forum/pages/results/?query=countdown

thetahsk · Feb 11, 2021

rezaghasmi said:
..

You can use a regular timer with a duration of 1 second. Handle the timer_Tick event for reverse counting. If reached disable the timer.

Erel · Feb 11, 2021

Untested code:

B4X:

Sub CountDown (lbl As B4XView, Duration As Int)
    lbl.Text = Duration
    Dim target As Long = DateTime.Now + Duration * DateTime.TicksPerSecond
    Do While DateTime.Now < target
        lbl.Text = $"$1.0{(target - DateTime.Now) / DateTime.TicksPerSecond}"$
        Sleep(500)
    Loop
    lbl.Text = "0"
End Sub

rezaghasmi · Feb 11, 2021

thetahsk said:
You can use a regular timer with a duration of 1 second. Handle the timer_Tick event for reverse counting. If reached disable the timer.

I want the remaining value to be shown on the label

mcqueccu · Feb 11, 2021

Declare a variable COUNT = 10

In your Timer tick event, decrease count by setting
Count = count - 1

John Naylor · Feb 11, 2021

rezaghasmi said:
I want the remaining value to be shown on the label

Quick knock up in B4J using a timer, the code remains the same in B4A for the countdown though....

Assumes a layout with a button and a label....

B4X:

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private Button1 As B4XView
    Private Label1 As B4XView
  
    Dim tmrCountdown As Timer             'Timer control
    Dim tmrSeconds As Int                       'Countdown variable
  
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
  
    tmrCountdown.Initialize("tmr",1000)      'Initialise the timer to tick every 1 second
    tmrCountdown.Enabled=False               'Timers are initialised as enabled = false anyway but I like things to be very obvious
End Sub

Sub Button1_Click
  
    tmrSeconds=30    'Whatever you are counting down from
  
    tmrCountdown.Enabled = True      'Turn on the timer

End Sub

Sub tmr_tick
  
    tmrSeconds=tmrSeconds-1               'Reduce the countdown every time it ticks
    Label1.Text= tmrSeconds                  'Display current value on the label
  
    If tmrSeconds=0 Then tmrCountdown.Enabled=False      'Turn off the timer when we hit 0
  
End Sub

rezaghasmi · Feb 11, 2021

GymReaper said:

Quick knock up in B4J using a timer, the code remains the same in B4A for the countdown though....

Assumes a layout with a button and a label....

B4X:

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private Button1 As B4XView
    Private Label1 As B4XView
 
    Dim tmrCountdown As Timer             'Timer control
    Dim tmrSeconds As Int                       'Countdown variable
 
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
 
    tmrCountdown.Initialize("tmr",1000)      'Initialise the timer to tick every 1 second
    tmrCountdown.Enabled=False               'Timers are initialised as enabled = false anyway but I like things to be very obvious
End Sub

Sub Button1_Click
 
    tmrSeconds=30    'Whatever you are counting down from
 
    tmrCountdown.Enabled = True      'Turn on the timer

End Sub

Sub tmr_tick
 
    tmrSeconds=tmrSeconds-1               'Reduce the countdown every time it ticks
    Label1.Text= tmrSeconds                  'Display current value on the label
 
    If tmrSeconds=0 Then tmrCountdown.Enabled=False      'Turn off the timer when we hit 0
 
End Sub

Thanks Let me go and test

Erel · Feb 11, 2021

mcqueccu said:
Declare a variable COUNT = 10

In your Timer tick event, decrease count by setting
Count = count - 1

The code I posted is a bit better.
1. It is very simple.
2. It is more accurate. Timers will never be 100% accurate as they run on the main thread. If the program is busy doing other stuff the counter will lag. With my code it will always stay accurate.

rezaghasmi · Feb 11, 2021

Erel said:
The code I posted is a bit better.
1. It is very simple.
2. It is more accurate. Timers will never be 100% accurate as they run on the main thread. If the program is busy doing other stuff the counter will lag. With my code it will always stay accurate.

How should I define please write؟??

rezaghasmi · Feb 11, 2021

GymReaper said:

Quick knock up in B4J using a timer, the code remains the same in B4A for the countdown though....

Assumes a layout with a button and a label....

B4X:

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private Button1 As B4XView
    Private Label1 As B4XView
 
    Dim tmrCountdown As Timer             'Timer control
    Dim tmrSeconds As Int                       'Countdown variable
 
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
 
    tmrCountdown.Initialize("tmr",1000)      'Initialise the timer to tick every 1 second
    tmrCountdown.Enabled=False               'Timers are initialised as enabled = false anyway but I like things to be very obvious
End Sub

Sub Button1_Click
 
    tmrSeconds=30    'Whatever you are counting down from
 
    tmrCountdown.Enabled = True      'Turn on the timer

End Sub

Sub tmr_tick
 
    tmrSeconds=tmrSeconds-1               'Reduce the countdown every time it ticks
    Label1.Text= tmrSeconds                  'Display current value on the label
 
    If tmrSeconds=0 Then tmrCountdown.Enabled=False      'Turn off the timer when we hit 0
 
End Sub

! ☹

alwaysbusy · Feb 11, 2021

This looks like code for B4J, not B4A.

John Naylor · Feb 11, 2021

rezaghasmi said:
View attachment 107819

! ☹

Just use the timer code - As stated I knocked it up in B4J (I had it open at the time)

Erel · Feb 11, 2021

rezaghasmi said:
How should I define please write؟

1. Add a reference to XUI library.

2.

B4X:

CountDown(YourLabel, 30)

John Naylor · Feb 11, 2021

Redone in B4A - Take into account Erel's comments about timers though

B4X:

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private xui As XUI
    
    Dim tmrCountdown As Timer
    Dim tmrSeconds As Int

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    Private Button1 As B4XView
    Private Label1 As B4XView
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
    
    tmrCountdown.Initialize("tmr",1000)
    tmrCountdown.Enabled=False
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    
    tmrSeconds=30
    
    tmrCountdown.Enabled = True

End Sub

Sub tmr_tick
    
    tmrSeconds=tmrSeconds-1
    Label1.Text= tmrSeconds
    
    If tmrSeconds=0 Then tmrCountdown.Enabled=False
    
End Sub

John Naylor · Feb 11, 2021

Erel said:
1. Add a reference to XUI library.

2.

B4X:

CountDown(YourLabel, 30)

I just tried this way - VERY cool!

rezaghasmi · Feb 11, 2021

Erel said:
1. Add a reference to XUI library.

2.

B4X:

CountDown(YourLabel, 30)

I use b4a Then writing CountDown becomes a red line

Android Question Reverse timer

Member

Attachments

Expert

Expert

Member

Expert

Active Member

B4X founder

Member

Well-Known Member

Active Member

Member

B4X founder

Member

Member

Expert

Active Member

B4X founder

Active Member

Active Member

Member

Similar Threads

Privacy & Transparency

Privacy & Transparency