phonoform.frm

FFT Demo Program. Written in VB

VERSION 5.00
Begin VB.Form PhonoForm 
   Caption         =   "CardioSim3D Phono"
   ClientHeight    =   8055
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   11400
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   537
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   760
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.PictureBox DisPict 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   3015
      Left            =   0
      ScaleHeight     =   201
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   799
      TabIndex        =   7
      Top             =   3120
      Width           =   11985
   End
   Begin VB.CommandButton CmdButMnu 
      Cancel          =   -1  'True
      Caption         =   "main   menu"
      Enabled         =   0   'False
      Height          =   495
      Left            =   6000
      TabIndex        =   6
      Top             =   7440
      Width           =   855
   End
   Begin VB.Timer Timer2 
      Left            =   120
      Top             =   6960
   End
   Begin VB.TextBox Textentry 
      BackColor       =   &H0000FFFF&
      Enabled         =   0   'False
      Height          =   285
      Left            =   4560
      TabIndex        =   3
      Top             =   6930
      Visible         =   0   'False
      Width           =   495
   End
   Begin VB.CommandButton CmdButFrq 
      Caption         =   "dis freq"
      Enabled         =   0   'False
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   7440
      Width           =   855
   End
   Begin VB.Timer Timer1 
      Left            =   120
      Top             =   7440
   End
   Begin VB.Label LabPass 
      Height          =   255
      Left            =   4080
      TabIndex        =   5
      Top             =   7200
      Width           =   375
   End
   Begin VB.Label LabFct 
      Height          =   255
      Left            =   3000
      TabIndex        =   4
      Top             =   7200
      Width           =   375
   End
   Begin VB.Label LabEntry 
      AutoSize        =   -1  'True
      BackColor       =   &H0000FFFF&
      Height          =   195
      Left            =   2760
      TabIndex        =   2
      Top             =   6960
      Visible         =   0   'False
      Width           =   45
   End
   Begin VB.Label LabMsg 
      AutoSize        =   -1  'True
      BackColor       =   &H0000FFFF&
      Height          =   195
      Left            =   2280
      TabIndex        =   1
      Top             =   6960
      Visible         =   0   'False
      Width           =   45
   End
   Begin VB.Line LineBtm 
      Visible         =   0   'False
      X1              =   0
      X2              =   779
      Y1              =   448
      Y2              =   448
   End
   Begin VB.Line LineTop 
      Visible         =   0   'False
      X1              =   0
      X2              =   779
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Menu mnuExit 
      Caption         =   "exit"
   End
End
Attribute VB_Name = "PhonoForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub CmdButFrq_Click()
    LabMsg.Caption = LoadResStgA(glngBase, 209)
    LabMsg.Visible = True
    Call DisplayFreq
    
End Sub

Private Sub CmdButMnu_Click()
    frmMain.Show
    PhonoForm.Hide
    Unload PhonoForm
    Set PhonoForm = Nothing

End Sub

Private Sub Form_Load()
    PhonoForm.Height = gintScrHeight
    PhonoForm.Width = gintScrWidth
    LineTop.X2 = gintHorPixels - 1
    LineBtm.X2 = gintHorPixels - 1
    Timer1.Interval = 20
    Timer1.Enabled = True

End Sub

Private Sub LabEntry_Click()

End Sub

Private Sub LabMsg_Click()

End Sub

Private Sub mnuexit_Click()
    frmMain.Show
    PhonoForm.Hide
    Unload PhonoForm
    Set PhonoForm = Nothing

End Sub

Private Sub TextEntry_KeyPress(KeyAscii As Integer)
    If KeyAscii <> vbKeyReturn Then Exit Sub
    Textentry.Visible = False
    Textentry.Enabled = False
    LabEntry.Visible = False
    gblnImageFlg = True
    KeyAscii = 0

End Sub


Private Sub Timer1_Timer()
    Timer1.Enabled = False
    PhonoForm.Show
    Timer2.Interval = 20
    Timer2.Enabled = True
    
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, ArgX As Single, ArgY As Single)
gblnMseFlg = True
gintMseX = ArgX
gintMseY = ArgY

End Sub

Private Sub Timer2_Timer()
Dim ScrTwip As Integer
    Timer2.Enabled = False
    ScrTwip = Screen.TwipsPerPixelX
    gintHorPixels = gintScrWidth / ScrTwip
    gintVerPixels = gintScrHeight / ScrTwip
    gintVerSize = LineBtm.Y1 - LineTop.Y1
    AutoRedraw = False
    Call Spectral

End Sub