
'XOR NeuralNet Testing
Public Class TrainingData
    Public data(1) As Double
    Public targets(0) As Double

    Public Sub New(d1 As Double, d2 As Double, t As Double)
        data(0) = d1
        data(1) = d2
        targets(0) = t
    End Sub
End Class
