Comment stocker les valeurs de variables

Version imprimable

Bonjour. Il y a deux choses que j'aimerais savoir.
1] J'aimerai pouvoir créer un moyen de stocker des informations (valeur de variables) pour m'éviter de retaper le code à chaque fois. J'ai essayé dans une fonction mais je ne sais pas comment récupérer des informations dans une fonction et non donner les informations à la fonction. Voici mon code, vous allez comprendre par vous même:

Code:

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
Public Function stats(ByRef att As Integer, ByRef def As Integer, ByRef pv As Integer)
        'Définition de la vie actuelle.
        Dim reader As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\pv.txt")
        Dim vie = reader.ReadLine
        pv = vie
        reader.Close()
        'Définition des points d'attaque
        Dim effetattaquetete As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquetete.txt")
        Dim effetattaquet = effetattaquetete.ReadToEnd
        effetattaquetete.Close()
        Dim effetattaquecape As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquecape.txt")
        Dim effetcape = effetattaquecape.ReadToEnd
        effetattaquecape.Close()
        Dim effetattaquecuirasse As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquecuirasse.txt")
        Dim effetattaquec = effetattaquecuirasse.ReadToEnd
        effetattaquecuirasse.Close()
        Dim effetattaquearme As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquearme.txt")
        Dim effetattaquea = effetattaquearme.ReadToEnd
        effetattaquearme.Close()
        Dim dommage As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\attaque.txt")
        Dim attaque = dommage.ReadToEnd
        att = CDbl(attaque) + CDbl(effetattaquet) + CDbl(effetcape) + CDbl(effetattaquec) + CDbl(effetattaquea)
        dommage.Close()
        'Définition des points de défense.
        Dim effetdefensetete As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensetete.txt")
        Dim effetdefenset = effetdefensetete.ReadToEnd
        effetdefensetete.Close()
        Dim effetdefensecape As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensecape.txt")
        Dim effetdcape = effetdefensecape.ReadToEnd
        effetdefensecape.Close()
        Dim effetdefensecuirasse As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensecuirasse.txt")
        Dim effetdefensec = effetdefensecuirasse.ReadToEnd
        effetdefensecuirasse.Close()
        Dim effetdefensearme As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensearme.txt")
        Dim effetdefensea = effetdefensearme.ReadToEnd
        effetdefensearme.Close()
        Dim defense As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\defense.txt")
        Dim pd = defense.ReadToEnd
        def = CDbl(pd) + CDbl(effetdefenset) + CDbl(effetdcape) + CDbl(effetdefensec) + CDbl(effetdefensea)
        defense.Close()

Comme vous pouvez le voir, je définis dans la fonction la valeur de :
-att
-def
-pv
Mais comment récupérer leur valeur et non la donner lorsqu'on fait appelle à la fonction?

2] Sinon, est-il possible de stocker cette fonction (et d'autres) dans une application extérieur et ainsi faire en sorte qu'on puisse faire appelle à cette "bibliothèque de fonction" depuis une autre application?

Merci d'avance.
Cordialement.

Salut moi je ferais comme ca

Code:

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
Public Function stats()
dim rep as string
      dim att  as integer
dim def as integer
dim pv as integer
  'Définition de la vie actuelle.
        Dim reader As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\pv.txt")
        Dim vie = reader.ReadLine
        pv = vie
        reader.Close()
        'Définition des points d'attaque
        Dim effetattaquetete As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquetete.txt")
        Dim effetattaquet = effetattaquetete.ReadToEnd
        effetattaquetete.Close()
        Dim effetattaquecape As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquecape.txt")
        Dim effetcape = effetattaquecape.ReadToEnd
        effetattaquecape.Close()
        Dim effetattaquecuirasse As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquecuirasse.txt")
        Dim effetattaquec = effetattaquecuirasse.ReadToEnd
        effetattaquecuirasse.Close()
        Dim effetattaquearme As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquearme.txt")
        Dim effetattaquea = effetattaquearme.ReadToEnd
        effetattaquearme.Close()
        Dim dommage As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\attaque.txt")
        Dim attaque = dommage.ReadToEnd
        att = CDbl(attaque) + CDbl(effetattaquet) + CDbl(effetcape) + CDbl(effetattaquec) + CDbl(effetattaquea)
        dommage.Close()
        'Définition des points de défense.
        Dim effetdefensetete As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensetete.txt")
        Dim effetdefenset = effetdefensetete.ReadToEnd
        effetdefensetete.Close()
        Dim effetdefensecape As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensecape.txt")
        Dim effetdcape = effetdefensecape.ReadToEnd
        effetdefensecape.Close()
        Dim effetdefensecuirasse As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensecuirasse.txt")
        Dim effetdefensec = effetdefensecuirasse.ReadToEnd
        effetdefensecuirasse.Close()
        Dim effetdefensearme As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensearme.txt")
        Dim effetdefensea = effetdefensearme.ReadToEnd
        effetdefensearme.Close()
        Dim defense As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\defense.txt")
        Dim pd = defense.ReadToEnd
        def = CDbl(pd) + CDbl(effetdefenset) + CDbl(effetdcape) + CDbl(effetdefensec) + CDbl(effetdefensea)
        defense.Close()
rep = att & ";" & def & ";" pv
 
return rep
end fonction
 
Dim mes_stats as string
dim attaque as integer
dim poivie as integer
dim defense as integer
mes_stats = stats
attaque = cint(split(mes_stats,";")(0))
poivie = cint(split(mes_stats,";")(2))
defense = cint(split(mes_stats,";")(1))

Merci beaucoup mais à quoi sert la dernière partie de ton code?
Code:

1 2 3 attaque = cint(split(mes_stats,";")(0)) poivie = cint(split(mes_stats,";")(2)) defense = cint(split(mes_stats,";")(1))

Bonjour,

Les paramètres étant en "ByRef" les modifications apportées dans le code de la fonction seront transmises vers le code principal.

Code:

1
2
3
4
5
6
7
        Dim Attaque As Integer
        Dim Defense As Integer
        Dim PointVie As Integer
        stats(Attaque, Defense, PointVie) 
        MsgBox(Attaque)
        MsgBox(Defense)
        MsgBox(PointVie)

Par contre il est préférable de typer les functions (sinon utiliser une sub)
par exemple pour savoir s'il y a eu une erreur

Code:

1
2
3
4
5
6
7
8
9
    Public Function stats(ByRef att As Integer, ByRef def As Integer, ByRef pv As Integer) As Integer
        Try
            'ton code
            ' ...
            Return 0
        Catch ex As Exception
            Return 1
        End Try
    End Function

tu peux ensuite l'utiliser ainsi

Code:

1
2
3
4
5
6
7
8
9
10
11
 
        Dim Attaque As Integer
        Dim Defense As Integer
        Dim PointVie As Integer
        If stats(Attaque, Defense, PointVie) = 0 Then
            MsgBox(Attaque)
            MsgBox(Defense)
            MsgBox(PointVie)
        Else
            ' gérer erreur
        End If

A+, Hervé.

12/06/2012, 21h36
herroP

Mais comment l'application va connaître la valeur des variables contenues dans la fonction?
Sinon pour ma deuxième question, auriez-vous une solution?
12/06/2012, 21h42
rv26t

Dans mon exemple la variable attaque contiendra la valeur de att
la variable defense contiendra la valeur de def
et la variable PointVie contiendra la valeur de pv

attaque et att sont en réalité la même zone en mémoire. (parceque tu as définie att en ByRef)
idem pour les autres.

Salut

d'abord met ton projet à option explicit on et option strict on

Pourquoi ne pas déclarer att def pv comme attribut dans ta class
au lieu de parametre dans ta fonction

Code:

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
class form1
   private att as double
   private def as  double
   private pv as double
'plutot une sub 
Public sub  stats() 
Dim reader As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\pv.txt")
    Dim vie = reader.ReadLine
        pv = convert.todouble(vie)
    reader.Close()
        'Définition des points d'attaque
        reader = New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquetete.txt")
        Dim effetattaquet = reader.ReadToEnd
        reader.Close()
       reader = new System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquecape.txt")
        Dim effetcape = reader.ReadToEnd
        reader.Close()
       reader =  New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquecuirasse.txt")
        Dim effetattaquec = reader.ReadToEnd
       reader.Close()
       reader =  New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquearme.txt")
        Dim effetattaquea = reader.ReadToEnd
        reader.Close()
        reader = New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\attaque.txt")
        Dim attaque = reader.ReadToEnd
        att = Convert.ToDouble(attaque) + Convert.ToDouble(effetattaquet) + Convert.ToDouble(effetcape) + Convert.ToDouble(effetattaquec) + Convert.ToDouble(effetattaquea)       
 reader.Close()
        'Définition des points de défense.
        Dim reader As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensetete.txt")
        Dim effetdefenset = reader.ReadToEnd
       reader.Close()
        reader =   New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensecape.txt")
        Dim effetdcape = reader.ReadToEnd
        reader.Close()
         reader = New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensecuirasse.txt")
        Dim effetdefensec =   reader = .ReadToEnd
        reader = .Close()
          reader = New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensearme.txt")
        Dim effetdefensea =   reader = .ReadToEnd
         reader = .Close()
         reader =  New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\defense.txt")
        Dim pd =   reader = .ReadToEnd
           def = Convert.ToDouble(pd) + Convert.ToDouble(effetdefenset) + Convert.ToDouble(effetdcape) + Convert.ToDouble(effetdefensec) + Convert.ToDouble(effetdefensea)
 
         reader = .Close() 
 
end sub

Salut,

Citation:

Mais comment récupérer leur valeur et non la donner lorsqu'on fait appelle à la fonction?

Sinon tu peux créer une classe Stats et en faire le type de retour de ta fonction. Petit exemple:
Code:

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 Class Stats Property Attaque As Integer Property Defense As Integer Property PointVie As Integer End Class Sub Main() Dim stats As Stats = LoadStats() MsgBox(stats.Attaque) MsgBox(stats.Defense) MsgBox(stats.PointVie) End Sub Private Function LoadStats() As Stats Dim stats As New Stats '<--- au début on crée de nouveaux stats 'Définition de la vie actuelle. Dim reader As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\pv.txt") Dim vie = reader.ReadLine stats.PointVie = Integer.Parse(vie) '<--- on rempli les stats au fur et à mesure reader.Close() 'Définition des points d'attaque 'etc. Return stats '<--- on renvoie les stats End Function
Citation:

Sinon, est-il possible de stocker cette fonction (et d'autres) dans une application extérieur et ainsi faire en sorte qu'on puisse faire appelle à cette "bibliothèque de fonction" depuis une autre application?

Tu peux créer un nouveau projet de type "Bibliothèque de classes", ce qui générera une DLL que tu pourra importer dans n'importe quelle de tes applications. Ainsi les classes, modules et les fonctions présentes seront accessibles.

13/06/2012, 08h57
herroP

Merci de votre aide.
Mais n4w4k, comment fais tu ensuit pour récupérer les stats de la class. Car avec return stats, comment fais tu pour récupérer les valeurs retournées?
Sinon quel serait le code pour importer la bibliothèque de class?
Cordialement.
13/06/2012, 09h09
-N4w4k-

Regarde la méthode Main() juste en dessous de la classe Stats, tu peux voir la manière dont on récupère le résultat de la fonction LoadStats().

Pour la bibliothèque de classe, fais Nouveau > Projet > Bibliotheque de classe dans ta solution actuelle. Cela te créera un nouveau projet que tu pourras remplir avec tes classes et modules à partager. Ensuite, pour l'utiliser dans un autre projet de ta solution (car pour l'instant personne ne la connait), tu peux cliquer droit dans l'explorateur de solution sur le projet qui doit connaitre la bibliothèque de classe et "Ajouter un référence..". Tu auras le choix entre plusieurs type de référence: DLL, Projets, etc. Pour l'instant, choisi "Projets" et ta bibliotheque. Un simple "Imports ta_biblio" te donnera accès aux classes de celle-ci.
Une fois que tu auras générer ta bibliotheque, la DLL sera présente dans debug ou release. Tu pourras l'ajouter à une autre solution à l'aide de Ajouter une référence.. > DLL > Parcourir
13/06/2012, 11h32
herroP

J'ai essayé mais lorsque que je mets tout dans la classe, il me met des erreurs au sub et à la fonction.
Voici l'erreur:

Citation:

Instruction non valide dans un espace de noms.
13/06/2012, 14h24
-N4w4k-

Quand tu as des erreurs comme ça, en la tapant dans google tu as généralement un lien qui renvoie sur msdn et qui explique pourquoi tu as cette erreur.

-> msdn
13/06/2012, 15h28
herroP

Merci. Donc si j'ai bien compris il faut éviter de mettre cela dans la class mais où la mettre alors?
13/06/2012, 15h47
-N4w4k-

Citation:

Envoyé par herroP

Merci. Donc si j'ai bien compris il faut éviter de mettre cela dans la class mais où la mettre alors?

Au contraire.

Citation:

Déplacez l'instruction vers un emplacement situé à l'intérieur d'une définition de module, de classe, d'interface, de structure, d'énumération ou de délégué. (msdn)

Cela veut dire que tu as mis du code en dehors d'une de ces structures (module, classe, interface, structure, enum, ou delegué).

Étant donné que l'on n'a pas plus de détails, on ne peut pas savoir comment tu en es arrivé là :roll: Peut être que tu peux nous montré le fichier entier où apparaissent ces erreurs. Ça nous aiderait.
13/06/2012, 16h08
herroP

Je n'ai pas accès à mon ordi donc je ne peux paste montrer le code. Mais j'ai coller le code que tu m'a donné dans la class par défaut de ma bibliothèque de class...
13/06/2012, 17h03
-N4w4k-

Il faudra que tu nous montre l'endroit où il y a l'erreur, sans ça on ne peut rien faire à part des suppositions.. et encore!
13/06/2012, 19h18
rv26t

Avant d'aller plus loin, il faudrait peut-être nous préciser quel type de programme tu développes.
Il me semble qu'il sagit d'un jeu.
Est-ce un MMORPG ?
30/06/2012, 18h29
herroP

Excusez moi de ne pas avoir répondu à la discussion : j'ai provisoirement arrêté le développement de mon jeu (c'est en quelque sorte un MMORPG, oui).
Mais j'ai commencé un petite application qui permet de calculer les prix selon des choix. Mon application procède d'abord par dans l'application windows form à l'identification. Trois champs sont à remplir : le prénom, le nom et l'adresse mail. Mais vu que je changerais de form pour les prochaines étapes, il faut que ces informations soit sauvegardée. Je n'ai pas envie de les sauvegarder dans un fichier .txt car je ne veux pas que mon application laisse des traces sur l'ordinateur de l'utilisateur.
Donc comment faire pour sauvegarder ces informations? Dans des class peut-être?
Merci d'avance.

Laissez tombais pour l'autre question.
Sinon, j'ai fait ce que tu m'as dit n4w4k.
J'ai donc importé ma bibliothèque de class en faisant Parcourir > mes_class > obj > Debug > TempPE > My Projects.Ressources.Designer.vb.dll .
Ai-je bien fait car en mettant ce code :
Code:

1 2 3 4 5 6 7 8 9 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim stats As Stats = LoadStats() MsgBox(stats.Attaque) MsgBox(stats.Defense) MsgBox(stats.PointVie) End Sub
il souligne en bleu le second Stats de "Dim stats As Stats = LoadStats().
Et il me dit que le type Stats est non défini.

Auriez-vous une solution?