Needs["NETLink`"]
InstallNET[];

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


Button["Start",ser@Write["S"]]

Button["Push!",ser@Write["A"]]


Button["Close",ser@Close[]]