modmain.bas

FFT Demo Program. Written in VB

Attribute VB_Name = "ModMain"
Option Explicit
Public gbytFchn As Byte
Public glngMaxCount As Long
Public gintPlot() As Integer
Public gintDummy() As Integer
Public gbytSource() As Byte
Public gintSource() As Integer
Public gintDest() As Integer
Public gintResolution As Integer
Public gblnErrFlg As Boolean
Public gstrRoutine As String
Public gblnRetFlg As Boolean
Public gsngFreqPerPoint As Single
Public gblnMseFlg As Boolean
Public gintMseX As Integer
Public gintMseY As Integer
Public gintDispPlot() As Integer
Public gsngPosFactor As Single
Public glngDispCount As Long

Private Type uhdrWave
    Fmt(2) As Integer
    NumChans As Integer
    SampleRate As Long
    BytsPerSec As Long
    BytsPerBlock As Integer
    BitsPerSample As Integer
End Type
Public ghdrWave As uhdrWave

Public Declare Sub INTLVE Lib "asmwav" (ByVal glngMaxCount As Long, _
    ByRef gintSource As Integer, ByRef gintPlot As Integer, _
    ByRef gintDummy As Integer)

Public Sub ErrorMsg()
Dim Msg As String
    Msg = "Error number " & Str(Err.Number) & _
        "  in " & Err.Source & ".  " & _
        Err.Description & " In routine " & gstrRoutine
    MsgBox Msg
    
End Sub