|
|
|
Forum Newbie
Group: Forum Members
Last Login: 2/4/2009 4:13:31 PM
Posts: 3,
Visits: 15
|
|
Hi,
We have been running an imaging experiment in which our fMRI scanner triggers Eprime to start and synchronize the stimulus presentation, and the Eprime triggers a third computer running ASL Eye tracking to capture eye position while stimuli are on screen. This was all running correctly and without problems.
Recently, there was trouble with port signaling between NBS Presentation and the ASL program, so some new drivers were installed in an attempt to fix that problem. While no port settings were changed, we can no longer run our Eprime experiment. We tried uninstalling the drivers, and that did not help.
When we try to start the experiment in Eprime, the screen goes blank for a second as if it is starting, but then we receive the following error:
The following runtime error occurred:
An error occurred while attempting to open the device
Error: 0x00000001
Message: "
Line: 432
Error Number: 10051
Line 432 is "Port.Open PortPortDeviceInfo"
and the script around it is:
Set Port = New PortDevice
Port.Name = "Port"
Dim PortPortDeviceInfo As PortDeviceInfo
PortPortDeviceInfo.CollectionMode = ebPressesOnly
PortPortDeviceInfo.Address = 0
PortPortDeviceInfo.Size = 8
PortPortDeviceInfo.Invert = CLogical("No")
PortPortDeviceInfo.Mask = -1
'Load values from context if they exist
If c.AttribExists(Port.Name & ".CollectionMode") Then PortPortDeviceInfo.CollectionMode = CLng(c.GetAttrib(Port.Name & ".CollectionMode"))
If c.AttribExists(Port.Name & ".Address") Then PortPortDeviceInfo.Address = CLng(c.GetAttrib(Port.Name & ".Address"))
If c.AttribExists(Port.Name & ".Size") Then PortPortDeviceInfo.Size = CLng(c.GetAttrib(Port.Name & ".Size"))
If c.AttribExists(Port.Name & ".Invert") Then PortPortDeviceInfo.Invert = CLogical(c.GetAttrib(Port.Name & ".Invert"))
If c.AttribExists(Port.Name & ".Mask") Then PortPortDeviceInfo.Mask = CLng(c.GetAttrib(Port.Name & ".Mask"))
If c.AttribExists(Port.Name & ".EmulateDeviceName") Then PortPortDeviceInfo.EmulateDeviceName = c.GetAttrib(Port.Name & ".EmulateDeviceName")
'Open the device, unless the context values indicate otherwise
Dim PortOpen As Boolean
PortOpen = True
If c.AttribExists(Port.Name & ".Open") Then PortOpen = CLogical(c.GetAttrib("Port.Open"))
If PortOpen = True Then
Port.Open PortPortDeviceInfo
End If
Any ideas on why we're suddenly getting this error? Thanks.
-Garth
|
|
|
|
|
Forum Newbie
Group: Forum Members
Last Login: 4/10/2012 10:08:36 AM
Posts: 4,
Visits: 26
|
|
Hi!
Do you remember why this error occured?
Catarina
|
|
|
|
|
Forum MVP
Group: Administrators
Last Login: Yesterday @ 9:44:24 PM
Posts: 698,
Visits: 1,481
|
|
| The main reasons that a port device would not open would most likely be: The port address is not correct (see device manager or use the parallel port and can just specify LPT number instead of hex address)
There is another device accessing the port.
The port driver is not installed
Do not have proper access rights to the device
|
|
|
|
