Playing a Video

[lmbylsma]

I'm actually using E-Basic (with the E-Prime software) but I'm told most VB commands will work.

I'm using the E-Prime software to run an experiment, the software does not explicitely support playing a video stimuli but the E-prime support tells me that I can put in code like this:

Rte.DeviceManager.Suspend

Rte.DeviceManager.Resume

Then in the middle of those 2 lines I have to somehow tell it to call up another software program and play a video (such as Quicktime). The Suspend will Suspend what E-prime is doing so that that some other software can run then Resume will have E-Prime pick up where it left off. Any idea how I can do that?

 

[lmbylsma]

I contacted EPrime about my problem and this is all they would tell me. I don't understand it, but perhaps it would be helpful:

"The most common methods to call and access external rograms would be via OLE/COM Automation or via DLL calls via Declare statements. The use of these methods are typically set aside for advanced programmers."

They also provided me with an example of a script that tells EPrime to suspend, opens up a powerpoint presentation, then tells EPrime to resume again. But since I'm new to object based programming I don't understand what's going on or how to alter this script to play a video instead. The script they gave me is below. Any help would be greatly appreciated.

-Lauren



Const ppViewerSlideShowManualAdvance = 1
Const ppViewerSlideShowUseSlideTimings = 2

Const ppvTrue = -1
Const ppvFalse = 0
Const ppvCTrue = 1
Const ppvTriStateToggle = -3
Const ppvTriStateMixed = -2

Dim objApp As Object
Set objApp = CreateObject("PowerPointViewer.Application&quot

Rte.DeviceManager.Suspend

Dim objShow As Object
Set objShow = objApp.NewShow(CurDir & "\\" & c.GetAttrib("Filename&quot,
ppViewerSlideShowUseSlideTimings, ppvTrue )
Debug.Print "StartTime = " & Clock.Read

Debug.Print "StopTime = " & Clock.Read

Set objShow = Nothing
Set objApp = Nothing

Rte.DeviceManager.Resume