dzmiusb20.bas

一本关于控制系统仿真的书的程序 1、文件夹1中的程序是书中的一些仿真。 2、文件2中的是最近做的预测控制、PID控制及逻辑控制的对比综合研究。 3、文件夹3中是与maltab通信的数据采集板的设

Attribute VB_Name = "dzmiUSB20"
'特别注意labcvi自动生成的dll引导文件不能正常使用.数组调用出现问题.
'启动自动读取硬件的线程，并自动放入二次fifo中。返回0说明USB不能正常通信。
 Declare Function StartFifo Lib "dzmiUSB20.dll" () As Long
 '终止自动读取硬件的线程。
 Declare Function StopFifo Lib "dzmiUSB20.dll" () As Long
 '设定每次从二次fifo中读取数据的大小。返回二次fifo队列的实际大小.
 Declare Function ReadBuff Lib "dzmiUSB20.dll" (ByVal nLen As Long, RecBuff As Double) As Long
'-----------------------------------------------------------------------
'函数功能：存盘阵列数据
'输入参数： 1、文件名：*fileName   2、数组长度： nLen   3、数组首地址：Array[]
'输出参数：如果存盘成功，将返回0。
'说明：设定存盘数据必须为double型。如果是其它类型，须改动dll。
'----------------------------------------------------------------------------
 Declare Function SaveArray Lib "dzmiArrayIO.dll" (ByVal fileName As String, ByVal nLen As Long, inArray As Double) As Long
'-----------------------------------------------------------------------
'函数功能：读取阵列数据。
'输入参数： 1、文件名：*fileName   2、数组长度： nLen   3、数组首地址：Array[]
'输出参数：返回0为读盘成功。其它数据参见filetoArray函数帮助。
'说明：设定读盘数据必须为double型。 注意getFileTime等几个很好用的函数,SetFilePtr 也很重要.
' -----------------------------------------------------------------------------
 Declare Function ReadArray Lib "dzmiArrayIO.dll" (ByVal fileName As String, ByVal nLen As Long, outArray As Double) As Long
 '-----------------------------------------------------------------------------------
 '返回文件字节大小。如果返回值为0或-1。则说明出错。注意：返回的是文件大小，并非存入的数据量。如果是double类型，需要除以8。
 '其中0代表 File does not exist. -1 代表 Maximum number of files already open.
 '------------------------------------------------------------------------------------
 Declare Function FileSize Lib "dzmiArrayIO.dll" (ByVal fileName As String) As Long