基礎篇-使用fChart

    Using a As NEW Arduino("COM2", 57600, True, 3000)

        Console.WriteLine("開始執行Arduino程式....")

        ' 控制Arduino開發板的程式碼

    End Using

Sub Main()

    Using a As NEW Arduino("COM2", 57600, True, 3000)

        Console.WriteLine("開始執行Arduino程式....")

        ' 控制Arduino開發板的程式碼

        a.pinMode(13, Arduino.OUTPUT) ' 數位輸出腳位

        a.pinMode(12, Arduino.INPUT) ' 數位輸入腳位

        a.pinMode(9, Arduino.PWM) ' 類比輸出腳位

        a.pinMode(0, Arduino.ANALOG) ' 類比輸入腳位

        a.pinMode(5, Arduino.PIEZO) ' 蜂鳴器腳位

        a.digitalWrite(13, Arduino.HIGH)

        a.delay(1000)  ' 延遲1秒

        a.digitalWrite(13, Arduino.LOW)

        a.delay(1000)  ' 延遲1秒

        Dim pin12 As Integer = a.digitalRead(12)

        Console.WriteLine(pin12)

        a.analogWrite(9, 255)

        a.delay(1000)  ' 延遲1秒

        a.analogWrite(9, 128)

        a.delay(1000)  ' 延遲1秒

        a.analogWrite(9, 0)

        a.delay(1000)  ' 延遲1秒

        Dim pinA0 As Integer = a.analogRead(0)

        Console.WriteLine(pinA0)

        a.tone(5, 262, 1000)

    End Using

End Sub