Discussion :

[hehehe]

bonjour

je n'ai pas l'habitude de travailler avec visual basic .net 2005.

Voila ce que j'ai:

j'ai une procédure qui lance une lecture rfid qui fonctionne.

voila ce que je voudrais faire:
Je voudrais avoir un bouton qui lance cette procédure x fois
jusqu'à ce que l'utilisateur cliquer sur un bouton STOP.

Bien sur l'appli ne doit pas resté figée.

Comment je fais ca en vb.net ?

des pistes à me donner ?

merci

[hehehe]

je cherche, je cherche

voila ce que j'ai trouvé.
Ca fonctionne un peu comme je veux mais je suis obligé dans ce cas de borner.
Je voudrais pouvoir arreter la boucle (la faire tourner qd que TRUE) depuis une action extérieure.
comment je peux faire ?

merci

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
Imports System.Threading
 
Public Sub VotreRoutine()
 
Dim i As Integer
 
         For i=0 To 1000
 
                 System.Threading.Thread.Sleep(1000) 'pause en milliseconde
 
                 Application.DoEvents ' pas oublier surtout
 
                 'votre code normal
 
         Next i

[hehehe]

bon
j'avance j'avance


j'ai déclaré une variable

Code :

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

shared bStop as integer

que j'initialise à False

puis dans mon bouton de lancement j'ai:

Code :

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

1
2
3
4
5
6
7
8
do while bstop = false
                 System.Threading.Thread.Sleep(1000) 'pause en milliseconde
 
                 Application.DoEvents ' pas oublier surtout
 
                 'votre code normal
 
loop

et dans mon bouton stop,
un simple bstop = true

ca fonctionne.
mais est ce propre ?
est ce comme ca que vous l'auriez traité ?

merci de votre retour

[charouel]

Tu doit travaillé avec le BackgroundWorker

[hehehe]

je ne connaissais pas. merci de la piste
alors si je comprends:

je colle l'objet en question sur mon formulaire.

puis je crée une procédure:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub backgroundWorker1_DoWork( _
ByVal sender As Object, _
ByVal e As DoWorkEventArgs) _
Handles backgroundWorker1.DoWork
 
    ' Get the BackgroundWorker object that raised this event.
    Dim worker As BackgroundWorker = _
        CType(sender, BackgroundWorker)
 
' montraitement qui boucle
 
End Sub 'backgroundWorker1_DoWork

je l'execute donc sur le click de mon bouton 'Lancer'
avec :
RunWorkerAsync

mais comment je l'arrete ce traitement (bouton stop) ?

[charouel]

tu utilise ca pour stopper

Code :

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

1
2
3
Private Sub BackgroundWorker1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles BackgroundWorker1.Disposed
 
    End Sub

[hehehe]

ok, merci c'est tout bon!