Lex Computech CI770A Instruction Manual page 51

SDK Function Introduction
Function EnableWDT
Function EnableWDT(timer As Integer)
Call WriteI2CByte(&H3, &H3)
Call WriteI2CByte(&H37, timer)
Call WriteI2CByte(&H36, &H73)
End Function
Function DisableWDT
Function DisableWDT()
Call WriteI2CByte(&H36, &H0)
End Function
Function SetDOValue
Function SetDOValue(dovalue As Integer)
Call WriteI2CByte(&H23, &H0)
Call WriteI2CByte(&H20, &HFF)
Call WriteI2CByte(&H2B, &HFF)
Call WriteI2CByte(&H21, dovalue)
End Function
Function CheckDIValue
Function CheckDIValue()
Dim GPIO1X As Integer
Dim GPIO3X As Integer
Dim DI1Xhex As String
Dim DI3Xhex As String
Call ReadI2CByte(&H12, GPIO1X)
Call ReadI2CByte(&H42, GPIO3X)
DI1Xhex = Hex(GPIO1X)
DI3Xhex = Hex(GPIO3X)
Text3.Text = "0x" + DI1Xhex
Text4.Text = "0x" + DI3Xhex
End Function
46