Xojoのコードです。
簡単すぎて拍子抜けw
Soft Declare Function wiringPiI2CSetup Lib "libwiringPi.so " (devId As int32) As int32
Soft Declare Function wiringPiI2CReadReg16 Lib "libwiringPi.so " (fd As int32, reg As int32) As int32
Soft Declare Function wiringPiI2CReadReg8 Lib "libwiringPi.so " (fd As int32, reg As int32) As Byte
Dim fd As Int32
Dim data As Integer
fd = wiringPiI2CSetup(&h48)
data = wiringPiI2CReadReg16(fd, 0)
data = Bitwise.ShiftRight(Bitwise.ShiftLeft(Bitwise.BitAnd(data, &hff), 8)+Bitwise.ShiftRight(data, 8), 3)
Print str(data/16)
