📄 flashdso使用手册.txt
字号:
FlashDSO API 使用手册
一、软件宣告：
FlashDSO API 是一个共享软件，作者享有一切权利。您可以自由使用、
复制、传播、发布此软件的试用版；未经作者书面认可，任何人不得作任
何修改或用于商业用途。违者作者将追究其最大责任。
请仔细阅读以下使用许可，如果您不同意以下任何一点，请立即停止使
用此软件：
1. 本软件产品的版权归兄弟工作室所有，受到版权法及其他知识产权法
及条约的保护。
2. 本软件作者兄弟工作室授予您对此版本的最终用户使用许可权。
3. 您不能对此软件作任何的软件反向工程，如反汇编，跟踪等，并且
不能对此软件作非法篡改。
4. 您可以自由使用、复制、传播、发布此软件的试用版，但未征得作
者同意的情况下，您不能收取任何费用或用于商业目的，如销售，
捆绑，集成等。同时，必须保证所分发的软件包含全部文件，并且
未作任何修改。
5. 本软件作者将不会对使用本软件所引起的其他事件负有任何责任。
二、API说明：
1.打开示波器
/*----------------------------------------------------------------------------
* 函数功能:
* 打开示波器
*---------------------------------------------------------------------------
* 输入参数：
* 端口号
*---------------------------------------------------------------------------
* 输出参数：
* 成功-TRUE 失败-FALSE
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function OpenDSO Lib "FlashDSOAPI.dll" (ByVal iPort As Integer) As Boolean
2.关闭示波器
/*----------------------------------------------------------------------------
* 函数功能:
* 关闭示波器
*---------------------------------------------------------------------------
* 输入参数：
*
*---------------------------------------------------------------------------
* 输出参数：
*
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function ShutDSO Lib "FlashDSOAPI.dll" () As Boolean
3.开始采集数据
/*----------------------------------------------------------------------------
* 函数功能:
* 开始采集数据
*---------------------------------------------------------------------------
* 输入参数：
*
*---------------------------------------------------------------------------
* 输出参数：
*
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function StartDSO Lib "FlashDSOAPI.dll" () As Boolean
4.停止采集数据
/*----------------------------------------------------------------------------
* 函数功能:
* 停止采集数据
*---------------------------------------------------------------------------
* 输入参数：
*
*---------------------------------------------------------------------------
* 输出参数：
*
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function StopDSO Lib "FlashDSOAPI.dll" () As Boolean
5.设置采样频率
/*----------------------------------------------------------------------------
* 函数功能:
* 设置采样频率
*---------------------------------------------------------------------------
* 输入参数：
* 频率索引
* 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
*---------------------------------------------------------------------------
* 输出参数：
*
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function SetClock Lib "FlashDSOAPI.dll" (ByVal Index As Integer) As Boolean
6.信号衰减
/*----------------------------------------------------------------------------
* 函数功能:
* 信号衰减
*---------------------------------------------------------------------------
* 输入参数：
* 衰减索引
* VA_OP_X0 衰减比例 1:1
* VA_OP_X1 衰减比例 1:10
* VA_OP_X2 衰减比例 1:20
* ---------------------------------------------------------------------------
* 输出参数：
*
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function SetGain Lib "FlashDSOAPI.dll" (ByVal Index As Integer) As Boolean
7.获取版本信息
/*----------------------------------------------------------------------------
* 函数功能:
* 获取版本信息
*---------------------------------------------------------------------------
* 输入参数：
*
*---------------------------------------------------------------------------
* 输出参数：
* 成功-TRUE 失败-FALSE
* 版本信息
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function GetVersion Lib "FlashDSOAPI.dll" (szVersion As Byte) As Boolean
8.自动获取端口
/*----------------------------------------------------------------------------
* 函数功能:
* 自动获取端口
*---------------------------------------------------------------------------
* 输入参数：
*
*---------------------------------------------------------------------------
* 输出参数：
* 成功>=1 失败=0
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function GetPort Lib "FlashDSOAPI.dll" () As Integer
9.交流藕合
/*----------------------------------------------------------------------------
* 函数功能:
* 交流藕合
*---------------------------------------------------------------------------
* 输入参数：
*
*---------------------------------------------------------------------------
* 输出参数：
*
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function SetAC Lib "FlashDSOAPI.dll" () As Boolean
10.直流藕合
/*----------------------------------------------------------------------------
* 函数功能:
* 直流藕合
*---------------------------------------------------------------------------
* 输入参数：
*
*---------------------------------------------------------------------------
* 输出参数：
*
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function SetDC Lib "FlashDSOAPI.dll" () As Boolean
11.上升沿触发模式
/*----------------------------------------------------------------------------
* 函数功能:
* 上升沿触发模式
*---------------------------------------------------------------------------
* 输入参数：
*
*---------------------------------------------------------------------------
* 输出参数：
*
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function SetRiseTriger Lib "FlashDSOAPI.dll" () As Boolean
12.下将沿触发模式
/*----------------------------------------------------------------------------
* 函数功能:
* 下将沿触发模式
*---------------------------------------------------------------------------
* 输入参数：
*
*---------------------------------------------------------------------------
* 输出参数：
*
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function SetFallTriger Lib "FlashDSOAPI.dll" () As Boolean
13.自动触发模式
/*----------------------------------------------------------------------------
* 函数功能:
* 自动触发模式
*---------------------------------------------------------------------------
* 输入参数：
*
*---------------------------------------------------------------------------
* 输出参数：
*
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function SetAutoTriger Lib "FlashDSOAPI.dll" () As Boolean
14.数据读取
/*----------------------------------------------------------------------------
* 函数功能:
* 数据读取
*---------------------------------------------------------------------------
* 输入参数：
*
*---------------------------------------------------------------------------
* 输出参数：
* ChannelData1
* ChannelData2
*---------------------------------------------------------------------------*/
VB原型 Public Declare Function ReadDSOData Lib "FlashDSOAPI.dll" (ChannelData1 As Byte, ChannelData2 As Byte) As Boolean
三、在VB中API使用例程：
在工程中加入FlashDSOAPI.bas,将FlashDSOAPI.dll复制到工程目录中,
1,自动扫描端口
Private Sub Form_Load()
'自动获取连接端口
iPort = GetPort
If iPort = 0 Then
Command1.Enabled = False
Text1.Text = "没有连接FlashDSO"
Else
Command1.Enabled = True
Text1.Text = "成功连接FlashDSO"
End If
End Sub
2,初始FlashDSO
Private Sub Command1_Click()
'初始ADC
OpenDSO iPort
SetAutoTriger
SetClock VA_TIMEBASE_0
SetGain VA_OP_X0
SetAC
'定时器为200M秒
Timer1.Interval = 200
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub
3,获取FlashDSO数据,显示FlashDSO数据
Private Sub Timer1_Timer()
Dim iCurrData As Integer
StartDSO
'获取ADC数据。
ReadDSOData ChannelData1(0), ChannelData2(0)
Picture1.Scale (0, 0)-(300, 200)
iCurrData = 150 - ChannelData1(0)
'显示一通道内容
Picture1.Refresh
Picture1.PSet (0, iCurrData)
For i = 0 To 400
Picture1.Line (i, 150 - ChannelData1(i) / 2)-(i + 1, 150 - ChannelData1(i + 1) / 2)
Next i
'显示二通道内容
Picture2.Refresh
Picture2.Scale (0, 0)-(300, 200)
iCurrData = 150 - ChannelData2(0)
Picture2.PSet (0, iCurrData)
For i = 0 To 400
Picture2.Line (i, 150 - ChannelData2(i) / 2)-(i + 1, 150 - ChannelData2(i + 1) / 2)
Next i
End Sub
4,关闭FlashDSO
Private Sub Command2_Click()
'清理ADC
StopDSO
ShutDSO
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
http://www.ost2002.com
版权所有(c) 1998-2006 OST2002.COM 兄弟工作室 保留所有权利
2006-2-10
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -