Programación General > Visual Basic para principiantes
Problema con TextBox y ListBox Resuelto..
IAO:
Holaaaa:
Gracias sr. m0skit0 por su colaboración, pero eso lo he intentado y no me trabaja.
Esta comentado porque coloca unos caracteres raros y luego se detiene en la tercera
linea o segunda y no hace nada más.
Hice esto hace un rato.
--- Código: Text --- If Option1.Value = True Then Select Case MSComm1.CommEvent Case comEvReceive '''recibo 1 bytes '''Recibe y lo almacena en sData. sData = MSComm1.Input 'Datos que se quieren modificar. Los retiro de la Variable sData = Replace$(sData, "m", "") sData = Replace$(sData, "s", "") sData = Replace$(sData, "V", "") 'Text2 = Text2 & sData Paso = 0 For a = 1 To Len(sData) pos = Len(sData) - (a - 1) Select Case Paso Case 0 If Mid(sData, pos, 1) = " " Then Paso = 1 Else Derecha = Mid(sData, pos, 1) & Derecha '''Ultimo de la derecha End If Case 1 If Mid(sData, pos, 1) = " " Then Paso = 2 Else Centro = Mid(sData, pos, 1) & Centro '''El del Centro End If Case 2 Izquierda = Mid(sData, pos, 1) & Izquierda '''Primero de la Izquierda End Select Next 'Izquierda = " " 'Replace$(Izquierda, "m", "") 'Centro = " " 'Replace$(sData, "m", "") Text1 = Text1 & Derecha Text2 = Text2 & Derecha 'Izquierda '& vbCrLf 'Mid(Text1.Text, 11, 5) 'Text3.Text & End Select End If End Sub
Pero miren en esta captura lo que me pasa:
Me invierte los datos, pero sigue mostrando todo.
Se supone que esta mejora toma los datos de entrada y los separa en una variables
y cuando tomo la variable Derecha y la coloco en el textbox 2, me muestra todo pero invertido.
Esto parece una locura.
Seguiré intentando...
Bye('_')...
IAO:
Holaaaaa:
Bueno hasta este momento todo va quedando asi:
--- Código: Text --- If Option1.Value = True Then Select Case MSComm1.CommEvent Case comEvReceive '''recibo 1 bytes '''Recibe y lo almacena en sData. sData = MSComm1.Input 'Datos que se quieren modificar. Los retiro de la Variable sData = Replace$(sData, "m", "") sData = Replace$(sData, "s", "") sData = Replace$(sData, "V", "") sData = Replace$(sData, Chr(9), "") '''<--Así quite un TAB que me bloqueaba Text1 = Text1 & sData 'Derecha 'b = Right(sData, 5) '& b 'c = b '& c Text2 = Right(Text2, 6) & Right(sData, 6) 'Text2 & c 'Mid(Text2, 1, 3) & Derecha 'Izquierda '& vbCrLf 'Mid(Text1.Text, 11, 5) 'Text3.Text & End Select End IfEnd Sub
Logré quitar una tabulación que me tenía loco también. Se redujo el código considerablemente.
Está trabajando mucho, mucho, mejor, pero sigo sin poder desplazar el resultado en el Text2 multilinea.
A partir de ahora me enfocaré solo a esto. El desplazamiento en el Textbox2.
Bye('_')....
m0skit0:
A ver IAO. Explícame por qué haces esto:
--- Código: Visual Basic ---Text2 = Right(Text2, 6) & Right(sData, 6)
F_Tanori:
si solo quieres obtener los valores en azul, yo digo que ese metodo es muy complicado mira te dejo un ejemplo de lo que entendi , tambien creo que si utilizas listas es mejor
espero te sirva
Saludos
IAO:
Holaaaa:
--- Cita de: "m0skit0" ---A ver IAO. Explícame por qué haces esto:
--- Código: Visual Basic ---Text2 = Right(Text2, 6) & Right(sData, 6)
--- Fin de la cita ---
Bueno sr. m0skit0, a ver como le aclaro eso. La data que me ingresa actualmente quedó
en este formato: " 0.1-00.1 " lo que trato es de tomar todos los -00.1 y colocarlos en
el text2. Pero si coloco solo el primer Right(sData, 6) se me queda mostrando un valor -00.03 en
la primera linea de text2, si coloco el otro Right(Text2, 6) me cambia los valores según entren
("-00.1 -00.03 00.08 ..... ") pero siempre en la primera linea.
----
Por allí leí que es imposible hacer eso en un TextBox(desplazamiento) estoy indagando sobre los ListBox,
pero bestiale es más enredado y estoy analizando para hacer pruebas.
----
Sr. F_Tanori, gracias por el ejemplo voy a hacer las pruebas luego les comentaré.
Bye('_')............
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa