عاجل جدا جدا

[فرحان السلمان]

السلام عليكم

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

[oms]

 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

[فرحان السلمان]

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

[the scorpions]

wat is the usefull
for this tool