'Non-UI application (console / server application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#End Region
Sub Process_Globals
Private controller As GpioController
Private pin0 As GpioPinDigitalOutput
Private pin1 As GpioPinDigitalInput
End Sub
Sub AppStart (Args() As String)
controller.Initialize
pin0.Initialize(0, True)
pin1.Initialize("SwitchValue",1)
StartMessageLoop
End Sub
Sub SwitchValue_StateChange(State As Boolean)
Log("Switch: " & State)
pin0.State = Not(pin0.State)
End Sub
Sub pin0_StateChange(State As Boolean)
Log("Pin0 StateChange event: " & pin0.State)
End Sub