[VB.net]system.outofmemoryexception

Version imprimable

:D Bonjour a tous, j'espere que quelqu'un pourra m'aider.

Voila, mon appplication utilise plusieurs threads (9 en tout) et lorsque je la démarre j'ai ce message d'erreur, mais une fois démarré et le message affiché, elle tourne parfairement, le probleme c'est que je peux pas me débarraser de ce mesage, ma seule alternative est de quitter l'application.
J'ai raccourci mon, mais il y a bien 8 autres threads, 1 par fonction

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
Imports NationalInstruments.DAQmx
Imports System.Threading
Imports Microsoft.VisualBasic
PublicClass Form1
Inherits System.Windows.Forms.Form
Private myTask2 As Task
Private myTask4 As Task
Private myTask5 As Task
Private myDigitalReader2 As DigitalSingleChannelReader
Private myDigitalReader4 As DigitalSingleChannelReader
Private myDigitalReader5 As DigitalSingleChannelReader
Private firstEdge As CITwoEdgeSeparationFirstEdge
Private secondEdge As CITwoEdgeSeparationSecondEdge
Private myTask As Task
Private trigger1 As Task
Private counterInReader As CounterReader
Private _threadCalculs1 As Thread
Private _threadCalculs2 As Thread
Private _threadCalculs3 As Thread
Private _threadCalculs4 As Thread
Private _threadCalculs5 As Thread
Private _threadCalculs6 As Thread
Private _threadCalculs7 As Thread
Private _threadCalculs8 As Thread
#Region " Code généré par le Concepteur Windows Form "
#EndRegion

PublicSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
 
Timer1.Enabled() = True
myTask2 = New Task
myTask2.DIChannels.CreateChannel("Dev1/port2/line0:7", "read2_digits", ChannelLineGrouping.OneChannelForAllLines)
myDigitalReader2 = New DigitalSingleChannelReader(myTask2.Stream)
myTask4 = New Task
myTask4.DIChannels.CreateChannel("Dev1/port4/line0:7", "read4_digits", ChannelLineGrouping.OneChannelForAllLines)
myDigitalReader4 = New DigitalSingleChannelReader(myTask4.Stream)
myTask5 = New Task
myTask5.DIChannels.CreateChannel("Dev1/port5/line0:7", "read5_digits", ChannelLineGrouping.OneChannelForAllLines)
myDigitalReader5 = New DigitalSingleChannelReader(myTask5.Stream)
EndSub

PrivateSub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
'Connection pci dio 96 port 2
Dim readData2() AsBoolean
readData2 = myDigitalReader2.ReadSingleSampleMultiLine()
Babord.Value = readData2(6)
Tribord.Value = readData2(5)

...blablabla
 
'Affichage du mode 3d ou 2d
If readData4(6) = TrueThen
Mode.Text = "3D"
ElseIf readData4(6) = FalseThen
Mode.Text = "2D"
EndIf
C1.Value = c1pret.Value
C2.Value = Not c2pret.Value
C3.Value = c3pret.Value
C4.Value = Not c4pret.Value
'crée un délégué et affiche le delai de manière asynchrone
StartThread()
StartThread1()
StartThread2()
StartThread3()
StartThread4()
StartThread5()
StartThread6()
StartThread7()
 
EndSub
'Programmation de fonction, une par délai, cette fonction est programmée 8 fois
PublicSub delais1()
 
Dim max AsDouble = 0.3
Dim min AsDouble = 0.001
Dim valeurdelai AsString
myTask = New Task
Dim channel AsString
myTask.CIChannels.CreateTwoEdgeSeparationChannel("Dev2/ctr0", "", min, _
max, CITwoEdgeSeparationFirstEdge.Rising, CITwoEdgeSeparationSecondEdge.Rising, CITwoEdgeSeparationUnits.Seconds)
counterInReader = New CounterReader(myTask.Stream)
Dim data AsDouble = counterInReader.ReadSingleSampleDouble()
valeurdelai = data.ToString
Delai1.Text = valeurdelai
EndSub


DelegateSub quitte()
PublicSub fermeture()
Me.Dispose()
Me.Close()
EndSub
 


