54
Function CheckDIValue
Function CheckDIValue()
Dim GPIO1X As Integer
Dim GPIO3X As Integer
Dim DI1Xhex As String
Dim DI3Xhex As String
Dim Data As Long
Data = 0
Call ReadI2CByte(&H12, GPIO1X)
Call ReadI2CByte(&H42, GPIO3X)
GPIO1X = GPIO1X And &HF0
GPIO3X = GPIO3X And &HF
If (GPIO1X And &H10) <> 0 Then
Data = Data + &H1
End If
If (GPIO1X And &H80) <> 0 Then
Data = Data + &H2
End If
If (GPIO1X And &H40) <> 0 Then
Data = Data + &H4
End If
If (GPIO3X And &H1) <> 0 Then
Data = Data + &H8
End If
If (GPIO3X And &H2) <> 0 Then
Data = Data + &H10
End If
If (GPIO3X And &H4) <> 0 Then
Data = Data + &H20
End If
If (GPIO3X And &H8) <> 0 Then
Data = Data + &H40
End If
If (GPIO1X And &H20) <> 0 Then
Data = Data + &H80
End If
DI1Xhex = Hex(Data)
Text3.Text = "0x" + DI1Xhex
End Function
Содержание CI170A
Страница 8: ...3 2 1 3 1 2 3 Photo 1 Insert Unplug...
Страница 20: ...15 2 3 Dimension CI170A C...
Страница 117: ...112 8 Click Exit NOTE The path of the file For Windows 7 64 32 bit Windows 10 64 bit X driver sky_lake LAN Autorun exe...
Страница 119: ...114 Step 3 Choose ProgramAll Blocks and Do Not Check ROM ID Step 4 Click Flash Step 5 Click Exit and restart computer...
