GUI noob question

[dexto]

Working on my first full GUI app.

For some reason in this loop:

While True
        $nMsg = GUIGetMsg()
        $data = UDPRecv($socket, 500)
        $dataa = UDPRecv($socketa, 500)
        $datab = UDPRecv($socketb, 500)
        
        If $data <> "" Then
            cw(@HOUR & ':' & @MIN & ':' & @SEC & ' 788> ' & $data)
        EndIf
        If $dataa <> "" Then
            cw(@HOUR & ':' & @MIN & ':' & @SEC & ' 9> ' & $data)
        EndIf
        If $datab <> "" Then
            cw(@HOUR & ':' & @MIN & ':' & @SEC & ' 7> ' & $data)
        EndIf
        
    ;GUI LOOP
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
                
        EndSwitch

        Sleep(100)
    WEnd

When I try to close the gui window it takes 5-10 seconds for it to close...?

Is that normal? What did I do wrong?

[torels]

probably it's CW function

[November]

CW = ConsoleWrite???

I cant see nothing more besides that!

Cheers

[dexto]

probably it's CW function

here:

Func cw($txt)
    ConsoleWrite($txt & @CRLF)
EndFunc  ;==>cw

I tried commenting CW() => no diff.

[November]

Hi again,

Probably no info incoming to Sockets.

Check incoming data!

Cheers

[dexto]

Hi again,

Probably no info incoming to Sockets.

Check incoming data!

Cheers

True, it is just waiting for incoming info. (as in server)

Can it be rewritten so it will fire an event on incoming data?

I think this will be "dirty" way to fix it:

;MAIN LOOP
    Local $u = 0
    While True
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
        EndSwitch
        
        $u = $u + 1
        If $u = 100 Then
            $u = 0
            $data = UDPRecv($socket, 200)
            $dataa = UDPRecv($socketa, 500)
            $datab = UDPRecv($socketb, 500)
            
            If $data <> "" Then
                cw(@HOUR & ':' & @MIN & ':' & @SEC & ' 788> ' & $data)
            EndIf
            If $dataa <> "" Then
                cw(@HOUR & ':' & @MIN & ':' & @SEC & ' 9> ' & $data)
            EndIf
            If $datab <> "" Then
                cw(@HOUR & ':' & @MIN & ':' & @SEC & ' 7> ' & $data)
            EndIf
        EndIf
    
    WEnd

[November]

hi again,

you can try to simulate some data, give data to $data, $dataa and $datab. If this part of code is running, then try to see if you are recieving ou sending data.

Troubleshoot sometimes sucks, but it's a great way to learn and improve ourselves.

Cheers