PrivateSub StartThread()
_threadCalculs1 = New Thread(AddressOf delais1) 
_threadCalculs1.Name = "Thread1" 
_threadCalculs1.Start() ' Démarrage du thread.
EndSub


PrivateSub quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quitter.Click
Dim fermeture1 AsNew quitte(AddressOf fermeture)
fermeture1.BeginInvoke(Nothing, Nothing)
EndSub


EndClass

21/04/2006, 12h11
NicolasG

Je vois que tu utilises NIDAQmx.
D'après le peu que j'en sais, les objets Task sont eux même des threads.
Si en plus d'avoir 5 Task, il y a 8 threads qui en créent 8 autres, ça fait beaucoup trop de threads...
21/04/2006, 12h51
abelman
Tu pourrais optimiser ta gestion des threads de calcul en ne les créant pas toi même, mais en utilisant le Pool de Thread .NET.

Cela donnerai un truc du genre
Code:

1 2 3 4 ThreadPool.QueueUserWorkItem(addressof FuncCalcul1) ThreadPool.QueueUserWorkItem(addressof FuncCalcul2) ThreadPool.QueueUserWorkItem(addressof FuncCalcul3)
21/04/2006, 13h03
grand_prophete

OK merci, je pensais justement à ça. Je vais my' atteler ;) . Sinon pour daqmx, je crois pas qu'il crée lui meme d'autre threads, parce que j'ai essayé sans les faire moi meme, et la catastrophe.
21/04/2006, 13h13
grand_prophete
Ouaip, maintenant si je mets ça
Code:

1 2 3 ThreadPool.QueueUserWorkItem(addressof delais1)
Il me dis "la methode public sub delais1() n'a pas la meme signature que le délégué delegate sub WaitCallback (state as object)"

Pardon je débute en VB.net alors ....:oops:
21/04/2006, 13h15
abelman

delais1 doit avoir cette signature

Code:

Sub delais1(State As Object)

Quelle est sa signature actuelle?
21/04/2006, 13h22
NicolasG

On peut aussi signaler que la communication inter-threads pose quelques problèmes.
En particulier

Code:

Delai1.Text = valeurdelai

risque fort de planter si c'est bien un appel d'un contrôle à partir d'un autre thread...
21/04/2006, 13h24
grand_prophete

c'était delais1() tout court.
J'ai essayé la methode de pool. Ok plus de message d'exception, de gele etc... mais mon application bloque ailleur maintenant, elle plante pas mais rien ne marche sur mon interface.
21/04/2006, 13h26
abelman

Citation:

Envoyé par NicolasG

On peut aussi signaler que la communication inter-threads pose quelques problèmes.
En particulier

Code:

Delai1.Text = valeurdelai

risque fort de planter si c'est bien un appel d'un contrôle à partir d'un autre thread...

Nico :bravo: d'avoir anticiper la question suivante :mouarf:
21/04/2006, 13h34
NicolasG

Tout ça pour dire que l'utilisation des threads doit être réservée aux cas où c'est indispensable.
Sinon, c'est aller au devant d'ennuis de mise au point.

Quand on fait de l'acquisition de donnée, on laisse faire le matériel. Il fait son travail tout seul et renvoi ses résultats en RAM avec un accès DMA.
Il suffit de le configurer correctement pour ça.

Ensuite, on peut d'aller lire les résultats périodiquement : un timer suffit.

Citation:

Envoyé par grand_prophete

c'était delais1() tout court.
J'ai essayé la methode de pool. Ok plus de message d'exception, de gele etc... mais mon application bloque ailleur maintenant, elle plante pas mais rien ne marche sur mon interface.

C'est parce que tu utilises des méthodes de controles utilisateurs (delai1.Text) dans un thread qui n'a pas crée le controle. C'est interdit dans Windows et ça peux faire freezer l'appli.

Utilise BeginInvoke pour cela

exple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 'A definir hors de la classe Delegate sub UnDelegateQueTuAsDefiniDlg(valeur as Integer, TextBox txt) 'A definir dans la classe private UnDelegateQueTuAsDefini as new UnDelegateQueTuAsDefiniDlg(addressof UpdateDelaiUI) Sub UpdateDelaiUI(valeur as String, TextBox txt) txt.Text = valeur End Sub If InvokeRequired then BeginInvoke(UnDelegateQueTuAsDefini, new Object() {ValeurDelai, DElai1 }) else DElai1.Text = valeurdelai endif

