SlideImage Subobject

JACanterbury jacanterbury at gmail.com
Tue Jan 29 15:10:16 UTC 2013


ps my images are on a slide. Here's the code:

dim myImageSubObject as SlideImage

Set myImageSubObject = 
CSlideImage(SlideTarget1.States(SlideTarget1.ActiveState).Objects("dash" & 
Cstr(j) ))
myImageSubObject.X = 500   ' This works
myImageSubObject.Filename = "images\\t.bmp"  ' this runs but does replace 
the default image


On Tuesday, January 29, 2013 2:57:45 PM UTC, JACanterbury wrote:
>
> 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/-/gFdvgB06BhcJ.
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/8f782999/attachment.htm>


More information about the Eprime mailing list