[VB.NET] Applicazione "bloccata" durante esecuzione di alcune righe di codice

[Capello82]

Chiedo scusa innanzitutto per non aver messo la tag [] nel titolo della mia discussione precedente, ma appena me ne sono accorto non sono riuscito a modificare il titolo >.<

Uso Visual Basic 2005 Express e il mio problema è il seguente: la mia applicazione esegue, al click del mouse su un tasto, una serie di lunghe operazioni (scambio di dati su porta seriale), durante le quali non mi permette di accedere a null'altro. Non posso né spostare la finestra, né cliccare altri tasti, né visualizzare il progresso delle operazioni: faccio notare che l'applicazione funziona, NON si blocca, non ci sono loop infiniti e infatti porta con successo a termine quello che deve fare. Vorrei solo poter fare altro mentre esegue queste lunghe operazioni.

Mi è già stato consigliato di usare Application.DoEvents(), ma questo mi permette solo di refreshare la finestra dell'applicazione se ci sovrappongo sopra dell'altro.

Mi chiedo quindi se l'ultima cosa che mi rimane di fare sia l'utilizzo del Threading e di tutti i metodi relativi. Essendo niubbo però non trovo una guida o qualche esempio che mi facciano comprendere facilmente come permettere alla mia applicazione di svolgere cose diverse contemporaneamente.

Qualcuno ha qualche esempio o simili per chiarirmi le idee? ^^

[gugoXX]

Originariamente inviato da Capello82

Mi chiedo quindi se l'ultima cosa che mi rimane di fare sia l'utilizzo del Threading e di tutti i metodi relativi. Essendo niubbo però non trovo una guida o qualche esempio che mi facciano comprendere facilmente come permettere alla mia applicazione di svolgere cose diverse contemporaneamente.

Ti hanno consigliato bene.

Prova a partire da qui
http://www.devx.com/DevX/10MinuteSolution/20365

[Capello82]

Grazie.. molto utile per capire le basi ^^ Mi ci voleva. Però ho ancora problemi con il richiamo di controlli dal form...

[f@bio80]

Originariamente inviato da Capello82

Grazie.. molto utile per capire le basi ^^ Mi ci voleva. Però ho ancora problemi con il richiamo di controlli dal form...

Private Delegate Function YourFunctionDelegate(ByVal params...) As Boolean

Public Function YourFunction(ByVal params...) As Boolean
    If Not InvokeRequired Then
        'fai quello che devi fare normalmente sui controlli della form
    Else
        Dim del As YourFunctionDelegate= AddressOf YourFunction
        Dim result As System.IAsyncResult = Me.BeginInvoke(del, params)
    End If
End Function

[Capello82]

Dunque... dopo un po' di prove sono arrivato al seguente codice:

Private Delegate Sub Invia_DatiDelegate(ByVal N, ByVal receivedchar, ByVal X_length, ByVal Y_length, ByVal flag)

    Private Sub BackgroundProcess()
        Dim N As Integer
        Dim receivedchar As String
        Dim X_length As Integer
        Dim Y_length As Integer
        Dim flag As String
        Invia_Dati(N, receivedchar, X_length, Y_length, flag)
    End Sub


    Public Sub Invia_Dati(ByVal N, ByVal receivedchar, ByVal X_length, ByVal Y_length, ByVal flag)
        
        If Not InvokeRequired Then
            flag = 0
            'Invia ogni riga fino al ";". Quando la macchina riceve il ";", il PC si mette in attesa sulla porta seriale.
            'Se il PC riceve "K" allora invia riga successiva. K in codifica ASCII è "75" in decimale. 
            N = Formatted.Text.Length
            For i As Integer = 0 To N - 1
                If Formatted.Text.Chars(i) = "A" Then
                    Data = "A"
                    Sendstring(Data)
                    flag = 0
                End If
                If Formatted.Text.Chars(i) = "D" Then
                    Data = "D"
                    Sendstring(Data)
                End If
                If Formatted.Text.Chars(i) = "U" Then
                    Data = "U"
                    Sendstring(Data)
                End If
                If (Formatted.Text.Chars(i) = "0" Or Formatted.Text.Chars(i) = "1" Or Formatted.Text.Chars(i) = "2" Or Formatted.Text.Chars(i) = "3" Or Formatted.Text.Chars(i) = "4" Or Formatted.Text.Chars(i) = "5" Or Formatted.Text.Chars(i) = "6" Or Formatted.Text.Chars(i) = "7" Or Formatted.Text.Chars(i) = "8" Or Formatted.Text.Chars(i) = "9") And flag = 0 Then
                    X_length = Formatted.Text.IndexOf(",", i) - i
                    intero = Formatted.Text.Substring(i, X_length)
                    SendX(intero)
                    i = i + X_length
                    flag = 1
                End If
                If (Formatted.Text.Chars(i) = "0" Or Formatted.Text.Chars(i) = "1" Or Formatted.Text.Chars(i) = "2" Or Formatted.Text.Chars(i) = "3" Or Formatted.Text.Chars(i) = "4" Or Formatted.Text.Chars(i) = "5" Or Formatted.Text.Chars(i) = "6" Or Formatted.Text.Chars(i) = "7" Or Formatted.Text.Chars(i) = "8" Or Formatted.Text.Chars(i) = "9") And flag = 1 Then
                    Y_length = Formatted.Text.IndexOf(";", i) - i
                    intero = Formatted.Text.Substring(i, Y_length)
                    SendY(intero)
                    i = i + Y_length
                End If
                If Formatted.Text.Chars(i) = ";" Then
                    receivedchar = serialPort.ReadChar()
                    While receivedchar <> 75
                        receivedchar = serialPort.ReadChar()
                        If receivedchar = 75 Then
                            Exit While
                        End If

                    End While
                End If
                ListBox1.Items.Add(i)
                Application.DoEvents()
            Next
        Else
            Dim del As Invia_DatiDelegate = AddressOf Invia_Dati
            Dim result As System.IAsyncResult = Me.BeginInvoke(del, N, receivedchar, X_length, Y_length, flag)
        End If
    End Sub

    Private Sub Invia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Invia.Click
        Dim t As Threading.Thread
        t = New Threading.Thread(AddressOf Me.BackgroundProcess)
        t.Start()
    End Sub

Il problema è che il risultato è lo stesso; durante l'esezuzione del lungo ciclo for, l'applicazione è impegnata al 100% ad eseguier quel ciclo, e non posso né spostarla né cliccare su altri tasti. L'applicazione torna "libera" solo dopo la fine del ciclo for.

[Capello82]

UP ^^"