0
0

Hi, first you forgive for my Englishman.
I am from Argentina.
I am working with visual basic and am trying to connect the meter of spectrum but I do not manage to do it.
Someone me podria to order an example of since(as,like) doing it or to explain, is that he(she) is not at all for Internet.
Thank you.

  • You must to post comments
0
0

Thank you for answering.
Hereby I load my file of audio
StreamHandle = FSOUND_Stream_Open (CommonDialog1.filename, FSOUND_NORMAL, 0, 0) streamChannel = FSOUND_Stream_Play (FSOUND_FREE, streamHandle) .-

  • You must to post comments
0
0

Again thank you!!

This one is my code (visual basic)
Option Explicit
Dim sampleChannel as Long
Dim streamHandle as Long

Dim fftunit as Long

Private Sub cmdPlayStream_Click()
streamHandle = FSOUND_Stream_Open (CommonDialog1.filename, FSOUND_NORMAL, 0, 0)

StreamChannel = FSOUND_Stream_Play (FSOUND_FREE, streamHandle)
Fftunit = FSOUND_DSP_GetFFTUnit ()
FSOUND_DSP_SetActive fftunit, True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = fftunit
End Sub

Label1 tendria that to show the floating value, but it(he,she) does not do this Where my ERROR??
Thank you!!
Sebastian.

  • You must to post comments
0
0

The whole code that I use is the fact that mostre in previously.
If it is a possible one an example of since(as,like) To use FSOUND_DSP_GetSpectrum
Thank you
Sebastian

  • You must to post comments
0
0

[code:1s3cu02n]
Dim spec(512) as Single
dim counter as Integer

Call GetSpectrum(spec())
for counter = 0 to 511
debug.print spec(counter)
next counter
[/code:1s3cu02n]

  • You must to post comments
Showing 4 results
Your Answer

Please first to submit.