PARA TODOS LOS QUIEREN COMUNICARCE POR PUERTO COM
poliv003
18 de Abril del 2006
EL MEJOR EJEMPLO ES EL QUE ESTA EN LA AYUDA VB ESTE ES EL CODIGO
Private Sub Form_Load ()
' Búfer para almacenar la cadena de entrada
Dim Instring As String
' Usar COM1.
MSComm1.CommPort = 1
' 9600 baudios, sin paridad, 8 bits de datos y 1
' bit de parada.
MSComm1.Settings = "9600,N,8,1"
' Indicar al control que lea todo el búfer al usar
' Input.
MSComm1.InputLen = 0
' Abrir el puerto.
MSComm1.PortOpen = True
' Enviar al módem el comando de atención.
MSComm1.Output = "ATV1Q0" & Chr$(13) 'Asegúrese de que
' el módem responde con "OK".
' Esperar a que vuelvan los datos al puerto serie.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' Leer los datos de respuesta de aceptación en el
' puerto serie.
' Cerrar el puerto serie.
MSComm1.PortOpen = False
End Sub
MSComm1.Output = aqui tiene que ir el codigo de su equipo o la trama que quieren tx, la resepcion la pueden realizar por tiempo o por evento tengan presente lo no todos los equipos responden en ascii muchos utilizan codigos propios
para los que quieran comunicacion con pic o con plc tengo algunas rutinas
espero que les sirva
Private Sub Form_Load ()
' Búfer para almacenar la cadena de entrada
Dim Instring As String
' Usar COM1.
MSComm1.CommPort = 1
' 9600 baudios, sin paridad, 8 bits de datos y 1
' bit de parada.
MSComm1.Settings = "9600,N,8,1"
' Indicar al control que lea todo el búfer al usar
' Input.
MSComm1.InputLen = 0
' Abrir el puerto.
MSComm1.PortOpen = True
' Enviar al módem el comando de atención.
MSComm1.Output = "ATV1Q0" & Chr$(13) 'Asegúrese de que
' el módem responde con "OK".
' Esperar a que vuelvan los datos al puerto serie.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' Leer los datos de respuesta de aceptación en el
' puerto serie.
' Cerrar el puerto serie.
MSComm1.PortOpen = False
End Sub
MSComm1.Output = aqui tiene que ir el codigo de su equipo o la trama que quieren tx, la resepcion la pueden realizar por tiempo o por evento tengan presente lo no todos los equipos responden en ascii muchos utilizan codigos propios
para los que quieran comunicacion con pic o con plc tengo algunas rutinas
espero que les sirva
felipe
18 de Abril del 2006
necesito abir una gaveta comunicada por la com1 y me gustaria que me enviaras los codigos que tu tiene.
De antemano muchas gracias.
[email protected]
De antemano muchas gracias.
[email protected]
willy
18 de Abril del 2006
necesito comunicacion con el plc q tiene conectado en la puerta sensor laser de paso q me indica cuando pasa alguien.. como puedo llevar ese dato a visual basic.. lo hise con DEE y Excel pero es muy lento.. tiene q pasar algo muy lento para que llege el dato excel... algun ejemplo gracias
srodrigueza
18 de Abril del 2006
Hola:
La configuracion que tengo de la bascula es la siguiente:
Baudios : 2400
bits: 7
paridad par
bit de paridad :1
Xon/xoff
Entonces al codigo que tu publicaste le cambie las siguiente opciones:
MSComm1.Settings = "2400,E,7,1"
Pero aun no me funciona me puedes colaborar con esto por favor, yo tengo un text en donde debe desplegar el valor que arroje una bascula y no despelga absolutamente nada me podria colaborar por favor, te lo agradeceria muchisimo
La configuracion que tengo de la bascula es la siguiente:
Baudios : 2400
bits: 7
paridad par
bit de paridad :1
Xon/xoff
Entonces al codigo que tu publicaste le cambie las siguiente opciones:
MSComm1.Settings = "2400,E,7,1"
Pero aun no me funciona me puedes colaborar con esto por favor, yo tengo un text en donde debe desplegar el valor que arroje una bascula y no despelga absolutamente nada me podria colaborar por favor, te lo agradeceria muchisimo