zlgeasyd12_cass.bas

来自「飞利浦usb接口芯片[PDIUSBD12]实现的usb接口的PC端的」· BAS 代码 · 共 57 行

Attribute VB_Name = "ZlgEasyD12_cass"
'            /*
'             ************************************************************************
'             *
'             *  Copyright(c) 2002, 周立功单片机发展有限公司
'             *                   All rights reserved.
'             *
'             *     文   件: ZlgEasyD12_cass.bas
'             *
'             *     摘   要: 本程序主要是演示EasyUSB.dll API函数调用方法
'             *
'             *
'             *     创建日期:  2002年11月01日
'             *
'             *************************************************************************
'             */
                
                


'*************************************************************************
'*                     声明全局变量
'*************************************************************************


Public st As Long                              '接收命今状态

                
'*************************************************************************
'*                      声明引用 EasyUSB.dll API函数
'*************************************************************************
                
        '------------------------------------------------------------
        '说明:  读USB端口2数据
        '参数:  pipenum     端点号
        '       recbuffer   接收缓冲区
        '       length      接收长度
        '       waittime    超时时间
        '返回:  length 接收数据成功,其它值 接收失败
        '------------------------------------------------------------

Public Declare Function ReadData Lib "EasyUSB.dll" (ByVal pipenum As Integer, ByRef recbuffer As Byte, ByVal length As Integer, ByVal waittime As Integer) As Integer



        '------------------------------------------------------------
        '说明:  向USB端口2写数据
        '参数:  pipenum     端点号
        '       sendbuffer  接收缓冲区
        '       length      接收长度
        '       waittime    超时时间
        '返回:  length 发送数据成功,其它值 发送失败
        '------------------------------------------------------------
Public Declare Function WriteData Lib "EasyUSB.dll" (ByVal pipenum As Integer, ByRef sendbuffer As Byte, ByVal length As Integer, ByVal waittime As Integer) As Integer