1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Public Sub stimOrder()
Randomize
ord = Int((Rnd * 36) + 1) 'pick random no from 1 to nostim
If stimO(ord) = 1 Then
Call stimOrder
ElseIf stimO(ord) = 0 Then
stimO(ord) = 1
order(st1) = (ord)
st1 = st1 + 1
If st1 < 7 Then Call stimOrder
End If
End Sub
Public Sub stimOrder1()
Randomize
ord = Int((Rnd * nostim) + 1) 'pick random no from 1 to nostim
If stimO(ord) = 1 Then
Call stimOrder1
ElseIf stimO(ord) = 0 Then
stimO(ord) = 1
order(st1) = ord
st1 = st1 + 1
If st1 < nostim + 1 Then Call stimOrder1
End If
Open "c:\Studies\Stimuli\EmotionRecognition\Data\Results.txt" For Output As #1
Print #1, "face number, response (A = 1, D = 2, Sa = 3, F = 4, Su = 5, H = 6)"
For T% = 1 To nostim
Print #1, T%; " ";
Print #1, " "; order(T%)
Next T%
Close #1
End Sub |
Partager