Independently Manipulating Volumes Based on Response

[Claire]

Hi Alex,

I have a similar design and am also having a lot of trouble making it work. 
Have you had any luck since posting?

Thanks,

Claire


On Wednesday, 29 August 2012 10:12:21 UTC-4, Alex wrote:
>
> Hi all,
>
> I have a quick question about independently manipulating the volume of two 
> different sound files.  Some quick background: 
>
>
>    - There is a brief noise that constantly stays at 100dB.
>    - There are two longer beeps that participants will be listening for 
>    (at 80dB)
>    - If participants hear either of the beeps, they are instructed to 
>    press a key
>       - If the participant makes a response, the two beeps are attenuated 
>       by 5dB
>       - If the participant does not make a response, the two beeps' 
>       volumes are increased by 5dB
>    - The volume change should not occur instantaneously, but rather, 
>    starting at the end of the trial
>
> Below, I have some code that I have tried to use.  I think that my problem 
> is that I'm not storing the volume itself as an integer or value here.  
> When I try to compile the code, it states that the properties have default 
> values.  I've looked far and wide for a solution to this on the web, and 
> after not finding much help, I'm posting here.  Any help or advice on this 
> would be greatly appreciated!  I have attached a snippet of the E-Basic 
> that has been giving me said grief.
>
> Dim MinusBeep As SlideSoundOut
> Dim PlusBeep As SlideSoundOut
>
> Set MinusBeep = 
> CSlideSoundOut(CSMinusPresentation.States(CSMinusPresentation.ActiveState).Objects("CSMinusBeep"))
> Set PlusBeep = 
> CSlideSoundOut(CSPlusPresentation.States(CSPlusPresentation.ActiveState).Objects("CSPlusBeep"))
>
>     If (ActiveState Here).InputMasks.Responses.Count >= 0 Then
>         MinusBeep.Buffers(1).volume = MinusBeep.Buffers(1).volume - 500
>         PlusBeep.Buffers(1).volume = PlusBeep.Buffers(1).volume - 500
>     Else
>         MinusBeep.Buffers(1).volume = MinusBeep.Buffers(1).volume + 500
>         PlusBeep.Buffers(1).volume = PlusBeep.Buffers(1).volume + 500
>     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.
To view this discussion on the web visit https://groups.google.com/d/msg/e-prime/-/t2LJEgGcrhAJ.
For more options, visit https://groups.google.com/groups/opt_out.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://listserv.linguistlist.org/pipermail/eprime/attachments/20121002/5546053a/attachment.htm>