pause function

[Yan Yu]

Hi liwenna & Daniela,

Thanks for your reply. I tried the suggestion from both of you.
Daniela's script generated the following error message
 "Encountered: '*'
expecting: <consonant>, <identifier>, <function>, system.

Then my colleague suggested me delete the two lines about netstation, it
works fine now.

I appreciate your input!

Yan



On Wed, Nov 11, 2009 at 11:11 AM, Daniela Pfabigan <
daniela.pfabigan at univie.ac.at> wrote:

>
> hi!
>
> you could try the following script lines which we modified a little bit
> after downloading them from PST website or from an user forum and insert
> any lines to send information via the parallel port
>
> If (Get*UserBreakState* <> 0) Then
>        Display.Canvas.Clear
>        Display.Canvas.Text 150, 150, "Unexpected break!"
>        Sleep 1000
>
>        Mouse.ShowCursor True
> Dim r As Integer
>
>
> r = AnswerBox( "Please select if you are ready:" & chr(10)+chr(13),
> "Continue")
>        Set*UserBreakState* 0
>
> End If
>
>
> Cheers,
> Daniela
>
> liwenna schrieb:
>  > Hey Yan,
> >
> > I don't really have a solution (as I never used this parallelport
> > config thing and I have no idea what the function of 'userbreakstate'
> > is for...) but that is probably where your problem lies. As you can
> > see in line three (If (GetUserBreakState <> 0) Then ) all the script
> > between 'Then' and 'End If' will only be executed if userbreakstate is
> > NOT (<>) 0. In the forelast line of the piece of code you posted
> > (SetUserBreakState 0) userbreakstate is set to 0 and therefore this
> > code cannot run twice (seeing as "If (GetUserBreakState <> 0)" will no
> > longer be valid after it ran once).
> >
> > I think that that's the source of your problem, but I unfortunately
> > don't have a solution (other than simply removing both lines but that
> > probably doesn't do the trick) and it also does not explain why e-
> > prime quits altogether when you try it twice...
> >
> >
> > So for what it's worth: I hope the above is somewhat helpful.
> > Hopefully others can shine some light on the whole userbreakstate-
> > thing... what and why and all that.
> >
> > Best,
> >
> > liwenna
> >
> > On Nov 11, 4:09 pm, Yan Yu <yan... at gmail.com> wrote:
> >
> >> Hi Eprimers,
> >>
> >> I used a script to excute the pause function, however, during the
> >> experiment, whenever I pause it a second time, eprime will quit the
> task.
> >> My knowledge on scripting is minimal. I am wondering if anybody can help
> me
> >> out.
> >>
> >> Here is the inline script that I placed at the beginning of each block.
> >>
> >> 'Check for UserBreakState
> >> 'Pause2 is run only if Ctrl+Shift is pressed
> >> If (GetUserBreakState <> 0) Then
> >>  'Incorrect CLng Object reference Pause2.InputMasks.Add
> >> Keyboard.CreateInputMask("{SPACE}", "", CLng(Pause.Duration), CLng("1"),
> >> ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All
> >> ProcessBackspace:Yes")
> >>  NetStation_SendTrialEvent c, Pause2
> >>     NetStation_SendTRSPEvent c, Pause2
> >>  Pause2.InputMasks.Add Keyboard.CreateInputMask("{SPACE}", "",
> >> CLng(Pause2.Duration), CLng("1"), ebEndResponseActionTerminate,
> >> CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes")
> >>  Pause2.Run
> >>  'Added code
> >>  SetUserBreakState 0
> >> End If
> >>
> >> Thanks a lot,
> >>
> >> Yan
> >>
> > >
> >
> >
>
>
>
> >
>

--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups "E-Prime" group.
To post to this group, send email to e-prime at googlegroups.com
To unsubscribe from this group, send email to e-prime+unsubscribe at googlegroups.com
For more options, visit this group at http://groups.google.com/group/e-prime?hl=en
-~----------~----~----~----~------~----~------~--~---

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://listserv.linguistlist.org/pipermail/eprime/attachments/20091111/3b3d992a/attachment.htm>