Discussion :

[kevindeta]

Bijour, alors voila avec mon ami google je cherche des explication ou un tuto sur les thread sous vb.net pour pour voir gérer mon programme durant sa boucle infini sans le gelé, alors la vous allez me dire :

DISCUSSION DEJA DISCUTER !!! = ) oé oé c'est bien mais la fonction recherche de ce site est trop vague, ou non pire vraiment trop vague ^^

bref si vous povez me filer un lien vers un tuto ou mieux encore ce serais cool

Pour résumé je veux pouvoir appuyer sur un bouton de mon application pendant une boucle infini et pouvoir l'arrèter ! ? !

merci d'avance

[hunteshiva]

bah tu passe par une variable Boolean
(initialisée a False par exemple)

elle passe a True lorsque tu clique sur ton bouton
et dans ta boucle infinie, tu la teste a chaque fois
et si elle est a True
tu fait un Exit Sub

Non?

[kevindeta]

oui mais mon application géle on plus plus rien faire et le Doevents permet juste de se déplacer mais je e trouve pas sa propre, c'est pour cela que j'ai besoin du thread pour une boucle infini si quelqu'un a un exemple ?

[hunteshiva]

ah ok ...
bah la je suis pas très calé dans ce genre de choses * notamment les thread*

dsl,

[Pol63]

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
17
18
private _stop as boolean
 
private sub une_sub
  dim t as new system.threading.thread(adressof masub)
  t.isbackground = true 
  t.start
end sub
 
private sub masub
  while _stop = false
     'traitement
     system.threading.thread.sleep(100) ' permet de pas bouffer trop de ressources si les choses à faire ne sont pas totalement continues
  end while
end sub
 
private sub buttonclick handles boutonarret.click
  _stop = true
end sub

isbackground à true permet qu'en cas d'arret du thread créateur, ce thread sera interrompu (sinon l'appli reste dans le gestionnaire des taches car encore en cours)


NB : depuis un thread autre que le principal, il est interdit de modifier l'interface graphique, pour ca il faut utiliser des délégués
(ou voir le backgroundworker qui encapsule tout ce qu'il faut pour faire du multithreading simple)

[kevindeta]

OK merci beacoup sa ma l'air compréhensible

jva tester sa et vous dire si sa fonctionne, et oui j'ai vaguement entendu parler du backgroudworker, sa peut aider aussi ^^

[kevindeta]

j'ai encore des problèmes de freeze avec ton code :

Private _stop As Boolean

Private Sub une_sub()
Dim t As New System.Threading.Thread(AddressOf masub)
t.isbackground = True
t.start()
End Sub

Private Sub masub()
While _stop = False


My.Computer.Keyboard.SendKeys("F1") 'Simuler la pression sur la touche F1

System.Threading.Thread.Sleep(100) ' permet de pas bouffer trop de ressources si les choses à faire ne sont pas totalement continues
End While
End Sub

Private Sub buttonclick() Handles boutonarret.click
_stop = True
End Sub

le simulation de l'appui sur le bouton géle le prog !

[Pol63]

fait voir ton code réel

et puis si c'est pour faire F1 retire la boucle infinie sinon tu envoies des millions d'appuie F1 à la seconde

[kevindeta]

je pige pas comment répété mon apui sur F1 si j'ai plus de boucle infini

et j'ai remplacé mon code "réel" par le tien , cela revenait au même , mais en mieux ^^

[Pol63]

sauf que les noms des sub sont pas cool et qu'on voit pas l'appel du démarrage du thread

qu'est-ce que tu veux faire avec la touche F1 ?
parce qu'un sendkeys dans une boucle avec un sleep de 100ms fait c'est comme si tu appuyais 10x sur F1 par seconde ...

[kevindeta]

l'appel de une_sub se fait plus haut dans un bouton click .


En vrai je voudrais que la touche F1 soit appuzer une fois toute les 5 secondes et tout le temps jusqua l'apui d'un bouton Stop ! et voila

mais sa freeeeeeze !

[Pol63]

chez moi ca freeze pas (testé avec sleep de 5000)

[kevindeta]

j'ai encore quelque problèmes de freeze moi mais de plus je suis tombé sur
une erreur que je sentait venir :

on ne peux pas utiliser

My.Computer.Keyboard.SendKeys("F1") dans le thread

comment faire ?


sinon esceque c'est correct ?

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
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
Imports System.Runtime.InteropServices
Public Class Form1
 
    Public Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
 
    End Function
 
    Dim X As String
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
   Public Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        une_sub()
    End Sub
 
   'méthode a ignorer sa sert a afficher une executable dans ma form lors d'un clic
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p As Process
        p = Process.Start("C:\monapplication.exe")
        p.WaitForInputIdle()
        SetParent(p.MainWindowHandle, Me.Handle)
        SetWindowPos(p.MainWindowHandle, IntPtr.Zero, 0, 0, 0, 0, 0)
    End Sub
 
 
    Private _stop As Boolean
 
    Private Sub une_sub()
        Dim t As New System.Threading.Thread(AddressOf masub)
        t.isbackground = True
        t.start()
    End Sub
 
    Private Sub masub()
        While _stop = False
            F1sub() ' j'ai essayer sa mai il aime pas le visual^^
            System.Threading.Thread.Sleep(5000) ' permet de pas bouffer trop de ressources si les choses à faire ne sont pas totalement continues
        End While
    End Sub
 
    Private Sub buttonclick() Handles boutonarret.Click
        _stop = True
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        masub()
    End Sub
    Public Sub F1sub()
        My.Computer.Keyboard.SendKeys("F1") 'Simuler la pression sur la touche F1
    End Sub
 
 
 
End Class

[kevindeta]

nan c'est bon je suis passé par un timer c'est plus simple :

bouton1 --> declenche le timer

méthode X --> dés que le timer est fini on apelle la simmulation du clavier F1
puis on rédémarre le timer.

bouton 2 --> stop le timer


sa marche du tonnerre !