Discussion :

[gastoncs]

Bonsoir,

j'ai une procédure qui prends plusieurs paramètres et qui est placé dans une boucle à l'ouverture de ma fenêtre :

Code :

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

1
2
3
4
 
 For index As Integer = 1 To 70 'on part pour 70 lectures de quoi tenir 15 minutes environ
                synthetise_depart("entrée depuis")
            Next

et dans cette procédure j'ai une variable déclaré public, qui fluctue constamment : nbr_agents:

Code :

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

1
2
3
4
5
6
7
Private Sub synthetise_depart_ticket(ByVal nature As String)
        '================================================================
        'Debut de l'annonce sonore
        '================================================================
        parole2.SelectVoice("Microsoft Hortense Desktop") 
        parole2.SpeakAsync(nature & " " & nbr_agents )
    End Sub

Problème c'est que la valeur public qui fluctue, ne bouge pas dans l'annonce sonore de ma procédure, c'est toujours la valeur qui était présente à l'instant ou rentre dans la boucle, et c'est ainsi la même tout le temps d’exécution de la boucle !
Donc je me demandais quel solution possible ?
j'ai essayé aussi de passé nbr_agents en paramétre de ma procédure, mais c'est le même résultat !

[Invité]

Bonsoir,
Le variables passé en paramètre sont toujours préfixées par une instruction qui défini sa méthode utilisation.

ByVal et ByRef. Byval veux dire que la valable est passé par recopie de valeur? Ça permet de retravailler la variable dans le corps de la procédure sens modifier la valeur de la variable passé en amont de procédure.

Byref la variable est passe par références? Cela veut dire que la variable garde un références à la varible en amont de la procédure. Donc si je modifie la valeur de la variable dans le corps de la procédure je modifie la valeur de la variable en amont.

[gastoncs]

Je te remercie pour l'info.
Mais dans mon cas, il s'agit d'une fonction qui synthétise la voix avec .Speech et donc j'ai modifier la variable public, celle qui sera annoncé sera celle affecté au moment ou le passage se fait dans la boucle ! je ne sais pas si c'est clair

[wallace1]

Bonsoir,

Si tu veux que ta variable nbr_agents change de valeur alors il faut faire en sorte qu'à chaque passage dans ta boucle cette variable soit incrémentée !
Il faudrait juste savoir quel est le type retournée de cette variable nbr_agents et à quoi elle corresponds car si c'est une variable qui doit exprimer un laps de temps alors nous ne te proposerons pas la même solution que si c'est une variable qui définie un nombre d'agents (comme son nom pourrait le laisser penser) !!!

Et pour l'amour de dieu (encore ne fois) postes l'intégralité de ton problème pour qu'on appréhende mieux ton raisonnement ! Cette fameuse variable elle est placée ou par rapport au reste, m'enfin qqch de complet en somme !

A+

[gastoncs]

oui excuse moi je ne suis pas assez claire, donc voici le code que je vais essayé d'explique le mieux possible :

Tous d'abord la variable nbr_agents que voici :

Code :

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

Public nbr_agents As String = "inconnu"

cet variable est traité et incrémenté ou pas, dans un 'delegate' qui s’exécute toutes les 5 secondes. (je passe le code car trop long) mais à un moment j'ai donc ceci :

Code :

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

1
2
            'on copie le nombre de personnes disponible dans la variable public pour la lecture vocale
            nbr_agents = sp_dispo_du_centre.ToString

ensuite donc le problème ce situe maintenant. j'ai ma fenêtre qui s'ouvre automatiquement sous certaines conditions et qui exécute la boucle :

Code :

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

1
2
3
For index As Integer = 1 To 70 'on part pour 70 lectures de quoi tenir 15 minutes environ
                synthetise_depart("entrée depuis", nbr_agents)
            Next

et donc la procédure Synthetise_depart qui prend en référence la variable public :

Code :

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

1
2
3
4
5
6
7
Private Sub synthetise_depart(ByVal nature As String, ByRef nombres as string)
        '================================================================
        'Debut de l'annonce sonore
        '================================================================
        parole2.SelectVoice("Microsoft Hortense Desktop") 
        parole2.SpeakAsync(nature & " " & nombres )
    End Sub

voila j’espère avoir était clair !

[wallace1]

Code :

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

1
2
'on copie le nombre de personnes disponible dans la variable public pour la lecture vocale
            nbr_agents = sp_dispo_du_centre.ToString

A quel endroit est placé cette instruction ???

Tu n as toujours pas dis ce que tu stock dans cette variable (soit disant incrémentée) : des noms de personnes qui proviennent d un tableau, d une list (of string), ......???
Car si c un nombre il faudrait serieusement songer a revoir son type et sa valeur lors de l initialisation ("inconnu" n est pas du tout adaptè !!)

[wallace1]

bref on va pas tourner autour du pot :

1- tu modifies le type de ta variable en integer
2- tu initialises cette variable a 0 par exemple
2- tu incrementes la variable dans ta boucle ou ton timer :

ex pour ta boucle mais ca veut dire qu elle sera incrementé 70 x donc a adapter selon ton timer je pense !

Code :

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

1
2
3
4
For index As Integer = 1 To 70 'on part pour 70 lectures de quoi tenir 15 minutes environ
nbr_agents += 1
                synthetise_depart("entrée depuis", nbr_agents)
            Next

[gastoncs]

oui c'est un nombre, voici le code complet :

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
57
58
59
60
61
62
63
64
65
66
67
'##################################################################
    '## avec le delegate on affiche dans le bouton disponiblite de main le nombre de sp dispo
    '
    'reste à rajouter la gestion des exceptions
    '##################################################################
    Public Sub nbr_sp_dispo()
        Try
            'on recupére le nom des fichiers dans le dossier presence
            '==================================================================
            Dim Dirlist As New List(Of String) 'list contenant le nom des fichiers 
            Dim request As FtpWebRequest = DirectCast(WebRequest.Create(hote_presence_ftp), FtpWebRequest)
            'on se connecte en ftp
            request.Method = WebRequestMethods.Ftp.ListDirectory
            request.Credentials = New NetworkCredential(identifiant_ftp, passe_ftp)
 
            Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
            Dim responseStream As Stream = response.GetResponseStream
 
            Using reader As New StreamReader(responseStream)
                Do While reader.Peek <> -1
                    Dirlist.Add(reader.ReadLine)
                Loop
            End Using
            response.Close()
            '==================================================================
            Dirlist.RemoveRange(0, 2)  'supprime les deux premiers elements car c'est les racines dossier
 
            Dim sp_total_du_centre As Integer = 0 'nbre de sp au total du centre passé en paramétres
            Dim sp_dispo_du_centre As Integer = 0 'nbre de sp disponible du centre passé en paramétres
            Dim client As WebClient = New WebClient
            Dim SPlist As New List(Of String) 'list contenant toutes les personnes
            'on parcours la list qui contient les nom.txt du dossier presence
            For Each fichier_texte As String In Dirlist
                'on met chaque ligne des fichiers texte dans SPlist
                SPlist.Add(client.DownloadString(url_presence & fichier_texte))
            Next
            'on parcours la list : SPlist recupéré pour savoir de quel centre il sont et si il sont dispo
            For Each personne As String In SPlist
                If personne.Contains(nom_caserne) Then
                    sp_total_du_centre += 1 'incrémente le nbr de sp de la caserne de l'application
                    If personne.Contains("disponible") Then
                        sp_dispo_du_centre += 1 'incrémente le nbr de sp disponible
                    End If
                End If
            Next
            'on affiche le tout sur le bouton de la page principale
            Dim retour As String = sp_dispo_du_centre & "/" & sp_total_du_centre & " disponible"
            Frm_main.Button2.Enabled = True
            If sp_dispo_du_centre = 0 Or sp_dispo_du_centre = 1 Then
                Frm_main.Button2.BackColor = Color.Red
                Frm_main.Button2.ForeColor = Color.White
            Else
                Frm_main.Button2.BackColor = SystemColors.Control
                Frm_main.Button2.ForeColor = SystemColors.ControlText
            End If
            Frm_main.Button2.Text = retour.ToString 'on affiche le resultat dans le bouton de la page principale
            'on copie la liste de sp dans une list public pour y acceder dans disponibilite.vb
            listDispo = New List(Of String)(SPlist)
            'on copie le nombre de sp disponible dans la variable public pour la lecture vocale
            nbr_agents = sp_dispo_du_centre.ToString
        Catch
            Frm_main.Button2.Enabled = False
            Frm_main.Button2.Text = "Perte réseau"
            Frm_main.Button2.BackColor = SystemColors.Control
            Frm_main.Button2.ForeColor = SystemColors.ControlText
        End Try
    End Sub

En gros on parcours dans un dossier distant les fichiers texte présent dans un dossier, qui corresponde au nom et a la première lettre du prénom de la personne a l'intérieur de chaque fichier texte on a le prénom le nom ainsi que sont statut (disponible ou absent) ainsi que sa ville d'appartenance.
on incrémente la variable sp_total_du_centre pour le nombre de personnes de chaque centre et on incrémente sp_dispo_du_centre pour les personnes qui ont le statut disponible.
Enfin on affiche le nombre dans un bouton auquel on lui ajoute une couleur d’après le nombre, et enfin on copie le nombre de sp disponible dans la variable public nbr_agents

[clementmarcotte]

Bonjour,

Je me trompe peut-être, (si c'est cela, n'hésitez pas à corriger), mais cela me semble plus simple de faire une DataTable avec le nom, le prénom et le statut (disponible ou pas), et la Caserne si tu en as vraiment besoin au lieu d'une série de listes.

Une série de boucles imbriquées pour remplir la table et Bingo !

Ensuite, tu interroges la DataTable et tu choisis la portion des données dont tu as besoin. Tu interroges "un endroit central" au lieu de te promener au travers de je ne sais pas trop combien de listes que tu modifies à tout bout de champ.