Un nuevo control spPlayer: Reproductor de música con Espectrómetro incorporado

Grandamakulo 22-08-2021, 11:36

Vale, Shordi, encontré el cómo a lo de las frecuencias:

Código:
Private Sub GenerateBandList()

  Dim i, x As Float

  Dim band As Float

  For i = 0 To $aBandList.Max

    x = i / $aBandList.Max

    'band = Exp((Log(TOP_FREQUENCY) - Log(BOTTOM_FREQUENCY)) * x + Log(BOTTOM_FREQUENCY))

    band = 10 ^ ((Log10(TOP_FREQUENCY) - Log10(BOTTOM_FREQUENCY)) * x + Log10(BOTTOM_FREQUENCY))

    $aBandList[i] = band

  Next

End

Sólo tengo que modificar la matriz $aBandList.

Última modificación: 22-08-2021, 11:37 por Grandamakulo.