📄 ffft.frm
字号:
VERSION 5.00
Begin VB.Form fFFT
BackColor = &H00E0E0E0&
BorderStyle = 3 'Fester Dialog
Caption = "Fast Fourier Transformation"
ClientHeight = 6690
ClientLeft = 45
ClientTop = 435
ClientWidth = 12030
Icon = "fFFT.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6690
ScaleWidth = 12030
ShowInTaskbar = 0 'False
StartUpPosition = 2 'Bildschirmmitte
Begin VB.Frame fr
Height = 2025
Index = 4
Left = 195
TabIndex = 4
Top = 4500
Width = 11685
Begin VB.Frame rf
Caption = "Reverse Transform"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 1530
Left = 8730
TabIndex = 24
Top = 270
Width = 2565
Begin VB.CheckBox ckRemoveNoise
Caption = "...with noise and 牋爃armonics removed"
Height = 360
Left = 135
TabIndex = 26
Top = 1050
Width = 2160
End
Begin VB.CheckBox ckReverse
Caption = "This option will perform an extra pass to reverse-trans- form the current spectrum..."
Height = 780
Left = 135
TabIndex = 25
Top = 210
Width = 2235
End
End
Begin VB.Frame fr
Caption = "Samples"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 1530
Index = 0
Left = 525
TabIndex = 18
Top = 270
Width = 1275
Begin VB.OptionButton optSamples
Caption = " 256"
Height = 195
Index = 0
Left = 360
TabIndex = 23
Top = 285
Width = 720
End
Begin VB.OptionButton optSamples
Caption = " 512"
Height = 195
Index = 1
Left = 360
TabIndex = 22
Top = 510
Width = 720
End
Begin VB.OptionButton optSamples
Caption = "1024"
Height = 195
Index = 2
Left = 360
TabIndex = 21
Top = 735
Width = 720
End
Begin VB.OptionButton optSamples
Caption = "2048"
Height = 195
Index = 3
Left = 360
TabIndex = 20
Top = 960
Value = -1 'True
Width = 720
End
Begin VB.OptionButton optSamples
Caption = "4096"
Height = 195
Index = 4
Left = 360
TabIndex = 19
Top = 1200
Width = 720
End
End
Begin VB.Frame fr
Caption = "Waveform"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 1530
Index = 1
Left = 1950
TabIndex = 12
Top = 270
Width = 2265
Begin VB.OptionButton optWaveform
Caption = "0 Hz"
Height = 195
Index = 4
Left = 360
TabIndex = 17
Top = 1200
Width = 675
End
Begin VB.OptionButton optWaveform
Caption = "Trapezoid"
Height = 195
Index = 3
Left = 360
TabIndex = 16
Top = 960
Width = 1050
End
Begin VB.OptionButton optWaveform
Caption = "Squarewave"
Height = 195
Index = 2
Left = 360
TabIndex = 15
Top = 735
Width = 1245
End
Begin VB.OptionButton optWaveform
Caption = "Sine with harmonics"
Height = 195
Index = 1
Left = 360
TabIndex = 14
Top = 510
Width = 1755
End
Begin VB.OptionButton optWaveform
Caption = "Pure Sine"
Height = 195
Index = 0
Left = 360
TabIndex = 13
Top = 285
Value = -1 'True
Width = 1050
End
End
Begin VB.Frame fr
Caption = "Characteristics"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 1530
Index = 2
Left = 4395
TabIndex = 5
Top = 270
Width = 4170
Begin VB.HScrollBar scrNoise
Height = 255
Left = 225
Max = 5
TabIndex = 7
Top = 1095
Width = 3240
End
Begin VB.HScrollBar scrFreq
Height = 255
Left = 225
Max = 2048
Min = 1
TabIndex = 6
Top = 480
Value = 1
Width = 3240
End
Begin VB.Label lb
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "Add some noise"
Height = 180
Index = 1
Left = 1365
TabIndex = 11
Top = 870
Width = 1125
End
Begin VB.Label lb
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "Normalized Frequency"
Height = 180
Index = 0
Left = 1095
TabIndex = 10
Top = 255
Width = 1575
End
Begin VB.Label lbNoise
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
Height = 195
Left = 3540
TabIndex = 9
Top = 1110
Width = 45
End
Begin VB.Label lbFreq
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
Height = 195
Left = 3540
TabIndex = 8
Top = 495
Width = 45
End
End
End
Begin VB.Frame fr
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4395
Index = 3
Left = 195
TabIndex = 0
Top = 60
Width = 11670
Begin VB.PictureBox picDisplay
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -