SlideStates

[Matt Paffel]

problem solved by inserting If...Then statement:

If c.GetAttrib("GamePlay") = "Default" Then
Set Slide1.ActiveState = "Default"
End If
If c.GetAttrib("GamePlay") = "Lose" Then
If CInt(c.GetAttrib("FinalPie")) = 100 Then
Set Slide1.ActiveState = "Default"
Else
Set Slide1.ActiveState = "Lose"
End If
End If
If c.GetAttrib("GamePlay") = "Victory" Then
Set Slide1.ActiveState = "Victory"
End If

Also, changed "Win" to "Victory" as e-prime had  a problem figuring
out what to do with "Win"


Debug.Print Slide1.ActiveState & c.GetAttrib("GamePlay") &
CInt(c.GetAttrib("FinalPie"))



On Aug 21, 9:47 pm, Matt Paffel <mpaf... at gmail.com> wrote:
> I’m wondering if anyone can help me out with a SlideState problem that
> I’ve been experiencing. I have a slide which has three states:
> default, which I’m using for a fixation; Win, and Lose. Win and Lose
> will be shown periodically throughout the experiment to tell a
> participant if they won or lost a trial. I have an attribute called
> GamePlay which I’m using for the various slide states and have placed
> [GamePlay] in the slides ActiveState dropdown. I’ve been experiencing
> some various problems while trying to accomplish this. For instance,
> if “Win” or “Lose” is in the first trial GamePlay attribute, the
> experiment runs pretty smoothly. However, I’ve noticed while running
> five weighted trials, the program is adding an additional trial and
> giving an error code of “Invalid AciveState”. Additionally, when
> “Default” is in the first trials GamePlay Attribute I again receive an
> error message of “Invalid ActiveState. I’ve tried renaming the default
> SlideState with correlating script but I still find the program to
> behave a little erratically. This is the script that I’m using to set
> the state of the slide:
>
> Dim Win As String
> Dim Lose As String
> Dim x as SlideState
> Dim y as SlideState
> ‘Case “Win”
>         If c.GetAttrib("GamePlay") = "Win" And CInt(c.GetAttrib("FinalPie"))
> <= 100 Then
>                 Set WinLose.ActiveState = "Correct"
>                 x.Enabled = CLogical("Yes")
>                 y.Enabled = CLogical("No")
>         End If
>  'Case "Lose"
>         If c.GetAttrib("GamePlay") = "Lose" And CInt(c.GetAttrib("FinalPie"))
> < 100 Then
>                 Set WinLose.ActiveState = "Incorrect"
>                 x.Enabled = CLogical("No")
>                 y.Enabled = CLogical("Yes")
>         End If
>
> Anyone have an idea on this?

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