Android Question Is there any way to stop the previous event when I start the new event?

[gilsonmv]

Hey, guys
Is there any way to stop the previous event when I start the new event?
example:
When I press the button the routine will show me 1, 2, 3, 4.
If I press the button again, I want the previous event to be stopped before the new event starts.
ex. 1,2 (I pressed the button) 1,2,3,4.
thanks

Sub PanelEdBtPlay_Click

    edEfeito.Text = "1 "
    EditText1.Text = edEfeito.Text
    SendMessage(Array As Byte(EditText1.Text))
    edLogTemp.Text = edLogTemp.Text & EditText1.Text
    Sleep(1000)
    
    edEfeito.Text = "2 "
    EditText1.Text = edEfeito.Text
    SendMessage(Array As Byte(EditText1.Text))
    edLogTemp.Text = edLogTemp.Text & EditText1.Text
    Sleep(1000)
    
    edEfeito.Text = "3 "
    EditText1.Text = edEfeito.Text
    SendMessage(Array As Byte(EditText1.Text))
    edLogTemp.Text = edLogTemp.Text & EditText1.Text
    Sleep(1000)
    
    edEfeito.Text = "4 "
    EditText1.Text = edEfeito.Text
    SendMessage(Array As Byte(EditText1.Text))
    edLogTemp.Text = edLogTemp.Text & EditText1.Text
    Sleep(1000)
        
End Sub

 

[Erel]

Yes. You need the "index pattern" here: https://www.b4x.com/android/forum/threads/b4x-resumable-subs-and-the-index-pattern.111487/#content

Sub PanelEdBtPlay_Click
    PanelEdByPlayIndex = PanelEdByPlayIndex + 1 'global variable
    Dim MyIndex = PanelEdByPlayIndex
    edEfeito.Text = "1 "
    EditText1.Text = edEfeito.Text
    SendMessage(Array As Byte(EditText1.Text))
    edLogTemp.Text = edLogTemp.Text & EditText1.Text
    Sleep(1000)
    If MyIndex <> PanelEdByPlayIndex Then Return

    edEfeito.Text = "2 "
    EditText1.Text = edEfeito.Text
    SendMessage(Array As Byte(EditText1.Text))
    edLogTemp.Text = edLogTemp.Text & EditText1.Text
    Sleep(1000)
        If MyIndex <> PanelEdByPlayIndex Then Return

    edEfeito.Text = "3 "
    EditText1.Text = edEfeito.Text
    SendMessage(Array As Byte(EditText1.Text))
    edLogTemp.Text = edLogTemp.Text & EditText1.Text
    Sleep(1000)
        If MyIndex <> PanelEdByPlayIndex Then Return

    edEfeito.Text = "4 "
    EditText1.Text = edEfeito.Text
    SendMessage(Array As Byte(EditText1.Text))
    edLogTemp.Text = edLogTemp.Text & EditText1.Text
    Sleep(1000)
            If MyIndex <> PanelEdByPlayIndex Then Return
End Sub

 

[gilsonmv]

Great!!
I declared "PanelEdByPlayIndex" as a global variable and your routine worked perfectly!
Thank you very much.

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim PanelEdByPlayIndex As Int
End Sub