Discussion :

[aoumnad]

Bonjour,

J'essaie de me mettre à VB.NET et je m’aperçois d’emblée que c'est la galère, et pourtant j'arrivais à faire de petites choses en VB6

J'essaye d'écrire une application pour communiquer avec une carte Microcontroleurs (à base de PIC) à travers le port série.

j'ai fait des essais avec le port série et ça marche très bien. J'arrive à envoyer et recevoir des données vers le PIC. Je me suis planté sur quelque chose qui semble pourtant très simple,

Voila ce que m'aiderait à réaliser mon application:

un petit programme avec une interface qui contient un bouton (Start/Stop) et un TextBox
- Si on clique sur le bouton, on voie un Compteur s'incrémenter dans le TextBox
- Si on appui de nouveau sur le bouton, le compteur s’arrête

Merci beaucoup,

[xeo]

j'ai été moi meme confronté a ca il y a quelques mois et j'ai trouvé un moyen de contourner le probleme...

j'utilisais un backgroundworker pour lancer une tache cyclique qui ne fige pas ma form.

ma tache cyclique était donc réaliser dans l'évenement doWork de mon backgroundworker et forcément tu as le droit a une belle erreur quand tu essaies de mettre a jour tes composants de ta form dans cet évenement.

bref le code ci-dessous ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
 
label1.text = "ca marche pas"        
 
End Sub

en cherchant, j'ai donc vu comme toi qu'il fallait passer par des delegates, j'ai tester et ca fonctionnait mais je trouve franchement que c'est ultra compliqué pour faire un truc finalement si simple..............

j'ai donc trouvé une méthode bien plus simple a mettre en oeuvre, je passe par des variables public et je mets a jour ma form dans l'évenement "RunWorkerCompleted".

bref le code ci-dessous fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
public montexte as string
 
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
 
montexte = "ca marche"        
 
End Sub
 
 
Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
 
label1.text = montexte
 
BackgroundWorker1.RunWorkerAsync()
 
End Sub

je ne sais pas si mon code est fait dans les règles de l'art du petit développeur mais en tout cas ca fonctionne tres bien et c'est bcp plus simple que l'utilisation des delegates....

PS : je suis curieux de voir ton prog de com via le port série et surtout le codage du CRC

[aoumnad]

Merci xeo, je vais essayer ça.

Pour le reste de l'application avec le port série, je la publierais dès que j'ai quelque chose de complet qui marche bien.

A+

[zebrette]

Les backgroundworker (BGW) c'est bien, et la fonction BGW.reportprogress est utile, mais tu peux parfois rencontrer des limitations pour lesquelles il te faudra des delegates.

Pour l'exemple, j'ai mis un NumericUpDown (NUD) sur un formulaire et j'ai fait un BGW qui compte jusqu'a 10000 en affichant les valeurs dans le NUD
Si tu appeles la fonction ci dessous depuis un BGW tu auras une exception "Cross thread blah blah...":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Public Function IncrementNum()
        NumericUpDown1.Value += 1
    End Function

Alors que si tu appeles celle là, ca marche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Private Delegate Sub IncrementNumDelegate()
    Public Sub IncrementNum()
        If InvokeRequired Then
            Dim D As New IncrementNumDelegate(AddressOf IncrementNum)
            BeginInvoke(D)
        Else
            NumericUpDown1.Value += 1
            NumericUpDown1.Refresh() 'Tu peux avoir besoin de ca pour que les valeurs s'actualisent
        End If
    End Sub

Tu peux faire avec des Function au lieu de Sub, et tu peux passer des arguments si tu veux:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Private Delegate Sub IncrementNumDelegate(ByVal NewValue As Integer)
    Public Sub IncrementNum(ByVal NewValue As Integer)
        If InvokeRequired Then
            Dim D As New IncrementNumDelegate(AddressOf IncrementNum)
            BeginInvoke(D, NewValue)
        Else
            NumericUpDown1.Value = NewValue
        End If
    End Sub

Bon code