Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [vb.net]eseguire più file audio
Forum - C# / VB.NET - [vb.net]eseguire più file audio

Avatar
fifiddu (Normal User)
Rookie


Messaggi: 41
Iscritto: 01/01/2010

Segnala al moderatore
Postato alle 22:45
Domenica, 13/02/2011
ciao a tutti, sto iniziando a costruire un programmino dove far suonare alla pressione del pulsante play un file wave, il programma e composto da 3 pulsanti: play, stop, open ( apro il file con openfiledialog) 1 combobox: visualizzo il percorso del file, una label.text: visualizzo il nome del file, ora fin qui ci sono riuscito e funziona alla grande, ma se voglio duplicare la stessa applicazione sullo stesso form e quindi: 3 pulsanti di cui: play, stop, open etc... e vado a cambiare i rispettivi percorsi quindi il secondo pulsante di play con il secondo opefiledialog2 etc..e voglio far suonare ad ogni pulsante play un suono diverso, questi mi da errore e mi esce la seguente scritta:

System.ArgumentNullException was unhandled
Message="L'argomento non può essere Nothing. Nome parametro: location"
ParamName="location"

l'idea e di voler creare tanti pulsanti play da far corrispondere ad ogni pressione del medesimo pulsante un suono diverso. vi posto il codice da me scritto:

spero di essere stato chiaro di essere aiutato
allego file immagine del form.



Codice sorgente - presumibilmente VB.NET

  1. Public Class Form1
  2.  
  3.  
  4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  5. My.Computer.Audio.Play(ComboBox1.Text)
  6. End Sub
  7.  
  8. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
  9.  
  10. End Sub
  11.  
  12. Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
  13. ComboBox1.Text = OpenFileDialog1.FileName
  14. End Sub
  15.  
  16. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  17. My.Computer.Audio.Stop()
  18. End Sub
  19.  
  20. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  21. OpenFileDialog1.ShowDialog()
  22. Label1.Text = OpenFileDialog1.SafeFileName
  23. End Sub
  24.  
  25. Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
  26.  
  27.  
  28. End Sub
  29.  
  30. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  31. My.Computer.Audio.Play(ComboBox2.Text)
  32. End Sub
  33.  
  34. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  35. OpenFileDialog2.ShowDialog()
  36. Label2.Text = OpenFileDialog2.SafeFileName
  37. End Sub
  38.  
  39. Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
  40.  
  41. End Sub
  42.  
  43. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
  44. My.Computer.Audio.Play(ComboBox3.Text)
  45. End Sub
  46.  
  47. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
  48. OpenFileDialog3.ShowDialog()
  49. Label3.Text = OpenFileDialog3.SafeFileName
  50. End Sub
  51.  
  52. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  53. My.Computer.Audio.Stop()
  54. End Sub
  55.  
  56. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
  57. My.Computer.Audio.Stop()
  58. End Sub
  59.  
  60. Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
  61. My.Computer.Audio.Stop()
  62. End Sub
  63.  
  64. Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
  65. My.Computer.Audio.Stop()
  66. End Sub
  67.  
  68. Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
  69. My.Computer.Audio.Play(ComboBox4.Text)
  70. End Sub
  71.  
  72. Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
  73. OpenFileDialog4.ShowDialog()
  74. Label4.Text = OpenFileDialog4.SafeFileName
  75. End Sub
  76.  
  77. Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
  78. My.Computer.Audio.Play(ComboBox5.Text)
  79. End Sub
  80.  
  81. Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
  82. OpenFileDialog5.ShowDialog()
  83. Label5.Text = OpenFileDialog5.SafeFileName
  84. End Sub
  85. End Class



fifiddu ha allegato un file: djplayer2.jpg (17577 bytes)
Clicca qui per guardare l'immagine

Ultima modifica effettuata da Il Totem il 14/02/2011 alle 11:21


filippo
PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 11:22
Lunedì, 14/02/2011
L'eccezione non c'entra col fatto che tenti di riprodurre più suoni, ma viene lanciata semplicemente perché il parametro di Play è vuoto (ComboBox.Text).


"Infelici sono quelli che hanno tanto cervello da vedere la loro stupidità."
(Fligende Blatter)

"Dubitare di se stessi è il primo segno d'intelligenza."
(Ugo Ojetti)
PM Quote