[VBA] [Résolu] Appel foireux d'une classe d'arbre binaire

Appel foireux d'une classe d'arbre binaire [VBA] [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 23-08-2006 à 00:36:01    

Bonjour à tous (ou bonsoir c'est selon)
 
J'ai créé une classe Tree qui correspond à un objet de type arbre binaire (un élément data et deux pointeurs Up et down vers des arbres)
 
JE poste le code de la classe

Code :
  1. Private varData As Double
  2. Private varUp As tree
  3. Private varDown As tree
  5. Public Property Let data(ByVal vdata As Double)
  6. varData = vdata
  7. End Property
  9. Public Property Get data() As Double
  10. data = varData
  11. End Property
  13. Public Property Set up(ByVal vUp As tree)
  14. Set varUp = vUp
  15. End Property
  17. Public Property Get up() As tree
  18. Set up = varUp
  19. End Property
  21. Public Property Set down(ByVal vdown As tree)
  22. Set varDown = vdown
  23. End Property
  25. Public Property Get down() As tree
  26. Set down = varDown
  27. End Property
  29. Public Function isempty(tree As tree) As Boolean
  30. If tree Is Nothing Then
  31.     isempty = True
  32. Else
  33.     isempty = False
  34. End If
  35. End Function
  37. Public Function upchild(tree As tree) As tree
  38. If isempty(tree) Then
  39.     Set upchild = Nothing
  40. Else
  41.     Set upchild = tree.up
  42. End If
  43. End Function
  45. Public Function downchild(tree As tree) As tree
  46. If isempty(tree) Then
  47.     Set downchild = Nothing
  48. Else
  49.     Set downchild = tree.down
  50. End If
  51. End Function
  53. Public Function isLeave(tree As tree) As Boolean
  54. If isempty(tree) Then
  55.     isLeave = False
  56. ElseIf isempty(upchild(tree)) And isempty(downchild(tree)) Then
  57.     isLeave = True
  58. Else
  59.     isLeave = False
  60. End If
  61. End Function
  63. Public Function isInternalNode(tree As tree) As Boolean
  64. isInternalNode = Not (isLeave(tree))
  65. End Function
  67. Public Function height(tree As tree) As Integer
  68. If isempty(tree) Then
  69.     height = 0
  70. Else
  71.     height = 1 + Max(height(upchild(tree)), height(downchild(tree)))
  72. End
  73. End Function
  75. Public Function NumberNode(tree As tree) As Integer
  76. If isempty(tree) Then
  77.     NumberNode = 0
  78. Else
  79.     NumberNode = 1 + NumberNode(upchild(tree)) + NumberNode(downchild(tree))
  80. End If
  81. End Function
  83. Public Function NumberLeave(tree As tree) As Integer
  84. If isempty(tree) Then
  85.     NumberLeave = 0
  86. ElseIf (isLeave(tree)) Then
  87.     NumberLeave = 1
  88. Else
  89.     NumberLeave = NumberLeave(upchild(tree)) + NumberLeave(downchild(tree))
  90. End If
  91. End Function
  93. Public Function NumberInternalNode(tree As tree) As Integer
  94. If isempty(tree) Then
  95.     NumberInternalNode = 0
  96. ElseIf (isLeave(tree)) Then
  97.     NumberInternalNode = 0
  98. Else
  99.     NumberInternalNode = 1 + NumberInternalNode(upchild(tree)) + NumberInternalNode(downchild(tree))
  100. End If
  101. End Function
  103. Public Sub TraiterRacine(tree As tree)
  105. End Sub
  107. Public Sub DFS(tree As tree, Type_Exploration As Integer)
  108. If Not isempty(tree) Then
  109.     If Type_Exploration = 1 Then tree.TraiterRacine
  110.     tree.DFS upchild(tree), Type_Exploration
  111.     If Type_Exploration = 2 Then tree.TraiterRacine
  112.     tree.DFS downchild(tree), Type_Exploration
  113.     If Type_Exploration = 3 Then tree.TraiterRacine
  114. End If
  115.        
  116. Public Sub DFS_prefix(tree As tree)
  117. tree.DFS tree, 1
  118. End Sub
  120. Public Sub DFS_infix(tree As tree)
  121. tree.DFS tree, 2
  122. End Sub
  124. Public Sub DFS_postfix(tree As tree)
  125. tree.DFS tree, 3
  126. End Sub
  128. Public Function create(data As Double, upchild As tree, downchild As tree) As tree
  129. create.data = data
  130. Set create.up = upchild
  131. Set create.down = downchild
  132. End Function
  134. Public Sub AddNode(src As tree, data As Double)
  135. If src Is Nothing Then
  136.     Set src = create(data, Nothing, Nothing)
  137. ElseIf isempty(src.up) Then
  138.     Set src.up = create(data, Nothing, Nothing)
  139. ElseIf isempty(src.down) Then
  140.     Set src.down = create(data, Nothing, Nothing)
  141. Else
  142.     src.AddNode src.up, data
  143. End If
  144. End Sub
  146. Public Sub InsertSearchTree(src As tree, data As Double)
  147. If isempty(src) Then
  148.     Set src = create(data, Nothing, Nothing)
  149. Else
  150.     If data < src.data Then
  151.         InsertSearchTree src.up, data
  152.     Else
  153.         InsertSearchTree src.down, data
  154.     End If
  155. End If
  156. End Sub


 
1/ Si vous voyez une erreur qqpart ou des améliorations notoires, n'hésitez pas à me le dire  ... ;-)
2/ LE problème est le suivant:
Dans mon module je fais un test pour voir si tout fonctionne bien et en particulier la procédure addnode
=>

Code :
  1. Sub test()
  2. Set temp = New tree
  3. Dim data As Double
  4. data = 3
  5. temp.AddNode temp, data
  6. End Sub


 
A la ligne temp.addnode.... je recois lors du débug un msg box run time error 13: type mismatch....
 
 
La question...: quel saint dois je prier pour trouver la solution...?????
 
Merci d'avance et a +
GP


Message édité par Gentil_poussin le 29-08-2006 à 14:27:53
Reply

Marsh Posté le 23-08-2006 à 00:36:01   

Reply

Marsh Posté le 23-08-2006 à 07:32:30    

Bonjour,
pour mon information:
1) quelle référence pour traiter les tree?
2) pourquoi temp.adnode pour apppeler un sub ?
Cordialement

