frmmain.frm

Some mathematical functions

VERSION 5.00
Object = "{F72CC888-5ADC-101B-A56C-00AA003668DC}#1.0#0"; "ANIBTN32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "AD9850 Evaluation Software"
   ClientHeight    =   6120
   ClientLeft      =   1335
   ClientTop       =   2325
   ClientWidth     =   8415
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   6120
   ScaleWidth      =   8415
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdReset 
      Caption         =   "Master Reset"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   480
      MaskColor       =   &H00FF00FF&
      Picture         =   "frmMain.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   66
      ToolTipText     =   "Resets the AD9850."
      Top             =   6600
      UseMaskColor    =   -1  'True
      Width           =   1575
      Visible         =   0   'False
   End
   Begin VB.Frame fraFreqSweep 
      Caption         =   "FREQUENCY SWEEP"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   1335
      Left            =   120
      TabIndex        =   47
      Top             =   4320
      Width           =   8175
      Begin VB.Frame fraFreqSweepInputs 
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         Height          =   975
         Left            =   240
         TabIndex        =   68
         Top             =   240
         Width           =   6135
         Begin VB.TextBox txtStepFreq 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00008000&
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000FF00&
            Height          =   315
            Left            =   3960
            MousePointer    =   1  'Arrow
            MultiLine       =   -1  'True
            TabIndex        =   75
            Text            =   "frmMain.frx":06C4
            ToolTipText     =   "Click to set the Step Frequency"
            Top             =   120
            Width           =   1575
         End
         Begin VB.TextBox txtStartFreq 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00008000&
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000FF00&
            Height          =   315
            Left            =   840
            Locked          =   -1  'True
            MousePointer    =   1  'Arrow
            MultiLine       =   -1  'True
            TabIndex        =   70
            Text            =   "frmMain.frx":06D0
            ToolTipText     =   "Click to set the Start Frequency"
            Top             =   120
            Width           =   1575
         End
         Begin VB.TextBox txtStopFreq 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00008000&
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000FF00&
            Height          =   315
            Left            =   840
            Locked          =   -1  'True
            MousePointer    =   1  'Arrow
            MultiLine       =   -1  'True
            TabIndex        =   69
            Text            =   "frmMain.frx":06DE
            ToolTipText     =   "Click to set the Stop Frequency"
            Top             =   600
            Width           =   1575
         End
         Begin VB.Label lblStepFreq 
            AutoSize        =   -1  'True
            Caption         =   "Step Freq:"
            Height          =   195
            Left            =   3120
            TabIndex        =   77
            Top             =   120
            Width           =   735
         End
         Begin VB.Label lblMHz 
            AutoSize        =   -1  'True
            Caption         =   " MHz"
            Height          =   195
            Index           =   5
            Left            =   5520
            TabIndex        =   76
            Top             =   150
            Width           =   375
         End
         Begin VB.Label lblStartFreq 
            AutoSize        =   -1  'True
            Caption         =   "Start Freq:"
            Height          =   195
            Left            =   0
            TabIndex        =   74
            Top             =   120
            Width           =   735
         End
         Begin VB.Label lblStopFreq 
            AutoSize        =   -1  'True
            Caption         =   "Stop Freq:"
            Height          =   195
            Left            =   0
            TabIndex        =   73
            Top             =   600
            Width           =   735
         End
         Begin VB.Label lblMHz 
            AutoSize        =   -1  'True
            Caption         =   " MHz"
            Height          =   195
            Index           =   3
            Left            =   2400
            TabIndex        =   72
            Top             =   150
            Width           =   375
         End
         Begin VB.Label lblMHz 
            AutoSize        =   -1  'True
            Caption         =   " MHz"
            Height          =   195
            Index           =   4
            Left            =   2400
            TabIndex        =   71
            Top             =   645
            Width           =   375
         End
      End
      Begin VB.CommandButton cmdStopSweep 
         Height          =   735
         Left            =   6480
         Picture         =   "frmMain.frx":06EC
         Style           =   1  'Graphical
         TabIndex        =   57
         ToolTipText     =   "Stop the current frequency sweep"
         Top             =   510
         Width           =   1575
         Visible         =   0   'False
      End
      Begin VB.CheckBox chkStartStopSweep 
         DownPicture     =   "frmMain.frx":0B2E
         Height          =   735
         Left            =   6480
         MaskColor       =   &H00FF00FF&
         Picture         =   "frmMain.frx":0F70
         Style           =   1  'Graphical
         TabIndex        =   49
         ToolTipText     =   "Start the Frequency Sweep"
         Top             =   510
         UseMaskColor    =   -1  'True
         Width           =   1575
      End
      Begin VB.Label lblSweepStatus 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H000000FF&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Sweep Stopped"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   6480
         TabIndex        =   50
         Top             =   220
         Width           =   1575