Jose Carbonell
06 de Octubre del 2005

Hola a todos..deseo enviar instrucciones desde un programa VB a un equipo mecanico que tiene una interface conectada al puerto RS232, que debo hacer desde la programacion VB para reconocer este puerto y enviar pulsos , o instrucciones a travez de este puerto
Atte Jose Carbonell, LIMA-PERU
Gracias

ALFONSO SERRANO
06 de Octubre del 2005

A脩ADE UN OBJETO MSCOM
P.E. PUERTO1
Y A脩ADE EN TU CODIGO:

Private Sub puerto1_OnComm()
Select Case puerto1.CommEvent
' Controlar cada evento o error escribiendo
' c贸digo en cada instrucci贸n Case
' Errores
Case comBreak ' Se ha recibido una interrupci贸n.
Label1.Caption = " Se ha recibido una interrupci贸n."
sale
Case comEventCDTO ' Tiempo de espera CD (RLSD).
sale
Case comEventCTSTO ' Tiempo de espera CTS.
sale
Case comEventDSRTO ' Tiempo de espera DSR.
Label1.Caption = "Tiempo de espera DSR."
sale
Case comEventFrame ' Error de trama
Label1.Caption = " Error de trama"
sale
Case comEventOverrun ' Datos perdidos.
Label1.Caption = "Datos perdidos."
sale
Case comEventRxOver ' Desbordamiento del b煤fer de recepci贸n.
Label1.Caption = "Desbordamiento del b煤fer de recepci贸n."
sale
Case comEventRxParity ' Error de paridad.
Label1.Caption = "Error de paridad."
sale
Case comEventTxFull ' B煤fer de transmisi贸n lleno.
Label1.Caption = "B煤fer de transmisi贸n lleno."
sale
Case comEventDCB ' Error inesperado al recibir DCB
Label1.Caption = " Error inesperado al recibir DCB"
sale
'Eventos
Case comEvCD ' Cambio en la l铆nea CD.
Label1.Caption = "RECIBIENDO DATOS"
Case comEvCTS ' Cambio en la l铆nea CTS.
Label1.Caption = "Cambio en la l铆nea CTS."
Case comEvDSR ' Cambio en la l铆nea DSR.
Label1.Caption = "Cambio en la l铆nea DSR."
Case comEvRing ' Cambio en el indicador de llamadas.
Label1.Caption = "Cambio en el indicador de llamadas."
Case comEvReceive ' Recibido n潞 RThreshold de caracteres.
Label1.Caption = " Recibido n潞 RThreshold de caracteres."
Case comEvSend ' Hay un n煤mero SThreshold de caracteres en el b煤fer de transmisi贸n.
Label1.Caption = "Hay un n煤mero SThreshold de caracteres en el b煤fer de transmisi贸n."
Case comEvEOF ' Se ha encontrado un car谩cter EOF en la entrada
Label1.Caption = "Se ha encontrado un car谩cter EOF en la entrada"
End Select


EN LA LOAD O EN UN BOTON
' NUMERO DEL COM
puerto1.CommPort = 1
'PARAMETROS DE COMUNICACION
puerto1.Settings = "2400,e,7,1"


Y PARA ENVIAR:
puerto1.OutBufferSize = 2400
puerto1.Output = "COMANDO"

vcdsf
06 de Octubre del 2005

vbnjcvh cghk gkg

gdghfd
06 de Octubre del 2005

hola