Error message can anyone help please

[spenctr01]

I keep getting this error message below

It says the code on this project must be updated for a 64 bit system. Please review and update declare statement and then mark them with Pttsafe attribute

This is a bit about what Im trying to do use the Predict function




Marge (Ward Systems Group)

Apr 2, 08:28 CST

You need to load the NeuroShell 2 runtime add-in into Excel. In Excel, go to the File Menu, Excel Options, and look for the Add-ins link. If you don't find NeuroShell 2 runtime add-on on the list, click on the Go button near Manage Excel Add-ins, and then click on the Browse button and search for c:\NeuroShell 2\Runtime examples\Excel2000\pred.xla, the version that works with Excel 2016.

Once the add-in is loaded, you can call your trained network from Excel using the Predict function.
=Predict("C:\NeuroShell 2\Examples|apple.def";$B$2:$E$2; 1)

Substitute the .def file from your problem for apple.def above.
Substitute the input cells for your problem for $B$2:$E$2 above.
1 refers to the first output of the model. Adjust for your model.

For a complete description, refer to the help topic DLL Server - Detail. Also, look at the spreadsheet called Predict2000.xls in the c:\NeuroShell 2\Examples\Runtime examples\Excel2000 directory.
TRACY SPEN
TRACY SPENCER

Apr 2, 06:37 CST



Can you help I have upgraded from Neuroshell 4.0 to 4.2 . The reason was so that I can fire network from Excel 16 . I have tried all sorts of things and it still doesn?t work I?m using the predict for reproducing my trained network from the Dll file.

Sent from Mail (https://go.microsoft.com/fwlink/?LinkId=550986) for Windows 10

Virus-free. www.avast.com (https://www.avast.com/sig-email?utm_...nt=emailclient)

[spenctr01]

This is the code

Option Explicit

' Function prototypes for the NS2-32.DLL
Declare Function OpenNet% Lib "Ns2-32.dll" _
(ByVal path$, netnumber%, inputs%, outputs%)

Declare Function FireNet% Lib "Ns2-32.dll" _
(netnumber%, inputsarray#, outputsarray#)

Declare Function CloseNet% Lib "Ns2-32.dll" (netnumber%)

Public Function Predict(fname, indata, output_number)
Dim netnum%, ret%, ins%, outs%, path$, inar#(), outar#(), i%

'copy filename into string variable
path = fname

'open network file
ret = OpenNet(path, netnum, ins, outs)

'exit if (file not found) OR (file is not a definition file)
'ret=0 means no error
If ret <> 0 Then
Predict = "File?"
Exit Function
End If

'make input array and copy inputs
ReDim inar(1 To ins)
For i = 1 To ins
inar(i) = indata(i)
Next i

'make output array
ReDim outar(1 To outs)

'fire the net
ret = FireNet(netnum, inar(1), outar(1))

'ret=0 means no error
If ret = 0 Then
Predict = outar(output_number)
Else
Predict = "Error!"
End If

'close the network
ret = CloseNet(netnum)

End Function

[rorya]

It would appear you need to get a 64bit compatible version of the add-in.

[spenctr01]

Thanks Roy