Jeff,
You are using the variable "I" in different ways in your ContinuousPlay
function. In one part, you are manually changing it, and in another you
are using it as a counter in your loop. My guess is that, depending on
the scope of "I," it's being changed so much that your files end up
playing out of order.
Steve
On 9/14/2011 4:14 PM, Jeff Weiss wrote:
Here is the Continuous_Play function and the subroutine with a timer
that plays the files.
Function Continuous_Play(dObj)
On Error Resume Next
If Continuous = 0 Then
Continuous = 1
Speak ""
Speak "Continuous play on "
Sleep 300
Else
Continuous = 0
Speak ""
Speak "Continuous play off "
Sleep 300
I = Total+1
SOAudioKit.Stop MySoundID
SOAudioKit.Invalidate MySoundID
End If
If Continuous = 1 Then
I = Start
For I = Start To Total
FileName = ScriptPath& "\"& MyFolder& "\"& cStr(MyArray(I-1))
PlayFile FileName
If Continuous = 0 Then
I = Total+1
End If
Next
End If
On Error Goto 0
End Function
sub playFile(FileName)
On Error Resume Next
If Continuous = 0 Then
SOAudioKit.Stop MySoundID
SOAudioKit.Invalidate MySoundID
Exit Sub
End If
if SOAudioKit.IsPlaying(MySoundID) Or Pause = 1 Then
' need to wait until it's finished before playing the next sound, check
again in 200 milliseconds
startTimer 100, "PlayFile", FileName
exit sub
end if
-----Original Message-----
From: Stephen Clower [mailto:[email protected]]
Sent: Wednesday, September 14, 2011 2:34 PM
To: [email protected]
Subject: Re: continuous play with audioKit
Jeff,
Could you post the code you are using to do this?
Steve
On 9/14/2011 3:31 PM, Jeff Weiss wrote:
I am trying to play one song after another using the audioKit. I am
using a timer so that one song won't play until the last song is
finished. This works fine.
When I use a for next loop to play 20 songs, for example, the songs
will
play, but they are not in order.
The songs play one after another, but how can I keep them in order
when
they play.
Thanks,
Jeff Weiss, CVRT
Rehabilitation Teacher
Lions World Services for the Blind
2811 Fair Park Blvd.
Little Rock, AR 72204
http://www.lwsb.org
The Mission of LWSB is to educate adults who are blind or visually
impaired for careers and independent lives.
--
Stephen Clower
Product support specialist
GW Micro, Inc. * 725 Airport North Office Park, Fort Wayne, IN 46825
260-489-3671 * gwmicro.com
