ua300drive.bas

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

Attribute VB_Name = "UA300drive"
Option Explicit

Public husb   As Long         '句柄

Public Declare Function OpenUA300 Lib "ua300d.dll" () As Long
Public Declare Function CloseUA300 Lib "ua300d.dll" (ByVal Handle As Long) As Long
Public Declare Function GetVer Lib "ua300d.dll" (ByVal Handle As Long) As Byte

Public Declare Function ssad Lib "ua300d.dll" (ByVal Handle As Long, ByVal n1%, ByVal n2%) As Integer
Public Declare Sub ssinit Lib "ua300d.dll" (ByVal Handle As Long)
Public Declare Sub minit Lib "ua300d.dll" (ByVal Handle As Long, ByVal n1%, ByVal n2%, ByVal n3%)
Public Declare Sub readdata Lib "ua300d.dll" (ByVal Handle As Long, dd1 As Integer, ByVal n1%, ByVal leg As Long)

Public Declare Sub startad Lib "ua300d.dll" (ByVal Handle As Long, ByVal n1%, ByVal n2%, ByVal n3%, ByVal n4%)
Public Declare Sub minit2 Lib "ua300d.dll" (ByVal Handle As Long, ByVal n1%, ByVal n2%, ByVal n3%, ByVal n4%)
Public Declare Sub readdata2 Lib "ua300d.dll" (ByVal Handle As Long, dd1 As Integer, ByVal leg As Long)
Public Declare Sub endread2 Lib "ua300d.dll" (ByVal Handle As Long)

Public Declare Sub outb Lib "ua300d.dll" (ByVal Handle As Long, ByVal addr As Byte, ByVal odat As Byte)
Public Declare Function inb Lib "ua300d.dll" (ByVal Handle As Long, ByVal addr As Byte) As Byte
Public Declare Function din Lib "ua300d.dll" (ByVal Handle As Long) As Byte

Public Declare Sub fda1_go Lib "ua300d.dll" (ByVal Handle As Long, ByVal n1%, ByVal n2%)
Public Declare Sub fda1_cf Lib "ua300d.dll" (ByVal Handle As Long, ByVal fcode%)
Public Declare Sub fda1_set Lib "ua300d.dll" (ByVal Handle As Long, dadat As Integer, ByVal leng%)
Public Declare Sub fda1_w Lib "ua300d.dll" (ByVal Handle As Long, dadat As Integer, ByVal leng%)
Public Declare Sub fda1_stop Lib "ua300d.dll" (ByVal Handle As Long)
Public Declare Function fda1_get Lib "ua300d.dll" (ByVal Handle As Long) As Byte

Global Const PI = 3.1416

Public kf        As Integer         '采样频率号
Public ndraw     As Integer         '显示点数
Public block     As Integer         '采样块数
Public nsg       As Integer         '滞后点数
Public level     As Single          '触发电平
Public gain      As Integer         '程控放大倍数

Public FilePath  As String