home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / TrueWavAna52857242002.psc / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2002-02-02  |  687 b   |  24 lines

  1. Attribute VB_Name = "Module1"
  2. 'TrueWavAnalyzer
  3. 'by: Paul Bryan in 2002
  4. 'Allows for graphical isolation of sample ranges
  5. 'will analyze by frequency and decibal for up
  6. 'to 32768 samples (VB Single Precision Demension Max)
  7. 'Uses the FFT alogorythm
  8.  
  9. Public SCount As Integer ' Multiple Open Wave Files
  10. Public Scope(255) As Form ' Session Filecount
  11. Public Sub main()
  12.     MDIMain.Show
  13.     frmAbout.StartFlash
  14. End Sub
  15. Public Sub LoadNewFile(Fname As String) ' Open another file
  16.         SCount = SCount + 1
  17.         
  18.         Set Scope(SCount) = New WavForm
  19.         Scope(SCount).SetFocus
  20.         Call Scope(SCount).LoadFileData(SCount, Fname)
  21.     
  22.         Exit Sub
  23. End Sub
  24.