MacのMonoでSerial通信

README.md

Mac上のMono F#からシリアルポートを使って、 Arduinoと通信する。

Macのシリアルポートから適当な周期で文字列を書き出して、 Arduinoはそれに合わせてLEDを点けたり消したりする。
ポート名とボーレートは、環境に合わせて変えること。

F#は、monoをbrewで普通にインストールしたら付いてきた。

fsharpc serial.fs && mono serial.exe

で簡単に実行できる。

Arduinoは処理が遅いのか何なのか、 思ったように送受信されていないことがあった。 アクが強いので注意。

blink.ino

void setup() {
    Serial.begin(9600);
    pinMode(LED_BUILTIN, OUTPUT);
}

void loop() {
    delay(20);
    if (Serial.available() == 0) {
        Serial.print(".");
        return;
    }

    String s = "";
    while(Serial.available() > 0) {
      s += Serial.readString();
    }

    Serial.println("echo:" + s);
    if (s.startsWith("HIGH")) {
        digitalWrite(LED_BUILTIN, HIGH);
        Serial.println("on");
    } else if (s.startsWith("LOW")) {
        digitalWrite(LED_BUILTIN, LOW);
        Serial.println("off");
    } else {
        Serial.println("?");
    }
}

serial.fs

open System.IO.Ports
open System.Threading

let portname = "/dev/cu.usbmodem1461"
let rate = 9600
let sleep (msec: int) = Thread.Sleep msec

let loop (sp: SerialPort) =
  printfn "TICK"
  
  sp.Write("HIGH")
  sleep 800
  printfn "RESPONSE: %s" <| sp.ReadExisting()

  sp.Write("LOW")
  sleep 1200
  printfn "RESPONSE: %s" <| sp.ReadExisting()
  
let main =
  printfn "starting... %s %d" portname rate
  use sp = new SerialPort(portname, rate)
  sp.Open()
  while true do
    loop sp