[RISOLTO] riprodurre un semplice suono .wav

[giango]

Mi sapreste spiegare come mai dopo aver attivato il componente gb.sdl.sound ed inserito
questo codice sul clic di un pulsante, non riesco a riprodurre il suono?

   Dim suono As String
    suono = avvio.cartella & "boing.wav"  'avvio.cartella = directory di default
    With Music
      .Load(suono)
      .Play()
    End With
    Do
      Sleep 0.01
    Loop Until Music.State = Music.Stopped

[giango]

Mi rispondo da solo!
Non avevo attivato il volume gbx3 Simple DiretMedia Layer.

[vuott]

...questo codice sul clic di un pulsante...

........
    Do
      Sleep 0.01
    Loop Until Music.State = Music.Stopped

V'è da precisare che, poiché l'esempio da te riportato fa riferimento ad un codice che usa il componente gb.sdl.sound ed è posto in un ambiente grafico, l'esecuzione del file audio (o anche Midi) non necessita del ciclo:

Codice: gambas [Seleziona]

Do
    Sleep 0.01
Loop Until Music.State = Music.Stopped

come invece risulta essere necessario per un codice che si sviluppa in un'applicazione a riga di comando.

[giango]

Infatti, quello che dici l'ho intuito subito e ho eliminato le ultime righe di codice.
L'uso che ne faccio è come semplice avviso nel momento in cui devo richiamare
l'attenzione su un evento importante, quello che di solito si faceva un tempo
col beep dell'altoparlante interno.
Grazie.

[vuott]

...quello che di solito si faceva un tempo col beep dell'altoparlante interno.

Colgo l'occasione di questo tuo riferimento per segnalare questa pagina della nostra WIKI per un'eventuale soluzione priva di file audio aggiuntivi:

http://www.gambas-it.org/wiki/index.php?title=Eseguire_onde_sonore_con_Alsa#Esempio_di_codice_per_generare_un_bip


e più in generale sulla gestione dell'audio con Gambas:
http://www.gambas-it.org/wiki/index.php?title=Guide_della_comunit%C3%A0#Gestione_dei_dati_audio_e_dei_file_audio

[giango]

Molto interessante. C'è da perdersi.....!