If...Or...Then

[Matt Paffel]

sorry about the lack of "_", apparently hitting the spacebar to make
indents automatically posts messages

On Sep 22, 4:34 pm, Matt Paffel <mpaf... at gmail.com> wrote:
> Hello
>
> I have Multiple slideslates that I'm tring to change based on the
> script below, however the script isn't performing as I'd like it to.
>
> The message from the output window after debugging states:
>
> 3Lose3
> False
> 2Lose3
> False
> 1Lose3
> False
>
> This tells me that it's collecting the responses correctly and setting
> a slide state but it looks as though the program is going through the
> arguments and declaring them all false, which is not the case. Is
> there something I need to include as the arguments make use of the
> "OR" statement or is something else such as my overzealous use of the
> If...Then statement?
>
> Note: I've added indents here to make it easier to look at.
>
> If LotteryChoice.RESP = "1" And c.GetAttrib("FeedBack1") = "0"_
>  OR c.GetAttrib("FeedBack2") = "0" OR c.GetAttrib("FeedBack3") = "0"
> Then
>  Set Slide1.ActiveState = "Default1"
> End If
> If LotteryChoice.RESP = "2" And c.GetAttrib("FeedBack1") = "0" OR
> c.GetAttrib("FeedBack2") = "0" OR c.GetAttrib("FeedBack3") = "0" Then
>  Set Slide1.ActiveState = "Default2"
> End If
> If LotteryChoice.RESP = "3" And c.GetAttrib("FeedBack1") = "0" OR
> c.GetAttrib("FeedBack2") = "0" OR c.GetAttrib("FeedBack3") = "0" Then
>  Set Slide1.ActiveState = "Default3"
> End If
> If LotteryChoice.RESP = "1" And c.GetAttrib("FeedBack1") = "1" OR
> c.GetAttrib("FeedBack2") = "1" OR c.GetAttrib("FeedBack3") = "1" Then
>  Set Slide1.ActiveState = "Victory1"
> End If
> If LotteryChoice.RESP = "2" And c.GetAttrib("FeedBack1") = "1" OR
> c.GetAttrib("FeedBack2") = "1" OR c.GetAttrib("FeedBack3") = "1" Then
>  Set Slide1.ActiveState = "Victory2"
> End If
> If LotteryChoice.RESP = "3" And c.GetAttrib("FeedBack1") = "1" OR
> c.GetAttrib("FeedBack2") = "1" OR c.GetAttrib("FeedBack3") = "1" Then
>  Set Slide1.ActiveState = "Victory3"
> End If
> If LotteryChoice.RESP = "1" And c.GetAttrib("FeedBack1") = "2" OR
> c.GetAttrib("FeedBack2") = "2" OR c.GetAttrib("FeedBack3") = "2" Then
>  Set Slide1.ActiveState = "Lose1"
> End If
> If LotteryChoice.RESP = "2" And c.GetAttrib("FeedBack1") = "2" OR
> c.GetAttrib("FeedBack2") = "2" OR c.GetAttrib("FeedBack3") = "2" Then
>  Set Slide1.ActiveState = "Lose2"
> End If
> If LotteryChoice.RESP = "3" And c.GetAttrib("FeedBack1") = "2" OR
> c.GetAttrib("FeedBack2") = "2" OR c.GetAttrib("FeedBack3") = "2" Then
>  Set Slide1.ActiveState = "Lose3"
> 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.