Android Question Restart the stopwatch

Mahdipunisher

Mahdipunisher

Member
Hello friends
I have a stopwatch and I want to save the time it stopped and then restart the stopwatch at another time with the saved value. The saved time is for example 03:30 minutes and seconds. I am having trouble restarting with this time. Can anyone help me?
 
Sort by date Sort by votes
zed

zed

Well-Known Member
Licensed User
watch this

Chrono Pause, Stop, Reset with DateUtils

Good morning all. Here is an example of a chrono that uses system time and the DateUtils library. The principle is very simple. It takes two different times to use DateUtils.PeriodBetween (H_Start, H_End). H_start is obtained when the start button is clicked. It's system time. she is frozen...
www.b4x.com www.b4x.com
 
Upvote 0
Mahdipunisher

Mahdipunisher

Member
zed said:
watch this

Chrono Pause, Stop, Reset with DateUtils

Good morning all. Here is an example of a chrono that uses system time and the DateUtils library. The principle is very simple. It takes two different times to use DateUtils.PeriodBetween (H_Start, H_End). H_start is obtained when the start button is clicked. It's system time. she is frozen...
www.b4x.com www.b4x.com
Click to expand...
My problem is that I want to save the time as text or a database so that I can restart the timer with that time by exiting the program and re-entering it. I save the file but I have trouble restarting it with the saved time.
 
Upvote 0
B

Brian Dean

Well-Known Member
Licensed User
Longtime User
Here is what I think is an ultra-simple app that does what you want. I might have misunderstood you, so this is what I believe you wanted :

- a "Start" button that starts a one second resolution timer.
- a "Stop" button that stops the timer, but does not reset it.
- a "Reset" button that resets the timer but does not stop it.

Once started the timer displays elapsed time in minutes and seconds. If the app goes into the background the timer continues to run and shows total elapsed time when the app comes back to the foreground. If the app is closed and re-opened the timer restarts at the point where the app was closed. Even if these are not quite the actions that you want it should be easy to adapt the app as it is super-simple - most of the subs are single-liners.

I have used a KVS to hold the "in-transit" time and a timer in a service.

Here is the code in Main :
B4X: 
Public Sub btnStart_Click
    Starter.start
End Sub

Public Sub btnStop_Click
    Starter.stop
End Sub

Public Sub btnReset_Click
    Starter.reset
    lblTimer.Text = "0:00"
End Sub

Public Sub updateTimer(elapsed As Int)
    Dim mins As String = Floor(elapsed / 60)
    Dim secs As String = elapsed Mod 60
    If (secs.Length < 2) Then secs = "0" & secs
    lblTimer.Text = mins & ":" & secs
    kvs.Put("elapsed", elapsed)
End Sub

Here is the code in the (Starter) service :
B4X: 
Private Sub tmr_Tick
    elapsed = elapsed + 1
    CallSub2(Main, "updateTimer", elapsed)
End Sub

Public Sub start
    tmr.Enabled = True
End Sub

Public Sub stop
    tmr.Enabled = False
End Sub

Public Sub reset
    elapsed = 0
End Sub

Public Sub restart(seconds As Int)
    tmr.Enabled = True
    elapsed = seconds
End Sub

Here is the project :
 

Attachments

  • Stopwatch.zip
    9.5 KB · Views: 96
Upvote 0
Mahdipunisher

Mahdipunisher

Member
Brian Dean said:
Here is what I think is an ultra-simple app that does what you want. I might have misunderstood you, so this is what I believe you wanted :

- a "Start" button that starts a one second resolution timer.
- a "Stop" button that stops the timer, but does not reset it.
- a "Reset" button that resets the timer but does not stop it.

Once started the timer displays elapsed time in minutes and seconds. If the app goes into the background the timer continues to run and shows total elapsed time when the app comes back to the foreground. If the app is closed and re-opened the timer restarts at the point where the app was closed. Even if these are not quite the actions that you want it should be easy to adapt the app as it is super-simple - most of the subs are single-liners.

I have used a KVS to hold the "in-transit" time and a timer in a service.

Here is the code in Main :
B4X: 
Public Sub btnStart_Click
    Starter.start
End Sub

Public Sub btnStop_Click
    Starter.stop
End Sub

Public Sub btnReset_Click
    Starter.reset
    lblTimer.Text = "0:00"
End Sub

