RE:Usar el MSCOMM32.ocx en Forms
Publicado por
vladimir (1 intervención) el 12/05/2006 22:28:36
Local cValor
With thisform
.olecontrol1.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.olecontrol1.settings="1200,n,8,1"
.olecontrol1.inputmode = 0 && modo texto
.olecontrol1.portopen = .t. &&abre el puerto
.olecontrol1.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 )
.olecontrol1.portopen = .f. &&Cierro el puerto
Endwith