Differenze tra le versioni di "Eseguire un file MIDI mediante il componente gb.media"
Riga 71: | Riga 71: | ||
Timer1.Stop | Timer1.Stop | ||
− | <FONT color=#006400>' ''Se è stato cliccato sul "RadioButton", | + | <FONT color=#006400>' ''Se è stato cliccato sul "RadioButton", verrà ripetuta l'esecuzione del file Midi:''</font> |
− | |||
If RadioButton1.Value Then suona() | If RadioButton1.Value Then suona() | ||
Versione delle 11:43, 31 gen 2015
Per eseguire ed ascoltare un file Midi, utilizzando un breve codice, è possibile adoperare le funzionalità della multipiattaforma gstreamer, attivando il componente gb.media.
E' necessario aver installato il file banco di suoni di default di Timidity: "/usr/share/sounds/sf2/TimGM6mb.sf2", oppure di FluidSynth: "/usr/share/sounds/sf2/FluidR3_GM.sf2".
Indice
La classe MediaPlayer
Come per l'ascolto dei file audio, si utilizzeranno i metodi specifici della Classe MediaPlayer del componente gb.media.
Ecco di seguito un semplicissimo codice per lanciare ed ascoltare uno standard file Midi (.mid). Porremo sul Form del progetto:
- tre Button per avviare, mettere in pausa ed arrestare l'esecuzione del file Midi;
- un Timer che ci consentirà di calcolare il tempo trascorso;
- un RadioButton per far ripetere a volontà il medesimo file Midi:
Private mp As New MediaPlayer Public Sub Form_Open() ' Carica il file Midi .mid: mp.URL = Media.URL("/percorso/del/file.mid") ' Facciamo in modo che il "Timer", alla sua prima attivazione, ' parta senza alcun ritardo: Timer1.Delay = 1 End Public Sub Button1_Click() suona() End Public Sub suona() ' Avvia l'ascolto del file Midi: mp.Play With Timer1 .Start ' Il "Timer" si attiva ogni mezzo secondo: .Delay = 500 End With End Public Sub Button2_Click() ' Mette in "pausa" l'ascolto del file Midi. ' (Per continuare l'ascolto del file, si dovrà nuovamente attivare la proprietà ".Play"): mp.Pause End Public Sub Button3_Click() RadioButton1.Value = False ' Chiama la funzione per arrestare l'esecuzione del file Midi: arresta() End Public Sub arresta() ' Arresta l'ascolto del file Midi: mp.Stop Timer1.Stop ' Se è stato cliccato sul "RadioButton", verrà ripetuta l'esecuzione del file Midi: If RadioButton1.Value Then suona() End Public Sub Timer1_Timer() ' Mostra in console la posizione, espressa in secondi, all'interno dei dati processati: Print mp.Position ' Se la posizione corrente è uguale o maggiore della durata complessiva del brano Midi, ' allora arresta l'esecuzione del file Midi (altrimenti non sarà possibile riavviarlo semplicemente ri-clkiccando sul "Button1"): If mp.Position >= mp.Duration Then arresta() End
La proprietà .Duration
La proprietà .Duration restituisce un valore di tipo Float che rappresenta la durata del brano musicale espresso in secondi.
Poiché detta proprietà ritorna più precisamente la durata dei dati processati, essa potrà essere utilizzabile solo successivamente all'attivazione della funzione .Play. Per essere funzionante in modo automatico, potrà essere posta all'interno di una routine di attivazione di un Timer (vedi esempio precedente).
La proprietà .Position
La proprietà .Position restituisce un valore di tipo Float che rappresenta la posizione, espressa in secondi all'interno dei dati processati.
Imposta, altresì, la posizione di esecuzione del brano. Pertanto, essa consente di spostare il processo dei dati, e dunque l'esecuzione del brano, ad un particolare punto temporale.
Modificare il Volume
Per modificare il volume dell'ascolto si dovrà utilizzare la proprietà ".Volume" della proprietà .Audio della Classe MediaPlayer.
Più in particolare la proprietà ".Volume" ritorna od imposta il volume del corrente flusso audio. Nel primo caso restituisce un valore di tipo Float che rappresenta il volume corrente:
valore_di_tipo_Float = mp.Audio.Volume
nel secondo caso il volume è impostato mediante un valore di tipo Float:
mp.Audio.Volume = valore_di_tipo_Float
Annullare l'audio immediatamente
Per annullare l'audio immediatamente, senza modificare i valori del volume, si ha a disposizione la proprietà ".Mute" della proprietà .Audio della Classe MediaPlayer. Alla proprietà .Mute dovrà essere assegnato il valore booleano True.
mp.Audio.Mute = True
L'evento _AboutToFinish
L'evento _AboutToFinish si scatena circa un secondo prima della fine della durata del file che si sta eseguendo.
L'evento _End
L'evento _End si scatena quando la durata del file è terminata.
Gli effetti video con i plug-in
E' possibile ottenere simpatici effetti video utilizzando i plug-in resi disposibili da GStreamer.
In tal caso si farà uso anche della Classe MediaControl che è serve per gestire appositamente i plug-in di GStreamer.
Mostreremo di seguito il codice esenziale per l'utilizzo degli effeti video con i plug-In (si inserirà anche una DrawingArea, che chiameremo drVid, sul Form):
Private mp As New MediaPlayer As "mp" Private uscitaVideo As MediaControl Private arrVis As MediaControl[] ' Un array di variabili di tipo "MediaControl", ossia di vari PlugIn disponibili Private iVis As Integer ' Modificando il valore della seguente variabile integer si modifica anche il tipo di visualizzazione Public Sub Form_Open() avviaPlugin() ' Si dice al MediaControl di mostrare il proprio output (gli effetti video) in uno specifico controllo GUI, solitamente una DrawingArea: uscitaVideo.SetWindow(drVid) With mp .URL = Media.URL("/percorso/del/file.mid") .State = 4 .State = 2 End With Wait 0.1 ' Se viene impostato uno specifico controllo GUI (solitamente una DrawingArea), ' l'effetto video sarà mostrato all'interno di quel controllo. ' Se, invece, non verrà impostato alcun controllo GUI, allora l'effetto video sarà mostrato in un controllo esterno al Form. ' Nel presente esempio impostiamo una "DrawingArea" (che qui chiamiamo "drVid"), e così diciamo "al MediaControl ' di mostrare il proprio output (gli effetti video) in quello specifico controllo GUI (appunto la DrawingArea): uscitaVideo.SetWindow(drVid) ' Esegue il brano: mp.Play() End Public Sub avviaPlugin() ' Istanzia il controllo di uscita video da usare. In questo caso sarà "ximagesink", ' un "videosink" basato sullo standard X, e che è esso stesso un plug-in: uscitaVideo = New MediaControl(mp, "ximagesink") ' Imposta il controllo di uscita video da usare: mp.Video.Output = uscitaVideo arrVis = New MediaControl[] ' Nella variabile array di tipo "MediaControl" vengono aggiunti i diversi PlugIn disponibili. ' Il primo elemento dell'array deve essere sostanzialmente vuoto. Se si sceglie questa opzione, non sarà visualizzato alcun motivo: aggiunVis("", "") ' Ecco alcuni disponibili: aggiunVis("goom", "Goom") ' Monoscopio è un plugin che consente di visualizzare una forma d'onda altamente stabilizzata di ingresso audio aggiunVis("monoscope", "Mono") aggiunVis("spacescope", "Space") aggiunVis("spectrascope", "Spectra") aggiunVis("synaescope", "Synae") ' Oscilloscopio a forma d'onda semplice: aggiunVis("wavescope", "Wave") ' Viene impostato il plugin fra quelli sopra indicati: iVis = 7 aggioVis() End Public Sub aggiunVis(tipoPlug As String, titolo As String) Dim hVis As MediaControl ' La variabile "tipoPlug" contiene il tipo di plug'in... If tipoPlug Then hVis = New MediaControl(mp, tipoPlug) ' ...che viene aggiunta agli elementi della omogenea variabile array: arrVis.Add(hVis) Catch Error tipoPlug; ": "; Error.Text End Public Sub aggioVis() Dim hVis As MediaControl = arrVis[iVis - 1] ' Imposta il plug-in da utilizzare: mp.Video.Visualisation = hVis ' Anche qui viene impostata la "DrawingArea", ove mostrare gli effetti video: uscitaVideo.SetWindow(drVid) End