8　課題

8.3　Arduino(アノード)

Needs["NETLink`"]
InstallNET[];
NETTypeInfo["System.IO.Ports.SerialPort"]
ser=NETNew["System.IO.Ports.SerialPort","COM4",9600]
ser@Open[]
«NETObject[System.IO.Ports.SerialPort]»
Button["STRAT",ser@Write["A"]]
Button["STOP",ser@Write["B"]]
Button["RESTRAT",ser@Write["C"]]
Button["FINISH",ser@Close[]]