Problème avec Private Structure

Signaler
Messages postés
111
Date d'inscription
mardi 18 septembre 2007
Statut
Membre
Dernière intervention
29 décembre 2008
-
Messages postés
111
Date d'inscription
mardi 18 septembre 2007
Statut
Membre
Dernière intervention
29 décembre 2008
-
Bonjour,j’ai un problème avec Private Structure,<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>





En faite, j’aurai besoin de faire :






pCouches(i - 1).pNeurons(j).wsave(k) = 0.0







et le programme bug sur wsave(k)









 








J’ai essayé de rajouter une autre structure  comme :








Dim

pNeurons ()
As
Rn0









 









   

Private


Structure
Rn0










       

Dim
wsave()
As


Integer










       

Dim
dw()
As


Integer










   

End


Structure









 








et ça ne fonctionne toujours pas.















Voici un morceau de mon programme :






Dim
NumCouche

As



Integer

Dim
NumNeurons(2, 3, 1)

As



Integer



' Nombre de Neuron dans chaque couche

Dim
pCouches()

As
Rn


Private



Structure
Rn


Dim
nNumNeurons

As



Integer

Dim
pNeurons()

As



Integer

Dim
wsave()

As



Integer

Dim
dw()

As



Integer

End



Structure





' ------------
Private
Sub RandomPoids()

Dim i
As
Integer
Dim j
As
Integer
Dim k
As
Integer
For i = 1
To NumCouche

For j = 1
To pCouches(i).nNumNeurons

For k = 1
To pCouches(i - 1).nNumNeurons
pCouches(i).pNeurons(j).w(k) = RandomEqualREAL(0.0, 1.0);
pCouches(i).pNeurons(j).dw(k) = 0.0                 
'dw' is not a member of 'Integer'.
pCouches(i - 1).pNeurons(j).wsave(k) = 0.0      
'wsave' is not a member of 'Integer'.
Next k

Next j

Next i

End
Sub

Merci encore
A voir également:

3 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
fais effectivement ainsi :

Dim pNeurons () As Rn0
Private Structure Rn0
Dim wsave() As Integer
Dim dw() As Integer
End Structure
Messages postés
111
Date d'inscription
mardi 18 septembre 2007
Statut
Membre
Dernière intervention
29 décembre 2008

Bonjour, <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??>







J’ai essayé, mais ça ne fonctionne toujours pas.







Il y a sûrement un truc qui ne va pas ou oublié.







Pourrai tu stp regarder mon code, si ça ne te dérange pas,  pour voir ce qu’il ne vas pas.




 









http://s.w.o.free.fr/Vb.zip



 









Merci beaucoup
@+
Messages postés
111
Date d'inscription
mardi 18 septembre 2007
Statut
Membre
Dernière intervention
29 décembre 2008

bon,
j'ai trouvé la solution
@+