module1.bas

设置滤波器类型

Attribute VB_Name = "Module1"
'/*
' *  Copyright 2006 by Indigo Manufacturing Inc.
' *  All rights reserved. Property of Indigo Manufacturing Inc.
' *                  September 8, 2006
' */
Option Explicit

'Type Recordt ' Define user-defined type.
'    s As String * 2
' End Type
Global Const maxsendsize = 13
Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Any) As Long
Public Declare Function CalcFilterCoeffsT Lib "BiqudDll420" (ByVal i As Byte, ByVal fc As Double, ByVal fh As Double, ByVal fs As Double, ByVal width As Double, ByVal gain As Double, ByRef p As Byte) As Integer
Public workingbuf(0 To 131072) As Byte
Public intworkingbuf(0 To 800) As Integer
Public wbptr As Integer
Public checksum As Long
'#define   flashsize 360//336//328      328+5systemSelection+3free 0
'#define flashsize 416//360      360+56bytes Room correction
Global Const biquadnumber = 7
Global Const flashsize = biquadnumber * 15 + 7 * 2 + 4 * 2 + 8


Global Const compression_pointer = biquadnumber * 5
Global Const inputgain_pointer = compression_pointer + 7
Global Const system_mode = inputgain_pointer + 1
Global Const ucMaxVulumeAndStep = system_mode + 1
Global Const autothreshold_pointer = ucMaxVulumeAndStep + 2
'for load and save
Global Const HELP_QUIT = 2
Global Const HELP_INDEX = 3
Global Const HELP_HELPONHELP = 4
Global Const HELP_PARTIALKEY = &H105
Sub HelpFunction(lhWnd As Long, HelpCmd As Integer, HelpKey As String)
Dim lRtn As Long 'declare the needed variables
    If HelpCmd = HELP_PARTIALKEY Then
       lRtn = WinHelp(lhWnd, App.Path + "\readme", HelpCmd, HelpKey)
    Else
       lRtn = WinHelp(lhWnd, App.Path + "\readme", HelpCmd, 0&)
    End If
End Sub