📄 biquadconfig.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "mscomm32.ocx"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "GUI2706 Biquad Configuration"
ClientHeight = 1470
ClientLeft = 150
ClientTop = 840
ClientWidth = 9480
Icon = "Biquadconfig.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1470
ScaleWidth = 9480
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command3
Caption = "test"
Height = 435
Left = 1560
TabIndex = 33
Top = 7200
Width = 855
End
Begin VB.ComboBox step
Height = 315
ItemData = "Biquadconfig.frx":030A
Left = 2040
List = "Biquadconfig.frx":03E6
TabIndex = 30
Text = "Step"
Top = 8160
Width = 735
End
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 375
Left = 3720
TabIndex = 28
Top = 7800
Width = 975
End
Begin VB.Frame Frame6
Height = 2055
Left = 9600
TabIndex = 24
Top = 0
Width = 2055
Begin VB.TextBox autothreshold
Height = 285
Left = 1320
TabIndex = 36
Text = "5"
Top = 1560
Width = 495
End
Begin VB.CheckBox Sys_User
Caption = "System/User"
Height = 195
Left = 600
TabIndex = 34
Top = 1320
Width = 1215
End
Begin VB.ComboBox inputgain
Height = 315
ItemData = "Biquadconfig.frx":0587
Left = 1200
List = "Biquadconfig.frx":05BB
TabIndex = 32
Text = "0"
Top = 1920
Visible = 0 'False
Width = 735
End
Begin VB.ComboBox volumestep
Height = 315
ItemData = "Biquadconfig.frx":0604
Left = 1080
List = "Biquadconfig.frx":0611
TabIndex = 31
Text = "1"
Top = 600
Width = 735
End
Begin VB.TextBox maxvolume
Alignment = 2 'Center
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 1
EndProperty
Height = 285
Left = 1080
TabIndex = 25
Text = "0"
ToolTipText = "+18db to -40db"
Top = 240
Width = 735
End
Begin VB.Label Label4
Caption = "Auto Threshold "
Height = 255
Left = 120
TabIndex = 35
Top = 1680
Width = 1215
End
Begin VB.Label Label3
Caption = "Volume Step"
Height = 255
Left = 120
TabIndex = 29
Top = 600
Width = 1095
End
Begin VB.Label Label2
Caption = "Input(db)"
Height = 255
Left = 480
TabIndex = 27
Top = 1920
Visible = 0 'False
Width = 735
End
Begin VB.Label Label1
Caption = "MaxVolume"
Height = 255
Left = 120
TabIndex = 26
Top = 240
Width = 1455
End
End
Begin VB.Frame Frame5
Caption = "System Selection"
Height = 1815
Left = 8400
TabIndex = 16
Top = 8160
Width = 1935
Begin VB.CheckBox SystemSelection
Caption = "Auto-On/Off"
Height = 255
Index = 5
Left = 120
TabIndex = 22
Top = 1440
Width = 1335
End
Begin VB.CheckBox SystemSelection
Caption = "Feed Forward"
Height = 255
Index = 4
Left = 120
TabIndex = 21
Top = 1200
Width = 1335
End
Begin VB.CheckBox SystemSelection
Caption = "Compression"
Height = 255
Index = 3
Left = 120
TabIndex = 20
Top = 960
Width = 1335
End
Begin VB.CheckBox SystemSelection
Caption = "Volume"
Height = 255
Index = 2
Left = 120
TabIndex = 19
Top = 720
Width = 1335
End
Begin VB.CheckBox SystemSelection
Caption = "Room Equalization"
Height = 255
Index = 1
Left = 120
TabIndex = 18
Top = 480
Width = 1695
End
Begin VB.CheckBox SystemSelection
Caption = "Equalization"
Height = 255
Index = 0
Left = 120
TabIndex = 17
Top = 240
Width = 1215
End
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 4581
Left = 8400
Top = 8880
End
Begin VB.CommandButton writetoflash1
Caption = "Write to Flash"
Height = 375
Left = 5880
TabIndex = 15
Top = 7920
Visible = 0 'False
Width = 2055
End
Begin VB.CommandButton readflash1
Caption = "Read from Flash"
Height = 375
Left = 5640
TabIndex = 14
Top = 8280
Visible = 0 'False
Width = 2055
End
Begin VB.CommandButton FlashCopy
Caption = "FlashCopy"
Height = 495
Left = 5760
TabIndex = 13
Top = 9000
Visible = 0 'False
Width = 2055
End
Begin VB.CommandButton Command1
Caption = "Write to DSP"
Height = 615
Left = 3240
TabIndex = 10
Top = 9000
Visible = 0 'False
Width = 1455
End
Begin MSComDlg.CommonDialog dlgopen
Left = 6000
Top = 8640
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.HScrollBar volumeSlider
Height = 255
LargeChange = 10
Left = 6360
Max = 18
Min = -90
TabIndex = 8
Top = 8640
Value = 18
Visible = 0 'False
Width = 1950
End
Begin VB.ComboBox filertype
Height = 315
ItemData = "Biquadconfig.frx":061E
Left = 1800
List = "Biquadconfig.frx":0649
TabIndex = 6
Text = "type"
Top = 1320
Visible = 0 'False
Width = 2055
End
Begin VB.Frame Frame4
Caption = "Volume"
Height = 855
Left = 600
TabIndex = 5
Top = 8400
Width = 2535
Begin MSFlexGridLib.MSFlexGrid volume
Height = 735
Left = 240
TabIndex = 23
Top = 840
Width = 3255
_ExtentX = 5741
_ExtentY = 1296
_Version = 393216
Cols = 3
FixedCols = 0
BackColor = 16777215
ForeColorFixed = 8421440
FormatString = " Max |< Min |< Step "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Frame Frame3
Caption = "Feed Forward"
Height = 855
Left = 120
TabIndex = 3
Top = 7800
Width = 3255
Begin VB.TextBox tempedit2
Height = 285
Left = 120
TabIndex = 9
Text = "0"
Top = 600
Visible = 0 'False
Width = 1815
End
Begin MSFlexGridLib.MSFlexGrid feedforward
Height = 735
Left = 0
TabIndex = 4
ToolTipText = "Second butter worth HIGH pass"
Top = 240
Width = 6255
_ExtentX = 11033
_ExtentY = 1296
_Version = 393216
Cols = 4
FixedCols = 0
BackColor = 16777215
ForeColorFixed = 8421440
FormatString = "H Freq.|< LFreq. 1|<H Freq. 2|< Limit "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Frame Frame2
Caption = "Phase"
Height = 855
Left = 2520
TabIndex = 2
Top = 8160
Width = 3135
Begin VB.TextBox tempedit3
Height = 285
Left = 240
TabIndex = 12
Text = "0"
Top = 600
Visible = 0 'False
Width = 1095
End
Begin MSFlexGridLib.MSFlexGrid centrefrequency
Height = 735
Left = 0
TabIndex = 11
Top = 240
Width = 3135
_ExtentX = 5530
_ExtentY = 1296
_Version = 393216
FixedCols = 0
BackColor = 16777215
ForeColorFixed = 8421440
FormatString = " Centre frequency|< Width"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Frame Frame1
BackColor = &H8000000D&
Height = 2055
Left = 120
TabIndex = 0
Top = 0
Width = 9255
Begin VB.TextBox tempedit1
Height = 285
Left = 3240
TabIndex = 7
Text = "0"
Top = 600
Visible = 0 'False
Width = 1815
End
Begin MSFlexGridLib.MSFlexGrid eqconfig
Height = 2055
Left = 0
TabIndex = 1
Top = 0
Width = 9615
_ExtentX = 16960
_ExtentY = 3625
_Version = 393216
Rows = 29
Cols = 6
BackColor = 16777215
ForeColorFixed = 8421440
ScrollBars = 0
FormatString = $"Biquadconfig.frx":06EB
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -