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 |
Partager