عاجل جدا جدا

السلام عليكم

ابغا مشروع مختصر عن طريق اداة OLE بالفيجول بيسك وشكرا

كود:

---

Private Sub cmdTrain_Click()

' Declare the OLE object variables
Dim NSApp As Object
Dim NSBB As Object

' Declare variables used to store results
Dim mseArray As Variant
Dim finalMSE As Single

' Assign the NS application and network
' (breadboard) to the object variables
Set NSApp = CreateObject_
("NeuroSolutions.Application")
Set NSBB = NSApp.activeBreadboard

' Set the epochs and train the network
NSBB.send "control.setEpochs(500)"
NSBB.send "control.resetNetwork()"
NSBB.send "control.runNetwork()"

' Retrieve the final mean squared error
mseArray = NSBB.send_
("dataStorage.getProbeData()")
finalMSE = mseArray(499, 0)

End Sub

---

مشكووووور الف شكر وشاكر لك جهدك

wat is the usefull
for this tool