7,763
社区成员
发帖
与我相关
我的任务
分享VB.net能用VB的*.bas模块吗
现在有一个阿尔泰数据2813采集卡，只给出了VC和VB的程序实例，但是我想用VB.net来写，不知道*.bas能不能用在Vb.net中？或者修改一下语法和关键字能不能用？
非软件专业，所以不太清楚，现在课题需要编写简单的控制程序，请各位大神支招，不胜感激！！
下面给出模块文件“USB2813.bas”文件：
非软件专业，所以不太清楚，现在课题需要编写简单的控制程序，请各位大神支招，不胜感激！！
下面给出模块文件“USB2813.bas”文件：
...全文
请发表友善的回复…
发表回复
赵4老师 2017-11-17
- 打赏
- 举报
越恶心，越垃圾的代码，越在实际中被天天使用；
也优雅，越精致的代码，越在实际中被束之高阁。
请牢记：源代码本身的书写是否结构化或面向对象或符合设计模式或敏捷…并不重要，重要的是你是否使用结构化或面向对象或符合设计模式或敏捷…的方法命名标识符、阅读、修改、检查、测试源代码。
意思是你程序结构看上去再合理，再简洁，也不一定比看上去一团乱麻的程序结构在运行或修改时更不易出错，更方便修改，出错了更容易找到哪里出错和具体出错的原因，更容易改正错误。
试对比
图书馆（对图书的分类够结构化了吧）
和
搜索引擎（可看作是扁平化任何结构数据，仅支持全文检索）
哪个处理信息更方便、更高效。
所以
与其费劲去重构代码让其看上去更简洁、更合理
不如费劲学习grep、sed、awk、……这类全文搜索和批处理编辑的工具。
结构越复杂，越难修改，越难除错。
有时（甚至大多数时候），看上去越合理、越简洁的代码，运行起来性能越差，出错时查找原因越难，找到出错原因后改正越费劲。
程序员要做的不是尽力避免错误，而是聚焦在快速发现并改正错误。真正以快速方式轻易解决错误，“快速的失败”远胜过“预防错误”。Fred George
前微软C#编辑器的开发主管Jay Bazuzi列出的一些有助于找到正确方向的问题；他觉得前同事们应该用这些问题来问自己；实际上不管在哪里工作的开发者们都应该经常问问自己这些问题：
◆“要保证这个问题不会再出现，我该怎么做？”
◆“要想少出些Bug，我该怎么做？”
◆“要保证Bug容易被修复，我该怎么做？”
◆“要保持对变化的快速响应，我该怎么做？”
◆“要保证我的软件的运行速度，我该怎么做？”
如果大多数团队都能不时问一下自己，必定会从中得益，因为这些都是真正强而有力的问题。
舉杯邀明月 2017-11-17
- 打赏
- 举报
辛苦了，谢谢哈。思路对我很受用。[/quote]
例子代码给你继续“受用”吧：
//test.c 本程序演示两个进程之间通过临时文本文件交换数据实现间接调用
//A将请求数据写到文件a.txt，写完后改名为aa.txt
//B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，再将b.txt改名为bb.txt
//A发现bb.txt存在时，读取其内容，读完后删除bb.txt
#include <io.h>
#include <stdio.h>
#include <windows.h>
int main(int argc,char **argv) {
int d,r;
FILE *f;
char cmdstr[512];
if (argc<2) {
sprintf(cmdstr,"cmd /c \"%s\" B",argv[0]);
WinExec(cmdstr,SW_HIDE);
for (d=1;d<=5;d++) {//共使用1..5调用B 5次
//A将请求数据写到文件a.txt，写完后改名为aa.txt
f=fopen("a.txt","w");
fprintf(f,"%d\n",d);
fclose(f);
rename("a.txt","aa.txt");
printf("call with %d\n",d);
//A发现bb.txt存在时，读取其内容，读完后删除bb.txt
while (1) {
Sleep(100);
if (_access("bb.txt",0)!=-1) {
f=fopen("bb.txt","r");
fscanf(f,"%d",&r);
fclose(f);
remove("bb.txt");
break;
}
}
printf("result:%d\n",r);
}
return 0;
}
if (argv[1][0]=='a'||argv[1][0]=='A') {//A
for (d=1;d<=5;d++) {//共使用1..5调用B 5次
//A将请求数据写到文件a.txt，写完后改名为aa.txt
f=fopen("a.txt","w");
fprintf(f,"%d\n",d);
fclose(f);
rename("a.txt","aa.txt");
printf("call with %d\n",d);
//A发现bb.txt存在时，读取其内容，读完后删除bb.txt
while (1) {
Sleep(100);
if (_access("bb.txt",0)!=-1) {
f=fopen("bb.txt","r");
fscanf(f,"%d",&r);
fclose(f);
remove("bb.txt");
break;
}
}
printf("result:%d\n",r);
}
} else {//B
while (1) {
//B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，再将b.txt改名为bb.txt
while (1) {
Sleep(100);
if (_access("aa.txt",0)!=-1) {
f=fopen("aa.txt","r");
fscanf(f,"%d",&r);
fclose(f);
r=r*10;
f=fopen("b.txt","w");
fprintf(f,"%d\n",r);
fclose(f);
remove("aa.txt");
rename("b.txt","bb.txt");
break;
}
}
if (r==50) break;
}
}
return 0;
}
//C:\tmp\test>test
//call with 1
//result:10
//call with 2
//result:20
//call with 3
//result:30
//call with 4
//result:40
//call with 5
//result:50
//
//C:\tmp\test>start /B test B
//
//C:\tmp\test>test A
//call with 1
//result:10
//call with 2
//result:20
//call with 3
//result:30
//call with 4
//result:40
//call with 5
//result:50
//
//C:\tmp\test>
赵4老师 2017-11-16
- 打赏
- 举报
无profiler不要谈效率！！尤其在这个云计算、虚拟机、模拟器、CUDA、多核 、多级cache、指令流水线、多种存储介质、……满天飞的时代！
早点儿毕业 2017-11-16
- 打赏
- 举报
辛苦了，谢谢哈。思路对我很受用。[/quote]
例子代码给你继续“受用”吧：
//test.c 本程序演示两个进程之间通过临时文本文件交换数据实现间接调用
//A将请求数据写到文件a.txt，写完后改名为aa.txt
//B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，再将b.txt改名为bb.txt
//A发现bb.txt存在时，读取其内容，读完后删除bb.txt
#include <io.h>
#include <stdio.h>
#include <windows.h>
int main(int argc,char **argv) {
int d,r;
FILE *f;
char cmdstr[512];
if (argc<2) {
sprintf(cmdstr,"cmd /c \"%s\" B",argv[0]);
WinExec(cmdstr,SW_HIDE);
for (d=1;d<=5;d++) {//共使用1..5调用B 5次
//A将请求数据写到文件a.txt，写完后改名为aa.txt
f=fopen("a.txt","w");
fprintf(f,"%d\n",d);
fclose(f);
rename("a.txt","aa.txt");
printf("call with %d\n",d);
//A发现bb.txt存在时，读取其内容，读完后删除bb.txt
while (1) {
Sleep(100);
if (_access("bb.txt",0)!=-1) {
f=fopen("bb.txt","r");
fscanf(f,"%d",&r);
fclose(f);
remove("bb.txt");
break;
}
}
printf("result:%d\n",r);
}
return 0;
}
if (argv[1][0]=='a'||argv[1][0]=='A') {//A
for (d=1;d<=5;d++) {//共使用1..5调用B 5次
//A将请求数据写到文件a.txt，写完后改名为aa.txt
f=fopen("a.txt","w");
fprintf(f,"%d\n",d);
fclose(f);
rename("a.txt","aa.txt");
printf("call with %d\n",d);
//A发现bb.txt存在时，读取其内容，读完后删除bb.txt
while (1) {
Sleep(100);
if (_access("bb.txt",0)!=-1) {
f=fopen("bb.txt","r");
fscanf(f,"%d",&r);
fclose(f);
remove("bb.txt");
break;
}
}
printf("result:%d\n",r);
}
} else {//B
while (1) {
//B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，再将b.txt改名为bb.txt
while (1) {
Sleep(100);
if (_access("aa.txt",0)!=-1) {
f=fopen("aa.txt","r");
fscanf(f,"%d",&r);
fclose(f);
r=r*10;
f=fopen("b.txt","w");
fprintf(f,"%d\n",r);
fclose(f);
remove("aa.txt");
rename("b.txt","bb.txt");
break;
}
}
if (r==50) break;
}
}
return 0;
}
//C:\tmp\test>test
//call with 1
//result:10
//call with 2
//result:20
//call with 3
//result:30
//call with 4
//result:40
//call with 5
//result:50
//
//C:\tmp\test>start /B test B
//
//C:\tmp\test>test A
//call with 1
//result:10
//call with 2
//result:20
//call with 3
//result:30
//call with 4
//result:40
//call with 5
//result:50
//
//C:\tmp\test>
X-i-n 2017-11-15
- 打赏
- 举报
辛苦了，谢谢哈。思路对我很受用。[/quote]
例子代码给你继续“受用”吧：
//test.c 本程序演示两个进程之间通过临时文本文件交换数据实现间接调用
//A将请求数据写到文件a.txt，写完后改名为aa.txt
//B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，再将b.txt改名为bb.txt
//A发现bb.txt存在时，读取其内容，读完后删除bb.txt
#include <io.h>
#include <stdio.h>
#include <windows.h>
int main(int argc,char **argv) {
int d,r;
FILE *f;
char cmdstr[512];
if (argc<2) {
sprintf(cmdstr,"cmd /c \"%s\" B",argv[0]);
WinExec(cmdstr,SW_HIDE);
for (d=1;d<=5;d++) {//共使用1..5调用B 5次
//A将请求数据写到文件a.txt，写完后改名为aa.txt
f=fopen("a.txt","w");
fprintf(f,"%d\n",d);
fclose(f);
rename("a.txt","aa.txt");
printf("call with %d\n",d);
//A发现bb.txt存在时，读取其内容，读完后删除bb.txt
while (1) {
Sleep(100);
if (_access("bb.txt",0)!=-1) {
f=fopen("bb.txt","r");
fscanf(f,"%d",&r);
fclose(f);
remove("bb.txt");
break;
}
}
printf("result:%d\n",r);
}
return 0;
}
if (argv[1][0]=='a'||argv[1][0]=='A') {//A
for (d=1;d<=5;d++) {//共使用1..5调用B 5次
//A将请求数据写到文件a.txt，写完后改名为aa.txt
f=fopen("a.txt","w");
fprintf(f,"%d\n",d);
fclose(f);
rename("a.txt","aa.txt");
printf("call with %d\n",d);
//A发现bb.txt存在时，读取其内容，读完后删除bb.txt
while (1) {
Sleep(100);
if (_access("bb.txt",0)!=-1) {
f=fopen("bb.txt","r");
fscanf(f,"%d",&r);
fclose(f);
remove("bb.txt");
break;
}
}
printf("result:%d\n",r);
}
} else {//B
while (1) {
//B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，再将b.txt改名为bb.txt
while (1) {
Sleep(100);
if (_access("aa.txt",0)!=-1) {
f=fopen("aa.txt","r");
fscanf(f,"%d",&r);
fclose(f);
r=r*10;
f=fopen("b.txt","w");
fprintf(f,"%d\n",r);
fclose(f);
remove("aa.txt");
rename("b.txt","bb.txt");
break;
}
}
if (r==50) break;
}
}
return 0;
}
//C:\tmp\test>test
//call with 1
//result:10
//call with 2
//result:20
//call with 3
//result:30
//call with 4
//result:40
//call with 5
//result:50
//
//C:\tmp\test>start /B test B
//
//C:\tmp\test>test A
//call with 1
//result:10
//call with 2
//result:20
//call with 3
//result:30
//call with 4
//result:40
//call with 5
//result:50
//
//C:\tmp\test>
赵4老师 2017-11-15
- 打赏
- 举报
辛苦了，谢谢哈。思路对我很受用。[/quote]
例子代码给你继续“受用”吧：
//test.c 本程序演示两个进程之间通过临时文本文件交换数据实现间接调用
//A将请求数据写到文件a.txt，写完后改名为aa.txt
//B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，再将b.txt改名为bb.txt
//A发现bb.txt存在时，读取其内容，读完后删除bb.txt
#include <io.h>
#include <stdio.h>
#include <windows.h>
int main(int argc,char **argv) {
int d,r;
FILE *f;
char cmdstr[512];
if (argc<2) {
sprintf(cmdstr,"cmd /c \"%s\" B",argv[0]);
WinExec(cmdstr,SW_HIDE);
for (d=1;d<=5;d++) {//共使用1..5调用B 5次
//A将请求数据写到文件a.txt，写完后改名为aa.txt
f=fopen("a.txt","w");
fprintf(f,"%d\n",d);
fclose(f);
rename("a.txt","aa.txt");
printf("call with %d\n",d);
//A发现bb.txt存在时，读取其内容，读完后删除bb.txt
while (1) {
Sleep(100);
if (_access("bb.txt",0)!=-1) {
f=fopen("bb.txt","r");
fscanf(f,"%d",&r);
fclose(f);
remove("bb.txt");
break;
}
}
printf("result:%d\n",r);
}
return 0;
}
if (argv[1][0]=='a'||argv[1][0]=='A') {//A
for (d=1;d<=5;d++) {//共使用1..5调用B 5次
//A将请求数据写到文件a.txt，写完后改名为aa.txt
f=fopen("a.txt","w");
fprintf(f,"%d\n",d);
fclose(f);
rename("a.txt","aa.txt");
printf("call with %d\n",d);
//A发现bb.txt存在时，读取其内容，读完后删除bb.txt
while (1) {
Sleep(100);
if (_access("bb.txt",0)!=-1) {
f=fopen("bb.txt","r");
fscanf(f,"%d",&r);
fclose(f);
remove("bb.txt");
break;
}
}
printf("result:%d\n",r);
}
} else {//B
while (1) {
//B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，再将b.txt改名为bb.txt
while (1) {
Sleep(100);
if (_access("aa.txt",0)!=-1) {
f=fopen("aa.txt","r");
fscanf(f,"%d",&r);
fclose(f);
r=r*10;
f=fopen("b.txt","w");
fprintf(f,"%d\n",r);
fclose(f);
remove("aa.txt");
rename("b.txt","bb.txt");
break;
}
}
if (r==50) break;
}
}
return 0;
}
//C:\tmp\test>test
//call with 1
//result:10
//call with 2
//result:20
//call with 3
//result:30
//call with 4
//result:40
//call with 5
//result:50
//
//C:\tmp\test>start /B test B
//
//C:\tmp\test>test A
//call with 1
//result:10
//call with 2
//result:20
//call with 3
//result:30
//call with 4
//result:40
//call with 5
//result:50
//
//C:\tmp\test>
Rooster_ 2017-11-15
- 打赏
- 举报
应该不能吧....
早点儿毕业 2017-11-14
- 打赏
- 举报
辛苦了，谢谢哈。思路对我很受用。
早点儿毕业 2017-11-14
- 打赏
- 举报
好的，我试试看，谢谢哈
X-i-n 2017-11-13
- 打赏
- 举报
需要做一点微调，比如vb6里，integer是双字节，long是4字节，代码改成.net需要对应改成 int16，integer(或int32)；结构体在.net里是 Structure 不再是Type。总体讲差别不大。建议先试试看，新建vb.net 工程以后，新增一个Module文件，把这个代码放进去，初步改一遍后跑跑看。
赵4老师 2017-11-13
- 打赏
- 举报
不要做A语言代码修改为B语言代码的无用功。
也不要做用A语言代码直接调用B语言代码库这样复杂、这样容易出错的傻事。
只需让A、B语言代码的输入输出重定向到文本文件，或修改A、B语言代码让其通过文本文件输入输出。
即可很方便地让A、B两种语言之间协调工作。
比如：
A将请求数据写到文件a.txt，写完后改名为aa.txt
B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，再将b.txt改名为bb.txt
A发现bb.txt存在时，读取其内容，读完后删除bb.txt
以上A可以替换为任何一种开发语言或开发环境，B可以替换为任何一种与A不同的开发语言或开发环境。
除非A或B不支持判断文件是否存在、文件读写和文件更名。
但是谁又能举出不支持判断文件是否存在、文件读写和文件更名的开发语言或开发环境呢？
可以将临时文件放在RamDisk上提高效率减少磨损磁盘。
数据的结构很复杂的话，文本文件的格式问题可参考json或xml
共享临时文本文件这种进程之间的通讯方法相比其它方法的优点有很多，下面仅列出我现在能想到的：
·进程之间松耦合
·进程可在同一台机器上，也可跨机，跨操作系统，跨硬件平台，甚至跨国。
·方便调试和监视，只需让第三方或人工查看该临时文本文件即可。
·方便在线开关服务，只需删除或创建该临时文本文件即可。
·方便实现分布式和负载均衡。
·方便队列化提供服务，而且几乎不可能发生队列满的情况（除非硬盘空间满）
·……
“跨语言、跨机，跨操作系统，跨硬件平台，跨国，跨*.*的”苦海无边，
回头是“使用共享纯文本文件进行信息交流”的岸！
早点儿毕业 2017-11-12
- 打赏
- 举报
谢谢上面两位大神，看来即使能改也得费好大劲，那我就不折腾VB.net了，直接研究研究里面自带的C++实例吧。
舉杯邀明月 2017-11-12
- 打赏
- 举报
印象中VB.NET中“使用API的声明方式”的写法，跟VB6中完全不同。
（具体是什么样，我也不清楚，从来没有写过VB.NET的代码）
至少，有关“API声明”那一部分，得完全改写……
无·法 2017-11-12
- 打赏
- 举报
试了看看，估计不行的
早点儿毕业 2017-11-11
- 打赏
- 举报
Attribute VB_Name = "Driver_Module"
'***********************************************************
' 用于AD采集的参数结构
Type USB2813_PARA_AD
FirstChannel As Long ' 首通道,取值范围为[0, 15]
LastChannel As Long ' 末通道,取值范围为[0, 15]
InputRange As Long
GroundingMode As Long
End Type
' AD硬件参数(USB2813_PARA_AD)中的InputRange模拟量输入范围所使用的选项
Public Const USB2813_INPUT_N10000_P10000 = &H0 ' ±10000mV(默认配置)
Public Const USB2813_INPUT_N5000_P5000 = &H1 ' ±5000mV
Public Const USB2813_INPUT_N0_P10000 = &H2 ' 0～10000mV
' AD参数(USB2813_PARA_AD)中的GroundingMode使用的模拟信号接地方式选项
Public Const USB2813_GNDMODE_SE = &H0 ' 单端方式(SE:Single end)
Public Const USB2813_GNDMODE_DI = &H1 ' 双端方式(DI:Differential)
'***********************************************************
' 8253计数器控制字
Type USB2813_PARA_CNT ' 计数器控制字(CONTROL)
OperateType As Byte ' 操作类型
CountMode As Byte ' 计数方式
CountType As Byte ' 计数类型
End Type
' USB2813_PARA_CNT_CTRL参数结构体各成员使用的选项
' 操作类型(OperateType)
Public Const USB2813_OPT_TYPE_0 = &H0 ' 计数器锁存操作
Public Const USB2813_OPT_TYPE_1 = &H1 ' 只读/写低字节
Public Const USB2813_OPT_TYPE_2 = &H2 ' 只读/写高字节
Public Const USB2813_OPT_TYPE_3 = &H3 ' 先读/写低字节，后读/写高字节
' 计数方式(CountMode)
Public Const USB2813_CNT_MODE_0 = &H0 ' 计数方式0，计数器结束中断方式
Public Const USB2813_CNT_MODE_1 = &H1 ' 计数方式1，可编程单次脉冲方式
Public Const USB2813_CNT_MODE_2 = &H2 ' 计数方式2，频率发生器方式
Public Const USB2813_CNT_MODE_3 = &H3 ' 计数方式3，方波频率发生器方式
Public Const USB2813_CNT_MODE_4 = &H4 ' 计数方式4，软件触发选通方式
Public Const USB2813_CNT_MODE_5 = &H5 ' 计数方式5，硬件触发选通方式
' 计数类型(BCD)
Public Const USB2813_CNT_TYPE_BIN = &H0 ' 计数类型0，二进制计数
Public Const USB2813_CNT_TYPE_BCD = &H1 ' 计数类型1，BCD码计数
'***********************************************************
' 用于开关量输出的参数结构
Type USB2813_PARA_DO ' 数字量输出参数
DO0 As Byte ' 0通道
DO1 As Byte ' 1通道
DO2 As Byte ' 2通道
DO3 As Byte ' 3通道
DO4 As Byte ' 4通道
DO5 As Byte ' 5通道
DO6 As Byte ' 6通道
DO7 As Byte ' 7通道
End Type
'***********************************************************
' 用于开关量输入的参数结构
Type USB2813_PARA_DI ' 数字量输入参数
DI0 As Byte ' 0通道
DI1 As Byte ' 1通道
DI2 As Byte ' 2通道
DI3 As Byte ' 3通道
DI4 As Byte ' 4通道
DI5 As Byte ' 5通道
DI6 As Byte ' 6通道
DI7 As Byte ' 7通道
End Type
'***********************************************************
' CreateFileObject中的Mode参数使用的文件操作方式控制字(可通过或指令实现多种方式并操作)
Public Const USB2813_modeRead = &H0 ' 只读文件方式
Public Const USB2813_modeWrite = &H1 ' 只写文件方式
Public Const USB2813_modeReadWrite = &H2 ' 既读又写文件方式
Public Const USB2813_modeCreate = &H1000 ' 如果文件不存可以创建该文件，如果存在，则重建此文件，并清0
'***********************************************************
' 驱动函数接口
'######################## 常规通用函数 #################################
Declare Function USB2813_CreateDevice Lib "USB2813" (Optional ByVal DeviceLgcID As Integer = 0) As Long ' 创建设备对象(使用设备逻辑号)
Declare Function USB2813_CreateDeviceEx Lib "USB2813" (Optional ByVal DevicePhysID As Integer = 0) As Long ' 创建设备对象(使用设备物理号), DevicePhysID指定的物理号由板上DID拔码器实现)
Declare Function USB2813_GetDeviceCount Lib "USB2813" (ByVal hDevice As Long) As Integer ' 取得USB2813在系统中的设备数量
Declare Function USB2813_GetDeviceCurrentID Lib "USB2813" (ByVal hDevice As Long, ByRef DeviceLgcID As Long, ByRef DevicePhysID As Long) As Boolean ' 取得当前设备的物理ID号和逻辑ID号
Declare Function USB2813_ListDeviceDlg Lib "USB2813" () As Boolean ' 用对话框列表系统当中的所有USB2813设备
Declare Function USB2813_ResetDevice Lib "USB2813" (ByVal hDevice As Long) As Boolean ' 复位整个USB设备
Declare Function USB2813_ReleaseDevice Lib "USB2813" (ByVal hDevice As Long) As Boolean ' 设备句柄
'####################### AD数据读取函数 #################################
Declare Function USB2813_InitDeviceAD Lib "USB2813" (ByVal hDevice As Long, ByRef pADPara As USB2813_PARA_AD) As Boolean
Declare Function USB2813_ReadDeviceAD Lib "USB2813" (ByVal hDevice As Long, ByRef ADBuffer As Integer, ByVal nReadSizeWords As Long, ByRef nRetSizeWords As Long) As Boolean ' 实际返回数据的长度(字)
Declare Function USB2813_ReleaseDeviceAD Lib "USB2813" (ByVal hDevice As Long) As Boolean ' 停止AD采集，释放AD对象所占资源
'################# AD的硬件参数操作函数 ########################
Declare Function USB2813_SaveParaAD Lib "USB2813" (ByVal hDevice As Long, ByRef pADPara As USB2813_PARA_AD) As Boolean
Declare Function USB2813_LoadParaAD Lib "USB2813" (ByVal hDevice As Long, ByRef pADPara As USB2813_PARA_AD) As Boolean
'####################### DA数据输出函数 #################################
' 适于大多数普通用户，这些接口最简单、最快捷、最可靠，让用户不必知道设备
' 低层复杂的硬件控制协议和繁多的软件控制编程，仅用下面一个函数便能轻
' 松实现高速、连续的DA数据输出
Declare Function USB2813_WriteDeviceDA Lib "USB2813" (ByVal hDevice As Long, ByVal nDALsb As Integer, ByVal nDAChannel As Integer) As Boolean
'##################### 计数器控制函数 ##########################
Declare Function USB2813_InitDeviceCNT Lib "USB2813" (ByVal hDevice As Long, ByRef pCNTPara As USB2813_PARA_CNT, ByVal InitCNTVal As Integer, ByVal nCNTChannel As Integer) As Boolean
Declare Function USB2813_GetDeviceCNT Lib "USB2813" (ByVal hDevice As Long, ByRef CNTValue As Long) As Boolean
'####################### 数字I/O输入输出函数 #################################
Declare Function USB2813_SetDeviceDO Lib "USB2813" (ByVal hDevice As Long, ByRef pDOPara As USB2813_PARA_DO) As Boolean ' 开关状态
Declare Function USB2813_GetDeviceDI Lib "USB2813" (ByVal hDevice As Long, ByRef pDIPara As USB2813_PARA_DI) As Boolean ' 开关状态
'########################## 文件操作函数 ####################################
Declare Function USB2813_CreateFileObject Lib "USB2813" (ByVal hDevice As Long, ByVal strFileName As String, ByVal Mode As Integer) As Long ' 文件操作方式
Declare Function USB2813_WriteFile Lib "USB2813" (ByVal hFileObject As Long, ByRef pDataBuffer As Integer, ByVal nWriteSizeBytes As Long) As Boolean ' 缓冲区大小(字节)
Declare Function USB2813_ReadFile Lib "USB2813" (ByVal hFileObject As Long, ByRef pDataBuffer As Integer, ByVal OffsetBytes As Long, ByVal nReadSizeBytes As Long) As Boolean ' 从偏移位置开始读的字节数
Declare Function USB2813_SetFileOffset Lib "USB2813" (ByVal hFileObject As Long, ByVal nOffsetBytes As Long) As Boolean ' 文件偏移位置（以字为单位）
Declare Function USB2813_GetFileLength Lib "USB2813" (ByVal hFileObject As Long) As Long ' 取得指定文件长度（字节）
Declare Function USB2813_ReleaseFile Lib "USB2813" (ByVal hFileObject As Long) As Boolean
Declare Function USB2813_GetDiskFreeBytes Lib "USB2813" (ByRef strDiskName As String) As Currency ' 获得指定盘符的磁盘空间(注意使用64位变量)
'############################ 线程操作函数 ################################
Declare Function USB2813_CreateSystemEvent Lib "USB2813" () As Long ' 创建内核系统事件对象
Declare Function USB2813_ReleaseSystemEvent Lib "USB2813" (ByVal hEvent As Long) As Boolean ' 释放内核事件对象
Declare Function USB2813_CreateVBThread Lib "USB2813" (ByRef hThread As Long, ByVal StartThread As Long) As Boolean
Declare Function USB2813_TerminateVBThread Lib "USB2813" (ByVal hThreadHandle As Long) As Boolean
'################# 其他附加函数 ########################
Declare Function USB2813_EnableShowMessage Lib "USB2813" (Optional ByVal bShowMessage As Boolean = False) As Boolean ' 是否让驱动程序自动弹出错误信息提示对话框
Declare Function USB2813_DelayTimeUs Lib "USB2813" (ByVal nUs As Integer)
Declare Function USB2813_kbhit Lib "USB2813" (void) As Boolean
