erreur dans l'addition

Bonjour
j'ai fait un petit Programme en me servant de l'objet class j'ai une erreur au niveau de l'addition au lieu d'additionner
le résultat est exemple 3+3 = 66
je vous mets le code je sais pour certain c'est du code enfantin

'Module-level variables to hold property values:
Private mVal1
Private mVal2

Public Function Multiplication()
    Multiplication = mVal1 * mVal2
End Function

Public Function Division()
    If mVal2 <> 0 Then
        Division = mVal1 / mVal2
    Else
        Division = "Undefined"
    End If
End Function
Public Function Addition()

Addition = mVal1 + mVal2
End Function

Public Function Soustraction()
Soustraction = mVal1 - mVal2
End Function

Public Property Let Value1(Setting)
    ' Store setting in module-level variable.
    mVal1 = Setting
End Property

Public Property Let Value2(Setting)
    ' Store setting in module-level variable.
    mVal2 = Setting
End Property

Public Function Hypotenuse()
    'Calculate the hypotenuse of a right-angled
    'triangle (the side opposite the right side).
    Hypotenuse = Sqr((mVal1 ^ 2) + (mVal2 ^ 2))
End Function

 
dédé[8D]

Salut,

Est tu sur que dans ton exemple le résultat ne serait pas plutot 33 ?
Il faudrait donner plus de precisions
d'ou viennent les 3
a quel moment affectes tu une valeur a mval1 et mVal2

NOTE: Si au moment de l'addition les 3 on ete pris dans un textbox , c'est normal que ton resultat soit erroné car l'addition fait une concatenation si mVal1 et mVal2 sont des chaine de caracteres.
je ne sais pas si je suis clair,
@+, Julien
Pensez: Règlement/STRONG>

Pardon
tu as raison le résultat eest bien 33 mais comment faire pour que le résultat soit bon

dédé[8D]

Re,

Pour que le resultat soit bon, tu dois suivre le conseil de  DARKSIDIOUS 

@+, Julien
Pensez: Règlement/STRONG>

je le sais qua ça fait une concatenation mais comment contourner ça je veus bien suivre le conseil de  Darksidious mais au moins mettai moi sur le chemin de la réponse si vous voulez pas me donner la solution

dédé[8D]

Re
> andregoub: Que dire... prends la peine de lire les réponses que l'on te propose, test les cela t'éviteras de dire : "mais au moins mettai moi sur le chemin de la réponse si vous voulez pas me donner la solution"


@+, Julien
Pensez: Règlement/STRONG>

Pas besoin de tortiller du croupion, DS t'as donné la solution, voici l'explication :

Tu ne types pas tes variables, donc ce sont des variants.
Les valeurs saisies au clavier et récupérées dans les propriétés .Text sont de type String
Quand tu utilises l'opérateur + entre deux variables de type String, VB réalise une concaténation.

Le type de sortie n'étant pas typé, il te retourne le résultat de l'opérateur + avec tes deux variables de type Variant:String, donc la concaténation des variables.


Soit tu force le typage des variables dans ton module de classe, soit tu types les variables quand tu les stockes dans ta classe.