Problème avec GET

Version imprimable

Problème avec GET

Bonjour,

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

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

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

14/03/2009, 14h00
Sankasssss

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

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

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.

14/03/2009, 15h41
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

:?

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:

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

14/03/2009, 22h51
Menontona

c'est sympa, merci. :king: