Visualizza wikitesto di Generare un'onda sinusoidale con il componente gb.openal

Utilizzando le risorse della Classe " ''Alc'' " del Componente ''gb.openal'' di Gambas, è possibile eseguire un'onda sinusoidale, i cui dati saranno realizzati mediante appsota formula matematica.

Vediamo un esempio pratico:
 Private Const AMPLITUD As Byte = 127
 Private Const FRECUENCIA As Short = 880
 Private Const MUESTREO As Integer = 44100
 Private Const DURACION As Single = 4.0
 
 
 '''Public''' Sub Main()
  
  Dim disp As AlcDevice
  Dim cont As AlcContext
  Dim src, buffer As Integer[]
  Dim err As Boolean
  Dim Formato_audio As Integer
  Dim datos As New Byte[]
    
 <FONT Color=gray>' ''Configura il dispositivo e il contesto audio con la Clsase "Alc":''</font>
   disp = Alc.OpenDevice(Null)
   cont = Alc.CreateContext(disp)
   
   err = cont.MakeCurrent()
   If err = False Then Error.Raise("Impossibile creare il contesto audio !")
   
   src = Al.GenSources(1)
   
 <FONT Color=gray>' ''Configura il buffer audio:''</font>
   buffer = Al.GenBuffers(1)
   
   Unda(datos)
   
   Formato_audio = 4352
   
 <FONT Color=gray>' ''I dati audio sono caricati nel buffer audio:''</font>
   Al.BufferData(buffer[0], Formato_audio, datos.Data, datos.Count, MUESTREO)
  
 <FONT Color=gray>' ''Connette il buffer audio al sorgente audio:''</font>
   Al.Sourcei(src[0], Al.BUFFER, buffer[0])
   
 <FONT Color=gray>' ''Esegue il sorgente audio:''</font>
   Al.SourcePlay(src[0])
   
 <FONT Color=gray>' ''Consente l'esecuzione per l'intera durata dell'onda sonora:''</font>
   Sleep DURACION
   
 <FONT Color=gray>' ''Libera la memoria:''</font>
   Al.DeleteBuffers(buffer)
   Al.DeleteSources(src)
   Alc.DestroyContext(cont)
   Alc.CloseDevice(disp)
   
 '''End'''
 
 
 '''Private''' Function Unda(bb As Byte[])   <FONT Color=gray>' ''Crea i dati dell'onda sonora''</font>
  
  Dim i As Integer
   
   For i = 0 To (DURACION * 2 * MUESTREO) - 1
     bb.Push(CByte(128 + AMPLITUD * Sin(CFloat(i / MUESTREO * FRECUENCIA * (2 * Pi)))))
   Next
   
 '''End'''