Discussion :

[ecarbill]

Bonjour,
Je suis entrain d’écrire un ensemble de module de classe pour manipuler facilement des objets mathématiques dans un repère orthonormé.
J'ai écris deux modules tpPoint et tpCercle qui, selon moi marche pour le moment.

Je bloque sur la classe tpTriangle ou j'ai pu bien écrire les éléments les plus faciles. Mon problème survient lorsque je cherche à définir les propriétés du cercle inscrit dans un triangle, j'obtient une erreur:

Code :

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

1
2
3
4
5
6
7
8
9
10
Property Get CercleInscrit() As tpCercle
   Dim cercletemp As New tpCercle
   Dim centreTemp As New tpPoint
 
   centreTemp.Abscisse = 6
   centreTemp.Ordonnee = 9
   cercletemp.Centre = centreTemp
   cercletemp.Rayon = 2 * Aire / Perimetre
   CercleInscrit = cercletemp
End Property

Je vous joins le fichier. Aider moi SVP à détecter d'ou vient mon erreur dans le module de classe en question