VB6 - Problème de compilation avec un Objet - Run-Time Error 91

Version imprimable

Voici ce qu'il ce passe quand j'essaie de compiler:
Il y a une erreur impossible à régler qui m'affiche
"Run-Time Error 91

Object variable or With block variable not set"
Quand j'essaie, dans une forme, de faire ce genre de manip:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Affichage As String
Dim Prout As Single
    For t = 0 To 19
        For u = 0 To 19
        If u = 0 Then Affichage = ""
        Prout = Perceptron.GetPoids(Int(u), Int(t))
        Affichage = Affichage & "--" & Prout
        Next
    PrintCons Affichage
    Next
End If

L'objet en question (module de classe de nom TPerceptron) est le suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
'Cette classe est en fait une description d'un Perceptron
Dim Poids(19, 19) As Single
Dim ActPoids(19, 19) As Boolean
 
Public Seuil As Single
 
 
 
Public Function CalcWeight() As Single
'Ici cette fonction ce chargera de faire l'addition des poids (uniquement ceux des capteurs acitvés
'Une possible amélioration se fera pour les poids inactivé ( les poids les plus importans, si inactivés, seront en fait des inhibiteurs
 
End Function
 
Public Function CheckSeuil() As Boolean
'Cette fonction, à partir du calcul des poids, va renvoyer une réponse positive/négative sur la
End Function
Public Sub CorrectWeights(IsCorrect As Boolean)
'SI la réponse proposée par le neurone est bonne (renforcement des positions)
If IsCorrect = True Then
 
For i = 0 To 19
For e = 0 To 19
If ActPixel(i, e) = True And ActPoids(i, e) = True Then
'modification du poids positive
End If
If ActPixel(i, e) = False And ActPoids(i, e) = False Then
'modification du poids négative
End If
Next
Next
End If
 
'Si la réponse proposée par le neurone est fausse (correction!)
If IsCorrect = False Then
For i = 0 To 19
For e = 0 To 19
Next
Next
End If
 
End Sub
 
'/////////////////////////////////////////////
 
Public Property Let SetPoids(ByVal Value As Integer, X As Integer, Y As Integer)
'Affectation d'une nouvelle valeur
    Poids(X, Y) = Value
End Property
 
Public Property Get GetPoids(X, Y) As Single
'Lecture de la valeur
    GetPoids = Poids(X, Y)
End Property

Je n'arrive pas à trouver le problème!
Expliquer moi ce que je dois modifier, et n'hésitez pas à demander des précisions sur mon code, j'en donnerai le plus possible.

Merci d'avance

18/12/2008, 19h43
SfJ5Rpw8

Salut,

sur quelle ligne l'erreur ?

l'objet Perceptron tu le déclare ou et comment ?
18/12/2008, 20h01
Hadware

Hum, tout d'abord encore merci de s'intéresser à mon problème.
Ensuite:
- Je le déclare dans l'unique module de mon projet, avec un banal:

Code:

Public Perceptron As TPerceptron

-VB m'affiche l'erreur sur la ligne avec "affichage = affichage & "--" & Perceptr...."

Bonne chance pour la résolution :P

Citation:

VB m'affiche l'erreur sur la ligne avec "affichage = affichage & "--" & Perceptr...."

Curieux car tu solicites Perceptron.GetPoids une ligne avant et le message d'erreur correspond/vise l'objet de ta classe.
Je ferai comme cela pour une utilisation dans un Form
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Option Explicit ' Variable faisant réference à la classe Dim Perceptron As New TPerceptron Private Sub Form_Load() 'Initialisation de la classe Set Perceptron = New TPerceptron End Sub Private Sub Form_Unload(Cancel As Integer) ' Libération de la classe à la fermeture du formulaire If Not Perceptron Is Nothing Then Set Perceptron = Nothing End Sub

18/12/2008, 21h13
Hadware

Merci!
Et d'ailleurs je m'étais trompé...c'était sur le message ou j'assignais la valeur GetPoids dans la variable Prout que ca a beugué.

Mais la déclaration avec explicit au dessu (d'ailleurs ca veut dire quoi ça? ) je la mets ou?
Quelle en sera sa portée?

EDIT: c'est bon! Ca marche! Merci beacoup!