Lex Computech CI770C - Page 105

110 pages

Save Page as PDF

To Next Page

To Next Page

To Previous Page

To Previous Page

Loading...

99

Function EnableWDT

Function DisableWDT

Function SetDOValue

Function CheckDIValue

SDK Function Introduction

Function EnableWDT(timer As Integer)

Call WriteI2CByte(&H3, &H3)

Call WriteI2CByte(&H37, timer)

Call WriteI2CByte(&H36, &H73)

End Function

Function DisableWDT()

Call WriteI2CByte(&H36, &H0)

End Function

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()

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

Table of Contents