flashdsoapi.bas

硬件FlashDso的程序实现

Attribute VB_Name = "Module1"
'//=============================================================================
'//----------------      程序名称: FlashDSOAPI.DLL  ---------------------------
'//
'//     FlashDSOAPI 是一个共享软件，作者享有一切权利。您可以自由使用、
'// 复制、传播、发布此软件的试用版；未经作者书面认可，任何人不得作任
'// 何修改或用于商业用途。
'//     违者作者将追究其最大责任。
'//
'//     请仔细阅读以下使用许可，如果您不同意以下任何一点，请立即停止使
'// 用此软件：
'//    1. 本软件产品的版权归兄弟工作室所有，受到版权法及其他知识产权法
'//       及条约的保护。
'//    2. 本软件作者兄弟工作室授予您对此版本的最终用户使用许可权。
'//    3. 您不能对此软件作任何的软件反向工程，如反汇编，跟踪等，并且不
'//       能对此软件作非法篡改。
'//    4. 您可以自由使用、复制、传播、发布此软件的试用版，但未征得作者
'//       同意的情况下，您不能收取任何费用或用于商业目的，如销售,捆绑，
'//       集成等。同时，必须保证所分发的软件包含全部文件，并且未作任何
'//       修改。
'//    5. 本软件作者将不会对使用本软件所引起的其他事件负有任何责任。
'//    6. 如果您想继续使用本软件所有功能，必须将其注册为正式版。
'//
'//                 http://www.ost2002.com
'//
'//     版权所有(c) 1998-2006 OST2002.COM 兄弟工作室 保留所有权利
'//=============================================================================
Option Explicit

'/*----------------------------------------------------------------------------
' * 采样频率
' *---------------------------------------------------------------------------*/
Public Const VA_TIMEBASE_0 = 0      '//采样频率 40M
Public Const VA_TIMEBASE_1 = 1      '//采样频率 20M
Public Const VA_TIMEBASE_2 = 2      '//采样频率 8M
Public Const VA_TIMEBASE_3 = 3      '//采样频率 4M
Public Const VA_TIMEBASE_4 = 4      '//采样频率 2M
Public Const VA_TIMEBASE_5 = 5      '//采样频率 800K
Public Const VA_TIMEBASE_6 = 6      '//采样频率 400K
Public Const VA_TIMEBASE_7 = 7      '//采样频率 200K
Public Const VA_TIMEBASE_8 = 8      '//采样频率 80K
Public Const VA_TIMEBASE_9 = 9      '//采样频率 40K
Public Const VA_TIMEBASE_10 = 10    '//采样频率 20K
Public Const VA_TIMEBASE_11 = 11    '//采样频率 8K

'/*----------------------------------------------------------------------------
' * 采样频率
' *---------------------------------------------------------------------------*/
Public Const VA_OP_X0 = 0           '//衰减比例 1:1
Public Const VA_OP_X1 = 1           '//衰减比例 1:10
Public Const VA_OP_X2 = 2           '//衰减比例 1:20

'/*----------------------------------------------------------------------------
' * 数据缓冲区长度
' *---------------------------------------------------------------------------*/
Public Const BUFFER_LENGTH = 2048


'/*----------------------------------------------------------------------------
' * 函数功能:
' *    打开示波器
' *---------------------------------------------------------------------------
' * 输入参数：
' *      端口号
' *---------------------------------------------------------------------------
' * 输出参数：
' *     成功-TRUE  失败-FALSE
' *---------------------------------------------------------------------------*/
Public Declare Function OpenDSO Lib "FlashDSOAPI.dll" (ByVal iPort As Integer) As Boolean

'/*----------------------------------------------------------------------------
' * 函数功能:
' *    关闭示波器
' *---------------------------------------------------------------------------
' * 输入参数：
' *---------------------------------------------------------------------------
' * 输出参数：
' *---------------------------------------------------------------------------*/
Public Declare Function ShutDSO Lib "FlashDSOAPI.dll" () As Boolean

'/*----------------------------------------------------------------------------
' * 函数功能:
' *    开始采集数据
' *---------------------------------------------------------------------------
' * 输入参数：
' *---------------------------------------------------------------------------
' * 输出参数：
' *---------------------------------------------------------------------------*/
Public Declare Function StartDSO Lib "FlashDSOAPI.dll" () As Boolean

'/*----------------------------------------------------------------------------
' * 函数功能:
' *    停止采集数据
' *---------------------------------------------------------------------------
' * 输入参数：
' *---------------------------------------------------------------------------
' * 输出参数：
' *---------------------------------------------------------------------------*/
Public Declare Function StopDSO Lib "FlashDSOAPI.dll" () As Boolean

