"Ditte og Anders Zuschlag" <xzuschlag@mail.tele.dk> skrev i en meddelelse
news:b6hc17$fm6$1@sunsite.dk...
> >Med lidt pusleri skal det nok
> > komme til at fungere.
> Hej
> Lad os bare se løsningen når du er færdig.
Færdig bliver man vel aldrig....
Historien er, at jeg skal afspile en række wav'er efter hinanden, så de
tilsammen kommer til at udgøre en sætning eller to - sagt i en 'radio'. I
baggrunden skal ligge en sammenhængende lyd, der illuderer motorlarm i
baggrunden. Hvis 'motorlarmen' lå i de enkelte wav'er, ville man kunne høre
mellemrummene.
I nedenstående kodesnut er 'mp' en reference til MediaPlayer og strengen
's', som er parameter til funktionen, er en semikolon-separeret streng med
de filnavne, der skal spilles. Funktionen Pause venter et antal sekunder.
En videreudvikling vil være, at det ikke er den samme baggrundslyd, der
startes hver gang, men en tilfældig... og så lidt fejl-håndtering
Public Sub SayIt(s As String)
Dim fil() As String
Dim x As Integer
If s = "" Then Exit Sub
mp.Open App.Path & "\brg2.wav"
Pause 1
fil() = Split(s, ";")
For x = 0 To UBound(fil)
sndPlaySound App.Path & "\jek\" & fil(x) & ".wav", SND_SYNC Or
SND_NODEFAULT
Next
Pause 2
mp.Pause
End Sub
--
mvh
Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
www.railsoft.dk
Døgnets jernbanenyheder:
www.railsoft.dk/medier.asp