Unable to set the VAS (Paul Groot VAS with changes) needle direction when the scale is vertical

[Paul Groot]

Hi,

Well, I'm not able to double check this right now, but SetCursosPos accepts
X,Y coordinates (in that order) by definition. Using Slider.Bottom for X
and Slider.Left for Y, etc. doesn't make sense...

Shouldn't it be something like this?:

            if strSliderDirection1 = "bottom" then
                Mouse.SetCursorPos VAS_SliderDummy.Left,
VAS_SliderDummy.Bottom
            end if




On 18 June 2013 17:31, avraham niv <nivavr at gmail.com> wrote:

> Hi all,
> First I would really like to thank Paul for the script for the VAS it's
> great!
> In my experiment I need to use the VAS both horizontally and vertically,
> and i need the needle starting position to be at the left and right edges
> (and not like Paul's VAS in the center).
> For the horizontal VAS I managed to do it by adding another argument to
> VAS_DragScale so it looks like this:
>
> Function VAS_DragScale(c As Context, strAttributeName as string, Optional
> duration as Variant, *Optional strSliderDirection as Variant*) as Integer
>
> and than inside the function i added the following:
>
> 'set mouse cursor at left right or center position
>     If IsMissing(strSliderDirection) then
>         Mouse.SetCursorPos
> 0.5*(VAS_SliderDummy.Left+VAS_SliderDummy.Right), VAS_SliderDummy.Bottom
>     else
>         if strSliderDirection = "left" then
>             Mouse.SetCursorPos VAS_SliderDummy.Left, VAS_SliderDummy.Bottom
>         else
>             if strSliderDirection = "right" then
>                 Mouse.SetCursorPos VAS_SliderDummy.Right,
> VAS_SliderDummy.Bottom
>             end if
>         end if
>     End If
>
> and in the trials I use an inline to tell the needle where to start.
> That went fine but when I try to implement it in the vertical VAS it
> always starts from the bottom of the slider dummy text object,
> I guess it is got to do with the fact that to create the vertical vas I
> just changed the slide text object (VAS_SliderDummy) dimensions, in the
> script basically changes every X to Y and vice versa, and every
> Object.Right to Object.Bottom and every Object.Left to Object.Top .
> So for example my changes to the script above looks like this:
>
> 'set mouse cursor at up down or center position
>     If IsMissing(strSliderDirection1) then
>         Mouse.SetCursorPos
> 0.5*(VAS_SliderDummy.Bottom+VAS_SliderDummy.Top), VAS_SliderDummy.Left
>     else
>         if strSliderDirection1 = "top" then
>             Mouse.SetCursorPos VAS_SliderDummy.Top, VAS_SliderDummy.Left
>         else
>             if strSliderDirection1 = "bottom" then
>                 Mouse.SetCursorPos VAS_SliderDummy.Bottom,
> VAS_SliderDummy.Left
>             end if
>         end if
>     End If
>
> As I mentioned it doesn't work.
> If anyone got a clue I will be greatfull!
> I attached the whole experiment if someone needs it and I would like to
> thank Paul again for the original script.
>
> --
> 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/msgid/e-prime/1af07bf2-5f71-4f20-baa4-3c0acb57543d%40googlegroups.com
> .
> For more options, visit https://groups.google.com/groups/opt_out.
>
>
>

-- 
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/msgid/e-prime/CAKAdR-sjHoDBnwL81FLdFH-WmiNTXFrNpsn47yqMAXhzq%3DUZoQ%40mail.gmail.com.
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/20130618/ea316e80/attachment.htm>