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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] [Résolu] Appel foireux d'une classe d'arbre binaire

Gentil_poussin

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 :

Private varData As Double
Private varUp As tree
Private varDown As tree
Public Property Let data(ByVal vdata As Double)
varData = vdata
End Property
Public Property Get data() As Double
data = varData
End Property
Public Property Set up(ByVal vUp As tree)
Set varUp = vUp
End Property
Public Property Get up() As tree
Set up = varUp
End Property
Public Property Set down(ByVal vdown As tree)
Set varDown = vdown
End Property
Public Property Get down() As tree
Set down = varDown
End Property
Public Function isempty(tree As tree) As Boolean
If tree Is Nothing Then
isempty = True
Else
isempty = False
End If
End Function
Public Function upchild(tree As tree) As tree
If isempty(tree) Then
Set upchild = Nothing
Else
Set upchild = tree.up
End If
End Function
Public Function downchild(tree As tree) As tree
If isempty(tree) Then
Set downchild = Nothing
Else
Set downchild = tree.down
End If
End Function
Public Function isLeave(tree As tree) As Boolean
If isempty(tree) Then
isLeave = False
ElseIf isempty(upchild(tree)) And isempty(downchild(tree)) Then
isLeave = True
Else
isLeave = False
End If
End Function
Public Function isInternalNode(tree As tree) As Boolean
isInternalNode = Not (isLeave(tree))
End Function
Public Function height(tree As tree) As Integer
If isempty(tree) Then
height = 0
Else
height = 1 + Max(height(upchild(tree)), height(downchild(tree)))
End
End Function
Public Function NumberNode(tree As tree) As Integer
If isempty(tree) Then
NumberNode = 0
Else
NumberNode = 1 + NumberNode(upchild(tree)) + NumberNode(downchild(tree))
End If
End Function
Public Function NumberLeave(tree As tree) As Integer
If isempty(tree) Then
NumberLeave = 0
ElseIf (isLeave(tree)) Then
NumberLeave = 1
Else
NumberLeave = NumberLeave(upchild(tree)) + NumberLeave(downchild(tree))
End If
End Function
Public Function NumberInternalNode(tree As tree) As Integer
If isempty(tree) Then
NumberInternalNode = 0
ElseIf (isLeave(tree)) Then
NumberInternalNode = 0
Else
NumberInternalNode = 1 + NumberInternalNode(upchild(tree)) + NumberInternalNode(downchild(tree))
End If
End Function
Public Sub TraiterRacine(tree As tree)
End Sub
Public Sub DFS(tree As tree, Type_Exploration As Integer)
If Not isempty(tree) Then
If Type_Exploration = 1 Then tree.TraiterRacine
tree.DFS upchild(tree), Type_Exploration
If Type_Exploration = 2 Then tree.TraiterRacine
tree.DFS downchild(tree), Type_Exploration
If Type_Exploration = 3 Then tree.TraiterRacine
End If
Public Sub DFS_prefix(tree As tree)
tree.DFS tree, 1
End Sub
Public Sub DFS_infix(tree As tree)
tree.DFS tree, 2
End Sub
Public Sub DFS_postfix(tree As tree)
tree.DFS tree, 3
End Sub
Public Function create(data As Double, upchild As tree, downchild As tree) As tree
create.data = data
Set create.up = upchild
Set create.down = downchild
End Function
Public Sub AddNode(src As tree, data As Double)
If src Is Nothing Then
Set src = create(data, Nothing, Nothing)
ElseIf isempty(src.up) Then
Set src.up = create(data, Nothing, Nothing)
ElseIf isempty(src.down) Then
Set src.down = create(data, Nothing, Nothing)
Else
src.AddNode src.up, data
End If
End Sub
Public Sub InsertSearchTree(src As tree, data As Double)
If isempty(src) Then
Set src = create(data, Nothing, Nothing)
Else
If data < src.data Then
InsertSearchTree src.up, data
Else
InsertSearchTree src.down, data
End If
End If
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 :

Sub test()
Set temp = New tree
Dim data As Double
data = 3
temp.AddNode temp, data
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

Publicité

seniorpapou

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

Gentil_poussin

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:

galopin01

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

Gentil_poussin

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

galopin01

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+

Gentil_poussin

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 :

Private varData As Double
Private varUp As tree
Private varDown As tree
Public Function create(data As Double, upchild As tree, downchild As tree) As tree
create.data = data
Set create.up = upchild
Set create.down = downchild
End Function
Public Sub AddNode(src As tree, data As Double)
If src Is Nothing Then
Set src = create(data, Nothing, Nothing)
ElseIf isempty(src.up) Then
Set src.up = create(data, Nothing, Nothing)
ElseIf isempty(src.down) Then
Set src.down = create(data, Nothing, Nothing)
Else
src.AddNode src.up, data
End If
End Sub

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

Code :

Sub test()
Set temp = New tree
Dim data As Double
data = 3
temp.AddNode temp, data
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

Gentil_poussin

Up? :bounce:

seniorpapou

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

Gentil_poussin

Et il faut aussi rajouter
Set create = New tree
au début de la fonction Create

Merci Beuacoup ca marche aussi pour moi

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
[RESOLU] Tableau php, multi colonne?	[RESOLU]Condition de variable
Récupérer morceau par morceau le contenu binaire d'un fichier	selection sur critères avec VBA
[résolu] L'ID de session change de page en page	Optimiser une fonction [RESOLU]
[RESOLU] recherche sql, tableau php	VBA EXCEL : détecter mise en forme texte (gras, italique)
[resolu]comment couper une ligne de requete proprement?	[résolu] pb ticket a gratter
Plus de sujets relatifs à : [VBA] [Résolu] Appel foireux d'une classe d'arbre binaire

Page générée en 0.109 secondes