21/04/2006, 13h46
grand_prophete
ok.
Tu pourrais me donner des précisions sur ce qu'il y a entre parentheses ?
Code:

1 2 3 4 Delegate sub UnDelegateQueTuAsDefiniDlg(valeur as Integer, TextBox txt) Sub UpdateDelaiUI(valeur as String, TextBox txt)
TextBox txt est surligné en bleu (erreur quoi)
Merci

(mon dieu je commence pas la programmation parce qu'il y a de plus simple)
21/04/2006, 13h51
NicolasG

Citation:

Envoyé par grand_prophete

(mon dieu je commence pas la programmation parce qu'il y a de plus simple)

En même temps, pourquoi faire simple quand on peut faire compliqué...
21/04/2006, 13h53
grand_prophete

Parce que j'ai pas le choix. Je dois créer une interface pour la boite où je fais mon stage, c'est pas pour le plaisir, même si j'aime bien ce que je fais. J'ai essayé d'autres solution simples mais ça marche pas, les mesures de délais sont très longues, y'a plusieurs secondes entre chacunes d'entre elles, et j'en ai 8 a effectuer en permanence, plus d'autres taches qui vont arriver par la suite.Tu vois un peu mon probleme. Et c'est la premiere fois que je touche à VB.net. La prog c'est pas ce que j'ai fais le plus pendant mes études
21/04/2006, 14h01
abelman

J'ai comme un doute.

C'est quoi Delai1.Text ?? Delai1 est de quel type?
21/04/2006, 14h02
grand_prophete

delai1.text c'est juste un textbox. Oui pardon ne pas confondre les fonctions sub que j'ai appelé delais(1 à 8) et les textbox qui vont afficher ces delais).

Code:

1
2
3
Delegate sub UnDelegateQueTuAsDefiniDlg(valeur as String, txt As TextBox)
 
Sub UpdateDelaiUI(valeur as String, txt As TextBox)

ça devrait être mieux là :)

21/04/2006, 14h06
grand_prophete

ok merci

J'espere que je vais finir par m'en sortir.8-)
21/04/2006, 14h16
grand_prophete

Ducoup si tu pouvais me réecrire le bout de code avec la correction parce que la je m'embrouille un peu les pinceaux. C'est l'utilisation de "valeur" par rapport a valeurdelai qui m'embete un peu.:?

'A definir hors de la classe

Code:

Delegate sub UnDelegateQueTuAsDefiniDlg(valeur as String, txt As TextBox)

'A definir dans la classe
Code:

1 2 3 4 5 private UnDelegateQueTuAsDefini as new UnDelegateQueTuAsDefiniDlg(addressof UpdateDelaiUI) Sub UpdateDelaiUI(valeur as String, txt As TextBox ) txt.Text = valeur End Sub
'Et dans ta fonction au lieu de faire Delai1.txt = valeurDelai, fais ceci
Code:

1 2 3 4 5 If InvokeRequired then BeginInvoke(UnDelegateQueTuAsDefini, new Object() {ValeurDelai.ToString(), Delai1 }) else DElai1.Text = valeurdelai.ToString() endif

21/04/2006, 14h47
grand_prophete

Oula, ça plante mechament quand j'appelle la fonction delais1().
L'interface n'a meme pas le temps de se charger entierement
21/04/2006, 14h56
abelman

Quel message d'erreur obtiens tu ?
21/04/2006, 15h07
grand_prophete

:? Même pas eu le temps d'afficher le message.Par contre, tout a l'heure j'ai redemarer l'ordi et j'ai réesayé avec la methode ThreadPool. Et la j'ai plus de probleme de plantage. ça marche, il est un peu lent pas moment mais ça a l'air de marcher correctement maintenant. C'est bizarre parce que comme tu m'as dis
"C'est parce que tu utilises des méthodes de controles utilisateurs (delai1.Text) dans un thread qui n'a pas crée le controle. C'est interdit dans Windows et ça peux faire freezer l'appli".
Par contre j'ai un mal pas croyable à quitter l'appication, je sais pas pourquoi mais j'ai toujours eu ça des que je fais mes mesures de délai, en particulier les 8 en même temps
21/04/2006, 15h10
grand_prophete

C'est quand meme dommage le message que j'ai eu system.outofmemoryexception parce que derriere l'application continuait de tourner parfaitement, sans probleme de lenteur etc...

Mais je reste ouvert a toute solution d'optimisation
21/04/2006, 15h12
abelman

Alors plusieurs choses:

Le plantage est aléatoire lorsqu'on utilise les controles utilisateurs dans des threads. Ca peut planter de suite, comme ça peut marcher 1 an avant de planter (ça c'est du vécu :aie:), et là tu peux chercher d'où ça vient ... bon courage.
Il faut reussir à bien utiliser BeginInvoke

Sinon pour la fin de l'application, elle doit surement attendre que les threads non system en cours se termine.

Reposte ton code modifié pour voir
21/04/2006, 15h15
grand_prophete

OK je t'envoie le code avec les threadPool, mais une seule fonction de delai( histoire de simplifier)
Au passage j'ai 3 version du code, dont une avec les thread que je crée moi meme et qui provoque outofmemory et la version que tu m'a donnée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Imports NationalInstruments.DAQmx
Imports System.Threading
Imports Microsoft.VisualBasic
'Delegate Sub UnDelegateQueTuAsDefiniDlg(ByVal valeur As String, ByVal txt As TextBox)
PublicClass Form1
Inherits System.Windows.Forms.Form
Private myTask2 As Task
Private myTask4 As Task
Private myTask5 As Task
Private myDigitalReader2 As DigitalSingleChannelReader
Private myDigitalReader4 As DigitalSingleChannelReader
Private myDigitalReader5 As DigitalSingleChannelReader
Private firstEdge As CITwoEdgeSeparationFirstEdge
Private secondEdge As CITwoEdgeSeparationSecondEdge
Private myTask As Task
Private counterInReader As CounterReader
' Private UnDelegateQueTuAsDefini As New UnDelegateQueTuAsDefiniDlg(AddressOf UpdateDelaiUI)

 
PublicSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
 
blabla pas d'(interet
 
EndSub
PrivateSub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
'Connection pci dio 96 port 2
Dim readData2() AsBoolean
readData2 = myDigitalReader2.ReadSingleSampleMultiLine()
Babord.Value = readData2(6)
Tribord.Value = readData2(5)
 
blabla gestion de voyants
 

'Affichage du mode 3d ou 2d
If readData4(6) = TrueThen
Mode.Text = "3D"
ElseIf readData4(6) = FalseThen
Mode.Text = "2D"
EndIf
C1.Value = c1pret.Value
C2.Value = Not c2pret.Value
C3.Value = c3pret.Value
C4.Value = Not c4pret.Value
ThreadPool.QueueUserWorkItem(AddressOf delais1)
ThreadPool.QueueUserWorkItem(AddressOf delais2)
ThreadPool.QueueUserWorkItem(AddressOf delais3)
ThreadPool.QueueUserWorkItem(AddressOf delais4)
ThreadPool.QueueUserWorkItem(AddressOf delais5)
ThreadPool.QueueUserWorkItem(AddressOf delais6)
ThreadPool.QueueUserWorkItem(AddressOf delais7)
ThreadPool.QueueUserWorkItem(AddressOf delais8)

EndSub
'Programmation de fonction, une par délai
PublicSub delais1(ByVal state AsObject)
Dim max AsDouble = 0.3
Dim min AsDouble = 0.001
Dim valeurdelai1 AsString
myTask = New Task
myTask.CIChannels.CreateTwoEdgeSeparationChannel("Dev2/ctr2", "", min, _
max, CITwoEdgeSeparationFirstEdge.Rising, CITwoEdgeSeparationSecondEdge.Rising, CITwoEdgeSeparationUnits.Seconds)
counterInReader = New CounterReader(myTask.Stream)
Dim data AsDouble = counterInReader.ReadSingleSampleDouble()
valeurdelai1 = data.ToString
delai2.Text = valeurdelai1
EndSub
 
