mvcom.bas

自己编写的

Attribute VB_Name = "MvCom"
Option Explicit

'ProcedureDLL.l mvComOpen(PortDef.s,Handshake.l,bufferIn.l,bufferOut.l)
Public Declare Function mvComOpen Lib "MvCom" (ByVal ProtDef As String, ByVal Handshake As Long, ByVal bufferIn As Long, ByVal bufferOut As Long) As Long

'ProcedureDLL.l mvComClose(HCom.l)
Public Declare Function mvComClose Lib "MvCom" (ByVal hcom As Long) As Long

'ProcedureDLL.l mvComOutput(HCom.l,str.s)
Public Declare Function mvComOutput Lib "MvCom" (ByVal hcom As Long, ByVal str As String) As Long

'ProcedureDLL.l mvComInput(HCom.l,char.s)
Public Declare Function mvComInput Lib "MvCom" (ByVal hcom As Long, ByVal char As String) As Long

'ProcedureDLL.l mvComInputAll(HCom.l,str.s,NumberOfChars.l)
Public Declare Function mvComInputAll Lib "MvCom" (ByVal hcom As Long, ByVal str As String, ByVal numberOfChars As Long) As Long

'ProcedureDLL.l mvComInputBufferCount(HCom.l)
Public Declare Function mvComInputBufferCount Lib "MvCom" (ByVal hcom As Long) As Long

'ProcedureDLL.l mvComSendByte(HCom.l,buffer.l,bufferLen.l)
Public Declare Function mvComSendByte Lib "MvCom" (ByVal hcom As Long, ByRef buffer As Long, ByVal bufferLen As Long) As Long

'ProcedureDLL.l  mvComReadByte(HCom.l,buffer.l,bufferLen.l)
Public Declare Function mvComReadByte Lib "MvCom" (ByVal hcom As Long, ByRef buffer As Long, ByVal bufferLen As Long) As Long

'ProcedureDLL.l mvComOutputBufferCount(HCom.l)
Public Declare Function mvComOutputBufferCount Lib "MvCom" (ByVal hcom As Long) As Long

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)