Discussion :

[ernie74]

Bonjour,

Je suis à la recherche de documentation ou d'explication sur le partage des sémaphores entre le formulaire et des threads lancés par le formulaire, programmation VB sous visual studio. Car j'ai bien réussi à les implémenter mais leurs fonctionnement me laisse sans voix (muet) et sans voie (à explorer) et sans imagination pour une solution!!

Le formulaire principal lance quatre threads ainsi définis:

Code :

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

1
2
3
4
5
6
7
8
    Private Sub thread_zero()
        Dim extraire_0 As New clsThread(liste_isin_ASCII(0), Me)
        Dim lire_les_cours_0 As New Thread(AddressOf extraire_0.cotation)
 
        lire_les_cours_0.IsBackground = True
        lire_les_cours_0.Start(liste_isin_ASCII(0))
        If lire_les_cours_0.IsAlive Then thread_0.BackColor = Color.Green
    End Sub

pour collecter des pages sur le net. Quand chacun d'eux a reçu une des pages qui lui est demandée, il la décode pour extraire l'information utile, met à jour une base de donnée, puis envoie un message à une sub du formulaire principal pour la suite des travaux

retour du thread vers le principal tel que décarée dans la classe clsThreadl:

Code :

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

1
2
3
    Public Sub New(ByVal message As Object, ByRef MainWindow As Portefeuille)
        mise_a_jour_des_portefeuilles = AddressOf MainWindow.mise_a_jour_des_portefeuilles
    End Sub

Comment déclarer un sémaphore dans le formulaire principal et dans la classe du thread pour gérer les ressources exclusives du formulaire principal??


Merci de vos tuyaux et n'hésitez pas à demander un peu plus de clarté!
Visisblement si ce n'est pas clair c'est que quelque chose m'échappe::

Merci et à +

[ernie74]

Cette fois ci je n'oublierai pas les balises, désolé.

En réalité je me suis pris les pieds dans le tapis!
Voici la déclaration dans le formulaire principal qui détient la ressource à accés controlé, dans mon cas accés unique:

Public Class Portefeuille
Public Shared semaphore_acces As New Semaphore(1, 1, "Acces_MAJ")

puis dans les threads qui doivent procéder aux mises à jour;

Public Class clsThread
Public Shared semaphore_acces As New Semaphore(1, 1, "Acces_MAJ")

j'ai bien un accés unique à la ressource protégée et une mise en attente de libération de la ressource protégée pour les autres demandes;

Si je commets une erreur d'analyse, merci de vos commentaires.