EndClass

21/04/2006, 15h26
grand_prophete

Je vais quand même apporter une petite précision quand même sur cette histoire de délai, on sait jamais. Il s'agit d'une mesure de délai entre le front montant d'un signal et le front montant d'un autre signal. IL y a 8 délais en tout. Mais il n'y a que 2 qui se font en même temps, les autres sont en attente, et il n'y a que 2-3 secondes environs chaque fois qu'il doit mesurer 2 delais en même temps. Et ça doit tourner des heures comme ça.

Dans la fonction delai1,

Si tu remplace

delai2.text=valeurdelai1 par
Code:

1 2 3 4 5 If InvokeRequired then BeginInvoke(UnDelegateQueTuAsDefini, new Object() {ValeurDelai1, Delai2 }) else DElai2.Text = valeurdelai1 endif
ça donne quoi ?

21/04/2006, 15h54
NicolasG

NIDAQmx propose des méthodes asynchrones qui permettent de déclencher un événement quand la mesure est terminée : CounterReader.BeginRead...() et AsyncCallback

C'est plus simple que de créer soi-même un thread pour attendre la réponse d'une méthode synchrone.

Il doit exister une méthode pour terminer les tâches en cours quand on ferme l'application (Task.Dispose ou Discard) C'est toi qui a la doc.

Ceci dit, le problème de mise à jour de l'interface graphique reste le même et le framework permet de le résoudre : Control.BeginInvoke()

J'en profite pour envoyer ma précédente version avec beginInvoke et endInvoke. Pareil, ça marche mais c'est lent. La version la plus rapide etait quand meme la premiere que j'ai postée (mis a part le message d'erreur qui m'obligeait à quitter).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Imports NationalInstruments.DAQmx
Imports System.Threading
Imports Microsoft.VisualBasic
PublicClass Form1
Inherits System.Windows.Forms.Form
Private myTask2 As Task
Private myTask4 As Task
Private myTask5 As Task
Private myDigitalReader2 As DigitalSingleChannelReader
Private myDigitalReader4 As DigitalSingleChannelReader
Private myDigitalReader5 As DigitalSingleChannelReader
Private firstEdge As CITwoEdgeSeparationFirstEdge
Private secondEdge As CITwoEdgeSeparationSecondEdge
Private myTask As Task
Private trigger1 As Task
Private counterInReader As CounterReader
Private affichage1 AsNew async(AddressOf delais1)
Private affichage2 AsNew async1(AddressOf delais2)
Private affichage3 AsNew async2(AddressOf delais3)
Private affichage4 AsNew async3(AddressOf delais4)
Private affichage5 AsNew async4(AddressOf delais5)
Private affichage6 AsNew async5(AddressOf delais6)
Private affichage7 AsNew async6(AddressOf delais7)
Private affichage8 AsNew async7(AddressOf delais8)
 
 
 
PrivateSub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
'Connection pci dio 96 port 2

'crée un délégué et affiche le delai de manière asynchrone
affichage1.BeginInvoke(AddressOf display1, Nothing)
affichage2.BeginInvoke(AddressOf display2, Nothing)
affichage3.BeginInvoke(AddressOf display3, Nothing)
affichage4.BeginInvoke(AddressOf display4, Nothing)
affichage5.BeginInvoke(AddressOf display5, Nothing)
affichage6.BeginInvoke(AddressOf display6, Nothing)
affichage7.BeginInvoke(AddressOf display7, Nothing)
affichage8.BeginInvoke(AddressOf display8, Nothing)
EndSub
DelegateFunction async()
DelegateFunction async1()
DelegateFunction async2()
DelegateFunction async3()
DelegateFunction async4()
DelegateFunction async5()
DelegateFunction async6()
DelegateFunction async7()
 
 
'Programmation de fonction, une par délai, 8 en tout
PublicFunction delais1()
Dim max AsDouble = 0.3
Dim min AsDouble = 0.001
Dim valeurdelai AsString
myTask = New Task
Dim channel AsString
myTask.CIChannels.CreateTwoEdgeSeparationChannel("Dev2/ctr0", "", min, _
max, CITwoEdgeSeparationFirstEdge.Rising, CITwoEdgeSeparationSecondEdge.Rising, CITwoEdgeSeparationUnits.Seconds)
counterInReader = New CounterReader(myTask.Stream)
Dim data AsDouble = counterInReader.ReadSingleSampleDouble()
valeurdelai = data.ToString
Return valeurdelai
EndFunction
 
 
'Programmation de fonction pour afficher les délais de manière asynchrone, 8 en tout.
PublicSub display1(ByVal ia1 As IAsyncResult)
Delai1.Text = affichage1.EndInvoke(ia1)
EndSub

