Sub WiringPiSPISetup(Channel As Int, Speed As Int) As Int
Dim jo As JavaObject
Return jo.InitializeStatic("com.pi4j.wiringpi.Spi").RunMethod("wiringPiSPISetup", Array As Object(Channel, Speed))
End Sub
Sub WiringPiSPIDataRW(Channel As Int, Data() As Byte, Len As Int) As Int
Dim jo As JavaObject
Return jo.InitializeStatic("com.pi4j.wiringpi.Spi").RunMethod("wiringPiSPIDataRW", Array As Object(Channel, Data, Len))
End Sub