Public Sub updateTimer(elapsed As Int)
    Dim mins As String = Floor(elapsed / 60)
    Dim secs As String = elapsed Mod 60
    If (secs.Length < 2) Then secs = "0" & secs
    lblTimer.Text = mins & ":" & secs
    kvs.Put("elapsed", elapsed)
End Sub

Here is the code in the (Starter) service :
B4X: 
Private Sub tmr_Tick
    elapsed = elapsed + 1
    CallSub2(Main, "updateTimer", elapsed)
End Sub

Public Sub start
    tmr.Enabled = True
End Sub

Public Sub stop
    tmr.Enabled = False
End Sub

Public Sub reset
    elapsed = 0
End Sub

Public Sub restart(seconds As Int)
    tmr.Enabled = True
    elapsed = seconds
End Sub

Here is the project :
Click to expand...
I used this code and it gave this error.

Compiling code. Error
Error compiling program.
Error description: Current declaration does not match previous one.
Previous: {Type=m,Rank=0, RemoteObject=False}
Current: {Type=Map,Rank=0, RemoteObject=True}
Error occurred on line: 46
Dim m As Map
 
Upvote 0
Mahdipunisher

Mahdipunisher

Member
Brian Dean said:
Here is what I think is an ultra-simple app that does what you want. I might have misunderstood you, so this is what I believe you wanted :

- a "Start" button that starts a one second resolution timer.
- a "Stop" button that stops the timer, but does not reset it.
- a "Reset" button that resets the timer but does not stop it.

Once started the timer displays elapsed time in minutes and seconds. If the app goes into the background the timer continues to run and shows total elapsed time when the app comes back to the foreground. If the app is closed and re-opened the timer restarts at the point where the app was closed. Even if these are not quite the actions that you want it should be easy to adapt the app as it is super-simple - most of the subs are single-liners.

I have used a KVS to hold the "in-transit" time and a timer in a service.

Here is the code in Main :
B4X: 
Public Sub btnStart_Click
    Starter.start
End Sub

Public Sub btnStop_Click
    Starter.stop
End Sub

Public Sub btnReset_Click
    Starter.reset
    lblTimer.Text = "0:00"
End Sub

Public Sub updateTimer(elapsed As Int)
    Dim mins As String = Floor(elapsed / 60)
    Dim secs As String = elapsed Mod 60
    If (secs.Length < 2) Then secs = "0" & secs
    lblTimer.Text = mins & ":" & secs
    kvs.Put("elapsed", elapsed)
End Sub

Here is the code in the (Starter) service :
B4X: 
Private Sub tmr_Tick
    elapsed = elapsed + 1
    CallSub2(Main, "updateTimer", elapsed)
End Sub

Public Sub start
    tmr.Enabled = True
End Sub

Public Sub stop
    tmr.Enabled = False
End Sub

Public Sub reset
    elapsed = 0
End Sub

Public Sub restart(seconds As Int)
    tmr.Enabled = True
    elapsed = seconds
End Sub

Here is the project :
Click to expand...
I want this done.
b4x: 
Sub Process_Globals
    Dim timeroff As Long
End Sub

Sub Globals
Dim tim As Chronometer
Dim st As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
.
.
.
tim.Initialize("tim")
Activity.AddView(tim,30%x,90%y,40%x,10%y)
tim.TextColor=Colors.Black
tim.TextSize=50
tim.Typeface=Typeface.LoadFromAssets("byekan.ttf")
tim.Gravity=Gravity.CENTER
timeroff = tim.GetElapsedRealTime
tim.BaseTime=timeroff 'timer=00:00
tim.Stop
End Sub

sub btn_start
tim.start
end sub

sub btn_stop
tim.stop 'time=03:25
'tim.text=03:25
' save in ttime.txt or sqlite
st=tim.Text '03:25
Main.SQL1.ExecNonQuery("UPDATE setay SET ttime = '"& st &"' WHERE id = '"& Cur1.GetString("id") &"'")
' or
st=tim.Text
File.WriteString(File.DirInternal, "ttime.txt" , st)
end sub

'tomorrow

st = File.ReadString(File.DirInternal, "ttime.txt")
'or
st=Cur1.GetString("ttime")
st=tim.Text '03:25
tim.BaseTime=st 'time start again 03:25 not mach
 
Last edited:
Upvote 0
B

Brian Dean

Well-Known Member
Licensed User
Longtime User
Error occurred on line: 46
Dim m As Map
Click to expand...
That is very strange - my code does not contain that line. I will try to look at your code later, although at the moment I do not know what a Chronometer object is.