Citation:

Envoyé par NicolasG

NIDAQmx propose des méthodes asynchrones qui permettent de déclencher un événement quand la mesure est terminée : CounterReader.BeginRead...() et AsyncCallback

Je ne connais pas cette librairy mais absolument d'accord avec NicolaG. :ccool:

Sinon pour ton dernier code, tu t'en mêles les pinceaux je pense.

Essaye ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Imports NationalInstruments.DAQmx
Imports System.Threading
Imports Microsoft.VisualBasic
Delegate Sub UnDelegateQueTuAsDefiniDlg(ByVal valeur As String, ByVal txt As TextBox)
PublicClass Form1
Inherits System.Windows.Forms.Form
Private myTask2 As Task
Private myTask4 As Task
Private myTask5 As Task
Private myDigitalReader2 As DigitalSingleChannelReader
Private myDigitalReader4 As DigitalSingleChannelReader
Private myDigitalReader5 As DigitalSingleChannelReader
Private firstEdge As CITwoEdgeSeparationFirstEdge
Private secondEdge As CITwoEdgeSeparationSecondEdge
Private myTask As Task
Private counterInReader As CounterReader
Private UnDelegateQueTuAsDefini As New UnDelegateQueTuAsDefiniDlg(AddressOf UpdateDelaiUI)
 
 
PublicSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
 
blabla pas d'(interet
 
EndSub
PrivateSub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
'Connection pci dio 96 port 2
Dim readData2() AsBoolean
readData2 = myDigitalReader2.ReadSingleSampleMultiLine()
Babord.Value = readData2(6)
Tribord.Value = readData2(5)
 
blabla gestion de voyants
 
 
'Affichage du mode 3d ou 2d
If readData4(6) = TrueThen
Mode.Text = "3D"
ElseIf readData4(6) = FalseThen
Mode.Text = "2D"
EndIf
C1.Value = c1pret.Value
C2.Value = Not c2pret.Value
C3.Value = c3pret.Value
C4.Value = Not c4pret.Value
ThreadPool.QueueUserWorkItem(AddressOf delais1)
ThreadPool.QueueUserWorkItem(AddressOf delais2)
ThreadPool.QueueUserWorkItem(AddressOf delais3)
ThreadPool.QueueUserWorkItem(AddressOf delais4)
ThreadPool.QueueUserWorkItem(AddressOf delais5)
ThreadPool.QueueUserWorkItem(AddressOf delais6)
ThreadPool.QueueUserWorkItem(AddressOf delais7)
ThreadPool.QueueUserWorkItem(AddressOf delais8)
 
EndSub
'Programmation de fonction, une par délai
PublicSub delais1(ByVal state AsObject)
Dim max AsDouble = 0.3
Dim min AsDouble = 0.001
Dim valeurdelai1 AsString
myTask = New Task
myTask.CIChannels.CreateTwoEdgeSeparationChannel("Dev2/ctr2", "", min, _
max, CITwoEdgeSeparationFirstEdge.Rising, CITwoEdgeSeparationSecondEdge.Rising, CITwoEdgeSeparationUnits.Seconds)
counterInReader = New CounterReader(myTask.Stream)
Dim data AsDouble = counterInReader.ReadSingleSampleDouble()
valeurdelai1 = data.ToString
If InvokeRequired then
    BeginInvoke(UnDelegateQueTuAsDefini, new Object() {ValeurDelai1, Delai2 })
else
   Delai2.Text = valeurdelai1
endif
EndSub
 
Sub UpdateDelaiUI(valeur as String, txt As TextBox )
    txt.Text = valeur
End Sub
 
EndClass