Problème création de fonctions

Version imprimable

28/05/2012, 11h51
CLeBeR

Problème création de fonctions

Salut c'est encore moi avec un nouveau problème pour remplir le forum :ptdr:
Alors j'ai un petit soucis avec mes fonctions, je les crée, mais le "End Function" est souligné en vert, et le message est :

Citation:

La fonction <nom de la fonction> ne retourne pas une valeur pour tous les chemins de code ...

J'ai donc regardé sur ce tutoriel mais lui sa fonction fait une ligne, moi elle en fait 24 donc si je met le return devant ma première ligne ça ne marche pas.
Que faire ?
28/05/2012, 11h57
-N4w4k-

Tu obtiens ce message car il y a au moins une possibilité pour que ta fonction ne passe jamais par un Return.

Pour t'aider d'avantage, il nous faudrait ces fameuses 24 lignes ;)

J'ai pleins de fonctions, en voici une qui détecte la version de Windows7

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
    Private Function VerificationVersionDeWindows()
        Dim VersionDeWindows7Ultimate As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "EditionID", "")
        If VersionDeWindows7Ultimate = "Ultimate" Then
            Dim EcritureVersion As StreamWriter = New StreamWriter("C:\Ultimate.txt")
        Else
            Dim VersionDeWindows7Professional As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "EditionID", "")
            If VersionDeWindows7Professional = "Professional" Then
                Dim EcritureVersion As StreamWriter = New StreamWriter("C:\Professional.txt")
            Else
                Dim VersionDeWindowsHomePremium As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "EditionID", "")
                If VersionDeWindowsHomePremium = "HomePremium" Then
                    Dim EcritureVersion As StreamWriter = New StreamWriter("C:\HomePremium.txt")
                Else
                    Dim VersionDeWindowsHomeBasic As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "EditionID", "")
                    If VersionDeWindowsHomeBasic = "HomeBasic" Then
                        Dim EcritureVersion As StreamWriter = New StreamWriter("C:\HomeBasic.txt")
                    Else
                        Dim VersionDeWindowsStarter As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "EditionID", "")
                        If VersionDeWindowsStarter = "Starter" Then
                            Dim EcritureVersion As StreamWriter = New StreamWriter("C:\Starter.txt")
                        End If
                    End If
                End If
            End If
        End If
    End Function

28/05/2012, 12h11
-N4w4k-
A la base, une fonction retourne quelque chose or dans ton code on ne voit aucun Return.

Est ce qu'elle est censé retourner quelque chose?
Si oui, quoi? Quelle variable dans ta fonction?

Si tu ne veux pas que ta "fonction" retourne quelque chose, déclare ta méthode comme ça:
Code:

1 2 Private Sub VerificationVersionDeWindows() End Sub
De plus pour les fonctions, il est préférable de typer la valeur de retour pour plus de clarté:
Code:

1 2 Private Function VerificationVersionDeWindows() As String '<- retourne une chaîne de caractère End Function
PS:
Procédure: méthode ne retournant pas de résultat (Sub);
Fonction: méthode retournant un résultat (Function)
28/05/2012, 12h22
CLeBeR

Très bien, je vais utiliser le sub alors, merci j'aurais appris quelque chose :D
Je testerai dans la soirée pour voir si il n'y à plus l'erreur.
Merci encore ! :ccool:
28/05/2012, 12h22
-N4w4k-

No problem :mrgreen:
28/05/2012, 12h22
shayw

Salut

Code:

Private Function VerificationVersionDeWindows()

si tu avais mis le option strict on tu aurais obtenu une erreur

Citation:

Erro Option Strict On requires all Function, Property, and Operator declarations to have an 'As' clause.

Bonjour,

si tu transformes ta fonction en sub elle ne servira a rien.
Les variables sont déclarées en locales elle sont donc détruite en sortie de ta fonction ou sub.

Il faudrait savoir ce que tu veux faire?

Je te met quelques exemples en rapport avec ta fonction d'origine.

En passant en paramètre une chaine de caractère listant les versions de windows
forme de la chaine "Ultimate Professional HomePremium HomeBasic Starter"
Pour connaître la version de windows

Code:

