//====================================================================================
直接操作I2C總線:
Declare Sub InitLPT Lib "I2C.DLL" (ByVal hinst As Long)
Declare Sub LPT_WriteByte Lib "I2C.DLL" (ByVal address As Long, ByVal data As Byte)
Declare Function LPT_ReadByte Lib "I2C.DLL" (ByVal address As Long) As Byte
Declare Sub LPT_SetBit Lib "I2C.DLL" (ByVal address As Long, ByVal Bit As Byte)
Declare Sub LPT_ClrBit Lib "I2C.DLL" (ByVal address As Long, ByVal Bit As Byte)
Declare Function LPT_GetBit Lib "I2C.DLL" (ByVal address As Long, ByVal Bit As Byte)
Declare Sub LPT_NotBit Lib "I2C.DLL" (ByVal address As Long, ByVal Bit As Byte)
Declare Sub EndLPT Lib "I2C.DLL" (ByVal hinst As Long)
/-------------------------------------------------------------------------------------
Declare Sub Set_SDA_Out Lib "I2C.DLL" (ByVal LPTaddress As Long, ByVal NoBit As Byte, ByVal CPLflag As Byte)
Declare Sub Set_SDA_In Lib "I2C.DLL" (ByVal LPTaddress As Long, ByVal NoBit As Byte, ByVal CPLflag As Byte)
Declare Sub Set_SCL_Out Lib "I2C.DLL" (ByVal LPTaddress As Long, ByVal NoBit As Byte, ByVal CPLflag As Byte)
Declare Sub Set_SCL_In Lib "I2C.DLL" (ByVal LPTaddress As Long, ByVal NoBit As Byte, ByVal CPLflag As Byte)
Declare Function GetI2CStatus Lib "I2C.DLL" () As Byte
Declare Sub SetI2CStatus Lib "I2C.DLL" (ByVal flag As Byte)
Declare Sub SDA_WriteOne Lib "I2C.DLL" ()
Declare Sub SDA_WriteZero Lib "I2C.DLL" ()
Declare Function SDA_Read Lib "I2C.DLL" () As Byte
Declare Sub SCL_WriteOne Lib "I2C.DLL" ()
Declare Sub SCL_WriteZero Lib "I2C.DLL" ()
Declare Function SCL_Read Lib "I2C.DLL" () As Byte
Declare Sub SetSDA Lib "I2C.DLL" ()
Declare Sub SetSCL Lib "I2C.DLL" ()
Declare Sub ClrSDA Lib "I2C.DLL" ()
Declare Sub ClrSCL Lib "I2C.DLL" ()
Declare Sub IicCheckAck Lib "I2C.DLL" ()
Declare Sub IicSendByte Lib "I2C.DLL" (ByVal chr1 As Byte)
Declare Sub IicStart Lib "I2C.DLL" (ByVal SlaveAddress As Byte)
Declare Sub IicStop Lib "I2C.DLL" ()
Declare Function IicReceiveByte Lib "I2C.DLL" () As Byte
Declare Sub IicAckTest Lib "I2C.DLL" (ByVal SlaveAddr As Byte)
//=======================================================================================
I2C總線自動檢測
Declare Sub EndI2C Lib "I2C.DLL" (ByVal hinst As Long)
Declare Function InitI2C Lib "I2C.DLL" (ByVal hinst As Long, ByVal address As Byte) As Byte
Declare Sub SDA_WriteOne Lib "I2C.DLL" ()
Declare Sub SDA_WriteZero Lib "I2C.DLL" ()
Declare Function SDA_Read Lib "I2C.DLL" () As Byte
Declare Sub SCL_WriteOne Lib "I2C.DLL" ()
Declare Sub SCL_WriteZero Lib "I2C.DLL" ()
Declare Function SCL_Read Lib "I2C.DLL" () As Byte
Declare Sub SetSDA Lib "I2C.DLL" ()
Declare Sub SetSCL Lib "I2C.DLL" ()
Declare Sub ClrSDA Lib "I2C.DLL" ()
Declare Sub ClrSCL Lib "I2C.DLL" ()
Declare Sub IicCheckAck Lib "I2C.DLL" ()
Declare Sub IicSendByte Lib "I2C.DLL" (ByVal chr1 As Byte)
Declare Sub IicStart Lib "I2C.DLL" (ByVal SlaveAddress As Byte)
Declare Sub IicStop Lib "I2C.DLL" ()
Declare Function IicReceiveByte Lib "I2C.DLL" () As Byte
Declare Sub IicAckTest Lib "I2C.DLL" (ByVal SlaveAddr As Byte)
Declare Sub IicWriteByte Lib "I2C.DLL" (ByVal SlaveAddr As Byte, ByVal RegAddr As Byte, ByVal RegData As Byte)
Declare Function IicReadByte Lib "I2C.DLL" (ByVal SlaveAddr As Byte, ByVal RegAddr As Byte) As Byte
//============================================================================================
使用說明：
1.如果未用自動檢測功能必須先初始化并口
Declare Sub InitLPT Lib "I2C.DLL" (ByVal hinst As Long)
2.接著設置I2C總線
Declare Sub Set_SDA_Out Lib "I2C.DLL" (ByVal LPTaddress As Long, ByVal NoBit As Byte, ByVal CPLflag As Byte)
Declare Sub Set_SDA_In Lib "I2C.DLL" (ByVal LPTaddress As Long, ByVal NoBit As Byte, ByVal CPLflag As Byte)
Declare Sub Set_SCL_Out Lib "I2C.DLL" (ByVal LPTaddress As Long, ByVal NoBit As Byte, ByVal CPLflag As Byte)
Declare Sub Set_SCL_In Lib "I2C.DLL" (ByVal LPTaddress As Long, ByVal NoBit As Byte, ByVal CPLflag As Byte)
3.然后才能進行I2C總線的相關操作
4.程序退出時必需關閉并口
Declare Sub EndLPT Lib "I2C.DLL" (ByVal hinst As Long)
//-----------------------------------------------------------------------------------
使用自動檢測功能
1.必需先檢測I2C總線，使用I2C總線初始化函數
Declare Function InitI2C Lib "I2C.DLL" (ByVal hinst As Long, ByVal address As Byte) As Byte
2.然后進行I2C總線的相關操作，包括讀寫
3.程序退出時必需結束I2C總線
Declare Sub EndI2C Lib "I2C.DLL" (ByVal hinst As Long)
//--------------------------------------------------------------------------------------
Declare Function GetI2CStatus Lib "I2C.DLL" () As Byte
用于判斷I2C總線操作是否出錯
其返回值為0時表示I2C總線操作結果正常，若返回值為1時表示I2C總線操作結果異常。
//---------------------------------------------------------------------------------------
Declare Sub SetI2CStatus Lib "I2C.DLL" (ByVal flag As Byte)
用于設置I2C總線狀態
//----------------------------------------------------------------------------------------
注意：要將I2C.DLL文件拷貝到系統的目錄下，即system32