'Non-UI application (console / server application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: true
'#AdditionalJar: pi4j-core.jar
#End Region
Sub Process_Globals
End Sub
Sub AppStart (Args() As String)
Dim n1 As Int=wiringPiSPISetup(-1,-1)
Log(n1)
StartMessageLoop
End Sub
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