Problem selecting from decks in Gambling Task...
KKat
kathy.smolewska at gmail.com
Tue May 26 03:55:38 UTC 2009
Hello,
I am currently working on a modified version of the Iowa Gambling Task
(or Bechara Gambling Task). I have created a nested design for the 4
decks, hoping that this would allow the program to select values for
each deck sequentially. Deck A works but not the others. I'm not sure
what I'm doing wrong but I get the error:
Run-time Error (Line 490)
-990: Factor Error:
No such attribute "varwin2"
I have attached the relevant section of the script below. I'm not sure
how to attach the .es file here.
Thank you!
Kathy
'--------------------------------------------------------------------------
' Instance Declarations
'--------------------------------------------------------------------------
Dim Display As DisplayDevice
Dim Sound As SoundDevice
Dim Keyboard As KeyboardDevice
Dim Mouse As MouseDevice
Dim SessionProc As Procedure
Dim BlockList As List
Dim BlockProc As Procedure
Dim TrialProc As Procedure
Dim Instructions As TextDisplay
Dim InstructionsEchoClients As EchoClientCollection
Dim DesignList As List
Dim DeckA As List
Dim DeckB As List
Dim DeckC As List
Dim DeckD As List
Dim FB As Slide
Dim FB_State As SlideState
Dim FB_SlideText As SlideText
Dim FB_SlideImage As SlideImage
Dim Goodbye As TextDisplay
Dim Game As Slide
Dim GameEchoClients As EchoClientCollection
Dim Game_State As SlideState
Dim Game_SlideText As SlideText
Dim Game_SlideImage As SlideImage
Dim Final As Slide
Dim Final_State As SlideState
Dim Final_SlideText As SlideText
'--------------------------------------------------------------------------
' Package Declare Script
'--------------------------------------------------------------------------
'--------------------------------------------------------------------------
' User Script
'--------------------------------------------------------------------------
Dim totalsum As integer
Dim var As integer
Dim win As integer, loss As integer
Dim totalsumD1 As integer
Dim totalsumD2 As integer
Dim totalsumD3 As integer
Dim totalsumD4 As integer
Dim winD1 As integer, winD2 As integer, winD3 As integer, winD4 As
integer, lossD1 As integer, lossD2 As integer, lossD3 As integer,
lossD4 As integer
Dim EndTotal As integer
Dim EndTotal2 As integer
Dim DeckChoice As integer
Dim Deck1, Deck2, Deck3, Deck4 As Integer
Dim BarTotalwin As Integer
Dim TotalGain As Integer
Dim TotalLoss As Integer
Dim i As Integer, y as Integer, j as Integer
'--------------------------------------------------------------------------
' Package Global Script
'--------------------------------------------------------------------------
'--------------------------------------------------------------------------
' Package Routines
'--------------------------------------------------------------------------
'--------------------------------------------------------------------------
' Implementation
'--------------------------------------------------------------------------
Sub SessionProc_Run(c as Context)
'''''''''''''''''''''''''''''''''''''''''''''
' InLine - Initializevariable BEGIN
'''''''''''''''''''''''''''''''''''''''''''''
Totalsum = 0
TotalsumD1 = 0
TotalsumD2 = 0
TotalsumD3 = 0
TotalsumD4 = 0
EndTotal = 0
EndTotal2 = 0
BarTotalWin = 0
TotalGain = 0
TotalLoss = 0
'''''''''''''''''''''''''''''''''''''''''''''
' InLine - Initializevariable END
'''''''''''''''''''''''''''''''''''''''''''''
Instructions.InputMasks.Reset
If Keyboard.GetState() = ebStateOpen Then
InstructionsEchoClients.RemoveAll
Instructions.InputMasks.Add Keyboard.CreateInputMask("{SPACE}", "",
CLng(Instructions.Duration), CLng("1"), ebEndResponseActionTerminate,
CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes")
End If
Instructions.Run
BlockList.Run c
'''''''''''''''''''''''''''''''''''''''''''''
' InLine - GainOrLose BEGIN
'''''''''''''''''''''''''''''''''''''''''''''
if totalsum > 0 then
Final.ActiveState = "EndWin"
c.setAttrib "Endtotal", totalsum
end if
if totalsum = 0 then
Final.ActiveState = "EndNull"
c.setAttrib "EndTotal", totalsum
end if
if totalsum < 0 then
Final.ActiveState = "EndLoss"
c.setAttrib "EndTotal", totalsum
end if
'''''''''''''''''''''''''''''''''''''''''''''
' InLine - GainOrLose END
'''''''''''''''''''''''''''''''''''''''''''''
Select Case Final.ActiveState
Case "EndWin"
Set Final_SlideText = CSlideText(Final.States.Item("EndWin").Objects
(1))
Final_SlideText.Text = "Congratulations! You have won a total of $"
&_
c.GetAttrib("Endtotal") &_
"."
Set Final_SlideText = Nothing
Case "EndLoss"
Set Final_SlideText = CSlideText(Final.States.Item
("EndLoss").Objects(1))
Final_SlideText.Text = "Unfortunately, you lost money! Your total
loss is $" &_
c.GetAttrib("EndTotal") &_
".\n\n\n\n"
Set Final_SlideText = Nothing
Case "EndNull"
Set Final_SlideText = CSlideText(Final.States.Item
("EndNull").Objects(1))
Final_SlideText.Text = "Unfortunately, you did not win anything.
Your final total is $" &_
c.GetAttrib("EndTotal") &_
"."
Set Final_SlideText = Nothing
End Select
Final.Run
Goodbye.Run
#If RUNTIME_VERSION_MAJOR > 1 Or (RUNTIME_VERSION_MAJOR = 1 And
RUNTIME_VERSION_MINOR >= 2) Then
' Log clock timing information
c.SetAttrib "Clock.Information", Clock.Information
#End If
c.Log
End Sub
Sub BlockProc_Run(c as Context)
DesignList.Run c
c.Log
End Sub
Sub TrialProc_Run(c as Context)
'''''''''''''''''''''''''''''''''''''''''''''
' InLine - InLineA BEGIN
'''''''''''''''''''''''''''''''''''''''''''''
c.setAttrib "totalsum", totalsum
c.setAttrib "TotalsumD1", TotalsumD1
c.setAttrib "TotalsumD2", TotalsumD2
c.setAttrib "TotalsumD3", TotalsumD3
c.setAttrib "TotalsumD4", TotalsumD4
c.setAttrib "TotalGain", TotalGain
c.setAttrib "TotalLoss", TotalLoss
'''''''''''''''''''''''''''''''''''''''''''''
' InLine - InLineA END
'''''''''''''''''''''''''''''''''''''''''''''
Select Case Game.ActiveState
Case "Default"
Set Game_SlideText = CSlideText(Game.States.Item("Default").Objects
(1))
Game_SlideText.Text = "Current Total:" &_
c.GetAttrib("totalsum")
Set Game_SlideText = Nothing
Set Game_SlideText = CSlideText(Game.States.Item("Default").Objects
(2))
Set Game_SlideText = Nothing
Set Game_SlideText = CSlideText(Game.States.Item("Default").Objects
(3))
Set Game_SlideText = Nothing
Set Game_SlideText = CSlideText(Game.States.Item("Default").Objects
(4))
Set Game_SlideText = Nothing
Set Game_SlideText = CSlideText(Game.States.Item("Default").Objects
(5))
Set Game_SlideText = Nothing
Set Game_SlideImage = CSlideImage(Game.States.Item
("Default").Objects(6))
Set Game_SlideImage = Nothing
Set Game_SlideImage = CSlideImage(Game.States.Item
("Default").Objects(7))
Set Game_SlideImage = Nothing
Set Game_SlideImage = CSlideImage(Game.States.Item
("Default").Objects(8))
Set Game_SlideImage = Nothing
Set Game_SlideImage = CSlideImage(Game.States.Item
("Default").Objects(9))
Set Game_SlideImage = Nothing
Set Game_SlideText = CSlideText(Game.States.Item("Default").Objects
(10))
Set Game_SlideText = Nothing
End Select
Game.InputMasks.Reset
If Keyboard.GetState() = ebStateOpen Then
GameEchoClients.RemoveAll
Game.InputMasks.Add Keyboard.CreateInputMask("afjl", "afjl", CLng
(Game.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical
("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes")
End If
Game.Run
c.SetAttrib Game.Name & ".RTTime", Game.RTTime
c.SetAttrib Game.Name & ".RT", Game.RT
c.SetAttrib Game.Name & ".RESP", Game.RESP
' InLine - InLineA BEGIN
'''''''''''''''''''''''''''''''''''''''''''''
c.setAttrib "totalsum", totalsum
c.setAttrib "TotalsumD1", TotalsumD1
c.setAttrib "TotalsumD2", TotalsumD2
c.setAttrib "TotalsumD3", TotalsumD3
c.setAttrib "TotalsumD4", TotalsumD4
c.setAttrib "TotalGain", TotalGain
c.setAttrib "TotalLoss", TotalLoss
'''''''''''''''''''''''''''''''''''''''''''''
' InLine - InLineA END
'''''''''''''''''''''''''''''''''''''''''''''
Select Case Game.ActiveState
Case "Default"
Set Game_SlideText = CSlideText(Game.States.Item("Default").Objects
(1))
Game_SlideText.Text = "Current Total:" &_
c.GetAttrib("totalsum")
Set Game_SlideText = Nothing
Set Game_SlideText = CSlideText(Game.States.Item("Default").Objects
(2))
Set Game_SlideText = Nothing
Set Game_SlideText = CSlideText(Game.States.Item("Default").Objects
(3))
Set Game_SlideText = Nothing
Set Game_SlideText = CSlideText(Game.States.Item("Default").Objects
(4))
Set Game_SlideText = Nothing
Set Game_SlideText = CSlideText(Game.States.Item("Default").Objects
(5))
Set Game_SlideText = Nothing
Set Game_SlideImage = CSlideImage(Game.States.Item
("Default").Objects(6))
Set Game_SlideImage = Nothing
Set Game_SlideImage = CSlideImage(Game.States.Item
("Default").Objects(7))
Set Game_SlideImage = Nothing
Set Game_SlideImage = CSlideImage(Game.States.Item
("Default").Objects(8))
Set Game_SlideImage = Nothing
Set Game_SlideImage = CSlideImage(Game.States.Item
("Default").Objects(9))
Set Game_SlideImage = Nothing
Set Game_SlideText = CSlideText(Game.States.Item("Default").Objects
(10))
Set Game_SlideText = Nothing
End Select
Game.InputMasks.Reset
If Keyboard.GetState() = ebStateOpen Then
GameEchoClients.RemoveAll
Game.InputMasks.Add Keyboard.CreateInputMask("afjl", "afjl", CLng
(Game.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical
("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes")
End If
Game.Run
c.SetAttrib Game.Name & ".RTTime", Game.RTTime
c.SetAttrib Game.Name & ".RT", Game.RT
c.SetAttrib Game.Name & ".RESP", Game.RESP
'''''''''''''''''''''''''''''''''''''''''''''
' InLine - Choose1234 BEGIN
'''''''''''''''''''''''''''''''''''''''''''''
If game.RESP = "a" then
FB.ActiveState = "f1"
win = c.getAttrib("varwin1")
loss = c.getAttrib("varloss1")
totalsum = totalsum + win + loss
TotalGain = TotalGain + win
TotalLoss = TotalLoss + loss
c.setAttrib "Totalsum", Totalsum
c.setAttrib "AmountWon", win
c.setAttrib "AmountLost", loss
c.setAttrib "TotalGain", TotalGain
c.setAttrib "TotalLoss", TotalLoss
c.setAttrib "DeckChoice", 1
winD1 = c.getAttrib("varwin1")
lossD1 = c.getAttrib("varloss1")
TotalsumD1 = totalsumD1 + winD1 + lossD1
c.setAttrib "TotalsumD1", TotalsumD1
i = Abs(TotalGain)
y = c.GetAttrib("TotalLoss")
j = Abs(y)
BarTotalWin = TotalGain/(i+j)*100
c.setAttrib "BarTotalWin", BarTotalWin
If BarTotalWin = 0 then
c.setAttrib "BarImage", "Bar0-100.bmp"
ElseIf BarTotalWin < 0 then
c.setAttrib "BarImage", "Bar0-100.bmp"
ElseIf BarTotalWin > 0 AND BarTotalWin <= 6 then
c.setAttrib "BarImage", "Bar0-100.bmp"
ElseIf BarTotalWin > 6 AND BarTotalWin <= 19 then
c.setAttrib "BarImage", "Bar13-87.bmp"
ElseIf BarTotalWin > 19 AND BarTotalWin <= 31 then
c.setAttrib "BarImage", "Bar25-75.bmp"
ElseIf BarTotalWin > 31 AND BarTotalWin <= 43 then
c.setAttrib "BarImage", "Bar37-63.bmp"
ElseIf BarTotalWin > 43 AND BarTotalWin <= 56 then
c.setAttrib "BarImage", "Bar50-50.bmp"
ElseIf BarTotalWin > 56 AND BarTotalWin <= 69 then
c.setAttrib "BarImage", "Bar63-37.bmp"
ElseIf BarTotalWin > 69 AND BarTotalWin <= 81 then
c.setAttrib "BarImage", "Bar75-25.bmp"
ElseIf BarTotalWin > 81 AND BarTotalWin <= 93 then
c.setAttrib "BarImage", "Bar87-13.bmp"
ElseIf BarTotalWin > 93 AND BarTotalWin < 100 then
c.setAttrib "BarImage", "Bar100-0.bmp"
ElseIf BarTotalWin = 100 then
c.setAttrib "BarImage", "Bar100-0.bmp"
ElseIf BarTotalWin > 100 then
c.setAttrib "BarImage", "Bar100-0.bmp"
End If
elseif game.RESP = "f" then
FB.ActiveState = "f2"
win = c.getAttrib("varwin2")
loss = c.getAttrib("varloss2")
totalsum = totalsum + win + loss
TotalGain = TotalGain + win
TotalLoss = TotalLoss + loss
c.setAttrib "Totalsum", Totalsum
c.setAttrib "AmountWon", win
c.setAttrib "AmountLost", loss
c.setAttrib "TotalGain", TotalGain
c.setAttrib "TotalLoss", TotalLoss
c.setAttrib "DeckChoice", 2
winD2 = c.getAttrib("varwin2")
lossD2 = c.getAttrib("varloss2")
TotalsumD2 = totalsumD2 + winD2 + lossD2
c.setAttrib "TotalsumD2", TotalsumD2
i = Abs(TotalGain)
y = c.GetAttrib("TotalLoss")
j = Abs(y)
BarTotalWin = TotalGain/(i+j)*100
'BarTotalWin = TotalGain/(TotalGain-TotalLoss)*100
c.setAttrib "BarTotalWin", BarTotalWin
If BarTotalWin = 0 then
c.setAttrib "BarImage", "Bar0-100.bmp"
ElseIf BarTotalWin < 0 then
c.setAttrib "BarImage", "Bar0-100.bmp"
ElseIf BarTotalWin > 0 AND BarTotalWin <= 6 then
c.setAttrib "BarImage", "Bar0-100.bmp"
ElseIf BarTotalWin > 6 AND BarTotalWin <= 19 then
c.setAttrib "BarImage", "Bar13-87.bmp"
ElseIf BarTotalWin > 19 AND BarTotalWin <= 31 then
c.setAttrib "BarImage", "Bar25-75.bmp"
ElseIf BarTotalWin > 31 AND BarTotalWin <= 43 then
c.setAttrib "BarImage", "Bar37-63.bmp"
ElseIf BarTotalWin > 43 AND BarTotalWin <= 56 then
c.setAttrib "BarImage", "Bar50-50.bmp"
ElseIf BarTotalWin > 56 AND BarTotalWin <= 69 then
c.setAttrib "BarImage", "Bar63-37.bmp"
ElseIf BarTotalWin > 69 AND BarTotalWin <= 81 then
c.setAttrib "BarImage", "Bar75-25.bmp"
ElseIf BarTotalWin > 81 AND BarTotalWin <= 93 then
c.setAttrib "BarImage", "Bar87-13.bmp"
ElseIf BarTotalWin > 93 AND BarTotalWin < 100 then
c.setAttrib "BarImage", "Bar100-0.bmp"
ElseIf BarTotalWin = 100 then
c.setAttrib "BarImage", "Bar100-0.bmp"
ElseIf BarTotalWin > 100 then
c.setAttrib "BarImage", "Bar100-0.bmp"
End If
elseif game.RESP = "j" then
FB.ActiveState = "f3"
win = c.getAttrib("varwin3")
loss = c.getAttrib("varloss3")
totalsum = totalsum + win + loss
TotalGain = TotalGain + win
TotalLoss = TotalLoss + loss
c.setAttrib "Totalsum", Totalsum
c.setAttrib "AmountWon", win
c.setAttrib "AmountLost", loss
c.setAttrib "TotalGain", TotalGain
c.setAttrib "TotalLoss", TotalLoss
c.setAttrib "DeckChoice", 3
winD3 = c.getAttrib("varwin3")
lossD3 = c.getAttrib("varloss3")
TotalsumD3 = totalsumD3 + winD3 + lossD3
c.setAttrib "TotalsumD3", TotalsumD3
i = Abs(TotalGain)
y = c.GetAttrib("TotalLoss")
j = Abs(y)
BarTotalWin = TotalGain/(i+j)*100
'BarTotalWin = TotalGain/(TotalGain-TotalLoss)*100
c.setAttrib "BarTotalWin", BarTotalWin
If BarTotalWin = 0 then
c.setAttrib "BarImage", "Bar0-100.bmp"
ElseIf BarTotalWin < 0 then
c.setAttrib "BarImage", "Bar0-100.bmp"
ElseIf BarTotalWin > 0 AND BarTotalWin <= 6 then
c.setAttrib "BarImage", "Bar0-100.bmp"
ElseIf BarTotalWin > 6 AND BarTotalWin <= 19 then
c.setAttrib "BarImage", "Bar13-87.bmp"
ElseIf BarTotalWin > 19 AND BarTotalWin <= 31 then
c.setAttrib "BarImage", "Bar25-75.bmp"
ElseIf BarTotalWin > 31 AND BarTotalWin <= 43 then
c.setAttrib "BarImage", "Bar37-63.bmp"
ElseIf BarTotalWin > 43 AND BarTotalWin <= 56 then
c.setAttrib "BarImage", "Bar50-50.bmp"
ElseIf BarTotalWin > 56 AND BarTotalWin <= 69 then
c.setAttrib "BarImage", "Bar63-37.bmp"
ElseIf BarTotalWin > 69 AND BarTotalWin <= 81 then
c.setAttrib "BarImage", "Bar75-25.bmp"
ElseIf BarTotalWin > 81 AND BarTotalWin <= 93 then
c.setAttrib "BarImage", "Bar87-13.bmp"
ElseIf BarTotalWin > 93 AND BarTotalWin < 100 then
c.setAttrib "BarImage", "Bar100-0.bmp"
ElseIf BarTotalWin = 100 then
c.setAttrib "BarImage", "Bar100-0.bmp"
ElseIf BarTotalWin > 100 then
c.setAttrib "BarImage", "Bar100-0.bmp"
End If
elseif game.RESP = "l" then
FB.ActiveState = "f4"
win = c.getAttrib("varwin4")
loss = c.getAttrib("varloss4")
totalsum = totalsum + win + loss
TotalGain = TotalGain + win
TotalLoss = TotalLoss + loss
c.setAttrib "Totalsum", Totalsum
c.setAttrib "AmountWon", win
c.setAttrib "AmountLost", loss
c.setAttrib "TotalGain", TotalGain
c.setAttrib "TotalLoss", TotalLoss
c.setAttrib "DeckChoice", 4
winD4 = c.getAttrib("varwin4")
lossD4 = c.getAttrib("varloss4")
TotalsumD4 = totalsumD4 + winD4 + lossD4
c.setAttrib "TotalsumD4", TotalsumD4
i = Abs(TotalGain)
y = c.GetAttrib("TotalLoss")
j = Abs(y)
BarTotalWin = TotalGain/(i+j)*100
'BarTotalWin = TotalGain/(TotalGain-TotalLoss)*100
c.setAttrib "BarTotalWin", BarTotalWin
If BarTotalWin = 0 then
c.setAttrib "BarImage", "Bar0-100.bmp"
ElseIf BarTotalWin < 0 then
c.setAttrib "BarImage", "Bar0-100.bmp"
ElseIf BarTotalWin > 0 AND BarTotalWin <= 6 then
c.setAttrib "BarImage", "Bar0-100.bmp"
ElseIf BarTotalWin > 6 AND BarTotalWin <= 19 then
c.setAttrib "BarImage", "Bar13-87.bmp"
ElseIf BarTotalWin > 19 AND BarTotalWin <= 31 then
c.setAttrib "BarImage", "Bar25-75.bmp"
ElseIf BarTotalWin > 31 AND BarTotalWin <= 43 then
c.setAttrib "BarImage", "Bar37-63.bmp"
ElseIf BarTotalWin > 43 AND BarTotalWin <= 56 then
c.setAttrib "BarImage", "Bar50-50.bmp"
ElseIf BarTotalWin > 56 AND BarTotalWin <= 69 then
c.setAttrib "BarImage", "Bar63-37.bmp"
ElseIf BarTotalWin > 69 AND BarTotalWin <= 81 then
c.setAttrib "BarImage", "Bar75-25.bmp"
ElseIf BarTotalWin > 81 AND BarTotalWin <= 93 then
c.setAttrib "BarImage", "Bar87-13.bmp"
ElseIf BarTotalWin > 93 AND BarTotalWin < 100 then
c.setAttrib "BarImage", "Bar100-0.bmp"
ElseIf BarTotalWin = 100 then
c.setAttrib "BarImage", "Bar100-0.bmp"
ElseIf BarTotalWin > 100 then
c.setAttrib "BarImage", "Bar100-0.bmp"
End If
End If
'''''''''''''''''''''''''''''''''''''''''''''
' InLine - Choose1234 END
'''''''''''''''''''''''''''''''''''''''''''''
Select Case FB.ActiveState
Case "f1"
Set FB_SlideText = CSlideText(FB.States.Item("f1").Objects(1))
Set FB_SlideText = Nothing
Set FB_SlideText = CSlideText(FB.States.Item("f1").Objects(2))
FB_SlideText.Text = "Previous Total: $" &_
c.GetAttrib("totalsum")
Set FB_SlideText = Nothing
Set FB_SlideText = CSlideText(FB.States.Item("f1").Objects(3))
FB_SlideText.Text = "\nLoss:" &_
c.GetAttrib("varloss1")
Set FB_SlideText = Nothing
Set FB_SlideText = CSlideText(FB.States.Item("f1").Objects(4))
FB_SlideText.Text = "Gain:" &_
c.GetAttrib("varwin1")
Set FB_SlideText = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f1").Objects(5))
FB_SlideImage.Filename = c.GetAttrib("BarImage")
FB_SlideImage.Load
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f1").Objects(6))
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f1").Objects(7))
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f1").Objects(8))
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f1").Objects(9))
Set FB_SlideImage = Nothing
Case "f2"
Set FB_SlideText = CSlideText(FB.States.Item("f2").Objects(1))
Set FB_SlideText = Nothing
Set FB_SlideText = CSlideText(FB.States.Item("f2").Objects(2))
FB_SlideText.Text = "Loss:" &_
c.GetAttrib("varloss2")
Set FB_SlideText = Nothing
Set FB_SlideText = CSlideText(FB.States.Item("f2").Objects(3))
FB_SlideText.Text = "Gain:" &_
c.GetAttrib("varwin2")
Set FB_SlideText = Nothing
Set FB_SlideText = CSlideText(FB.States.Item("f2").Objects(4))
FB_SlideText.Text = "Previous Total:$" &_
c.GetAttrib("totalsum")
Set FB_SlideText = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f2").Objects(5))
FB_SlideImage.Filename = c.GetAttrib("BarImage")
FB_SlideImage.Load
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f2").Objects(6))
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f2").Objects(7))
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f2").Objects(8))
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f2").Objects(9))
Set FB_SlideImage = Nothing
Case "f3"
Set FB_SlideText = CSlideText(FB.States.Item("f3").Objects(1))
FB_SlideText.Text = "Loss:" &_
c.GetAttrib("varloss3")
Set FB_SlideText = Nothing
Set FB_SlideText = CSlideText(FB.States.Item("f3").Objects(2))
FB_SlideText.Text = "Gain:" &_
c.GetAttrib("varwin3")
Set FB_SlideText = Nothing
Set FB_SlideText = CSlideText(FB.States.Item("f3").Objects(3))
Set FB_SlideText = Nothing
Set FB_SlideText = CSlideText(FB.States.Item("f3").Objects(4))
FB_SlideText.Text = "Previous Total:$" &_
c.GetAttrib("totalsum")
Set FB_SlideText = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f3").Objects(5))
FB_SlideImage.Filename = c.GetAttrib("BarImage")
FB_SlideImage.Load
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f3").Objects(6))
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f3").Objects(7))
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f3").Objects(8))
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f3").Objects(9))
Set FB_SlideImage = Nothing
Case "f4"
Set FB_SlideText = CSlideText(FB.States.Item("f4").Objects(1))
FB_SlideText.Text = "Loss:" &_
c.GetAttrib("varloss4")
Set FB_SlideText = Nothing
Set FB_SlideText = CSlideText(FB.States.Item("f4").Objects(2))
FB_SlideText.Text = "Gain:" &_
c.GetAttrib("varwin4")
Set FB_SlideText = Nothing
Set FB_SlideText = CSlideText(FB.States.Item("f4").Objects(3))
Set FB_SlideText = Nothing
Set FB_SlideText = CSlideText(FB.States.Item("f4").Objects(4))
FB_SlideText.Text = "Previous Total:$" &_
c.GetAttrib("totalsum")
Set FB_SlideText = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f4").Objects(5))
FB_SlideImage.Filename = c.GetAttrib("BarImage")
FB_SlideImage.Load
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f4").Objects(6))
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f4").Objects(7))
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f4").Objects(8))
Set FB_SlideImage = Nothing
Set FB_SlideImage = CSlideImage(FB.States.Item("f4").Objects(9))
Set FB_SlideImage = Nothing
End Select
FB.Run
c.SetAttrib Game.Name & ".RTTime", Game.RTTime
c.SetAttrib Game.Name & ".RT", Game.RT
c.SetAttrib Game.Name & ".RESP", Game.RESP
c.Log
End Sub
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
More information about the Eprime
mailing list