External LED Blinking (外部LED Lチカ)

[日本語]このサンプルコードは、Netduinoのデジタル出力9pinに接続したLEDをオンボードのプッシュボタンを使って明滅させるサンプルです

 
 
 
 
 
(0)
78 times
Add to favorites
4/7/2015
E-mail Twitter del.icio.us Digg Facebook
Imports Microsoft.SPOT.Hardware
Imports SecretLabs.NETMF.Hardware.Netduino

Module Module1

    Sub Main()
        Dim led = New OutputPort(Pins.GPIO_PIN_D9,
                                 False)
        Dim button = New InputPort(Pins.ONBOARD_BTN,
                                   False,
                                   Port.ResistorMode.Disabled)
        Dim isButtonOn = False

        Do While (True)
            isButtonOn = button.Read
            led.Write(isButtonOn)
        Loop
    End Sub

End Module