BV писал(а):Гхм... как-как... в ряд поставил 11 SliderXP...
нет, не то: я имел в виду, как ты привязал к каналу выхода + частоты ?
Модератор: BV
BV писал(а):Гхм... как-как... в ряд поставил 11 SliderXP...
Public Function GetSpectrum(ByRef Spectrum() As Single)
Dim nrOfVals As Long, lpSpectrum As Long
Dim a As Long
If UBound(Spectrum) > 511 Then nrOfVals = 512 Else nrOfVals = UBound(Spectrum) + 1
lpSpectrum = FSOUND_DSP_GetSpectrum
CopyMemory Spectrum(0), ByVal lpSpectrum, nrOfVals * 4
End Function
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3