00分を音と光でお知らせしてくれる時計

.NETの初期化

Clear[InstallNET];

Needs["NETLink`"]
InstallNET[];

.NETの情報の表示

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

シリアルポートの初期化

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

プログラム

Dynamic[Refresh[ClockGauge[],UpdateInterval->1]]
While[True,If[Refresh[DateList[],UpdateInterval->1][[5;;5]]=={0},ser@Write["A"];Pause[60];]]

解放

ser@Close[]
ReleaseNETObject["System.IO.Ports.SerialPort"]