.NET初期化

Needs["NETLink`"]
InstallNET[];

シリアルポート初期化

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

温度計表示

AngularGauge[Dynamic[Refresh[ToExpression[ser@ReadLine[]],UpdateInterval->0.2]],{0,50},GaugeLabels->{"Value","温度"},ScaleRanges->{{0,18}->Hue[.2,.2,.38],{18,28}->Hue[.25,.5,.8],{28,50}->Hue[.125,1,1]}]

シリアルポート開放

ser@Close[]

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