SlideImage Subobject
JACanterbury
jacanterbury at gmail.com
Tue Jan 29 14:57:45 UTC 2013
I'm having what appears to be a similar problem (so I'm hoping you;ve fixed
yours :)
What I seem to have found is that you CAN successfully change most image
attributes at runtime (e.g X,Y coordinates) but I haven't managed to
changed the .Filename successfully.
The code runs ok (doesn't give any errors) but the filename change is
ignored.
Has anyone found the same thing, or, hopefully, found a way to update an
image Filename at runtime?
thanks,
john
On Wednesday, April 25, 2012 6:49:12 AM UTC+1, MARILY ILLESCAS wrote:
>
> Hello! Hope you can help me.
> I'm making a memory experiment, in the encoding phase are two images
> that should be classified as same or different. In the recognition
> phase are two images, one must decide which image is old or if both
> are new. The problem is that in the recognition phase I want the
> program select randomly one of the two images presented in the
> previous stage to be presented with a new image. Use a slide with
> three objects, each corresponding to the three options (old image 1,
> old image 2 and new image). I use this script to select randomly the
> old image and the position (is only a part):
>
>
> Set RImg1 =
> CSlideImage(EstimulosR.States(EstimulosR.ActiveState).Objects("RIm1"))
> Set RImg2 =
> CSlideImage(EstimulosR.States(EstimulosR.ActiveState).Objects("RIm2"))
> Set NImg =
> CSlideImage(EstimulosR.States(EstimulosR.ActiveState).Objects("NIm"))
>
> stims = c.GetAttrib("StimType") If stims = "1" Then
> stim = 1
> Else
> stim = 2
> End If
>
> SelectPosition:
> pos = PRNG.Random(1, 2) 'Select a position
>
> SelectOld:
> OldStim = PRNG.Random(1, 2) 'Select a old image
>
> If pos = 1 And OldStim = 1 And stim = 1 Then
> pos1= pos1 + 1
> OldStim1 = OldStim1 + 1
> If pos1 > 10 Then
> GoTo SelectPosition
> If OldStim1 > 10 Then
> GoTo SelectOld
> Else
> 'RImg1.Filename = c.GetAttrib("RImagen1")
> 'RImg1.Draw
> RImg1.X = "441"
> RImg1.Y = "384"
> 'NImg.Filename =c.GetAttrib("NImagen")
> 'NImg.Draw
> NImg.X = "589"
> NImg.Y = "384"
> c.SetAttrib "Location", "1"
> c.SetAttrib "PosOld", "1"
> Debug.Print c.GetAttrib("PosOld")
> End If
> End If
> End If
>
>
> If pos = 2 And OldStim = 1 And stim = 1 Then
> pos2= pos2 + 1
> OldStim1 = OldStim1 + 1
> If pos2 > 10 Then
> GoTo SelectPosition
> If OldStim1 > 10 Then
> GoTo SelectOld
> Else
> 'NImg.Filename =c.GetAttrib("NImagen")
> 'NImg.Draw
> NImg.X = "441"
> NImg.Y = "384"
> ' RImg1.Filename = c.GetAttrib("RImagen1")
> 'RImg1.Draw
> RImg1.X = "589"
> RImg1.Y = "384"
> c.SetAttrib "Location", "2"
> c.SetAttrib "PosOld", "1"
> Debug.Print c.GetAttrib("PosOld")
> End If
> End If
> End If
>
>
> The problem is that the script does not work, the program displays the
> three images. I do not know how to make the program ignored the image
> should not be presented.
>
> Can anyone help me?
--
You received this message because you are subscribed to the Google Groups "E-Prime" group.
To unsubscribe from this group and stop receiving emails from it, send an email to e-prime+unsubscribe at googlegroups.com.
To post to this group, send email to e-prime at googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msg/e-prime/-/gH54SGUDuqEJ.
For more options, visit https://groups.google.com/groups/opt_out.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://listserv.linguistlist.org/pipermail/eprime/attachments/20130129/baf0a3e3/attachment.htm>
More information about the Eprime
mailing list