change in scale

[liwenna]

Although I don't know where your problem lies exactly, here are three
things that you could try:

1: move the label "redotrial" to before the inline in which the scale
is drawn
2: otherwise (if you need to old scaledrawing to stay for some
reason) : insert an inline inbetween the label "redotrial" and the
slide with the code " theSlidetext.BackColor = CColor("Navy") "
3: if the problem is not in the returning to the previous slide but
rather on a NEXT slide (so... not a next showing of the previous
slide) then add an "empty" slide inbetween this one and the next with
the background set to opaque and a duration of 20 ms or so. Following
that you'll have to redraw the scale for the next slide by copying the
scale drawing inline and adjust the code based on the name of the next
slide.

best,

AW

On Dec 12, 12:26 pm, Jose Alejandro Aristizabal C
<josealejandro.aristizab... at gmail.com> wrote:
> Dear Sr
>
> I'm stuck with this script to emulate an analog scale, and I have the
> problem that by indicating a number on the scale to press next, the
> data stays red.
> What I want is the subject to choose a number on the scale go to the
> next screen to return to choose another value. without actively
> engaged in red.
>
> Sorry for my English. thank you very much
>
> 'Designate "theState" as the Default Slide State, which is the
> 'current ActiveState on the Slide object "Stimulus".
> Dim theState As SlideState
> Set theState = Stimulus.States("Default")
>
> Dim theSlideText As SlideText
>
> Dim strHit As String
>
> Dim theMouseResponseData As MouseResponseData
>
> 'Was there a response?
> If Stimulus.InputMasks.Responses.Count > 0 Then
>
>         'Get the mouse response.
>         Set theMouseResponseData =
> CMouseResponseData(Stimulus.InputMasks.Responses(1))
>
>         'Determine string name of SlideText object at
>         'mouse click coordinates. Assign that value to strHit
>         strHit = theState.HitTest(theMouseResponseData.CursorX,
> theMouseResponseData.CursorY)
>
> End if
>         'Did the subject click one of the SlideText sub-objects?
>         If strHit <> "" And strHit <> "Image1" And strHit <>
> "PainUnplesantness" And strHit <> "Confirm" And strHit <>
> "NoUnpleasantness" And strHit <> "HighestUnpleasantness" And strHit <>
> "Question2" Then
>                 Dim UnpleasantnessRating As Integer
>
>                 'Gain access to the SlideText sub-object selected
>                 'Change appearance of selected sub-object to provide feedback to the
> subject.
>                 Set theSlideText =
> CSlideText(Stimulus.States.Item("Default").Objects(strHit))
>
>                 Dim StrTu As String
>
>                 StrTu = Mid(strHit, 1, 4)
>
>                 Select Case StrTu
>
> Case "Unpl"
>
>             If R2 = False Then
>          theSlideText.BackColor = CColor("red")
>                 R2 = True
>                 UnpleasantnessRating = CInt(Mid(strHit, 5, 3))
>                 c.Setattrib "Unpleasantness", UnpleasantnessRating
>                 Else
>                  If theSlideText.BackColor = CColor("red") Then
>                   R2 = False
>                   eLSE
>        IF theSlidetext.BackColor = CColor("Navy") Then
>                   R2 = False
>                    End If
>             End If
>                 End If
>   End Select
>
>   Goto RedoTrial
>
>   Else
>   If  R2 = False Then
>   Goto RedoTrial
>   End If
>   If R2 = True Then
>   ConfirmarActivado = True
>   End If
> End if
>
> Botton Scale
>
>                 If ConfirmarActivado = true Then
>                 If theSlideText.BackColor = CColor("red")Then
>         theSlidetext.BackColor = CColor("Navy")
>         ConfirmarActivado = true
>                 End If
> End If

-- 
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.