Try new post-CodePudding

Like the vb, but had the old, eye, and also energy difference, can only make a small play,
Want to use the vb, waveform acquisition computer speakers, via the vera.ttf into spectrum, take out the intensity of the specified frequency,

'BBS FFT transform 4 * * *, 20180522, TJW
'Dim xr (128) As a Double
'Dim xi (128) As a Double
Private Sub Command1_Click ()
Timer1. Enabled=True
End Sub
Private Sub Command2_Click ()
Timer1. Enabled=False
End Sub
Private Sub Command3_Click ()
End
End Sub
Private Sub Form_Load ()
'the Timer1. Enabled=True' original
'Timer1. Interval=10
'Picture1. AutoRedraw=True
Timer2. Enabled=True 'as an exercise, picture of sine function, a total of 3 lines
Timer2. Interval=10
Picture1. AutoRedraw=True
End Sub
Private Sub Timer1_Timer () 'original copy with random number, it was useless, for your reference
Dim the value As an Integer, I, As an Integer
Dim (pr) As a Double
Dim (PI) As a Double
Dim fr () As a Double
Dim fi () As a Double
Randomize
Value=https://bbs.csdn.net/topics/Int Rnd + (100) (200 *)
List1. AddItem value
If List1. ListCount & gt; 0 And (List1. ListCount Mod=0 128) Then
Picture1. Cls
For I=List1. ListCount - 128 To List1. ListCount - 1
Xr (128 - (List1. ListCount - I))=Val (List1. List (I))
Xi (128 - (List1. ListCount

CodePudding user response:

Not on compression program files, do not understand, ask,

CodePudding user response:

reference 1st floor tankline response:

not on compression program files, do not understand, ask.

This BBS does not support the "attachment", is more applicable, is to use baidu network location sharing links,
Many other network location, as is should have corresponding to login to download, can cause "trouble",
Of course as long as don't need to login to download, can be any network backup,

Your ZhuTie code is not complete? After this revision, ZhuTie content is also restricted to the "1000 characters"?
MD, exactly is "eat shit all difficult" the management of skull, by donkeys or that group of interns is SB???

CodePudding user response:

Module code

 
Option Explicit 
Modules' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
'begin with 0 FFT1 FFT0 array subscripts array subscript begins with a 1 
'AR () imaginary part data real AI () 
'N data points, to an integer power of 2 
'NI 1 is positive transformation, changes of direction - 1 for inverse transform 
'* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
Public Const Pi=3.1415926 

Public Function FFT0 (AR () As a Double, AI () As a Double, N As an Integer, ni As an Integer) 
Dim I As an Integer, j As an Integer, k As an Integer, L As an Integer, M As Integer 
Dim IP As an Integer, LE As Integer 
Dim L1 As an Integer, N1 As an Integer, N2 As Integer 
Dim SN As Double, TR As Double, TI As Double, WR As Double, WI As Double 
Dim UR As Double, UI As Double, US As Double 
M=NTOM (N) 
N2=N/2 
N1=N - 1 
SN=ni 
J=1 
For I=1 To N1 
If I & lt; J Then 
TR=AR (j - 1) 
AR (1) j=AR (I - 1) 
AR (1) I=TR 
TI=AI (j - 1) 
AI (j - 1)=AI (I - 1) 
AI (I - 1)=TI 
End the If 
K=N2 
While (k & lt; J)

CodePudding user response:

Acutely!!!!!!!!!!!!!!!
Don't play, only paste that code?

CodePudding user response:

Finish within three stick can't stick the code, send a result screenshots zongzi, red is data, blue is calculated in the frequency domain,
Below is the test data of code generation,

 
For I=0 To 128 
Xr (I)=50 * (Sin (I) + 2 * Sin Sin (2 * I) + 1.2 * 0.2 * (I)) 'to generate the superposition of several different frequency data 
Xi (I)=0 
Next

The other, to the affair area vomit a slot
https://bbs.csdn.net/topics/392404374

CodePudding user response:

Long code points only labeled, FFFT are made public, however, is not posted,
The effect of satisfaction upstairs.
Available in the computer to continue
thank you

CodePudding user response:

Crispy big ice cream:
The content of the predecessors, I use the FFTT as if is not the same as you, trouble you above the effect of the vb file to my mailbox to learn all right,? Thank you,

[email protected]

CodePudding user response:

refer to 6th floor tankline response:

long code points only labeled, FFFT are made public, however, is not posted,
The effect of satisfaction upstairs.
Available in the computer to continue
Thank you

And after big ice cream to ridicule the webmaster feedback,
10000 has been adjusted to input characters, most of the code can be a finished stickers,