meerdere sounds tegelijk

[NPS25]

ik ben bezig met een soort mix programma, met van die samples, maar ik wil er voor zorgen
dat die samples ook tegelijk onder elkaar kunnen worden afgespeeld. want nu heb ik dat als ik
op start klik dat ie gewoon afspeelt maar dan klik ik op een andere sample dan kapt ie die andere af
en speel die andere wel weer af.

mijn vraag is dus dat ik 2 verschillende samples wil laten afspelen, is er een code die ik in mijn form kan zetten?

ik hoop dat de vraag een beetje duidelijk is

Groetjes, NPS25

(Visual Basic 2005 Express Edition)

 

[Dummy1912]

Gebruik je een mediaplayer?

kan je niet eventueel

Dim Media as New AxWindowsMediaPlayer1
Me.Controls.Add(media)

zodat je een andere sound kunt spelen
is maar een idee

Dummy1912

 

[NPS25]

ik gebruik geen media player
ik doe het op de achtergrond, met deze code

My.Computer.Audio.Play(My.Resources.Hier_de_sample, AudioPlayMode.BackgroundLoop)

is daar geen oplossing voor dan?

 

[Dummy1912]

hey,

je kan eens proberen met een timer met een bepaalde tijd.
kan zijn dat het dan werkt maar ben er niet zeker van

heb even gezocht op google maar ik vindt niets meteen iets terug over dit verband.

Ik heb er een beetje vrees voor dat dit mogelijk is.

Dummy1912

 

[NPS25]

oke

in iedergeval toch bedankt
mar ik heb nog 1 vraag:
als ik een sample afspeel en dan op kruisje klik dan blijft hij doorgaan
is er een code zodra er op het kruisje geklikt word dat dan de samples stoppen?

 

[Dummy1912]

je wilt door het kruisje de speel file stoppen
dat doe je met

   My.Computer.Audio.Stop

weet niet of het allemaal stopt maar denk het wel

Dummy1912

 

[NPS25]

ik heb die code al met een speciale stop knop
maar als je de sample gewoon door laat gaan en dan op kruisje klikt dan speelt ie gewoon door op je computer,
het enige wat je kunt doen is je computer opnieuw opstarten

is er daar een code voor?
dat als je op kruisje klikt dat de sounds stoppen?

 

[Dummy1912]

je bedoelt het X op je form? of hebt je zelf een button gemaakt als X

want anders moet je onder deze

    Private Sub MainMenu_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles 
MyBase.Closing

My.Computer.Audio.Stop
end sub

Vraagje hoeveel samples heb je dan lopen?
omdat het niet stopt...

Dummy1912

 

[NPS25]

ik heb gewoon allemaal samples maar zoals je weet kunnen die niet tegelijk aan staan
dus in feite staat er altijd maar 1 tegelijk aan,

en ik heb het over de X rechtsboven in beeld, waarmee je je programma sluit

 

[Dummy1912]

Normaal zou het met de code die ik je had gegeven als je de X klikt moeten stoppen met spelen.

Private Sub MainMenu_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles 
MyBase.Closing

My.Computer.Audio.Stop
end sub

Dummy1912

 

[NPS25]

ik heb de code geprobeert maar als ik het programma start geeft ie wel aan dat er een fout zit in dat stukje code en dan bij

Handles
MyBase.Closing

dat laatste stukje

maar ik waardeer de hulp heel erg

 

[Dummy1912]

Hey NPS25,

Wat als je nu een class zou gebruiken dan kan je audio automatisch stoppen.

Ik heb een class voor audio
maar ik gebruik wel hiervoor de resource
of je moet eventueel de code aanpassen als je enkel via file's wilt werken.

wel geef me een seintje zal zien wat ik kan doen.

of probeer deze eens:

Dim Sound As New System.Media.SoundPlayer() 

Sound.SoundLocation = "your path to the .wav file"  'ex.: c:\mysound.wav  
Sound.Load()  
Sound.Play()

Imports System.Media

If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            txtFileNm.Text = openFileDialog1.FileName
 End If

Private Sub btnPlay_Click(ByVal sender As Object, ByVal e As EventArgs)
      If txtFileNm.Text <> String.Empty Then
            Dim wavPlayer As SoundPlayer = New SoundPlayer()
            wavPlayer.SoundLocation = txtFileNm.Text
AddHandler wavPlayer.LoadCompleted, AddressOf wavPlayer_LoadCompleted
            wavPlayer.LoadAsync()
      End If
End Sub
 
Private Sub wavPlayer_LoadCompleted(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
      CType(sender, System.Media.SoundPlayer).Play()
End Sub

Run the application (F5). Click the Select File button and choose a .wav file. Click on the play button

of kijk eens hier

http://www.codeproject.com/KB/audio-video/SoundClass.aspx

Dummy1912