classtrainingset.cls

这是一种利用bp神经网络来解决异或问题的算法.

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ClassTrainingSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public NoOfInstances As Integer
Public instances As New Collection


Public Sub addInstance(newInstance As classTrainingInstance)
  Call instances.Add(newInstance)
  NoOfInstances = NoOfInstances + 1
End Sub


Public Function getInstance(index As Integer) As classTrainingInstance
  Set getInstance = instances.Item(index + 1)
End Function


Public Sub Clear()
'deletes all instances
  Dim i As Integer
  
  For i = instances.Count To 1 Step -1
    Call instances.Remove(i)
  Next
End Sub


Public Sub save(filename As String)
  Dim i As Integer
  Dim inst As classTrainingInstance

  Open filename For Output As #2
    Print #2, "[Training Set]"
    Print #2, instances.Count
    For i = 0 To instances.Count - 1
      Set inst = getInstance(i)
      Call inst.save
    Next
  Close #2
End Sub


Public Sub load(filename As String)
  Dim i As Integer
  Dim inst As classTrainingInstance
  Dim dummy As String
  Dim NoOfInstances As Integer

  Call Clear
  Open filename For Input As #2
    Input #2, dummy
    Print #2, NoOfInstances
    For i = 0 To NoOfInstances - 1
      Set inst = New classTrainingInstance
      Call inst.load
    Next
  Close #2
End Sub