📄 compressionform_2ohm.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form compressionform_2ohm
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
Caption = "Compression"
ClientHeight = 5160
ClientLeft = 45
ClientTop = 435
ClientWidth = 4245
LinkTopic = "Form5"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5160
ScaleWidth = 4245
StartUpPosition = 1 'CenterOwner
Begin VB.Frame Frame1
Caption = "Compression"
Height = 5055
Left = 0
TabIndex = 0
Top = 120
Width = 4095
Begin VB.CheckBox Compression_Active
Caption = "Active"
Height = 255
Left = 960
TabIndex = 15
Top = 4680
Width = 1095
End
Begin VB.Frame Frame4
Caption = "Time"
Height = 1695
Left = 240
TabIndex = 6
Top = 1560
Width = 3495
Begin VB.ComboBox CompressionC1
Height = 315
ItemData = "compressionform_2ohm.frx":0000
Left = 1560
List = "compressionform_2ohm.frx":0028
TabIndex = 9
Text = "1.7 ms"
Top = 360
Width = 1695
End
Begin VB.ComboBox CompressionC2
Height = 315
ItemData = "compressionform_2ohm.frx":008B
Left = 1560
List = "compressionform_2ohm.frx":00B3
TabIndex = 8
Text = "1.7 ms"
Top = 840
Width = 1695
End
Begin VB.ComboBox CompressionC3
Height = 315
ItemData = "compressionform_2ohm.frx":0116
Left = 1560
List = "compressionform_2ohm.frx":013E
TabIndex = 7
Text = "1.7 ms"
Top = 1200
Width = 1695
End
Begin VB.Label Label1
Caption = "Energy Level Detection Time"
Height = 495
Left = 120
TabIndex = 12
Top = 240
Width = 1335
End
Begin VB.Label Label2
Caption = "Attack Time"
Height = 255
Left = 120
TabIndex = 11
Top = 840
Width = 1335
End
Begin VB.Label Label3
Caption = "Release Time"
Height = 255
Left = 120
TabIndex = 10
Top = 1200
Width = 1335
End
End
Begin VB.Frame Frame5
Caption = "Threshold"
Height = 975
Left = 240
TabIndex = 3
Top = 3480
Width = 3495
Begin MSComctlLib.Slider Slider1
Height = 375
Left = 120
TabIndex = 4
Top = 240
Width = 3135
_ExtentX = 5530
_ExtentY = 661
_Version = 393216
LargeChange = 50
SmallChange = 50
Max = 900
End
Begin VB.Label CompressionD
Caption = "0 db"
Height = 255
Left = 1440
TabIndex = 5
Top = 600
Width = 1095
End
End
Begin VB.ComboBox rationa
Height = 315
ItemData = "compressionform_2ohm.frx":01A1
Left = 1440
List = "compressionform_2ohm.frx":01D5
TabIndex = 2
Text = "1.00:1"
Top = 360
Width = 1215
End
Begin VB.ComboBox rationb
Height = 315
ItemData = "compressionform_2ohm.frx":0279
Left = 1440
List = "compressionform_2ohm.frx":0298
TabIndex = 1
Text = "1.00:1"
Top = 720
Width = 1215
End
Begin VB.Label Label4
Caption = "Ration (Above)"
Height = 255
Left = 360
TabIndex = 14
Top = 360
Width = 1095
End
Begin VB.Label Label5
Caption = "Ration (Below)"
Height = 255
Left = 360
TabIndex = 13
Top = 720
Width = 1095
End
End
End
Attribute VB_Name = "compressionform_2ohm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Private Sub CompressionE_Click()
'Form1.SystemSelection(3).Value = CompressionE.Value
'Form_Paint
'End Sub
Private Sub Form_Activate()
Form_Load
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim data As Integer
Dim A As Variant
A = Array(17, 35, 67, 130, 260, 530, 1060, 2120, 4250, 8500, 17000, 24000)
pointer = compression_pointer 'the first data in compressionform_2ohm
rationa.ListIndex = intworkingbuf(pointer)
pointer = pointer + 1
rationb.ListIndex = intworkingbuf(pointer)
pointer = pointer + 1
data = intworkingbuf(pointer)
CompressionD.Caption = data / 10
CompressionD.Caption = CompressionD.Caption + " db"
pointer = pointer + 1
Slider1.Text = (Left(CompressionD.Caption, Len(CompressionD.Caption) - 3))
Slider1.Value = 900 + Slider1.Text * 10
data = intworkingbuf(pointer)
CompressionC1.Text = data / 10
For i = 0 To 11
If data = A(i) Then
CompressionC1.ListIndex = i
End If
Next i
'CompressionC1.Text = CompressionC1.Text '+ " ms"
pointer = pointer + 1
data = intworkingbuf(pointer)
CompressionC2.Text = data / 10
For i = 0 To 11
If data = A(i) Then
CompressionC2.ListIndex = i
End If
Next i
' CompressionC2.Text = CompressionC2.Text '+ " ms"
pointer = pointer + 1
data = intworkingbuf(pointer)
CompressionC3.Text = data / 10
For i = 0 To 11
If data = A(i) Then
CompressionC3.ListIndex = i
End If
Next i
'CompressionC3.Text = CompressionC3.Text + " ms"
pointer = pointer + 1
Compression_Active.Value = intworkingbuf(pointer)
End Sub
Public Sub Form_Deactivate()
On Error Resume Next
Dim data As Integer
pointer = compression_pointer 'the first data in compressionform_2ohm
data = rationa.ListIndex
intworkingbuf(pointer) = data
pointer = pointer + 1
data = rationb.ListIndex
intworkingbuf(pointer) = data
pointer = pointer + 1
data = 10 * Left(CompressionD.Caption, Len(CompressionD.Caption) - 3)
intworkingbuf(pointer) = data
pointer = pointer + 1
data = 10 * Left(CompressionC1.Text, Len(CompressionC1.Text) - 3)
intworkingbuf(pointer) = data
pointer = pointer + 1
data = 10 * Left(CompressionC2.Text, Len(CompressionC2.Text) - 3)
intworkingbuf(pointer) = data
pointer = pointer + 1
data = 10 * Left(CompressionC3.Text, Len(CompressionC3.Text) - 3)
intworkingbuf(pointer) = data
pointer = pointer + 1
data = Compression_Active.Value
intworkingbuf(pointer) = data
End Sub
Private Sub Form_Paint()
On Error Resume Next
Form_Load
'CompressionE.Value = Form1.SystemSelection(3).Value
'If CompressionE.Value = 1 Then
' rationa.Enabled = True
' rationb.Enabled = True
'
' CompressionC1.Enabled = True
' CompressionC2.Enabled = True
' CompressionC3.Enabled = True
' CompressionD.Enabled = True
' Slider1.Enabled = True
'Else
' rationa.Enabled = False
' rationb.Enabled = False
'
' CompressionC1.Enabled = False
' CompressionC2.Enabled = False
' CompressionC3.Enabled = False
' CompressionD.Enabled = False
' Slider1.Enabled = False
'End If
Slider1.Text = (Left(CompressionD.Caption, Len(CompressionD.Caption) - 3))
Slider1.Value = 900 + Slider1.Text * 10
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form_Deactivate
End Sub
Private Sub Ration_Change()
Debug.Print Ration.Text
End Sub
Private Sub Slider1_Scroll()
On Error Resume Next
Slider1.Text = (Slider1.Value - 900) / 10
CompressionD.Caption = Slider1.Text + " db"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -