Discussion :

[Menontona]

Bonjour,


Je tourne en round, j'ai une classe cCalculatrice :

Code vb.net :

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
Public Class cCalculatrice
 
    Dim Pile0 As Decimal
    Dim Pile1 As Decimal
    Dim Resultat As Decimal
    Dim Operateur As Char
 
    Sub Addition(ByVal dNb As Decimal)
        Pile0 = dNb
        Operateur = "+"
    End Sub
 
    Sub Egal(ByVal dNb As Decimal)
        Pile1 = dNb
        Operation()
    End Sub
 
    Sub Operation()
        Select Case Operateur
            Case "+"
                Resultat = Pile0 + Pile1
            Case Else
                Resultat = 0
        End Select
    End Sub
End Class

Je cherche un moyen de rajouter à cette classe une méthode Get pour recuperer la valeur Resultat, par ex:

Code vb.net :

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

1
2
3
4
5
6
7
Class Form1
Dim Calculatrice as cCalculatrice
Dim Nb as Decimal
 
Nb = Calculatrice.Get()
 
End Class

Je debute avec le Vb, et je n'arrive pas à comprendre comment on se sert de Get avec ce langage. Quelqu'un pourrait-il m'aider?

Merci d'avance

Menontona

[Sankasssss]

Hello,
regarde après property : http://plasserre.developpez.com/v5-2.htm
bien à toi

[FRED.G]

Tu peux utiliser Property ou bien transformer directement des méthodes Sub en méthodes Function. Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
    Function Operation() as Integer
        Select Case Operateur
            Case "+"
                Resultat = Pile0 + Pile1
            Case Else
                Resultat = 0
        End Select
        Return Resultat
    End Function

Ceci n'est qu'un exemple de syntaxe correcte à partir de ton code. Je ne rentre pas dans les autres détails car tu débutes.

[Menontona]

J'ai un avertissement qui donne un Stack overflow à l'execution.
Le code:

Friend Class cCalculatrice
Private _dOpenrande0, _dOpenrande1 As Decimal, _cOperateur As Char

Friend Property _dResultat() As Decimal
Get
Return _dResultat
End Get
Set(ByVal value As Decimal)
_dResultat = value
End Set
End Property
End Class

L'avertissement (concernant la ligne du Set):

Avertissement 1 L'expression appelle de manière récursive la propriété conteneur '_dResultat'. C:\xxx\Bureau\Calculatrice2\Calculatrice2\Class_Calculatrice.vb 9 13 Calculatrice2

[Sankasssss]

Utilise resultat = value au lieu de _dResultat = value dans ton set car en faisant ca tu appelles a chaque fois le set de la propriété _dResultat.

EDIT : dans ton get aussi tu dois mettre résultat...
En faite la propriété renvoie ce que tu lui dit de renvoyer mais il faut que tu aie une variable qui contienne ce que la propriété va renvoyer, ce que tu n'a pas dans ton bout de code précédent.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Friend Class cCalculatrice
Private resultat, _dOpenrande0, _dOpenrande1 As Decimal, _cOperateur As Char

Friend Property _dResultat() As Decimal
Get
Return resultat
End Get
Set(ByVal value As Decimal)

P.S. : Pense à mettre les balise code, c'est mieux pour la visualisation ;)
resultat = value
End Set
End Property
End Class

[Menontona]

c'est sympa, merci.