Edit : I have searched the forum for "chronometer" and have not found anything useful. I have looked briefly at your code. It seems unusual to store the elapsed time as text rather than some numeric value - maybe that is where the problem is, but I am just guessing here.
 
Last edited:
Upvote 0
udg

udg

Expert
Licensed User
Longtime User
I didn't download any code, but my understanding is that the OP wants to save the current reading of the used timer label for later "reuse".
So hours, days or even months later, the visible elapsed time should start from the saved value.

If I understood correctly, what the OP needs is simply a function that reads the saved elapsed time (e.g. 03:25) and converts it in seconds/milliseconds. Than in timer_click event he just needs to add the newly elapsed time to that initial value and use a second function to convert total seconds/milliseconds to a displayable string like 03:25.
Both functions could account for hours, if needed.
 
Upvote 0
B

Brian Dean

Well-Known Member
Licensed User
Longtime User
Hi @udg and @LucaMs . I think that the OP wants to use this "chronometer" object in particular, and wants to reset it to a saved value when the app restarts. I have demonstarted an alternative path, but he does not wish to go that way. I think that I am going to wait until he has had a chance to speak again.
 
Upvote 0
LucaMs

LucaMs

Expert
Licensed User
Longtime User
Brian Dean said:
Hi @udg and @LucaMs . I think that the OP wants to use this "chronometer" object in particular, and wants to reset it to a saved value when the app restarts. I have demonstarted an alternative path, but he does not wish to go that way. I think that I am going to wait until he has had a chance to speak again.
Click to expand...
The new version of my CV lmElapsedTime actually allows you to set an initial count, which is what @Mahdipunisher needs.

Brian Dean said:
I think that the OP wants to
Click to expand...
... donate to B4X to become a licensed user (and donate to @LucaMs for the CV 😁)
 
Upvote 0
Mahdipunisher

Mahdipunisher

Member
udg said:
I didn't download any code, but my understanding is that the OP wants to save the current reading of the used timer label for later "reuse".
So hours, days or even months later, the visible elapsed time should start from the saved value.

If I understood correctly, what the OP needs is simply a function that reads the saved elapsed time (e.g. 03:25) and converts it in seconds/milliseconds. Than in timer_click event he just needs to add the newly elapsed time to that initial value and use a second function to convert total seconds/milliseconds to a displayable string like 03:25.
Both functions could account for hours, if needed.
Click to expand...
Yes, I want to do the same thing, but I don't know these conversions.
 
Upvote 0
B

Brian Dean

Well-Known Member
Licensed User
Longtime User
I have stripped down my previous example and removed everything except the timer label. I have also replaced the KVS with a text file. The timer shows the accumulated time that the app has been running. If you close the app, turn off the phone and restart the phone again the timer will continue running from where it left off.

Screenshot.jpg


Thre is no "chronograph" object here as I still do not know what that is. I suspect that there will be other reasons why this is not exactly what you want, so you might have to adapt it to fit your needs.
 

Attachments

  • Stopwatch2.zip
    9.2 KB · Views: 104
Upvote 0
Mahdipunisher

Mahdipunisher

Member
Brian Dean said:
I have stripped down my previous example and removed everything except the timer label. I have also replaced the KVS with a text file. The timer shows the accumulated time that the app has been running. If you close the app, turn off the phone and restart the phone again the timer will continue running from where it left off.

View attachment 163137

Thre is no "chronograph" object here as I still do not know what that is. I suspect that there will be other reasons why this is not exactly what you want, so you might have to adapt it to fit your needs.
Click to expand...
Thanks my friend. My biggest problem was in the storage, my sql didn't have a long, and with these codes my problem was solved.
save timer: 
Sub Process_Globals
    Dim Timer1 As Timer
    Dim StartTime As Long
End Sub

Sub Globals
    Dim SQLite As SQL
    Dim lblTime As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        SQLite.Initialize(File.DirInternal, "TimerDB.db", True)
        SQLite.ExecNonQuery("CREATE TABLE IF NOT EXISTS TimerData (ID INTEGER PRIMARY KEY AUTOINCREMENT, SavedTime LONG)")
    End If

    Timer1.Initialize("Timer1", 1000)

    lblTime.Initialize("")
    lblTime.Text = "00:00:00"
    lblTime.TextSize = 20
    lblTime.Gravity = Gravity.CENTER
    Activity.AddView(lblTime, 0, 50%y, 100%x, 50dip)
