fChart為陳會安老師的作品,本版本僅支援Visua C# 及 Visual Basic,本課程僅討論Visual Basic部分
建立序列埠物件,第1個參數是Arduino 開發板的埠號, 第2個參數是鮑率, 第3個參數True/true表示一併開啟序列埠,,最後是延遲時間(單位毫秒)。
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