Android Question Wait for

[Cenny]

Hi,

I would like to enable btNext1 after the scan has finished.
But the button is enabled while the scan is still running.
Can I solve this with Wait For?
Any idea?

Cenny

Sub btPrepare1_Click
    If Check_Values Then
        btPrepare1.Enabled=False
        StartScan
        btNext1.Enabled=True
    End If
End Sub

Sub StartScan

    If Check_Values=True Then
                    
        For i = StartAt To EndAt Step Stap
            Module1.SendTrimValue(i)
            servosetting=i
            lblServoSettings.Text=i
            Sleep(interval*1000)
            Decalage=sf.Left(lblDecalages.Text,lblDecalages.Text.Length-1)
            Module1.SQL1.ExecnonQuery2(strSQL2,Array As String(Module1.ModelID,Decalage,servosetting))

        Next

    End If
    
End Sub

 

[DonManfred]

yes, make startscan a resumeable sub.

[B4X] Resumable subs that return values (ResumableSub)

Remember that that a call to Sleep or Wait For in a resumable sub causes the code flow to return to the parent. Example: Sub Button1_Click Sum(1, 2) Log("after sum") End Sub Sub Sum(a As Int, b As Int) Sleep(100) 'this will cause the code flow to return to the parent Log(a + b) End Sub...

www.b4x.com

 

[Cenny]

yes, make startscan a resumeable sub.

[B4X] Resumable subs that return values (ResumableSub)

Remember that that a call to Sleep or Wait For in a resumable sub causes the code flow to return to the parent. Example: Sub Button1_Click Sum(1, 2) Log("after sum") End Sub Sub Sum(a As Int, b As Int) Sleep(100) 'this will cause the code flow to return to the parent Log(a + b) End Sub...

www.b4x.com

yes, make startscan a resumeable sub.

[B4X] Resumable subs that return values (ResumableSub)

Remember that that a call to Sleep or Wait For in a resumable sub causes the code flow to return to the parent. Example: Sub Button1_Click Sum(1, 2) Log("after sum") End Sub Sub Sum(a As Int, b As Int) Sleep(100) 'this will cause the code flow to return to the parent Log(a + b) End Sub...

www.b4x.com

Thanks for the valuable reaction.
I changed the declaration to Sub StartScan as ResumableSub and gave it a return value null.
It works fine.

Sub btPrepare1_Click
    If Check_Values Then
        btPrepare1.Enabled=False
        Wait For(StartScan) Complete (Result As Object)
        btNext1.Enabled=True
    End If
End Sub