Reply

Marsh Posté le 23-08-2006 à 15:37:17    

Salut
 
1/ Aucune référence
2/ euh pcq je crois que pour appeller une procédure d'une classe il faut utiliser dans le module principal le format objet.procédure paramètres
Mais vu que j'utilise royalement les classes depuis 2 jours et demi, je peux (certainement) me tromper...  :pt1cable:  

Reply

Marsh Posté le 23-08-2006 à 17:54:29    

bonsoir,
Je ne suis moi-même qu'un béotien dans ce sport, mais :

Citation :

pour appeller une procédure d'une classe il faut utiliser dans le module principal le format objet.procédure paramètres  


: il faut Non.  
On peut : sans doute.
 
Mais il m'étonnerait que ce paramètre puisse être un objet de la classe.
Conceptuellement je ne vois d'ailleurs pas l'interet. Tout mes essais butent sur cet appel de src = tree.
 
Euh... Pour tes débuts tu pourrais peut-être commencer avec des classes concrètes :
Crée des classes voitures avec des propriétés évidentes couleur = rouge, radio, clim jantes... et des méthodes aussi évidentes : repeindre en bleu, ajouter la clim...
 
A+

Message cité 1 fois
Reply

Marsh Posté le 23-08-2006 à 19:15:56    

galopin01 a écrit :

bonsoir,
Conceptuellement je ne vois d'ailleurs pas l'interet. Tout mes essais butent sur cet appel de src = tree.


Ben en fait dans ce cas là c'est justement ca que je dois faire, puisque je dois faire une procédure récursive qui doit  
* si pas de noeud existant en créer un
* sinon rajouter à un noeud à l'arbre existant (et donc appeller en paramètre le susdit arbre..
 
Bon maintenant la manière de procéder n'est peut etre pas exacte... => la question
 
 

galopin01 a écrit :


Euh... Pour tes débuts tu pourrais peut-être commencer avec des classes concrètes :
Crée des classes voitures avec des propriétés évidentes couleur = rouge, radio, clim jantes... et des méthodes aussi évidentes : repeindre en bleu, ajouter la clim...
A+


C'est une classe concrète non...?  :bounce:  
Et puis pourquoi faire simple quand on peut faire compliqué..
 
Non en fait j'en en besoin pour le boulot  et j'ai déjà testé avec des classes plus faciles mais pour lesquelles je n'avais (forcément) pas de problème..
 
Tks
GP

Reply

Marsh Posté le 23-08-2006 à 20:04:07    

Bonsoir,
Je ne sais pas, c'est un peu trop abstrait pour moi. J'ai bien compris ton problème mais je n'ai jamais vu de telles pratiques même dans des modules de classe un peu chiadés.
Bon courage.
A+

Reply

Marsh Posté le 23-08-2006 à 20:13:46    

En fait je me rends compte que la lecture est un peu longue du code et que tout n'est pas nécessaire à la compréhension du probleme...
Je reposte uniquement le code essentiel
 
 
* Concernant la classe Tree
 

Code :
  1. Private varData As Double
  2. Private varUp As tree
  3. Private varDown As tree
  5. Public Function create(data As Double, upchild As tree, downchild As tree) As tree
  6. create.data = data
  7. Set create.up = upchild
  8. Set create.down = downchild
  9. End Function
  11. Public Sub AddNode(src As tree, data As Double)
  12. If src Is Nothing Then   
  13. Set src = create(data, Nothing, Nothing)
  14. ElseIf isempty(src.up) Then   
  15. Set src.up = create(data, Nothing, Nothing)
  16. ElseIf isempty(src.down) Then   
  17. Set src.down = create(data, Nothing, Nothing)
  18. Else   
  19. src.AddNode src.up, data
  20. End If
  21. End Sub


 
*concernant l'appel à la procédure AddNode dans un module classique et donc le problème :fou:  

Code :
  1. Sub test()
  2. Set temp = New tree
  3. Dim data As Double
  4. data = 3
  5. temp.AddNode temp, data
  6. End Sub


 
Par ailleurs, j'ai vu qqpart l'utilisation de "ME" mais je ne sais pas très bien comment ca fonctionne..Si qqun sait m'expliquer..
Tks GP


Message édité par Gentil_poussin le 23-08-2006 à 20:17:18
Reply

Marsh Posté le 24-08-2006 à 11:01:07    

Up? :bounce:

Reply

Marsh Posté le 25-08-2006 à 09:58:20    

Bonjour,
tout d'abord MERCI, car ton post m'a amenè à découvrir l'usage des modules de classe et à découvrir les arbres binaires.
 
Avant le set temp = New tree
 
tu places :
 
Dim temp As tree
 
 
Chez moi cela fonctionne
 
Par contre, comme j'ai testé sous excel, j'ai transformé le Max en Dmax, où se trouve Max (Access?)
 
Cordialement

Reply

Marsh Posté le 29-08-2006 à 14:27:27    

Et il faut aussi rajouter  
Set create = New tree
au début de la fonction Create
 
 
Merci Beuacoup ca marche aussi pour moi

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed