| | Post: 25 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
  11/11/2016 08:57 | |
Buongiorno, dopo vari tentativi e modifiche al codice, ho inserito in una applicazione di Excel 2010, un brano in formato Wav per avere un sottofondo musicale. Lo stesso al termine, ricomincia ed ho inserito nei vari UserForm dei pulsanti Play e Stop che al momento funzionano. Per completare, desiderei inserire anche il pulsante Pause che non riesco. Il suddetto pulsante dovrebbe interrompere e riprendere il suono. Ho cercato di inserire un codice che interrompe e non riparte. In rete ho trovato e sono tutti in inglese che purtroppo non conosco e chiedo gentilmente un aiuto. Fiducioso, saluto. |
|
| | Post: 3.445 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 11/11/2016 11:01 | |
prova questa ed adattala al tuo caso
'Api to send the commands to the mci device.
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal _
uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Sub suona()
Dim fileToPlay As String
fileToPlay = Chr(34) & ("F:\Documenti\Musica\Champion.MP3") & Chr(34)
mciSendString "open " & fileToPlay & " alias myDevice", vbNullString, 0, 0
mciSendString "play myDevice", vbNullString, 0, 0
End Sub
Sub ferma()
mciSendString "stop myDevice", vbNullString, 0, 0
End Sub
Sub pausa()
mciSendString "pause myDevice", vbNullString, 0, 0
End Sub
Sub riprendi()
mciSendString "resume myDevice", vbNullString, 0, 0
End Sub
Sub chiudi()
mciSendString "close myDevice", vbNullString, 0, 0
End Sub
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 25 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
| 11/11/2016 12:14 | |
Buongiorno Patel,
ho modificato con il tuo e in linea di massima funziona e gradirei modificare se è possibile per migliorare.
1° Necessita inserire un'altro pulsante per la ripresa del brano dopo la pausa che funziona non vi è la possibilità con un'unico pulsante fare Pausa e Ripresa?
2° E' possibile far ricominciare il brano al termine?
Ringrazio e fiducioso saluto.
|
| | Post: 3.446 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 11/11/2016 12:20 | |
prova il file allegato
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 26 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
| 11/11/2016 12:48 | |
ringrazio, ho provato ma non riesco a farlo funzionare. |
| | Post: 3.447 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 11/11/2016 13:08 | |
hai modificato il percorso della musica ?
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 27 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
| 11/11/2016 13:56 | |
naturale è la prima cosa; non vi è audio.
Grazie e scusa. |
| | Post: 4.983 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | ONLINE |
|
| 11/11/2016 14:26 | |
Ciao, Excel si presta a molte cose tra cui anche la riproduzione, puoi inserire nel form anche MediaPlayer, in questo modo hai tutti i pulsanti che ti servono, vedi immagine.
 upload
però io ho optato per far partire "VLC" per la riproduzione.
Ciao By Sal ![[SM=x423051]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0031.gif)
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 28 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
| 11/11/2016 14:47 | |
Buongiorno by sal,
effettivamente si può inserire MediaPlayer cosa che ho già fatto ed ho dovuto fare un passo indietro.
Il motivo: portando l'applicazione su una chiavetta su un'altro pc o notebook che non ha?
Grazie ed attendo fiducioso Patel e trovo strano che l'audio è assente.
|
| | Post: 4.984 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | ONLINE |
|
| 11/11/2016 14:54 | |
Ciao a questo punto non puoi far partire MediaPlayer locale, credo che ogni pc abbia il suo, facendo leggere i tuoi brani.
per il suono può essere il percorso, manca il file, non sia attivato l'altoparlante, le cause possono essere molteplici.
Ciao By Sal
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 3.448 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 11/11/2016 15:25 | |
non so che dire, io ho scaricato l'allegato e mi funziona, a te funziona Sal ? [Modificato da patel45 11/11/2016 15:26]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 29 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
| 11/11/2016 15:48 | |
Con il precedente codice funziona regolarmente, in questa sembra che non legge il percorso.
Grazie di tutto. |
| | Post: 3.449 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 11/11/2016 15:53 | |
allega il tuo file
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 30 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
| 11/11/2016 16:08 | |
Grazie Patel per l'interessamento.
Il file è tuo ultimo ho cambiato solo il percorso. |
| | Post: 3.450 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 11/11/2016 16:48 | |
ti confermo che funziona
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 31 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
| 11/11/2016 17:06 | |
Grazie Patel, purtroppo a me non funziona. Userò il penultimo che mi hai inviato con qualche modifica.
Saluto.
|
|
|
|
|