SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: german165 en Lunes 30 de Agosto de 2004, 19:09
-
hola espero alguien pueda ayudarme estoy leyendo datos de un scanner telxon (este tipo de scanner lees el codigo de barras y se almacena en una memoria luego tu lo descargas via puerto serial ) pero me da estos datos
********************************************************************
1°°°1°°µ°°°µ ¹84µ¹1¶ °1°188°°°414Š1°°°1°°µ°°°µ ¹84µ8¹7 °1°188°°°42°Š1°°°1°°µ°°°µ ¹84µ¹°7 °1°188°°°42¶Š1°°°1°°µ°°°µ ¹84µ¹°8 °1°188°°°427Š1°°°1°°µ°°°µ ¹84µ¹°¹ °1°188°°°428Š1°°°1°°µ°°°µ ¹84µ8¹1 °1°188°°°42¹Š1°°°1°°µ°°°µ ¹84µ8¹2 °1°188°°°4³1Š1°°°1°°µ°°°µ ¹84µ8¹¶ °1°188°°°4³8Š1°°°1°°µ°°°µ ¹8³¹°°µ °1°188°°°44µŠ1°°°1°°µ°°°µ ¹8³¹°°4 °1°188°°°44¶Š1°°°1°°µ°°°µ ¹8³8¹8¹ °1°188°°°447Š1°°°1°°µ°°°µ ¹8³8¹88 °1°188°°°44¹Š1°°°1°°µ°°°µ ¹8³8¹87 °1°188°°°4µ°Š
*******************************************************************
cuando en realidad me debe de dar algo parecido a esto.
*******************************************************************
1SCH103 0003 8532580 022688011137
1SCH103 0003 8532581 022688011149
1SCH103 0003 8532579 022688011205
*******************************************************************
otra cosa mas una vez que yo tenga estos datos me gustaria solotomar el valor de la columna 3 los demas numeros no me interesan solo el de la columna 3 espero me puedan ayudar aqui adjunto el codigo que uso para leer el puerto serial.
********************************************************************
Dim Buffer As Variant
Private Sub Command1_Click()
If MSComm1.PortOpen = False Then
Text2.Enabled = False
MSComm1.CommPort = 1
MSComm1.PortOpen = True
Else
Text2.Enabled = True
MSComm1.PortOpen = False
End If
Command1.Enabled = False
End Sub
Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
End Sub
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
Buffer = MSComm1.Input
Text1.Text = Text1.Text & CStr(Buffer)
End If
End Sub
********************************************************************
les agradesco de antemano su ayuda
:D
-
sorry, pero no te puedo ayudar,
en cambio tu si me puedes ayudar,
podrias facilitarme material sobre programacion
del puerto serie,
y si no fuera mucho si tienes algo de informacion
acerca de la USB (para programarlo)
desde ya muchas gracias
jsvilu@yahoo.es
-
que es lo que necsitas exactamente se especifico
saludos
-
Hola German.
A ver tu codigo en principio esta bien, veo que lees el puerto serie y lo metes en un buffer. Creo qeu te va a pasar lo mismo que a mi. Yo estoy con mi PFC y tengo qeu recibir datos de un micro. SI estas usando VB6, con el componente MSCOMM, tiene una opcion que es input mode. Esto permite leer datos del buffer en modo texto o en modo binario. Igual lo que te pasa es eso, que estas leyendo en modo texto cunado lo estas recibiendo en modo bianrio. Es lo que se me ocurre a bot epronto, pero ya te digo, no estoy seguro, yo tambien estoy liado con el puerto serie y todavia no lo tengo mu claro.
Si encuentro algo mas, te lo digo.
Por otro lado, si tu tiene una cadena, ponle 1SCH103 0003 8532580 022688011137
como decias en un post, si lo que quiere es trabajr con las cadenas y solo quedarte con el 3 caracter, usa la funcion Mid, seria algo asi como
Var=Mid (buffer, 3, 1), de esta forma en var se almacena solo el caracter C que es el de la 3 columna. No se si es esto a lo qeu te refieres pero si no es asi, comentamelo mas claramente que lo de cojer partes de cadenas es muy facil, el visual tiene ya funciones para ello. Saludos.
-
muchas gracias por tus comentarios, para el puerto serie ya lo cambie ne modo binario se me paso hacer la observacion en un principio pero aun asi no me funciona.
gracias popr tu comentario de la cadena hoy lo voy a provar