Discussion :

[CLeBeR]

Salut c'est encore moi avec un nouveau problème pour remplir le forum
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 :

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 ?

[-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

[CLeBeR]

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

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

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

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

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 :

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

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)

[CLeBeR]

Très bien, je vais utiliser le sub alors, merci j'aurais appris quelque chose
Je testerai dans la soirée pour voir si il n'y à plus l'erreur.
Merci encore !

[-N4w4k-]

No problem

[shayw]

Salut

Code :

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

 Private Function VerificationVersionDeWindows()

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

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

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

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 :

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

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 :

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

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 :

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

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 :

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