'/*----------------------------------------------------------------------------
' * 函数功能:
' *    设置采样频率
' *---------------------------------------------------------------------------
' * 输入参数：
' *      频率索引
' *      VA_TIMEBASE_0 采样频率 40M
' *      VA_TIMEBASE_1 采样频率 20M
' *      VA_TIMEBASE_2 采样频率 8M
' *      VA_TIMEBASE_3 采样频率 4M
' *      VA_TIMEBASE_4 采样频率 2M
' *      VA_TIMEBASE_5 采样频率 800K
' *      VA_TIMEBASE_6 采样频率 400K
' *      VA_TIMEBASE_7 采样频率 200K
' *      VA_TIMEBASE_8 采样频率 80K
' *      VA_TIMEBASE_9 采样频率 40K
' *      VA_TIMEBASE_10采样频率 20K
' *      VA_TIMEBASE_11采样频率 8K
' *---------------------------------------------------------------------------
' * 输出参数：
' *---------------------------------------------------------------------------*/
Public Declare Function SetClock Lib "FlashDSOAPI.dll" (ByVal Index As Integer) As Boolean

'/*----------------------------------------------------------------------------
' * 函数功能:
' *    信号衰减
' *---------------------------------------------------------------------------
' * 输入参数：
' *      衰减索引
' *      VA_OP_X0 衰减比例 1:1
' *      VA_OP_X1 衰减比例 1:10
' *      VA_OP_X2 衰减比例 1:20
' * ---------------------------------------------------------------------------
' *  输出参数：
' *---------------------------------------------------------------------------*/
Public Declare Function SetGain Lib "FlashDSOAPI.dll" (ByVal Index As Integer) As Boolean

'/*----------------------------------------------------------------------------
' * 函数功能:
' *    获取版本信息
' *---------------------------------------------------------------------------
' * 输入参数：
' *---------------------------------------------------------------------------
' * 输出参数：
' *     成功-TRUE  失败-FALSE
' *     版本信息
' *---------------------------------------------------------------------------*/
Public Declare Function GetVersion Lib "FlashDSOAPI.dll" (szVersion As Byte) As Boolean
  
'/*----------------------------------------------------------------------------
' * 函数功能:
' *    自动获取端口
' *---------------------------------------------------------------------------
' * 输入参数：
' *
' *---------------------------------------------------------------------------
' * 输出参数：
' *     成功>=1  失败=0
' *---------------------------------------------------------------------------*/
Public Declare Function GetPort Lib "FlashDSOAPI.dll" () As Integer

'/*----------------------------------------------------------------------------
' * 函数功能:
' *    交流藕合
' *---------------------------------------------------------------------------
' * 输入参数：
' *---------------------------------------------------------------------------
' * 输出参数：
' *---------------------------------------------------------------------------*/
Public Declare Function SetAC Lib "FlashDSOAPI.dll" () As Boolean

'/*----------------------------------------------------------------------------
' * 函数功能:
' *    直流藕合
' *---------------------------------------------------------------------------
' * 输入参数：
' *---------------------------------------------------------------------------
' * 输出参数：
' *---------------------------------------------------------------------------*/
Public Declare Function SetDC Lib "FlashDSOAPI.dll" () As Boolean

'/*----------------------------------------------------------------------------
' * 函数功能:
' *    上升沿触发模式
' *---------------------------------------------------------------------------
' * 输入参数：
' *---------------------------------------------------------------------------
' * 输出参数：
' *---------------------------------------------------------------------------*/
Public Declare Function SetRiseTriger Lib "FlashDSOAPI.dll" () As Boolean

'/*----------------------------------------------------------------------------
' * 函数功能:
' *    下将沿触发模式
' *---------------------------------------------------------------------------
' * 输入参数：
' *---------------------------------------------------------------------------
' * 输出参数：
' *---------------------------------------------------------------------------*/
Public Declare Function SetFallTriger Lib "FlashDSOAPI.dll" () As Boolean

'/*----------------------------------------------------------------------------
' * 函数功能:
' *    自动触发模式
' *---------------------------------------------------------------------------
' * 输入参数：
' *---------------------------------------------------------------------------
' * 输出参数：
' *---------------------------------------------------------------------------*/
Public Declare Function SetAutoTriger Lib "FlashDSOAPI.dll" () As Boolean

'/*----------------------------------------------------------------------------
' * 函数功能:
' *    数据读取
' *---------------------------------------------------------------------------
' * 输入参数：
' *---------------------------------------------------------------------------
' * 输出参数：
' *    ChannelData1
' *    ChannelData2
' *---------------------------------------------------------------------------*/
Public Declare Function ReadDSOData Lib "FlashDSOAPI.dll" (ChannelData1 As Byte, ChannelData2 As Byte) As Boolean