1
2
3
Private Function VersionDeWindows() As String
        Return My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "EditionID", "")
    End Function

pour savoir si c'est l'une de ces versions

Code:

1
2
3
    Private Function VerificationVersionDeWindows(ByVal VersionWindows As String) As Boolean
        Return VersionWindows.Contains(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "EditionID", ""))
    End Function

Pour avoir un stream d'écriture

Code:

1
2
3
4
5
6
7
8
    Private Function StreamVersionDeWindows(ByVal VersionWindows As String) As StreamWriter
        Dim EcritureVersion As StreamWriter = Nothing
        Dim VersionDeWindows7Ultimate As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "EditionID", "")
        If VersionWindows.Contains(VersionDeWindows7Ultimate) Then
            EcritureVersion = New StreamWriter("d:\" & VersionDeWindows7Ultimate & ".txt")
        End If
        Return EcritureVersion
    End Function

Note: j'ai mis d: pour le disque

Exemple d'utilisation des méthodes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        ' défini la liste des versions
        Const ListeVersionWindows As String = "Ultimate Professional HomePremium HomeBasic Starter"
        ' méthode qui permet de savoir si nous sommes avec une des version de la liste (boolean)
        If VerificationVersionDeWindows(ListeVersionWindows) Then
            ' je suis avec une des versions ci-dessus.
        End If
 
        ' méthode pour créer un flux d'écriture
        Dim EcritureVersion As StreamWriter = StreamVersionDeWindows(ListeVersionWindows)
        If Not (EcritureVersion Is Nothing) Then ' flux créer ?
            ' j'écrit dans mon fichier
            ' récupére le nom de la version (VersionDeWindows) et l'écrit dans le fichier (qui porte le nom de la version - défini dans StreamVersionDeWindows)
            EcritureVersion.WriteLine(VersionDeWindows())
            EcritureVersion.Close()
        End If
    End Sub

Espérant que cela t'éclairera sur les fonctions.

A+, Hervé.

30/05/2012, 21h19
CLeBeR

Salut Hervé,
j'ai regardé ton code et il est difficile ( à mon niveau ) d'utiliser cette technique pour tous les sub de mon programme, de plus si je remplace sub au lieu de mes fonctions, ça marche très bien.
Voilà @+ Merci quand même ! :ccool:
30/05/2012, 21h29
benny-blanco

Citation:

Envoyé par rv26t

Bonjour,
si tu transformes ta fonction en sub elle ne servira a rien.
Les variables sont déclarées en locales elle sont donc détruite en sortie de ta fonction ou sub.

Je comprend pas, si tu déclare des variable privée au seins d'une méthode, les variable sont bien inaccessible a l'extérieur de cette méthode mais en aucun cas elle devient inutile. Non ?
30/05/2012, 21h42
-N4w4k-

Salut,

Citation:

Envoyé par benny-blanco

Je comprend pas, si tu déclare des variable privée au seins d'une méthode, les variable sont bien inaccessible a l'extérieur de cette méthode mais en aucun cas elle devient inutile. Non ?

C'est exactement ça. De toute façon une variable déclarée au sein d'une méthode est forcément "privée" (on n'utilise ni Public, ni Private mais Dim).

Il faut se poser la question de la portée de la variable:
Est ce que ma variable est utile seulement dans ma méthode (variable locale) ou dans ma classe entière, voire plus (variable globale). De plus, selon le cours de Philippe Lasserre, moins on a de variable globale, mieux c'est.
31/05/2012, 16h46
rv26t

Citation:

Envoyé par benny-blanco

Je comprend pas, si tu déclare des variable privée au seins d'une méthode, les variable sont bien inaccessible a l'extérieur de cette méthode mais en aucun cas elle devient inutile. Non ?

Si tu regardes bien la fonction de CLeBeR, il cré un StreamWriter mais n'écrit rien dans le fichier.
En sortie de procédure le StreamWriter est détruit.
Si c'est seulement pour connaître la version de windows, il suffit de faire directement appel à

Code:

My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "EditionID", "")

et avec un case approprié faire les actions que l'on souhaite.

Mais comme nous ne connaissons pas ce qu'il veut faire, difficile de proposer quelque chose.