End Sub

Sub Activity_Resume
    Dim Cursor As Cursor
    Cursor = SQLite.ExecQuery("SELECT SavedTime FROM TimerData ORDER BY ID DESC LIMIT 1")
    If Cursor.RowCount > 0 Then
        Cursor.Position = 0
        StartTime = Cursor.GetLong("SavedTime")
    Else
        StartTime = 0
    End If
    Cursor.Close
    UpdateLabel
End Sub

Sub Timer1_Tick
    StartTime = StartTime + 1
    UpdateLabel
End Sub

Sub UpdateLabel
    Dim hours As Int = StartTime / 3600
    Dim minutes As Int = (StartTime Mod 3600) / 60
    Dim seconds As Int = StartTime Mod 60
    lblTime.Text = NumberFormat(hours, 2, 0) & ":" & NumberFormat(minutes, 2, 0) & ":" & NumberFormat(seconds, 2, 0)
End Sub

Sub Activity_Pause (UserClosed As Boolean)

    SQLite.ExecNonQuery2("INSERT INTO TimerData (SavedTime) VALUES (?)", Array As Object(StartTime))
    Timer1.Enabled = False
End Sub

Sub Start_Timer
    Timer1.Enabled = True
End Sub

Sub Stop_Timer
    Timer1.Enabled = False
End Sub
 
Upvote 0
Mahdipunisher

Mahdipunisher

Member
Erel said:
Tip: switch to B4XPages. This code will crash once the activity is recreated.
Click to expand...
my cod?
b4a: 
Sub Process_Globals
    Dim Timer1 As Timer
    Dim StartTime As Long
End Sub

Sub Globals
    Dim SQLite As SQL
    Dim lblTime As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        SQLite.Initialize(File.DirInternal, "TimerDB.db", True)
        SQLite.ExecNonQuery("CREATE TABLE IF NOT EXISTS TimerData (ID INTEGER PRIMARY KEY AUTOINCREMENT, SavedTime LONG)")
    End If

    Timer1.Initialize("Timer1", 1000)

    lblTime.Initialize("")
    lblTime.Text = "00:00:00"
    lblTime.TextSize = 20
    lblTime.Gravity = Gravity.CENTER
    Activity.AddView(lblTime, 0, 50%y, 100%x, 50dip)
End Sub

Sub Activity_Resume
    Dim Cursor As Cursor
    Cursor = SQLite.ExecQuery("SELECT SavedTime FROM TimerData ORDER BY ID DESC LIMIT 1")
    If Cursor.RowCount > 0 Then
        Cursor.Position = 0
        StartTime = Cursor.GetLong("SavedTime")
    Else
        StartTime = 0
    End If
    Cursor.Close
    UpdateLabel
End Sub

Sub Timer1_Tick
    StartTime = StartTime + 1
    UpdateLabel
End Sub

Sub UpdateLabel
    Dim hours As Int = StartTime / 3600
    Dim minutes As Int = (StartTime Mod 3600) / 60
    Dim seconds As Int = StartTime Mod 60
    lblTime.Text = NumberFormat(hours, 2, 0) & ":" & NumberFormat(minutes, 2, 0) & ":" & NumberFormat(seconds, 2, 0)
End Sub

Sub Activity_Pause (UserClosed As Boolean)

    SQLite.ExecNonQuery2("INSERT INTO TimerData (SavedTime) VALUES (?)", Array As Object(StartTime))
    Timer1.Enabled = False
End Sub

Sub Start_Timer
    Timer1.Enabled = True
End Sub

Sub Stop_Timer
    Timer1.Enabled = False
End Sub
 
Upvote 0
You must log in or register to reply here.

Similar Threads

cenyu
  • Question
Android Question How to start B4A app when android box is restarted?
Replies
2
Views
307
cenyu
cenyu
T
  • Question
Android Question Http Requests - Problem after restart
Replies
5
Views
1K
Erel
Erel
T
Bug? App spontaneously restarting?
Replies
10
Views
3K
ThePlankton
T
William Lancee
  • Question
Android Question Does this method for restarting a B4XPages App with a different orientation work in Android 8+? It works in Android 7.0.
Replies
7
Views
3K
William Lancee
William Lancee
OliverA
  • Article
Android Tutorial Auto restart an Android Application after a Crash
Replies
8
Views
15K
sorex
S
Top