frmstar.frm

用VB实现正弦波的采集和傅里叶变换。将时域信号变化为频域信号

VERSION 5.00
Begin VB.Form FrmStar 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "UA3 1.0"
   ClientHeight    =   1260
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   8745
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1260
   ScaleWidth      =   8745
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CmdStop 
      Caption         =   "退出"
      Height          =   975
      Left            =   7680
      Picture         =   "FrmStar.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   120
      Width           =   975
   End
   Begin VB.CommandButton CmdTr 
      Caption         =   "瞬  态"
      Height          =   975
      Left            =   6600
      Picture         =   "FrmStar.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   120
      Width           =   975
   End
   Begin VB.CommandButton CmdMeasure 
      Cancel          =   -1  'True
      Caption         =   "测  量"
      Height          =   975
      Left            =   4440
      Picture         =   "FrmStar.frx":0614
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   120
      Width           =   975
   End
   Begin VB.CommandButton CmdSpectrum 
      Caption         =   "频谱仪"
      Height          =   975
      Left            =   1200
      Picture         =   "FrmStar.frx":091E
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   120
      Width           =   975
   End
   Begin VB.CommandButton CmdSet 
      Caption         =   "设  置"
      Height          =   975
      Left            =   5520
      Picture         =   "FrmStar.frx":0C28
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   120
      Width           =   975
   End
   Begin VB.CommandButton CmdTrans 
      Caption         =   "记录仪"
      Height          =   975
      Left            =   120
      Picture         =   "FrmStar.frx":0F32
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   120
      Width           =   975
   End
   Begin VB.CommandButton CmdVoltmeter 
      Caption         =   "电压表"
      Height          =   975
      Left            =   2280
      Picture         =   "FrmStar.frx":123C
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   120
      Width           =   975
   End
   Begin VB.CommandButton CmdOsc 
      Caption         =   "示波器"
      Height          =   975
      Left            =   3360
      Picture         =   "FrmStar.frx":1546
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   120
      Width           =   975
   End
End
Attribute VB_Name = "FrmStar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub CmdMeasure_Click()
   FrmCh4.Show
End Sub

Private Sub CmdOsc_Click()
  FrmOsc.Show
End Sub

Private Sub CmdSpectrum_Click()
  FrmSpectrum.Show
End Sub

Private Sub CmdStop_Click()
  Call fda1_stop(husb)
  Call CloseUA300(husb)
  End
End Sub

Private Sub CmdTr_Click()
  FrmTr.Show
End Sub

Private Sub CmdTrans_Click()
   FrmRecord.Show
End Sub

Private Sub Form_Load()
 Dim i As Integer
  
  husb = OpenUA300()
  If husb = 0 Then
     i = MsgBox(" 设备没有找到!忽略，继续运行？", 4, "警告!")
     If i = vbNo Then End
     If i = vbYes Then Exit Sub
  Else
     Print GetVer(husb)
  End If
  
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Call fda1_stop(husb)
  Call CloseUA300(husb)
  
End Sub