compressionform.frm

设置滤波器类型

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form compressionform 
   BackColor       =   &H80000018&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Compression-4ohm"
   ClientHeight    =   5505
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4470
   Icon            =   "compressionform.frx":0000
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5505
   ScaleWidth      =   4470
   StartUpPosition =   1  'CenterOwner
   Begin VB.Frame Frame1 
      Caption         =   "Compression"
      Height          =   5055
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   4095
      Begin VB.ComboBox rationb 
         Height          =   315
         ItemData        =   "compressionform.frx":030A
         Left            =   1440
         List            =   "compressionform.frx":0329
         TabIndex        =   14
         Text            =   "1.00:1"
         Top             =   720
         Width           =   1215
      End
      Begin VB.ComboBox rationa 
         Height          =   315
         ItemData        =   "compressionform.frx":0387
         Left            =   1440
         List            =   "compressionform.frx":03BB
         TabIndex        =   13
         Text            =   "1.00:1"
         Top             =   360
         Width           =   1215
      End
      Begin VB.Frame Frame5 
         Caption         =   "Threshold"
         Height          =   975
         Left            =   240
         TabIndex        =   2
         Top             =   3480
         Width           =   3495
         Begin MSComctlLib.Slider Slider1 
            Height          =   375
            Left            =   120
            TabIndex        =   9
            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        =   10
            Top             =   600
            Width           =   1095
         End
      End
      Begin VB.Frame Frame4 
         Caption         =   "Time"
         Height          =   1695
         Left            =   240
         TabIndex        =   1
         Top             =   1560
         Width           =   3495
         Begin VB.ComboBox CompressionC3 
            Height          =   315
            ItemData        =   "compressionform.frx":045F
            Left            =   1560
            List            =   "compressionform.frx":0487
            TabIndex        =   8
            Text            =   "1.7 ms"
            Top             =   1200
            Width           =   1695
         End
         Begin VB.ComboBox CompressionC2 
            Height          =   315
            ItemData        =   "compressionform.frx":04EA
            Left            =   1560
            List            =   "compressionform.frx":0512
            TabIndex        =   6
            Text            =   "1.7 ms"
            Top             =   840
            Width           =   1695
         End
         Begin VB.ComboBox CompressionC1 
            Height          =   315
            ItemData        =   "compressionform.frx":0575
            Left            =   1560
            List            =   "compressionform.frx":059D
            TabIndex        =   4
            Text            =   "1.7 ms"
            Top             =   360
            Width           =   1695
         End
         Begin VB.Label Label3 
            Caption         =   "Release Time"
            Height          =   255
            Left            =   120
            TabIndex        =   7
            Top             =   1200
            Width           =   1335
         End
         Begin VB.Label Label2 
            Caption         =   "Attack Time"
            Height          =   255
            Left            =   120
            TabIndex        =   5
            Top             =   840
            Width           =   1335
         End
         Begin VB.Label Label1 
            Caption         =   "Energy Level Detection Time"
            Height          =   495
            Left            =   120
            TabIndex        =   3
            Top             =   240
            Width           =   1335
         End
      End
      Begin VB.Label Label5 
         Caption         =   "Ration (Below)"
         Height          =   255
         Left            =   360
         TabIndex        =   12
         Top             =   720
         Width           =   1095
      End
      Begin VB.Label Label4 
         Caption         =   "Ration (Above)"
         Height          =   255
         Left            =   360
         TabIndex        =   11
         Top             =   360
         Width           =   1095
      End
   End
End
Attribute VB_Name = "compressionform"
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

pointer = compression_pointer 'the first data in compressionform

         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       'pointer=180--for Room Correction
        Slider1.Text = (Left(CompressionD.Caption, Len(CompressionD.Caption) - 3))
        Slider1.Value = 900 + Slider1.Text * 10
        
        
         data = intworkingbuf(pointer)
        CompressionC1.Text = data / 10
        CompressionC1.Text = CompressionC1.Text + " ms"
        pointer = pointer + 1
                 data = intworkingbuf(pointer)
        CompressionC2.Text = data / 10
        CompressionC2.Text = CompressionC2.Text + " ms"
        pointer = pointer + 1
                 data = intworkingbuf(pointer)
        CompressionC3.Text = data / 10
        CompressionC3.Text = CompressionC3.Text + " ms"
        

End Sub

Public Sub Form_Deactivate()
On Error Resume Next
Dim data As Integer

    pointer = compression_pointer 'the first data in compressionform
        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
        

        

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