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 : 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
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.