Android Question Trap in a Do while Loop

[incendio]

Hi guys,

I have this codes

Sub Process_Globals
    Dim StTm As Byte
    Dim MaxTm As Byte
End Sub

Sub Globals
    Private SendPrg As ProgressBar
End Sub

Sub Activity_Create(FirstTime As Boolean)
    ProgressTimer.Initialize("ProgressTimer", 1000)
End Sub

Sub btn_Click
    MaxTm = 3
    StTm  = 0
   
    ProgressTimer.Enabled = True
   
    Do While StTm <= MaxTm
    Loop
    ProgressTimer.Enabled = False
End Sub

Sub ProgressTimer_Tick
    StTm = StTm + 1
End Sub

Anyone knows why execution is trap in a Do While Loop on Sub btn_Click?

 

[DonManfred]

Sub btn_Click
 MaxTm = 3
 StTm = 0
 ProgressTimer.Enabled = True
End Sub
Sub ProgressTimer_Tick
 StTm = StTm + 1
  if StTim >= MaxTm then ProgressTimer.Enabled = false
End Sub

 

[incendio]

Thanks for you replied.

Codes from you won't work, cause I need to pause execution in Sub btn_click.

Sorry, my mistake, may be this codes is more clear

Sub btn_Click
    MaxTm = 3
    StTm  = 0
 
    ProgressTimer.Enabled = True
 
    Do While StTm <= MaxTm
    Loop
    ProgressTimer.Enabled = False
    do_another process
End Sub

 

[DonManfred]

Call do_another process in timer tick when timer is no more active...
Elsewhere you can try

Do While StTm <= MaxTm
  DoEvents
Loop

 

[thedesolatesoul]

Because it is single threaded. Your timer code and DoWhile loop cannot run together.
I dont think DoEvents allows Timer to tick, but worth a short.

 

[incendio]

Because it is single threaded. Your timer code and DoWhile loop cannot run together.
I dont think DoEvents allows Timer to tick, but worth a short.

You were right, I have tried it, DoEvents never execute.

So, this is a dead end?

 

[thedesolatesoul]

You just need to re-structure your code. I try to avoid DoWhile Loops unless it is a short operation.
If you are waiting for a fixed time, why not use a timer to trigger the remaining code (i.e. move the code after the loop into the timer sub).

 

[incendio]

The problem is, waiting time is not depend only for a specific time, but also depend on a variable value, where this value is assign upon an execution of a series command in a sub.

I need it to implement in RDC. Since RDC, as I know is not support transaction, I need to know when insert a large of data, for ex, 1000 data, I need to know it all data, successfully inserted.

My idea is using an integer value in jobdone. For ever success job, this value increased.

Then on a click button, wait for this value to reach 1000 for a specific time. If it reached 1000, then, no problem, but if it never reach 1000 after a specific time, then I assume there is a problem.

 

[thedesolatesoul]

Ok, there are a couple of ways to do this.
Lets say RDC needs to insert 1000 records, and you are incrementing this value in JobDone. (Also remember due to the DoWhile Loop, JobDone event cannot be raised, so that would not have worked anyway).

One option is to disable the button until all the records are inserted.
Another option is to set a flag on the Button_Click saying button is clicked, and check that flag in the JobDone sub (will be a delayed click).

Still I am not sure, how your User Interaction is supposed to go, is the same button used for inserting the transacations and completing them?

 

[incendio]

Yes, it is the same button.

My problem is, jobdone is an event, the response is not right away. Users may click the button and then close the program and assume that all data are sent without any problems.

I will try disabled the button and add progress bar, and increase its value inside jobdone.

 

[Erel]

As I wrote in the other thread you should not try to hold the main thread. Instead process the job when JobDone is fired.

 

[thedesolatesoul]

Basically, JobDone is the event which will be fired, which will tell you your RDC inserts have completed.
You must make sure you have one button to start the inserts, add a progressbar to be updated in JobDone, and that is where you check for completion, and trigger the next code from there.