como trabajar el PUERTO RS232 con VB

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