Imports Microsoft.SPOT Imports Microsoft.SPOT.Hardware Imports SecretLabs.NETMF.Hardware Imports SecretLabs.NETMF.Hardware.Netduino Module Module1 Sub Main() Dim Led As OutputPort = New OutputPort(Pins.ONBOARD_LED, False) Dim Button As InputPort = New InputPort(Pins.ONBOARD_SW1, False, ResistorModes.PullUp) Do While True Led.Write(Button.Read()) Loop End Sub End Module
When the onboard button is pushed, the led will light up