Inline for calling feedback screen in unreferenced objects

[Tobi]

Thanks, with your help it worked out: I use this code now:

If  c.GetAttrib(c.GetAttrib("Running") & ".Sample")  MOD 80= 0 Then
	c.SetAttrib "BlockAccuracyP", Format(CStr(CDbl(g_theSummationP.Mean *
100)), "0.0")
	c.SetAttrib "BlockRTP", Format(CStr(CDbl(g_theSummationPRT.Mean )),
"0")
	c.SetAttrib "BlockAccuracyS", Format(CStr(CDbl(g_theSummationS.Mean *
100)), "0.0")
	Dim probeRT, probeAcc, searchAcc
	probeRT = c.GetAttrib("BlockRTP")
	probeAcc = c.GetAttrib("BlockAccuracyP")
	searchAcc = c.GetAttrib("BlockAccuracyS")
	TextDisplay2.InputMasks.Add Keyboard.CreateInputMask("{ANY}", "", CLng
(TextDisplay2.Duration), CLng("1"), ebEndResponseActionTerminate,
CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes")
	TextDisplay2.text = "performance: " & "\n\n\n\n" & "COLOR TASK" & "\n
\n" & "Reaction Time: " & probeRT & " ms" & "\n" & "Correctness: " &
probeAcc & " %" & "\n\n\n" & "SEARCH TASK" & "\n\n" & "Correctness: "
& searchAcc & " %" & "\n\n\n" & "- Press button to continue -"
	TextDisplay2.run
	Set g_theSummationP = New Summation
	Set g_theSummationPRT = New Summation
	Set g_theSummationS = New Summation
	Set g_theSummationSRT = New Summation
End if

On 11 Sep., 15:46, Peter Quain <pqu... at une.edu.au> wrote:
> ...oh. not sure if e-basic accepts &vbCrLf as line space character.
> If not use \n instead:
>
> Rest.text = "Thank you."&_
> "\n" &_
> "Take a rest now, and relax your eyes."&_
> "\n" &_
> "\n" &_
> "ONLY  " & numleft & " BLOCKS TO GO NOW."&_
> "\n" &_
> "\n" &_
> "Please stop complaining. Remember - you are doing this for course credit. "&_
> "\n" &_
> "Please wait for the experimenter to tell you when to begin the next
> block of trials."
>
> At 10:29 PM 11/09/2009, you wrote:
>
> >Hi again,
>
> >doing some more work on this strange E-Prime behaviour, I found out
> >that every Inline, calling for an objects (no matter if elsewhere in
> >the program or in unreferenced objects) will cause the object to show
> >only the background and no text as long as some variable or attribute
> >(in square brackets) is embedded in the text. So it seems to be a
> >general problem. Still, maybe some of you know a solution...
>
> >Tobias
>
> >On 9 Sep., 20:38, Tobi <tobias... at gmail.com> wrote:
> > > Dear colleagues,
>
> > > I am having a strange problem using an inline code that refers to a
> > > TextDisplay in unreferenced objects.
>
> > > First I had a feedback TextDisplay between two blocklists (to show
> > > mean performance after blocks) and it worked fine with these Inlines:
>
> > > (1. Summation reset)
> > > Set g_theSummationP = New Summation
> > > Set g_theSummationPRT = New Summation
>
> > > (2. summation each trial)
> > > g_theSummationP.AddObservation mask2.Acc
> > > g_theSummationPRT.AddObservation mask2.RT
>
> > > (3. variable setting)
> > > c.SetAttrib "BlockAccuracyP", Format(CStr(CDbl(g_theSummationP.Mean *
> > > 100)), "0.00")
> > > c.SetAttrib "BlockRTP", Format(CStr(CDbl(g_theSummationPRT.Mean )),
> > > "0.00")
>
> > > And then there was Feedback (TextDisplay) with this content:
> > > "Your result:
>
> > > Mean Reaction Time:
> > > [BlockRTP] ms
>
> > > Correctness:
> > > [BlockAccuracyP]%"
>
> > > Well, that worked fine, I got feedback after each block. Now I wanted
> > > Feedback more often, not only after blocklists, but after 48 trials.
> > > So I used this Inline:
>
> > > If c.GetAttrib(c.GetAttrib("Running") & ".Sample")  MOD 48 = 0 Then
> > >         c.SetAttrib "BlockAccuracyP",
> > Format(CStr(CDbl(g_theSummationP.Mean *
> > > 100)), "0.00")
> > >         c.SetAttrib "BlockRTP", Format(CStr(CDbl(g_theSummationPRT.Mean )),
> > > "0.00")
> > >         TextDisplay2.InputMasks.Add
> > Keyboard.CreateInputMask("{ANY}", "", CLng
> > > (TextDisplay2.Duration), CLng("1"), ebEndResponseActionTerminate,
> > > CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes")
> > >         TextDisplay2.Run
> > >         Set g_theSummationP = New Summation
> > >         Set g_theSummationPRT = New Summation
> > >         Set g_theSummationS = New Summation
> > >         Set g_theSummationSRT = New Summation
> > > End If
>
> > > TextDisplay was in unreferenced objects. I was already using this
> > > "trick" to insert a break (break display in unreferenced objects) in
> > > order to have a break every X trials, independent of blocks etc.
>
> > > Now what I get is that it is actually calling TextDisplay2 (which is
> > > the feedback) but the screen is blank (that is no text, only
> > > background can be seen). If I leave away the variables
> > > [BlockAccuracyP] and [BlockRTP] it is working, though! Do I need to
> > > specify variables in the inline when they are used in displays that
> > > are in the unreferenced objects? If yes, how?
>
> > > Thank you very much for you patience and potential help!
> > > Cheers,
> > > Tobias
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---