La cosa para comunicarse con el serial

ventana = crear ventana (como sea que lo hagas)
ventana.AddObject("Testcom","Olecontrol","MSCOMMLib.MSComm")

With ventana.Testcom
.commport = 1 &&Selecciono el puerto1= Com1, 2 = Com2
* Configuración del puerto velocidad 1200 baudios
*sin paridad,8 bits de transferencia,1 bit de parada.settings="1200,n,8,1"
.inputmode = 0 && modo texto
.portopen = .t. &&abre el puerto
.inputlen = 0 &&hago que tome todos los datos del buffers
cValor = ""
    for i=1 to 350
      cValor=cValor+.comport.input && leo el valor del buffers de entrada y lo almaceno
     endfor
&&Muestro el valor
         messagebox ( cVAlor )
    .portopen = .f.  &&Cierro el puerto
Endwi
* Configuración del puerto velocidad 1200 baudios
*sin paridad,8 bits de transferencia,1 bit de parada.settings="1200,n,8,1"
.inputmode = 0 && modo texto
.portopen = .t. &&abre el puerto
.inputlen = 0 &&hago que tome todos los datos del buffers
cValor = ""
    for i=1 to 350
      cValor=cValor+.comport.input && leo el valor del buffers de entrada y lo almaceno
     endfor
&&Muestro el valor
         messagebox ( cVAlor )
    .portopen = .f.  &&Cierro el puerto
Endwi
*sin paridad,8 bits de transferencia,1 bit de parada.settings="1200,n,8,1"
.inputmode = 0 && modo texto
.portopen = .t. &&abre el puerto
.inputlen = 0 &&hago que tome todos los datos del buffers
cValor = ""
    for i=1 to 350
      cValor=cValor+.comport.input && leo el valor del buffers de entrada y lo almaceno
     endfor
&&Muestro el valor
         messagebox ( cVAlor )
    .portopen = .f.  &&Cierro el puerto
Endwith