42
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
Summary of Contents for 2I392CW
Page 7: ...3 2 1 3 1 2 3 Photo 1 Insert Unplug...
Page 18: ...14 2 3 Dimension 2I392CW...
Page 20: ...16 2 4 1 Layout 2I392CW Connector and Jumper Bottom BOT CU3 CU4 SATA1...
Page 22: ...18 2 5 1 Layout 2I392CW Function MAP BOT USB3 0 USB3 0 SATA Connector...
Page 24: ...20 2 6 1 Diagram 2I392CW BOT CU3 CU4 SATA1...
Page 71: ...67 4 5 2 South Cluster Configuration...
Page 73: ...69 4 5 2 2 PCI Express Configuration EIO P1 The optional settings are Enabled default Disabled...