菜鸟问个挺菜的问题

xxdxxd1234

老师让我做一个单点采集的程序，要用VB实现。

我用的是20的采集卡，看了教程以后用LV启动单点采集数据，成功了。

然后我就把采集到的数据导出到DATA文件，再用VB调用。

所以最后我的程序是：VB采集的时候要启动VI转换成的EXE，然后再读取DATA文件，可是每次都要运行EXE，再关闭，每次采集总要跳出一下那个VI做的EXE，觉得很不方便，求救各位高手！

飞雨天

那就把采集程序也用vb来写就可以了

看下采集卡的programmer  manual

一般来说都是调用dll，或者使用activex

这两种方式在vb和lv下几乎没有任何区别，都一样的快捷

xxdxxd1234

但是CPUBBS20的采集卡给出的只有VI和CVI的例子，怎么查看programmer  manual小弟也不是很懂，恳请各位大虾帮忙！

cpubbs

您好，请看光盘上面的DOC文件夹内的文档，是看CVI的，里面有相关的DLL的说明，您可以调用这些DLL就可以实现的！不过我也不会VB，呵呵！单点采集是比较简单，一个函数就可以实现的！

xxdxxd1234

这里有VB高手么？

以下是我在通用模块中的代码
Public cpubbs_ad_result(3) As Double, cpubbs_write_statue As Long, cpubbs_read_statue As Long
Public Declare Function fk Lib "C:\Users\xxd\Desktop\cpubbs\cpubbs_usb20_ver1_dll.dll" Alias "cpubbs_ad_sample_1_point" (ByVal cpubbs_ad_result As Double, ByRef cpubbs_write_statue As Long, ByRef cpubbs_read_statue As Long) As Byte

FORM1里只有一个COMMAND控件和一个TEXTBOX
代码如下

Private Sub Command1_Click()
i = fk(cpubbs_ad_result(0), cpubbs_write_statue, cpubbs_read_statue)

Text1 = cpubbs_ad_result(0)
End Sub


每次运行，点击command1。。VB出错，停止工作。。
请各位大虾帮忙解答~~十万火急

pingker

如果停止工作的话，就证明你函数调用错误。可能是你声明的函数类型不对。如果你有该dll 的说明和dll文件，或许我可以帮你看一下