Ciao a tutti,
qualcuno mi sa indicare la DLL da istanziare e gli eventuali plugin per creare un semplice player MP3 ?
Grazie
Ciao a tutti,
qualcuno mi sa indicare la DLL da istanziare e gli eventuali plugin per creare un semplice player MP3 ?
Grazie
- La teoria è quando si sa tutto ma non funziona niente. La pratica è quando funziona tutto ma non si sa il perché. In ogni caso si finisce sempre con il coniugare la teoria con la pratica: non funziona niente e non si sa il perché.
- Se i fatti e la teoria non concordano, cambia i fatti
Ho trovato la soluzione sfruttando
Microsoft.Directx
Tutto funziona perfettamente, ma quando clicco sul bottone di STOP, non succede niente ovvero, il PLAY della canzone non si ferma.
Questo il codice
GrazieCodice PHP:Dim oPlay As Audio
Dim oFile As String = ListBox2.Items.Item(ListBox2.SelectedIndex)
oPlay = New Audio(oFile)
oPlay.Stop()
- La teoria è quando si sa tutto ma non funziona niente. La pratica è quando funziona tutto ma non si sa il perché. In ogni caso si finisce sempre con il coniugare la teoria con la pratica: non funziona niente e non si sa il perché.
- Se i fatti e la teoria non concordano, cambia i fatti
Ma lo Start dove l'hai fatto?
No MP tecnici (non rispondo nemmeno!), usa il forum.
Questo è solo il codice associato al pulsante STOP... al pulsante PLAY ho associato questo codice
Codice PHP:Dim oPlay As Audio
Dim oFile As String = ListBox2.Items.Item(ListBox2.SelectedIndex)
oPlay = New Audio(oFile)
oPlay.Play()
- La teoria è quando si sa tutto ma non funziona niente. La pratica è quando funziona tutto ma non si sa il perché. In ogni caso si finisce sempre con il coniugare la teoria con la pratica: non funziona niente e non si sa il perché.
- Se i fatti e la teoria non concordano, cambia i fatti
Ma gli oggetti istanziati sono diversi? Uno per ogni pulsante?
L'oggetto deve essere UNO SOLO ...
No MP tecnici (non rispondo nemmeno!), usa il forum.
Ho modificato così
Ma continua a non dare segni di vitaCodice PHP:Private Sub GestisciMp3(ByVal operation As String)
Dim oplay As Audio
Dim ofile As String = ListBox2.Items.Item(ListBox2.SelectedIndex)
oplay = New Audio(ofile)
If operation = "Play" Then
oplay.Play()
End If
If operation = "Pause" Then
oplay.Pause()
End If
If operation = "Stop" Then
oplay.Stop()
End If
End Sub
- La teoria è quando si sa tutto ma non funziona niente. La pratica è quando funziona tutto ma non si sa il perché. In ogni caso si finisce sempre con il coniugare la teoria con la pratica: non funziona niente e non si sa il perché.
- Se i fatti e la teoria non concordano, cambia i fatti
L'oggetto oplay deve esistere ed essere istanziato FUORI dalla sub GestisciMp3, magari nella Form_Load.
Altrimenti verra' creato e distrutto ogni volta.
No MP tecnici (non rispondo nemmeno!), usa il forum.
..ok messo fuori il codice
Dim oplay as Audio
ma ancora niente...
- La teoria è quando si sa tutto ma non funziona niente. La pratica è quando funziona tutto ma non si sa il perché. In ogni caso si finisce sempre con il coniugare la teoria con la pratica: non funziona niente e non si sa il perché.
- Se i fatti e la teoria non concordano, cambia i fatti
Puoi mostrare TUTTO il codice che hai adesso ?
No MP tecnici (non rispondo nemmeno!), usa il forum.
Eccolo
Codice PHP:Imports System.Media.SoundPlayer
Imports System.IO
Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback
Public Class Form1
Public oplay As Audio
Public ofile As String
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
GestisciMp3("Play")
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
GestisciMp3("Pause")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
GestisciMp3("Stop")
End Sub
Private Sub GestisciMp3(ByVal operation As String)
ofile = ListBox2.Items.Item(ListBox2.SelectedIndex)
If operation = "Play" Then
oplay = New Audio(ofile)
oplay.Play()
End If
If operation = "Pause" Then
oplay = New Audio(ofile)
oplay.Pause()
End If
If operation = "Stop" Then
oplay = New Audio(ofile)
If oplay.Playing = True Then
oplay.Stop()
End If
End If
End Sub
- La teoria è quando si sa tutto ma non funziona niente. La pratica è quando funziona tutto ma non si sa il perché. In ogni caso si finisce sempre con il coniugare la teoria con la pratica: non funziona niente e non si sa il perché.
- Se i fatti e la teoria non concordano, cambia i fatti
Permessi di invio
Rispondi quotando