UN SIMPLE PROGRAMME MULTI-THREAD
SATANdemon
Messages postés
44
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
30 novembre 2005
-
6 janv. 2003 à 07:54
Philippe734 Messages postés 308 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 15 juin 2015 - 25 mai 2010 à 22:39
Philippe734 Messages postés 308 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 15 juin 2015 - 25 mai 2010 à 22:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5590-un-simple-programme-multi-thread
https://codes-sources.commentcamarche.net/source/5590-un-simple-programme-multi-thread
25 mai 2010 à 22:39
25 mai 2010 à 22:32
tout d'abord merci pour votre travail à ce sujet. Il y a par contre quelques zones d'ombre que je souhaiterai éclaircir avec vous.
Je vous expose ma problématique : j'ai un base Access effectuant des traitements assez lourds. Je souhaiterai offrir à l'utilisateur la possibilité d'effectuer certains travaux en tache de fond. Par ex, je sais qu'il utilise cette base pour faire des contrôles de cohérence. Ceux-ci sont en 4 étapes. Je souhaiterai donc, pendant qu'il contrôle l'étape 1, lancer l'étape 2 en tache de fond puis l'étape 3, etc ... Le but étant qu'il ne soit quasiment jamais bloqué. Le hic est que vous dites dans votre exemple ci-dessus qu'il faut mettre les autres événements en stand by le temps que le thread finisse son travail. Je retombe donc sur le meme problème qu'avant donc non ?
Merci d'avance pour votre réponse !!!
Patrice
8 mai 2010 à 11:58
http://www.vbfrance.com/codes/DEMO-MULTITHREADING-PRISE-CHARGE-CPU-MULTI-CORE-AVEC_51734.aspx
1 mai 2010 à 17:51
1 mai 2010 à 16:11
Par exemple, si dans le programme, il y a un bouton About affichant une form :
Private Sub cmdAbout_Click()
'aucune action si une thread est en cours
If ThreadEnCours = True Then Exit Sub
Load frmAbout
frmAbout.Show
End sub
1 mai 2010 à 16:06
Dans un autre module, appelons-le modGestionThreading, mettre trois property avec ses variables locales pour gérer le statut des threads
'----------------------------------------------
'dans les déclarations du module modGestionThreading :
Private m_bFinThread As Boolean
Private m_bThreadEnCours As Boolean
'dans le code du module modGestionThreading :
Public Property Get FinThread() As Boolean
FinThread = m_bFinThread
End Property
Public Property Let FinThread(ByVal bFinThread As Boolean)
m_bFinThread = bFinThread
End Property
Public Property Get ThreadEnCours() As Boolean
ThreadEnCours = m_bThreadEnCours
End Property
Public Property Let ThreadEnCours(ByVal bThreadEnCours As Boolean)
m_bThreadEnCours = bThreadEnCours
End Property
'---------------------------------------
'dans le code de l'exemple de la source :
Sub Main()
If ThreadEnCours = False Then
'on signale qu'il y a une thread en cours
ThreadEnCours = True
'initialise l'indicateur de fin de thread
FinThread = False
'crée la thread
SHCreateThread AddressOf ShowMsgBox, ByVal 0&, CTF_INSIST, ByVal 0&
'attend que la thread soit terminée
Do Until FinThread = True
DoEvents
Loop
'attend un peu que les threads soit bien terminées
Dim DebutTimer As Long
DebutTimer = Timer
Do Until (Timer - DebutTimer) >= 2 'secondes
DoEvents
Loop
'signale la fin de l'exécution des threads
ThreadEnCours = False
End If
End sub
'-----------------------------
'dans le code de la thread de la source, on ajoute la variable signalant la fin d'une thread : FinThread
Sub ShowMsgBox()
nb_t = nb_t + 1
MsgBox("Mstgbox exécuté depuis la thread n°" & nb_t, vbInformation)
FinThread = True
End Sub
Et dans le reste du programme, afin de réduire les risques de crash, il faut désactiver tout les évènements tant que la thread n'est pas terminée. Pour simplifier, le programme ne doit rien faire d'autre que la boucle Do Until FinThread = True: DoEvents: Loop
Si on veux exécuter plusieurs threads en meme temps comme dans l'exemple, alors faut modifier le test de la variable FinThread en conséquence évidemment.
En résumé, c'est contraignant, mais ca fonctionne sans crash dans vb6 sp6 et c'est reproductible. De plus, il faut compiler le programme en P-code car il réduit les risques d'instabilités. Enfin, dans la ligne "créer la thread", il faut optimiser son code afin qu'il ne s'agit que d'une sub et pas d'une function.
21 mars 2009 à 22:21
L'instruction à "blablabla" emploie l'adresse mémoire "blablabla". La mémoire ne peut pas être "read" Cliquez Ok pour terminer le programme...
10 mars 2009 à 01:53
Dim perList() As New Collection
...
While nbThread > 0
SHCreateThread AddressOf FN_CFWT(perList), ByVal 0&, CTF_INSIST, ByVal 0&
nbThread = nbThread - 1
Wend
Je suis obligé de rendre mon perList déclaré en public ?
10 mars 2009 à 01:48
Le debug du AddressOf c'est pas facile... enfin on y peut rien.
J'ai une question plus importante.
Si je souhaite faire transiter une collection, comment je fait ???
exemple qui passe pas ^^:
Dim FN_CFWT() as New Collection
...
While nbThread > 0
SHCreateThread AddressOf FN_CFWT(nbThread), ByVal 0&, CTF_INSIST, ByVal 0&
nbThread = nbThread - 1
Wend
9 nov. 2008 à 11:27
je cherche la fonction qui me permet de mettre en attente des threads (la fonction wait en java). je cherche sa correspondance en C++builder6.
merci de votre aide
23 août 2008 à 15:24
9 août 2008 à 09:09
Sinon simple source et parfaite ! 10/10!!
Tien, je peu aller juska combien de fois avec ca :
For i = 1 To 50
SHCreateThread AddressOf ShowMsgBox, ByVal 0&, CTF_INSIST, ByVal 0&
next i
C'est fesable x') ?
31 août 2007 à 11:01
j'était persuader qu'on ne pouvez pas faire de thread en VB6
27 août 2005 à 02:03
Mais plus d'explications sur la création de thread please !
26 mars 2004 à 17:02
code rapide, relativement simple,
et qui fonctionne très bien
10/10
:)
7 juil. 2003 à 17:04
voila je suis en train de faire une appli de client FTP
et dedans g un systeme de recherche recursif. qui est assez lourd
donc je voulais le mettre ds un thread mais je c pas men servir donc g pris ta src mais
le truc c ke je dois passer un param a la fonction a mettre en thread, donc saurait comment je px faire STP ?
MErci par avance pour ta réponse :)
6 janv. 2003 à 09:03
un thread c un "processus leger" (c comme ca qu'on traduit).. en fait t'as la notion d'appartement qui vient en plus, c assez compliqué pour ne pas être expliqué en 2lignes, juste à retenir que VB est nul ds la gestion des threads, et que C++ y excelle... sinon ca sert surtout quand un composant est appelé simultanément par plusieurs "clients" .... c du gros resumé car c compliqué ;)
6 janv. 2003 à 07:54
moi et l'anglais on fait 5 si tu voit ce que je veut dire ;)
mais sinon je pense que ca pourra me servir un de ces jour :)