المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : عاجل جدا جدا


فرحان السلمان
24-04-2005, 10:55 PM
السلام عليكم

ابغا مشروع مختصر عن طريق اداة OLE بالفيجول بيسك وشكرا
oms
25-04-2005, 11:32 AM
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
فرحان السلمان
26-04-2005, 11:38 PM
مشكووووور الف شكر وشاكر لك جهدك
the scorpions
05-05-2005, 10:59 PM
wat is the usefull
for this tool