.NETの初期化

Needs["NETLink`"]
InstallNET[];

.NETの情報表示

NETTypeInfo["System.IO.Ports.SerialPort"]

シリアルポートの初期化

ser=NETNew["System.IO.Ports.SerialPort","COM4",9600]
ser@Open[]

始動プログラム

Button[,ser@Write["A"]]
Button[,ser@Write["B"]]
Button["Stop",ser@Close[]]