Android Question "auto refresh" Android tablet

LucaMs said:

I'd say it's not very correct, calling the event routines of the views by code

Click to expand...

agraham said:

It's perfectly OK. B4X runs all events on the main thread so it will not cause problems.

Click to expand...

@AKJammer said: The problem I have is that it works just fine when I'm debugging and have the tablet connected via bridge, but once I put the code in Release mode and copy it over to another tablet, the refresh never happens.

Click to expand...

AKJammer said:

Ok, I found the timer object, didn't know we had one. Modified the code to use it, but still doesn't work in Release mode.

Code:

Sub Process_Globals
    Public RefreshTimer As Timer

Sub Activity_Create
        RefreshTimer.Initialize("RefreshTimer", timerInterval * 1000)
        RefreshTimer.Enabled = True


Private Sub RefreshTimer_Tick
        Log("tick")
 
        If prepid > 0 And jdgnumber >= 0 Then   'prepid = 78, jdgnumber = 4

     
            Dim req As DBRequestManager = CreateRequest
            Dim cmd As DBCommand = CreateCommand("check_refresh", Array(prepid, jdgnumber))
            Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
            If j.Success Then
                req.HandleJobAsync(j, "req")
                Wait For (req) req_Result(res As DBResult)
                Dim row() As Object = res.Rows.Get(0)
               
                If row(0) = 1 Then
                 Log("do refresh")
                 Refresh_Click   
                End If
            End If
            j.release

      End If

End Sub

Click to expand...

William Lancee said:

You did two things.
Does it work on the tablet that you used for development in release mode?
If yes, then the second tablet has some setting that is causing the problem.

Click to expand...

LucaMs said:

I see two things I don't like:

1 - the routine calls itself (and this is one more reason not to directly call an event routine of a view)

2 - It executes that call without releasing the job.

Click to expand...

AKJammer said:

Hmmm, good check. When I run it in release mode with the tablet attached to bridge, it doesn't work there either.

Then I noticed that when in Debug mode, it only worked when I had a breakpoint inside the function where the log("tick") is located. I'm getting the 'tick' logged every 10 secs, but it's not going to Refesh_Click unless I'm stepping through it.

Click to expand...

AKJammer said:

Do you have a good link to explain best practices for using the timer object? What I have coded is pretty much a copy of what I found already. I didn't see where a release would happen since the timer would be operating the entire lifespan of the app.

Click to expand...

LucaMs said:

I was referring to j.release, which is not executed when the routine calls itself from within.
This isn't necessarily the problem at all, it's just something I noticed "on the fly".

Click to expand...

Private Sub Runtimer_Tick
        Log("tick")
        Sleep (500)
        If prepid > 0 And jdgnumber >= 0 Then

            Dim req As DBRequestManager = CreateRequest
            Log("...1")
        Dim cmd As DBCommand = CreateCommand("check_refresh", Array(prepid, jdgnumber))
        Log("...2")
        Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
        Log("...3")

            If j.Success Then
            Log("...4")

                req.HandleJobAsync(j, "req")
            Log("...5")

                Wait For (req) req_Result(res As DBResult)
            Log("...6")

                Dim row() As Object = res.Rows.Get(0)
            Log("...7")
             Log (row(0))
                If row(0) = 1 Then
                 Log("do refresh")
                 Refresh_Click    
                Log("...8")

                End If
            Log("...9")

            End If 
        Log("...10")

            j.release
            Log("end if")
            
            
            
        End If

End Sub

AKJammer said:

if successful.

Click to expand...

LucaMs said:

!

Click to expand...

AKJammer said:

Create J
Do some queries
if queries are good then
do some more
end if
Release J


If success doesn't effect the release of J, as can be seen by the log trace. Am I missing something obvious?

Anyone know why 1 = 1 wouldn't come back as True?

Click to expand...

            Dim req As DBRequestManager = CreateRequest
            Dim cmd As DBCommand = CreateCommand("check_refresh", Array(prepid, jdgnumber))
            Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
            If j.Success Then
                req.HandleJobAsync(j, "req")
                Wait For (req) req_Result(res As DBResult)
                Dim row() As Object = res.Rows.Get(0)
                
                If row(0) = 1 Then
                 Log("do refresh")
                 Refresh_Click   ' <--- Here 
                End If
            End If
            j.release

AKJammer said:

Hey All,
I'm working on a project that requires the tablet to refresh the screen without user input if data changes. How I've implemented it is a field in the database that, if set to '1', will trigger a call to the refresh button that is available to the user. If RefreshBtn is pressed, the first thing it does is goes to the database and sets the flag to '0'. This is all handled within a check refresh subroutine that polls the database every variable (currently 10) seconds. The problem I have is that it works just fine when I'm debugging and have the tablet connected via bridge, but once I put the code in Release mode and copy it over to another tablet, the refresh never happens. The database flag stays set to '1'. If I do a manual refresh, the flag is set to '0'.

Any insights would be helpful.

Here's my subroutine.

B4X:

Sub refresh_check
Log(refreshtimer * 1000)   ' currently set to 10 (seconds)
    Do While 1 = 1
        Log("tick")
        Sleep(refreshtimer * 1000) '60000 = 1 min
       

            Dim req As DBRequestManager = CreateRequest
            Dim cmd As DBCommand = CreateCommand("check_refresh", Array(prepid, jdgnumber))
            Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
            If j.Success Then
                req.HandleJobAsync(j, "req")
                Wait For (req) req_Result(res As DBResult)
                Dim row() As Object = res.Rows.Get(0)
               
                If row(0) = 1 Then
                 Log("do refresh")
                 Refresh_Click   
                End If
            End If
            j.release
                   
    Loop
End Sub

Modtodays website is a free game download source where you can download cool games for your device without paying any fees.

Click to expand...