problème avec Private Structure

Question

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

Renfield · Answer

fais effectivement ainsi :

Dim pNeurons () As Rn0 
    Private Structure Rn0 
        Dim wsave() As Integer 
        Dim dw() As Integer 
    End Structure

F0ra · Answer

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
@+

F0ra · Answer

bon,
j'ai trouvé la solution
@+

Problème avec Private Structure

3 réponses

Votre réponse

Discussions similaires