B4J Question Timing Issues

[MrKim]

Edit: Well, Sleep(10) DID work. I guess it required stopping and restarting the program possibly adding a sleep in debug mode doesn't actually make it work?

I have a CustomListView and the list contains a BBCodeView that has url links. I am doing things with both the url link and CLV_ItemClick .

If the BBCodeView_LinkClicked is clicked I want to ignore the CLV_ItemClick event.

The problem is the CLV click event happens before the BBCodeView_LinkClicked event so I can't set a flag to stop CLV_ItemClick.

I tried Sleep in the CLV_ItemClick event hoping it would allow BBCodeView_LinkClicked to fire but no joy.

Any ideas?

 

[Chris2]

Can you use a 'Wait For...' at the start of the CLV_ItemClick event to wait for BBCodeView_LinkClicked to complete?

That might create a more robust solution in case sleep(10) isn't sufficient on different devices.

 

[MrKim]

Can you use a 'Wait For...' at the start of the CLV_ItemClick event to wait for BBCodeView_LinkClicked to complete?

That might create a more robust solution in case sleep(10) isn't sufficient on different device.

Well, the problem with that is that if they DIDN'T click on a link then it would be waiting forever.
Unless there is a way to set a timeout on Wait For...??

 

[Chris2]

Just thinking out loud & completely untested...

Sub Process_Globals
    Dim t As Timer
End Sub

Sub AppStart (Form1 As Form, Args() As String)
 
        t.Initialize("t", 5000) '5 seconds
    
End Sub


Sub BBCodeView_LinkClicked

'your code here...

        CallSubDelayed(Me, "LinkClicked_Complete")

End Sub


Sub CLV_ItemClick
    
    t.Enabled=True
    Wait For (LinkClicked_Complete) Complete (unused As Boolean)

'your code here
    
End Sub


Private Sub t_Tick

    CallSubDelayed(Me, "LinkClicked_Complete")

End Sub


Sub LinkClicked_Complete

        Return t.Enabled=False
    
End Sub

 

[agraham]

Need help with WaitFor [solved]

I have not had much success using WaitFor At the moment, I want to use it to trap either one of two boolean flags after I send a command via AStream. One flag is set when I received a message via AStream_NewData the other is set in a TimeOutTimer_Tick event if the command times out. So I would...

www.b4x.com

UDP acknowledge - Wait For with timeout

Hello, I have written a UDP client that is talking to an ESP8266. With UDP it can occur that packets do not arrive. What's the best way to do it, that the app sends a command and if there is no answer, sends the data up to 3 times again until an answer is received? I'm just breaking my head:)

www.b4x.com

 

[MrKim]

Just thinking out loud & completely untested...

Sub Process_Globals
    Dim t As Timer
End Sub

Sub AppStart (Form1 As Form, Args() As String)
 
        t.Initialize("t", 5000) '5 seconds
   
End Sub


Sub BBCodeView_LinkClicked

'your code here...

        CallSubDelayed(Me, "LinkClicked_Complete")

End Sub


Sub CLV_ItemClick
   
    t.Enabled=True
    Wait For (LinkClicked_Complete) Complete (unused As Boolean)

'your code here
   
End Sub


Private Sub t_Tick

    CallSubDelayed(Me, "LinkClicked_Complete")

End Sub


Sub LinkClicked_Complete

        Return t.Enabled=False
   
End Sub

Thanks, but sleep seems very reliable and simple is best...