Differenze tra le versioni di "La gestione dei file audio mediante il componente gb.sdl2.audio"
Riga 1: | Riga 1: | ||
− | Le risorse della libreria ''SDL2'' per la gestione dell'audio è stata da poco implementata in Gambas attraverso il nuovo componente '''''gb.sdl2.audio'''''. | + | Le risorse della libreria ''SDL2'' per la gestione dell'audio è stata da poco implementata in Gambas attraverso il nuovo componente '''''gb.sdl2.audio'''''. |
+ | <BR>Va sottolineato che il componente ''gb.sdl2.audio'' può essere attivato anche indipendentemente dal componente ''gb.sdl2'' . | ||
Il componente fornisce risorse mediante due Classi: ''Sound'' e ''Music''. La Classe attualmente più completa è quella ''Music''. | Il componente fornisce risorse mediante due Classi: ''Sound'' e ''Music''. La Classe attualmente più completa è quella ''Music''. |
Versione delle 10:54, 2 gen 2015
Le risorse della libreria SDL2 per la gestione dell'audio è stata da poco implementata in Gambas attraverso il nuovo componente gb.sdl2.audio.
Va sottolineato che il componente gb.sdl2.audio può essere attivato anche indipendentemente dal componente gb.sdl2 .
Il componente fornisce risorse mediante due Classi: Sound e Music. La Classe attualmente più completa è quella Music.
Indice
Gestione dei file audio mediante le Classi Sound e Channels
La classe Sound consente di ascoltare contemporaneamente due o più (fino a 32) file sonori (solo di tipo .wav).
In questo caso, per far eseguire un file sonoro, è necessario caricarlo in memoria assegnando ad una specifica variabile di tipo "Sound" un singolo file sonoro.
Ogni file sarà fatto suonare in un canale, cosicché è possibile decidere mediante la classe "Channels" quanti canali saranno attivati per la riproduzione, e dunque quanti file, caricati in memoria nelle predette variabili, saranno eseguiti.
Innanzitutto bisognerà stabilire il numero di canali utilizzabili impostando la proprietà:
Channels.Count = numero canali utilizzabili (<=32)
La classe "Channels" ci consente, inoltre, di impostare il volume all'interno di una gamma tra 0 e 128.
Nell'esempio che segue saranno eseguiti contemporaneamente due file WAV in un'applicazione in ambiente grafico. Si avrà anche la possibilità di arrestare e mettere in pausa l'esecuzione del file audio WAV:
Private sn1 As Sound Private sn2 As Sound Public Sub Form_Open() Dim sn1, sn2 As Sound ' Si stabilisce il numero di canali da utilizzare: Channels.Count = 2 ' Si imposta a piacere il volume audio di ciascun canale: Channels[0].Volume = 110 Channels[1].Volume = 90 ' Si carica per ciascun canale un file WAV: sn1 = Sound.Load("/percorso/del/primo/file.wav") sn2 = Sound.Load("/percorso/del/secondo/file.wav") ' Si eseguono contemporaneamentei file WAV dei due canali: Channels[0].Play(sn1) Channels[1].Play(sn2) End Public Sub ToggleButton1_Click() Select Case ToggleButton1.Value Case True Channels[0].Pause Case False Channels[0].Play(sn1) End Select End Public Sub ToggleButton2_Click() Select Case ToggleButton2.Value Case True Channels[1].Pause Case False Channels[1].Play(sn1) End Select End Public Sub Button1_Click() Channels[0].Stop End Public Sub Button3_Click() Channels[1].Stop End
Nell'esempio che segue saranno eseguiti contemporaneamente due file WAV in un'applicazione a riga di comando:
Public Sub Main() Dim sn1, sn2 As Sound ' Si stabilisce il numero di canali da utilizzare: Channels.Count = 2 ' Si imposta a piacere il volume audio di ciascun canale: Channels[0].Volume = 110 Channels[1].Volume = 90 ' Si carica per ciascun canale un file WAV: sn1 = Sound.Load("/percorso/del/primo/file.wav") sn2 = Sound.Load("/percorso/del/secondo/file.wav") ' Si eseguono contemporaneamentei file WAV dei due canali: Channels[0].Play(sn1) Channels[1].Play(sn2) End
Gestione di un solo file audio mediante le Classi Sound e Channel
Se si deve far eseguire un solo file audio WAV, si può utilizzare la Classe Channel unitamente alla già vista Classe Sound.
Mostriamo un semplice esempio in applicazione grafica, nel quale si avrà anche la possibilità di arrestare, mettere in pausa l'esecuzione del file audio WAV e variare il volume dell'audio:
Private cn As New Channel Private sn As Sound Public Sub Form_Open() With Slider1 .MaxValue = 128 .Value = 100 End With ValueBox1.Text = CStr(Slider1.Value) End Public Sub Button1_Click() Dim sn As Sound sn = Sound.Load("/percorso/del/file.wav") cn.Play(sn) End Public Sub ToggleButton1_Click() Select Case ToggleButton1.Value Case True cn.Pause Case False cn.Play(sn) End Select End Public Sub Button2_Click() cn.Stop End Public Sub Slider1_Change() cn.Volume = Slider1.Value ValueBox1.Text = CStr(Slider1.Value) End
In quest'altro esempio l'esecuzione avviene in un'applicazione a riga di comando:
Public Sub Main() Dim sn As Sound Dim cn As New Channel sn = Sound.Load("/percorso/del/file.wav") cn.Play(sn) End
Gestione dei file audio mediante la Classe Music
La Classe Music consente di eseguire i seguenti tipi di file audio: WAV, MP3 e OGG. Inoltre, consente di eseguire un solo file audio per volta.
Mostriamo un semplice esempio in applicazione grafica, nel quale si avrà anche la possibilità di arrestare, mettere in pausa l'esecuzione del file audio WAV e variare il volume dell'audio:
Public Sub Form_Open() With Slider1 .MaxValue = 128 .Value = 100 End With ValueBox1.Text = CStr(Slider1.Value) End Public Sub Button1_Click() Music.Load("/percorso/del/file/audio") Music.Play End Public Sub ToggleButton1_Click() Select Case ToggleButton1.Value Case True Music.Pause Case False Music.Play End Select End Public Sub Button2_Click() Music.Stop End Public Sub Slider1_Change() Music.Volume = Slider1.Value ValueBox1.Text = CStr(Slider1.Value) End
In quest'altro esempio il file audio viene eseguito con un'applicazione a riga di comando:
Public Sub Main() Music.Load("/percorso/del/file/audio") Music.Play ' Per l'esecuzione del file audio in un'applicazione "a riga di comando" il ciclo è indispensabile: While Music.State = Music.Playing ' Mostra anche il tempo trascorso: Print CStr(Date(0, 0, 0, 0, 0, 0, Music.Pos * 1000)) Wend End
Modificare il volume
Come si è visto, anche la Classe Music fornisce la proprietà .Volume per modificare appunto il volume audio dell'esecuzione. L'ambito dei valori possibili va da 0 a 128.
Esempio:
Music.Volume = 110