35
Function SetDOValue
Function SetDOValue(dovalue As Integer)
Dim Data As Integer
Dim Value As Integer
Data = 0
Value = dovalue
If (Value And &H1) <> 0 Then
Data = Data + &H1
End If
If (Value And &H2) <> 0 Then
Data = Data + &H2
End If
If (Value And &H4) <> 0 Then
Data = Data + &H4
End If
If (Value And &H80) <> 0 Then
Data = Data + &H8
End If
If (Value And &H40) <> 0 Then
Data = Data + &H10
End If
If (Value And &H20) <> 0 Then
Data = Data + &H20
End If
If (Value And &H10) <> 0 Then
Data = Data + &H40
End If
If (Value And &H8) <> 0 Then
Data = Data + &H80
End If
Call WriteI2CByte(&H23, &H0)
Call WriteI2CByte(&H20, &HFF)
Call WriteI2CByte(&H2B, &HFF)
Call WriteI2CByte(&H21, Data)
End Function
Содержание 2I847PW
Страница 7: ...3 2 1 3 1 2 3 Photo 1 Insert Unplug...
Страница 14: ...10 2 3 Dimension 2I847PW...
Страница 15: ...11 2 4 Layout 2I847PW CPH2 CPH1 JSC1 JSC2 CPO1 CO1 CIO1 CBAT1 JSB12 MPCE1 MPCE2 TOP...
Страница 16: ...12 2 4 1 Layout 2I847PW SATA1 BOT...
Страница 18: ...14 2 6 Diagram 2I847PW CPH2 CPH1 JSC1 JSC2 CPO1 CO1 CIO1 CBAT1 JSB12 MPCE1 MPCE2 TOP...
Страница 19: ...15 2 6 1 Diagram 2I847PW BOT SATA1...
Страница 26: ...22 CHP1 pin1 CHP2 pin1...