como leer datos de una balanza conectada al puerto serie desde visual basic
juan_pablo
10 de Febrero del 2010
He desarrollado una pequeña aplicacion en visual basic 6, a traves del control MSComm, para leer los datos que se encuentran en un display de una balanza que esta conectada al puerto serie de la cmputadora, y bueno hasta la fecha no he tenido exito. He consultado varia informacion del manejo del puerto serie con visual basic, usando el control MSComm, sin embargo, he programado una pequeña aplicacion considerando todos aquellos comentarios que he leeido en varios links de Internet y aun no he podido conseguir tomar los datos del display de la balanza y llevarlos a un cuadro de texto en mi aplicacion.
Si alguien tiene algun tip o sugerencia que me pueda orientar a resolver mi problema, por favor escriban una nota en este foro, me seria de mucha ayuda.
y si alguien quiere que le mande mi programita para que lo puedan analizar, con el que intento de leer el puerto serie, mandenme una nota a mi correo.
De antemano gracias por leer mi nota, se que a otros colegas a qui en la red, tambien les ayudara a resolver algunas dudas.
Gracias y Un saludo.
Recibi tu nota, y bueno aqui te envio mi codigo. Lo puse en un archivo Prueba.ZIP.
Si tienes oportunidad de revisarlo y sugerirme cuales podrian ser los errores o declaraciones que faltan, para que pueda recibir los datos del puerto serie.
Tambien te preguntaba si necesito algun driver o controlador del equipo LabWave 9000, para instalarlo en la computadora y que esta la pueda reconocer.
esta es una seccion del programa en el que configuro el puerto:
Private Sub LoadSettings()
On Error GoTo CommPortErr
'Objetos locales
Dim Settings As String
Dim CommPort As String
Dim Handshaking As String
Dim Offset As Integer
Dim Buffer As Variant
Dim strLOC_ErrorMessage As String
'-+--------------------------------------+-
' PROPIEDAD Settings
'-+--------------------------------------+-
'Obtengo del Regedit los valores de la propiedad Settings
Settings = GetSetting("LabWave9000", "Properties", "Settings", "")
If Settings <> "" Then
Me.commLabWave.Settings = Settings
If Err Then
MsgBox "ERROR AL TRATAR DE ASIGNAR LA CONFIGURACION DEL PUERTO." & _
vbCrLf & Err.Number & _
vbCrLf & Err.Source & _
vbCrLf & Err.Description, vbCritical, "Settings"
Exit Sub
End If
End If
' En todos los casos, el componente más a la derecha de Settings
' será un solo carácter, excepto cuando haya 1,5 bits de parada.
If InStr(Settings, ".") > 0 Then
Offset = 2
Else
Offset = 0
End If
'-+--------------------------------------+-
' PROPIEDAD Commport
'-+--------------------------------------+-
'Obtengo del Regedit los valores de la propiedad CommPort
CommPort = GetSetting("LabWave9000", "Properties", "CommPort", "")
If CommPort <> "" Then
Me.commLabWave.CommPort = CommPort
If Err Then
MsgBox "ERROR AL TRATAR DE ASIGNAR LA CONFIGURACION DEL PUERTO." & _
vbCrLf & Err.Number & _
vbCrLf & Err.Source & _
vbCrLf & Err.Description, vbCritical, "Commport"
Exit Sub
End If
End If
'-+-------------------------------------------------------------------------+-
' PROTOCOLO DE CONEXION, PROPIEDAD Handshaking
'-+-------------------------------------------------------------------------+-
'Obtengo del Regedit los valores de la propiedad Handshaking
Handshaking = GetSetting("LabWave9000", "Properties", "Handshaking", "")
'La propiedad Handshaking puede tomar los siguientes valores:
' Opción Valor Descripción
'-------------------------------------------------------------------------------------
' comNone 0 Sin protocolo(predeterminado)
' comXOnXOff 1 Protocolo XOn/XOff
' comRTS 2 Protocolo RTS/CTS (Petición para emitir/Listo para emitir)
' comRTSXOnXOff 3 Ambos protocolos RTS/CTS y XOn/XOff
'-------------------------------------------------------------------------------------
If Handshaking <> "" Then
Me.commLabWave.Handshaking = Handshaking
If Err Then
MsgBox "ERROR AL TRATAR DE ASIGNAR LA CONFIGURACION DEL PUERTO." & _
vbCrLf & Err.Number & _
vbCrLf & Err.Source & _
vbCrLf & Err.Description, vbCritical, "Handshaking"
Exit Sub
End If
End If
'-+-----------------------------------------------------+-
' APERTURA DEL PUERTO
'-+-----------------------------------------------------+-
With Me.commLabWave
'Tamaño del Búfer de Recepción
'Obtengo de el Regedit el Tamaño de buffer de recepción
.InBufferSize = GetSetting("LabWave9000", "Properties", "InBufferSize", "")
'Necesario para interceptar el evento comEvReceive, aunque en este formulario _
no ocupo el evento OnComm()
.RThreshold = 1
'Necesario para interceptar el evento comEvSend
.SThreshold = 1
'Indicar al control que lea todo el buffer al usar Input
.InputLen = 0
'Los datos se recuperan como texto
.InputMode = comInputModeText
'No Borro el contenido del buffer para leer lo que tiene
'.InBufferCount = 0
'Necesario para recibir los datos
.RTSEnable = True 'Determina el estado de la linea Equipo de datos _
preparado (DTR).
.DTREnable = True 'Determina el estado de la linea Equipo de datos _
preparado (DSR).
'Determina si se transfieren caracteres nulos desde el puerto _
al búfer de recepción
.NullDiscard = True
'Establece y devuelve el carácter que reemplaza a un carácter _
no válido en el flujo de datos cuando se produce un error de paridad
.ParityReplace = "?"
' Recuperar datos del puerto por el Método de sondeo
If Not .PortOpen Then
.PortOpen = True
End If
'Buffer variable de Tipo Variant. Tomo los datos del puerto
Buffer = .Input
Me.txtBuffer.Text = txtBuffer.Text & Buffer
'MsgBox "DATOS TOMADOS DEL BUFFER: " & Buffer, vbInformation, "LW Terminal"
If .PortOpen Then
.PortOpen = False 'Cerrar el puerto de comunicaciones
End If
End With
'-+-----------------------------------------------------+-
CommPortErr:
If Err.Number <> 0 Then
Select Case Err.Number
Case 380: strLOC_ErrorMessage = "VALOR DE LA PROPIEDAD NO VALIDO"
Case 383: strLOC_ErrorMessage = "PROPIEDAD DE SOLO LECTURA"
Case 394: strLOC_ErrorMessage = "PROPIEDAD DE SOLO LECTURA"
Case 8000: strLOC_ErrorMessage = "OPERACION NO VALIDA MIENTRAS ESTE ABIERTO EL PUERTO"
Case 8001: strLOC_ErrorMessage = "EL VALOR DE TIEMPO DE ESPERA DEBE SER MAYOR A CERO"
Case 8002: strLOC_ErrorMessage = "NUMERO DE PUERTO INVALIDO: Comm" & CommPort
Case 8003: strLOC_ErrorMessage = "PROPIEDAD DISPONIBLE SOLO EN TIEMPO DE EJECUCION"
Case 8004: strLOC_ErrorMessage = "PROPIEDAD DE SOLO LECTURA EN TIEMPO DE EJECUCION"
Case 8005: strLOC_ErrorMessage = "EL PUERTO: Comm" & CommPort & " YA SE ENCUENTRA ABIERTO." & vbCrLf & "ES POSIBLE QUE ESTE SIENDO UTILIZADO POR OTRA APLICACION"
Case 8006: strLOC_ErrorMessage = "EL IDENTIFICADOR DEL DISPOSITIVO NO ES VALIDO O NO ESTA PERMITIDO"
Case 8007: strLOC_ErrorMessage = "LA VELOCIDAD EN BAUDIOS DEL DISPOSITIVO NO ESTA PERMITIDA"
Case 8008: strLOC_ErrorMessage = "EL TAMAÑO EN BYTES ESPECIFICADO NO ES VALIDO"
Case 8009: strLOC_ErrorMessage = "LOS PARAMETROS PREDETERMINADOS SON INCORRECTOS"
Case 8010: strLOC_ErrorMessage = "EL HARDWARE NO ESTA DISPONIBLE (ES POSIBLE QUE ESTE BLOQUEADO POR OTRO DISPOSITIVO)"
Case 8011: strLOC_ErrorMessage = "LA FUNCION NO PUEDE ASIGNAR LAS COLAS"
Case 8012: strLOC_ErrorMessage = "EL DISPOSITIVO NO ESTA ABIERTO"
Case 8013: strLOC_ErrorMessage = "EL DISPOSITIVO YA ESTA ABIERTO"
Case 8014: strLOC_ErrorMessage = "NO SE PUEDE ACTIVAR LA NOTIFICACION DE COMUNICACION"
Case 8015: strLOC_ErrorMessage = "NO SE PUEDE ESTABLECER EL ESTADO DE COMUNICACION"
Case 8016: strLOC_ErrorMessage = "NO SE PUEDE ESTABLECER LA MASCARA DE EVENTOS DE COMUNICACION"
Case 8018: strLOC_ErrorMessage = "OPERACION VALIDA SOLO CUANDO EL PUERTO ESTA ABIERTO"
Case 8019: strLOC_ErrorMessage = "DISPOSITIVO OCUPADO"
Case 8020: strLOC_ErrorMessage = "ERROR AL LEER EL DISPOSITIVO DE COMUNICACION"
Case 8021: strLOC_ErrorMessage = "ERROR INTERNO AL RECUPERAR EL BLOQUE DE CONTROL DE DISPOSITIVOS PARA EL PUERTO"
Case Else
strLOC_ErrorMessage = "Descripción: " & Err.Description & vbCrLf & _
"Numero: " & Err.Number & vbCrLf & _
"Fuente: " & Err.Source
End Select
MsgBox "SE HA GENERADO UN ERROR AL TRATAR DE ACCESAR A LOS DATOS A TRAVES DEL PUERTO" & vbCrLf & _
"ERROR GENERADO: " & strLOC_ErrorMessage & vbCrLf & _
"SE CERRARA LW Terminal, VUELVA A EJECUTARLA", vbCritical, "ERROR LW Terminal"
End
End If
End Sub
Si alguien tiene algun tip o sugerencia que me pueda orientar a resolver mi problema, por favor escriban una nota en este foro, me seria de mucha ayuda.
y si alguien quiere que le mande mi programita para que lo puedan analizar, con el que intento de leer el puerto serie, mandenme una nota a mi correo.
De antemano gracias por leer mi nota, se que a otros colegas a qui en la red, tambien les ayudara a resolver algunas dudas.
Gracias y Un saludo.
Recibi tu nota, y bueno aqui te envio mi codigo. Lo puse en un archivo Prueba.ZIP.
Si tienes oportunidad de revisarlo y sugerirme cuales podrian ser los errores o declaraciones que faltan, para que pueda recibir los datos del puerto serie.
Tambien te preguntaba si necesito algun driver o controlador del equipo LabWave 9000, para instalarlo en la computadora y que esta la pueda reconocer.
esta es una seccion del programa en el que configuro el puerto:
Private Sub LoadSettings()
On Error GoTo CommPortErr
'Objetos locales
Dim Settings As String
Dim CommPort As String
Dim Handshaking As String
Dim Offset As Integer
Dim Buffer As Variant
Dim strLOC_ErrorMessage As String
'-+--------------------------------------+-
' PROPIEDAD Settings
'-+--------------------------------------+-
'Obtengo del Regedit los valores de la propiedad Settings
Settings = GetSetting("LabWave9000", "Properties", "Settings", "")
If Settings <> "" Then
Me.commLabWave.Settings = Settings
If Err Then
MsgBox "ERROR AL TRATAR DE ASIGNAR LA CONFIGURACION DEL PUERTO." & _
vbCrLf & Err.Number & _
vbCrLf & Err.Source & _
vbCrLf & Err.Description, vbCritical, "Settings"
Exit Sub
End If
End If
' En todos los casos, el componente más a la derecha de Settings
' será un solo carácter, excepto cuando haya 1,5 bits de parada.
If InStr(Settings, ".") > 0 Then
Offset = 2
Else
Offset = 0
End If
'-+--------------------------------------+-
' PROPIEDAD Commport
'-+--------------------------------------+-
'Obtengo del Regedit los valores de la propiedad CommPort
CommPort = GetSetting("LabWave9000", "Properties", "CommPort", "")
If CommPort <> "" Then
Me.commLabWave.CommPort = CommPort
If Err Then
MsgBox "ERROR AL TRATAR DE ASIGNAR LA CONFIGURACION DEL PUERTO." & _
vbCrLf & Err.Number & _
vbCrLf & Err.Source & _
vbCrLf & Err.Description, vbCritical, "Commport"
Exit Sub
End If
End If
'-+-------------------------------------------------------------------------+-
' PROTOCOLO DE CONEXION, PROPIEDAD Handshaking
'-+-------------------------------------------------------------------------+-
'Obtengo del Regedit los valores de la propiedad Handshaking
Handshaking = GetSetting("LabWave9000", "Properties", "Handshaking", "")
'La propiedad Handshaking puede tomar los siguientes valores:
' Opción Valor Descripción
'-------------------------------------------------------------------------------------
' comNone 0 Sin protocolo(predeterminado)
' comXOnXOff 1 Protocolo XOn/XOff
' comRTS 2 Protocolo RTS/CTS (Petición para emitir/Listo para emitir)
' comRTSXOnXOff 3 Ambos protocolos RTS/CTS y XOn/XOff
'-------------------------------------------------------------------------------------
If Handshaking <> "" Then
Me.commLabWave.Handshaking = Handshaking
If Err Then
MsgBox "ERROR AL TRATAR DE ASIGNAR LA CONFIGURACION DEL PUERTO." & _
vbCrLf & Err.Number & _
vbCrLf & Err.Source & _
vbCrLf & Err.Description, vbCritical, "Handshaking"
Exit Sub
End If
End If
'-+-----------------------------------------------------+-
' APERTURA DEL PUERTO
'-+-----------------------------------------------------+-
With Me.commLabWave
'Tamaño del Búfer de Recepción
'Obtengo de el Regedit el Tamaño de buffer de recepción
.InBufferSize = GetSetting("LabWave9000", "Properties", "InBufferSize", "")
'Necesario para interceptar el evento comEvReceive, aunque en este formulario _
no ocupo el evento OnComm()
.RThreshold = 1
'Necesario para interceptar el evento comEvSend
.SThreshold = 1
'Indicar al control que lea todo el buffer al usar Input
.InputLen = 0
'Los datos se recuperan como texto
.InputMode = comInputModeText
'No Borro el contenido del buffer para leer lo que tiene
'.InBufferCount = 0
'Necesario para recibir los datos
.RTSEnable = True 'Determina el estado de la linea Equipo de datos _
preparado (DTR).
.DTREnable = True 'Determina el estado de la linea Equipo de datos _
preparado (DSR).
'Determina si se transfieren caracteres nulos desde el puerto _
al búfer de recepción
.NullDiscard = True
'Establece y devuelve el carácter que reemplaza a un carácter _
no válido en el flujo de datos cuando se produce un error de paridad
.ParityReplace = "?"
' Recuperar datos del puerto por el Método de sondeo
If Not .PortOpen Then
.PortOpen = True
End If
'Buffer variable de Tipo Variant. Tomo los datos del puerto
Buffer = .Input
Me.txtBuffer.Text = txtBuffer.Text & Buffer
'MsgBox "DATOS TOMADOS DEL BUFFER: " & Buffer, vbInformation, "LW Terminal"
If .PortOpen Then
.PortOpen = False 'Cerrar el puerto de comunicaciones
End If
End With
'-+-----------------------------------------------------+-
CommPortErr:
If Err.Number <> 0 Then
Select Case Err.Number
Case 380: strLOC_ErrorMessage = "VALOR DE LA PROPIEDAD NO VALIDO"
Case 383: strLOC_ErrorMessage = "PROPIEDAD DE SOLO LECTURA"
Case 394: strLOC_ErrorMessage = "PROPIEDAD DE SOLO LECTURA"
Case 8000: strLOC_ErrorMessage = "OPERACION NO VALIDA MIENTRAS ESTE ABIERTO EL PUERTO"
Case 8001: strLOC_ErrorMessage = "EL VALOR DE TIEMPO DE ESPERA DEBE SER MAYOR A CERO"
Case 8002: strLOC_ErrorMessage = "NUMERO DE PUERTO INVALIDO: Comm" & CommPort
Case 8003: strLOC_ErrorMessage = "PROPIEDAD DISPONIBLE SOLO EN TIEMPO DE EJECUCION"
Case 8004: strLOC_ErrorMessage = "PROPIEDAD DE SOLO LECTURA EN TIEMPO DE EJECUCION"
Case 8005: strLOC_ErrorMessage = "EL PUERTO: Comm" & CommPort & " YA SE ENCUENTRA ABIERTO." & vbCrLf & "ES POSIBLE QUE ESTE SIENDO UTILIZADO POR OTRA APLICACION"
Case 8006: strLOC_ErrorMessage = "EL IDENTIFICADOR DEL DISPOSITIVO NO ES VALIDO O NO ESTA PERMITIDO"
Case 8007: strLOC_ErrorMessage = "LA VELOCIDAD EN BAUDIOS DEL DISPOSITIVO NO ESTA PERMITIDA"
Case 8008: strLOC_ErrorMessage = "EL TAMAÑO EN BYTES ESPECIFICADO NO ES VALIDO"
Case 8009: strLOC_ErrorMessage = "LOS PARAMETROS PREDETERMINADOS SON INCORRECTOS"
Case 8010: strLOC_ErrorMessage = "EL HARDWARE NO ESTA DISPONIBLE (ES POSIBLE QUE ESTE BLOQUEADO POR OTRO DISPOSITIVO)"
Case 8011: strLOC_ErrorMessage = "LA FUNCION NO PUEDE ASIGNAR LAS COLAS"
Case 8012: strLOC_ErrorMessage = "EL DISPOSITIVO NO ESTA ABIERTO"
Case 8013: strLOC_ErrorMessage = "EL DISPOSITIVO YA ESTA ABIERTO"
Case 8014: strLOC_ErrorMessage = "NO SE PUEDE ACTIVAR LA NOTIFICACION DE COMUNICACION"
Case 8015: strLOC_ErrorMessage = "NO SE PUEDE ESTABLECER EL ESTADO DE COMUNICACION"
Case 8016: strLOC_ErrorMessage = "NO SE PUEDE ESTABLECER LA MASCARA DE EVENTOS DE COMUNICACION"
Case 8018: strLOC_ErrorMessage = "OPERACION VALIDA SOLO CUANDO EL PUERTO ESTA ABIERTO"
Case 8019: strLOC_ErrorMessage = "DISPOSITIVO OCUPADO"
Case 8020: strLOC_ErrorMessage = "ERROR AL LEER EL DISPOSITIVO DE COMUNICACION"
Case 8021: strLOC_ErrorMessage = "ERROR INTERNO AL RECUPERAR EL BLOQUE DE CONTROL DE DISPOSITIVOS PARA EL PUERTO"
Case Else
strLOC_ErrorMessage = "Descripción: " & Err.Description & vbCrLf & _
"Numero: " & Err.Number & vbCrLf & _
"Fuente: " & Err.Source
End Select
MsgBox "SE HA GENERADO UN ERROR AL TRATAR DE ACCESAR A LOS DATOS A TRAVES DEL PUERTO" & vbCrLf & _
"ERROR GENERADO: " & strLOC_ErrorMessage & vbCrLf & _
"SE CERRARA LW Terminal, VUELVA A EJECUTARLA", vbCritical, "ERROR LW Terminal"
End
End If
End Sub
almeiro
10 de Febrero del 2010
Hola como estas, te escribo desde colombia.
tengo una inquietud, como hago para capturar un numero decimal por el puerto serie desde visual basic, lo que quiero es conectar un identificador de llamadas por el puerto serie y capturar el numero telefonico, que me aconsejas.
tengo una inquietud, como hago para capturar un numero decimal por el puerto serie desde visual basic, lo que quiero es conectar un identificador de llamadas por el puerto serie y capturar el numero telefonico, que me aconsejas.
Rafael
10 de Febrero del 2010
Que tal, lei en tu mail que quieres conectar un identificador por puerto serial, yo estoy realizando un candado telefonico el cual ya esta pero ahora quiero conectarlo por medio del puerto paralelo y diseñar el software para tener el control del candado. He leido que usan mucho el puerto serial , por que no usar el puerto paralelo.
Alekss
10 de Febrero del 2010
Oye disculpa,peromegustaria saber si te respondieron a tu primera question y si has podido resolver el problema, yo necesito crear un pequeño programa que envie datos al puerto paralelo, y necesito saber si se puede realiza con el control MSComm, espero tener respuesta.
Jenner
10 de Febrero del 2010
Te lo agradeceria si me enviaras tu programa
gracias
gracias
Rafael
10 de Febrero del 2010
He elaborado varios programitas para leer puerto serie con dispositivos de medicion de parametros electricos y tengo varios programas que he descargado de la red que permiten hacer mapeo Modbus RTU, Ascii, TCP-IP diganme que protocolo maneja la balanza
Rafael
10 de Febrero del 2010
Saludos.
Rafael, me interesa saber como lograste la comunicacion con el ModBus RTU, si me pudes ayudar esacribe a [email protected]
Gracias
Rafael, me interesa saber como lograste la comunicacion con el ModBus RTU, si me pudes ayudar esacribe a [email protected]
Gracias
Diana Yulieth
10 de Febrero del 2010
Hola :
Segun lo que aparece haz manejado distintos programas con dispositivos electricos necesito por favor si tienes, como comunicarme a traves de un pic 16f84 por el puerto serial del pc a trves de una aplicacion en vb
Segun lo que aparece haz manejado distintos programas con dispositivos electricos necesito por favor si tienes, como comunicarme a traves de un pic 16f84 por el puerto serial del pc a trves de una aplicacion en vb
Waldo
10 de Febrero del 2010
Saludos pueblo estoy en la misma situacion alguien me puede enviar el codigo de lo que estan haciendo podemos intercambiar informacion tengo problema es en el Handshaking
Marco
10 de Febrero del 2010
podes enviarme lo que tengas, la idea es ver si lo adapto para comunicarme con un plc TWIDO.
muchisimas gracias.
muchisimas gracias.
Pilar
10 de Febrero del 2010
Tengo exactamente el mismo problema que vos, envíame tu dirección de E-mail así no comunicamos.
Necesito resolver este problema lo más rápido posible, ayudame.
Desde ya muchas gracias
Necesito resolver este problema lo más rápido posible, ayudame.
Desde ya muchas gracias
jesus
10 de Febrero del 2010
yo tengo la persona indicada q te puede ayudar para tomar los datos del dysplay de una bascula conectada al puerto serie, ya instalamos un sistema para pesar camiones e imprimir en un impresor tm -u295 epson y esta echo en visual basic
Charly
10 de Febrero del 2010
Les envie el pgm a varios de Uds. y NADIE, se tomo el trabajo de comentar si les sirvio ó no, acciones como esa son las que a veces quitan las ganas de ayudar.
sharysc
10 de Febrero del 2010
hola pido ayuda tambien para el mismo problema, no se si ya pudieron, pero se los agradeceria muchisimo, enserio, me falta esta condicion para mi examen, y no he podido sacarla, agradeceria mucho de corazon que me ayudaran con lo que sea, nomas para que desplege la informacion de la balanza un un Text1, les escribo desde mexico, saludos, sharys
stevejobs
10 de Febrero del 2010
Hola que bueno que encontre este foro porque exactamente estoy haciendo una aplicacion que cuando pongan algun producto en la balanza inmediatamente se se ponga el peso en mi grilla para poder multiplicarlo por su precio.
Les agradeceria si dan con el codigo.
Gracias
Les agradeceria si dan con el codigo.
Gracias
ESEL
10 de Febrero del 2010
Nosotros desarrollamos programas para balanzas de todo tipo; para los interezados : [email protected]
Son Programas que se comercializan.
Son Programas que se comercializan.
Asdrubal Fuentes
10 de Febrero del 2010
Si estás haciendo una rutina de comunicación por puerto serial es bueno que investigues el protocolo de comunicación que ya posee la balanza, ejemplo Modbus, Firebus, o profibus. Esto es necesario para que puedas interrogar a la balanza, si deseas una rutina de interpretación en protocolo ModBus me avisas y te la paso. [email protected]
hernan
10 de Febrero del 2010
estoy haciendo una aplicacion en visual basic 6 y me interesaria si me podes facilitar el codigo que hiciste para la comunicacion por modbus ya que esta aplicacion quiero conectarla con un plc twido , desde ta muchas gracias
guivirop
10 de Febrero del 2010
hola, conseguiste comunicarte con el Twido en Visual Basic? si es asi puedes pasarme el programa o el codigo fuente? o si sabes de alguna direccion donde pueda encontrar informacion podrias facilitarmela?
Tengo que hacer una aplicacion del estilo en el trabajo y tengo problemas. Por cierto, tienes el mapa de memoria de un twido? es decir, la direccion de las variables o registros del twido para poder aaceder a ellas?
Muchas gracias.
Mi direccion de correo electronico es la siguiente : [email protected]
Tengo que hacer una aplicacion del estilo en el trabajo y tengo problemas. Por cierto, tienes el mapa de memoria de un twido? es decir, la direccion de las variables o registros del twido para poder aaceder a ellas?
Muchas gracias.
Mi direccion de correo electronico es la siguiente : [email protected]
charly
10 de Febrero del 2010
Ignoro como hacerlo en VB, pero tengo un pequeño programa que lee del puerto los datos de la balanza y los guarda en un archivo en formato txt, que luego podrías leer el archivo e incorporar los datos a tu sistema.
Actualmente esta en uso para leer de una balanza y pasar la informacion a Lotus Note.
si te es útil avisame.
Actualmente esta en uso para leer de una balanza y pasar la informacion a Lotus Note.
si te es útil avisame.
Mauricio Ordu?
10 de Febrero del 2010
Me podrias enviar tu codigo fuente, ya que mi programa se ejecuta bine por espacio de 6 hrs, pero derepente me envia el mensaje " 8012 El dispositivo no está abierto "
Mari
10 de Febrero del 2010
si me podes dar una mano, de como leer los datos de una bascula, te lo agradeceria
Muchas gracias
Muchas gracias
Julio
10 de Febrero del 2010
Saludos amigo , yo si estoy interesado en el programa que mencionas , me harias un enorme favor si pudieses enviarmelo ... lo necesito con suma urgencia ... de antemano gracias ...
elizalde
10 de Febrero del 2010
te agradeceria que me apoyaras con tu programa porfa gracias
krizall
10 de Febrero del 2010
oye charly si puedes mandarme el programa de mencionas te lo agradecere...
bueno, y si alguien sabe sobre esto tambien se lo agradecere.. si pueden escribirme mucho mejor
mi correo es [email protected]
otro es [email protected]
de antemano gracias a todos
bueno, y si alguien sabe sobre esto tambien se lo agradecere.. si pueden escribirme mucho mejor
mi correo es [email protected]
otro es [email protected]
de antemano gracias a todos
krizall
10 de Febrero del 2010
hola soy nuevo aquien este foro pero necesito tu ayuda, necesito saber si puedes enviarme el programa que mencionas??
de antemano gracias
de antemano gracias
edgluna
10 de Febrero del 2010
Hola!! me intereza el programa te agradezco si me lo puedes enviar. Me seria muy util.
sjaen
10 de Febrero del 2010
tengo el programa que buscan el vb si lo quieren solo me avisan....
A Toxqui
10 de Febrero del 2010
si tienes el modulo que lee el pto serial (de una bascula y manda los datos a la pc) por favor enviamelo a mi correo...lo necesito.gracias
lorente
10 de Febrero del 2010
Me gustaria que me enviases el codigo para capturar la lectura de una báscula a través del usb
Omar Gutierrez
10 de Febrero del 2010
Buen dia. Desde hace tiempo estaba buscando un programita de este tipo, pues quiero obtener datos de una balanza y pasarlos a una base de datos. Si pudieras facilitarme una copia del codigo que estas utilizando, me seria de gran ayuda, y de paso podemos verificar tu problema.
De antemano gracias.
Espero tus comentarios.
Saludos.
De antemano gracias.
Espero tus comentarios.
Saludos.
Pepe
10 de Febrero del 2010
Hola, no se si me puedan ayudar, tengo el mismo problema, tengo un equipo de Laboratorio clinico, y lo tengo conectado mediante puerto serial para obtener los resultados. ahora, en el evento .input, yo le asigno a una variable, pero al obtener el resultado no obtengo toda la cadena simplemente por partes, ahora bien, si hago un break point, en la variable si se asigna todo el dato, como hago para receptar todo el resultado completo y no por partes ya que necesariamente yo tengo que asignar a una variable para hacer unas validaciones.
Gracias
Gracias
adm
10 de Febrero del 2010
creo que te falta esto
Private Sub Form_Load()
Form1.Caption = "App2"
With MSComm1
.CommPort = 2
.Handshaking = 2 - comRTS
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,n,8,1"
.SThreshold = 1
.PortOpen = True
' Leave all other settings as default values.
End With
Text1.Text = ""
End Sub
Private Sub Form_Load()
Form1.Caption = "App2"
With MSComm1
.CommPort = 2
.Handshaking = 2 - comRTS
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,n,8,1"
.SThreshold = 1
.PortOpen = True
' Leave all other settings as default values.
End With
Text1.Text = ""
End Sub
adm
10 de Febrero del 2010
MÁS INFORMACIÓN
Cuando utiliza el control MSCOMM para enviar y recibir datos de serie, se recomienda utilizar evento controlada la comunicación. Este método es más eficaz que sondea este método a medida que éste utiliza menos tiempo de CPU y sólo iniciará una acción cuando se recibe entrada. A continuación, es una plantilla simple a uso que permitirá muy eficaz recibir de caracteres con pérdida de datos mínimos.
La idea es utilizar el evento OnComm para recibir los datos, escribir los datos a una cadena sin formato y pasar éste a otra rutina para realizar el procesamiento de los datos sin formato. Pasar los datos a otra rutina permite que el evento OnComm reciba cada evento "sin suprimirse" mientras el analizar la cadena real tiene lugar a/en otra parte.
Cuando utiliza el control MSCOMM para enviar y recibir datos de serie, se recomienda utilizar evento controlada la comunicación. Este método es más eficaz que sondea este método a medida que éste utiliza menos tiempo de CPU y sólo iniciará una acción cuando se recibe entrada. A continuación, es una plantilla simple a uso que permitirá muy eficaz recibir de caracteres con pérdida de datos mínimos.
La idea es utilizar el evento OnComm para recibir los datos, escribir los datos a una cadena sin formato y pasar éste a otra rutina para realizar el procesamiento de los datos sin formato. Pasar los datos a otra rutina permite que el evento OnComm reciba cada evento "sin suprimirse" mientras el analizar la cadena real tiene lugar a/en otra parte.
agsu
10 de Febrero del 2010
Buenas!!, tengo que desarrollar un sistemita en visual basic 6.0 para gestionarm los datos que salen de la central telefonica pero no se como capturarlos y pasarlos a una base de datos, si tienen algo para pasame se los voy a agradecer
Gaston
10 de Febrero del 2010
Yo tambien estoy interesado en esto.Si podes mandeame el codigo y veo que puedo hacer
Guille
10 de Febrero del 2010
Hola a todos :) !!
Actualmente yo tengo una aplicacion que se comunica puerto serial a un controlador de bombas de gasolina de donde obtengo todas las ventas del dia, esta funcionando bien.. y todo lo hago con el MSCOMM.. si les puedo ayudar en algo... Ahora estoy desarrollando otra aplicacion donde debo mostrarle al usuario todos los puertos COM disponibles en la PC incluyendo el modem y ando en busca de alguna funcion que me pueda decir el nombre del puerto y su numero, vi que en el sistema de registros de windows esta pero no se como leerlo desde mi aplicacion en VB 6.0 ¿alguien tiene alguna idea? MiPCHKEY_LOCAL_MACHINEHKEY_LOCAL_MACHINEHARDWAREHKEY_LOCAL_MACHINEHARDWAREDEVICEMAPHKEY_LOCAL_MACHINEHARDWAREDEVICEMAPSERIALCOMM
Gracias ....
Actualmente yo tengo una aplicacion que se comunica puerto serial a un controlador de bombas de gasolina de donde obtengo todas las ventas del dia, esta funcionando bien.. y todo lo hago con el MSCOMM.. si les puedo ayudar en algo... Ahora estoy desarrollando otra aplicacion donde debo mostrarle al usuario todos los puertos COM disponibles en la PC incluyendo el modem y ando en busca de alguna funcion que me pueda decir el nombre del puerto y su numero, vi que en el sistema de registros de windows esta pero no se como leerlo desde mi aplicacion en VB 6.0 ¿alguien tiene alguna idea? MiPCHKEY_LOCAL_MACHINEHKEY_LOCAL_MACHINEHARDWAREHKEY_LOCAL_MACHINEHARDWAREDEVICEMAPHKEY_LOCAL_MACHINEHARDWAREDEVICEMAPSERIALCOMM
Gracias ....
rafa76
10 de Febrero del 2010
Yo tambien estoy intentando capturar la lectura de una bascula Sartorious QA. Estaria muy agradecido si me mandases algún programita que intente dicha lectura. Un saludo
david hernandez
10 de Febrero del 2010
Muchas gracias por ofrecer tu codigo, tu crees que esto me sirva para capturar la informacion de una central telefonica,, a traves del puerto del mouse,,, si puedes ayudarme te lo agradezco gracias
Baltasar
10 de Febrero del 2010
Aquí va un pequeño ejemplo de uso de la comunicación por puerto serie con una báscula.
el formulario tiene un control MSComm, un Timer con el interval=200 y enabled=false, un textbox llamado Text1 y dos botones, uno para indicar el precio y otro para leer el peso.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
' Constantes para los códigos de control
Const STX = 2
Const ETX = 3
Const EOT = 4
Const SOH = 1
Const ENQ = 5
Const ACK = 6
Const NAK = 21
Const ETB = 23
Const ESC = 27
Private Sub Command1_Click() 'botón que transmite el precio
' Envía una descripción y un precio de prueba
Serie.Output = Chr(EOT) + Chr(STX) + "04" + Chr(ESC) + "123456" + Chr(ESC) + "PRUEBA " + Chr(ETX)
End Sub
Private Sub Command2_Click() ' botón que lee el peso de la báscula
Text1 = ""
Command2.Enabled = False
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
' Los parámetros de apertura del puerto se han definido en tiempo de diseño, y dependen de la báscula.
Serie.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
Serie.PortOpen = False
End Sub
Private Sub Serie_OnComm()
Select Case Serie.CommEvent
Case comBreak ' Se ha recibido una interrupción.
Case comEventCDTO ' Tiempo de espera CD (RLSD).
Case comEventCTSTO ' Tiempo de espera CTS.
Case comEventDSRTO ' Tiempo de espera DSR.
Case comEventFrame ' Error de trama
Case comEventOverrun ' Datos perdidos.
Case comEventRxOver ' Desbordamiento del búfer de recepción.
Case comEventRxParity ' Error de paridad.
Case comEventTxFull ' Búfer de transmisión lleno.
Case comEventDCB ' Error inesperado al recibir DCB]
Case comEvCD ' Cambio en la línea CD.
Case comEvCTS ' Cambio en la línea CTS.
Case comEvDSR ' Cambio en la línea DSR.
Case comEvRing ' Cambio en el indicador de llamadas.
Case comEvReceive ' Recibido nº RThreshold
Dim L As Variant
L = Serie.Input
If L(0) = ACK Then
Screen.MousePointer = vbDefault
ElseIf (L(0)) = NAK Then
' La respuesta recibida no es válida
Else
' Coloca la lectura recibida en Text1
Sleep 100
Text1 = ""
Do While Serie.InBufferCount > 0
L = Serie.Input
Text1 = Text1 + Chr(L(0))
Loop
Timer1.Enabled = False
Command2.Enabled = True
End If
Case comEvSend ' 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
End Select
End Sub
Private Sub Timer1_Timer()
Serie.Output = Chr(EOT) + Chr(ENQ)
End Sub
Saludos.
el formulario tiene un control MSComm, un Timer con el interval=200 y enabled=false, un textbox llamado Text1 y dos botones, uno para indicar el precio y otro para leer el peso.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
' Constantes para los códigos de control
Const STX = 2
Const ETX = 3
Const EOT = 4
Const SOH = 1
Const ENQ = 5
Const ACK = 6
Const NAK = 21
Const ETB = 23
Const ESC = 27
Private Sub Command1_Click() 'botón que transmite el precio
' Envía una descripción y un precio de prueba
Serie.Output = Chr(EOT) + Chr(STX) + "04" + Chr(ESC) + "123456" + Chr(ESC) + "PRUEBA " + Chr(ETX)
End Sub
Private Sub Command2_Click() ' botón que lee el peso de la báscula
Text1 = ""
Command2.Enabled = False
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
' Los parámetros de apertura del puerto se han definido en tiempo de diseño, y dependen de la báscula.
Serie.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
Serie.PortOpen = False
End Sub
Private Sub Serie_OnComm()
Select Case Serie.CommEvent
Case comBreak ' Se ha recibido una interrupción.
Case comEventCDTO ' Tiempo de espera CD (RLSD).
Case comEventCTSTO ' Tiempo de espera CTS.
Case comEventDSRTO ' Tiempo de espera DSR.
Case comEventFrame ' Error de trama
Case comEventOverrun ' Datos perdidos.
Case comEventRxOver ' Desbordamiento del búfer de recepción.
Case comEventRxParity ' Error de paridad.
Case comEventTxFull ' Búfer de transmisión lleno.
Case comEventDCB ' Error inesperado al recibir DCB]
Case comEvCD ' Cambio en la línea CD.
Case comEvCTS ' Cambio en la línea CTS.
Case comEvDSR ' Cambio en la línea DSR.
Case comEvRing ' Cambio en el indicador de llamadas.
Case comEvReceive ' Recibido nº RThreshold
Dim L As Variant
L = Serie.Input
If L(0) = ACK Then
Screen.MousePointer = vbDefault
ElseIf (L(0)) = NAK Then
' La respuesta recibida no es válida
Else
' Coloca la lectura recibida en Text1
Sleep 100
Text1 = ""
Do While Serie.InBufferCount > 0
L = Serie.Input
Text1 = Text1 + Chr(L(0))
Loop
Timer1.Enabled = False
Command2.Enabled = True
End If
Case comEvSend ' 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
End Select
End Sub
Private Sub Timer1_Timer()
Serie.Output = Chr(EOT) + Chr(ENQ)
End Sub
Saludos.
davidhernandez
10 de Febrero del 2010
hola tu crees que este codigo me pueda servir para capturar un string de una central telefonica a traves del puerto del mouse,,, si puedes ayudarme te lo agradezco hermano gracias
rafa
10 de Febrero del 2010
Hola Juan Pablo.
Me gustaria que me enviaras el programilla para leer desde el puerto serie. Estoy haciendo varias pruebas para usar el puerto serie y me seria de ayuda. De paso intentare solucionar tu problema.
Gracias de antemano y suerte con tu aplicacion.
Me gustaria que me enviaras el programilla para leer desde el puerto serie. Estoy haciendo varias pruebas para usar el puerto serie y me seria de ayuda. De paso intentare solucionar tu problema.
Gracias de antemano y suerte con tu aplicacion.
danielin
10 de Febrero del 2010
yo estuve intentando leer la posicion del raton mediante el puerto serie, y efectivamente tienes la idea que es abrir el puerto y tal, yo lo conseguí, pero claro está me daba cosas que no necesitaba, y la solucion fue hacer el progrma en C, ya que trabaja a mas bajo nivel
Luciano
10 de Febrero del 2010
Necesito comunicarme con otra persona a traves de un cable serie. Los datos ingresan a la caja de texto. Si me pueden pasar el código les agradecerìa muchísimo.
maricruz
10 de Febrero del 2010
hola: por favor quisiera saber si me puedes aydar a encontra un programa de transmision por puerto paralelo
Charly
10 de Febrero del 2010
Tengo una pequeño programa en otro lenguaje que lee el puerto y graba un archivo.txt con la información del pesaje y luego lo podes incorporar a tu programa. Si te sirve avisame
Hola me lo podrias enviar a mi correo [email protected]
HUMBERTO
10 de Febrero del 2010
estoy intentando hacer lo mismo
si puedes mandarme el codigo si solucionaste el problema
un saludo
si puedes mandarme el codigo si solucionaste el problema
un saludo