发表于:2007-08-02 19:51:00
楼主
下面给出该采集卡的DLL函数,请高手指点一下怎么可以把数据采进来显示在文本框里?
Declare Function USB_Init Lib "d:\vb测试\D12dll.dll" Alias "_USB_Init@0" () As Long 'USB初始化函数
Declare Function USB_Close Lib "d:\vb测试\D12dll.dll" Alias "_USB_Close@0" () As Long '退出USB
Declare Function CJCanShuSend Lib "d:\vb测试\D12dll.dll" Alias "_CJCanShuSend@48" (ByVal m_AD_frequency As Long, ByVal m_AD_holding As Byte, ByVal m_AD_page As Byte, ByVal m_AD_send_data_type As Byte, ByVal m_AD_spring As Byte, ByVal m_AD_spring_type As Byte, ByVal m_AD_spring_voltage As Long, ByVal m_AD_start_channels As Byte, ByVal m_AD_time As Long, ByVal m_instrument_type As Byte, ByVal m_AD_end_channels As Byte, ByVal m_AD_filter As Long) As Long '设置采集卡参数
Declare Function GetData Lib "d:\vb测试\D12dll.dll" Alias "_GetData@8" (pData As Integer, ByVal nCount As Long) As Long
Declare Function GetCountData Lib "d:\vb测试\D12dll.dll" Alias "_GetCountData@8" (pData As Integer, ByVal nCount As Long) As Long
Declare Function CJStop Lib "d:\vb测试\D12dll.dll" Alias "_CJStop@0" () As Long
Declare Function Outport Lib "d:\vb测试\D12dll.dll" Alias "_Outport@4" (ByVal OutData As Byte) As Long
Declare Function Inport Lib "d:\vb测试\D12dll.dll" Alias "_Inport@4" (InData As Byte) As Long
Declare function Outport_data Lib "D12dll.dll" Alias "_Inport@4"(Byval OutData as Byte) as Long
declare Function Inport_data Lib "D12dll.dll" Alias "_Inport@4" (Byval InData as Byte) as Long
我编了好多小程序,但是都没有把数据采进来,很急!
不知道以上信息够不够,多谢指点!!!!