varportdll.bas

51单片机模拟I2C的实例

Attribute VB_Name = "varPortDll"
Option Explicit

Declare Function OPENCOM Lib "PORT.DLL" (ByVal A$) As Integer
Declare Sub CLOSECOM Lib "PORT.DLL" ()
Declare Sub SENDBYTE Lib "PORT.DLL" (ByVal b%)
Declare Function READBYTE Lib "PORT.DLL" () As Integer
Declare Sub DTR Lib "PORT.DLL" (ByVal b%)
Declare Sub RTS Lib "PORT.DLL" (ByVal b%)
Declare Sub TXD Lib "PORT.DLL" (ByVal b%)
Declare Function CTS Lib "PORT.DLL" () As Integer
Declare Function DSR Lib "PORT.DLL" () As Integer
Declare Function RI Lib "PORT.DLL" () As Integer
Declare Function DCD Lib "PORT.DLL" () As Integer
Declare Sub DELAY Lib "PORT.DLL" (ByVal b%)
Declare Sub TIMEINIT Lib "PORT.DLL" ()
Declare Sub TIMEINITUS Lib "PORT.DLL" ()
Declare Function TIMEREAD Lib "PORT.DLL" () As Long
Declare Function TIMEREADUS Lib "PORT.DLL" () As Long
Declare Sub DELAYUS Lib "PORT.DLL" (ByVal l As Long)
Declare Sub REALTIME Lib "PORT.DLL" (ByVal i As Boolean)
Declare Sub OUTPORT Lib "PORT.DLL" (ByVal A%, ByVal b%)
Declare Function INPORT Lib "PORT.DLL" (ByVal p%) As Integer
Declare Function JOYX Lib "PORT.DLL" () As Long
Declare Function JOYY Lib "PORT.DLL" () As Long
Declare Function JOYZ Lib "PORT.DLL" () As Long
Declare Function JOYW Lib "PORT.DLL" () As Long
Declare Function JOYBUTTON Lib "PORT.DLL" () As Integer
Declare Function SOUNDSETRATE Lib "PORT.DLL" (ByVal Rate%) As Integer
Declare Function SOUNDGETRATE Lib "PORT.DLL" () As Integer
Declare Function SOUNDBUSY Lib "PORT.DLL" () As Boolean
Declare Function SOUNDIS Lib "PORT.DLL" () As Boolean
Declare Sub SOUNDIN Lib "PORT.DLL" (ByVal Puffer$, ByVal Size%)
Declare Sub SOUNDOUT Lib "PORT.DLL" (ByVal Puffer$, ByVal Size%)
Declare Function SOUNDGETBYTES Lib "PORT.DLL" () As Integer
Declare Function SOUNDSETBYTES Lib "PORT.DLL" (ByVal b%) As Integer
Declare Sub SOUNDCAPIN Lib "PORT.DLL" ()
Declare Sub SOUNCAPDOUT Lib "PORT.DLL" ()