Autor Tema: Problema con TextBox y ListBox Resuelto.. (Leído 7111 veces)

IAO · « **en:** Sábado 24 de Enero de 2009, 21:18 »

Hola para todos...

Amigos tengo un pequeño inconveniente, he buscado por todas partes algo similar pero no logro
dar con la solución a esto.

Tengo recibiendo por el MSCOMM unos datos en formato texto y los coloco en un TextBox.
Todo trabaja bien hasta allí.
Al tratar de operar o manipular el texto en dicho control se tranca la comunicación o no me muestra nada
el el segundo textbox.

Un poco de código, para hacerme entender.

Código: Text

 
 If Option1.Value = True Then
        Select Case MSComm1.CommEvent
            Case comEvReceive 
            '''Recibe y lo almacena en sData.
            sData = MSComm1.Input
                         
            For i = 1 To Len(sData)
            'svar1 = Mid$(sData, i, 1)
            svar2 = sData
            'svar1 = Mid(svar1, 12, 4)
            sDatos(i) = sDatos(i) & svar2 
            Text1.Text = Text1.Text & sDatos(i) 
            Next i
            
            For j = 1 To Len(sData)
            svar1 = svar1 & sDatos(j)
            'svar3 = Mid(svar1, 11, 5)
            Text3.Text = Text3.Text + sDatos(j) 
            Next j
            
        End Select
     End If
    
End Sub           
 
 

Puede que este haciendo algo mal, tengo muchos intentos de todo tipo, pero ninguno me resulta.
No estoy seguro si el svar3 = Mid(svar1, 11, 5) funciona con los textbox. Estoy frustrado de verdad.
Yo recibo estos datos por el Pto Serial:
......
8ms    00.3mV
9ms    00.1mV
10ms    00.4mV
11ms    00.1mV
12ms    00.1mV
13ms    00.3mV
......
Y lo que quiero tomar y meterlo en una variable o arreglo es lo que está en color azul, para graficarlo.
Me parece que debo mandar esto a un archivo de texto.txt, y manipularlo desde el archivo pero lo veo
como infuncional.
No puedo modificar lo recibido, porque es un Multimetro Digital que envía en ese formato.
Puede alguien entender esto y ayudarme?

Cualquier comentario, o ayuda lo agradecería muy grandemente.....

Bye('_')....

Nota: Perdón aquí dejo un link del codigo VB6 funcionando... Pero sin manipular el TextBox.
http://www.box.net/shared/lp89o3rrdg

IAO

Holaaaaaa:

Okey por fin luego de dos semanas ya puedo ver una luz....

Código: Text

 
    If Option1.Value = True Then
        Select Case MSComm1.CommEvent
            Case comEvReceive 
            '''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", "")
    
             Text1.Text = Text1.Text & sData    '''& sDatos(i) '& vbCr  'svar2
            
             a = Right(sData, 4)
             b = Right(Text2, 4)
             Text2 = Right(Text2, 4) & a        '''& vbCrLf  'Mid(Text1.Text, 11, 5) 'Text3.Text &
 
        End Select
    End If   
End Sub
 
 

Con este cambio los datos que recibo les elimino las letras: s, m, V. !!!BUENIIIIIISIMO
......
8 tab 00.3
9 tab 00.1
10 tab 00.4
11 tab 00.1
12 tab 00.1
13 tab 00.3
......

Pero sigo teniendo el mismo problema, cuando uso el Right(sData, 4) o Right(a, 4),, me muestra todo el texto que ingresa menos los caracteres que eliminé.
Text2 = Right(Text2, 4) & Right(a, 4) --> de este modo me muestra como quiero ( 00.3 ) pero siempre en la
primera linea del TextBox, no me lo desplaza hacia bajo del textbox.

Bueno sigo intentando....

Bye('_').....

F_Tanori

Cita de: "IAO"

Pero sigo teniendo el mismo problema, cuando uso el Right(sData, 4) o Right(a, 4),, me muestra todo el texto que ingresa menos los caracteres que eliminé.
Text2 = Right(Text2, 4) & Right(a, 4) --> de este modo me muestra como quiero ( 00.3 ) pero siempre en la
primera linea del TextBox, no me lo desplaza hacia bajo del textbox.

Bueno sigo intentando....

Bye('_').....

A que te refieres con que no te lo desplaza hacia abajo? , tiene un salto de linea al inicio? , el textbox es multilinea?

No entiendo bien a que te refieres

Saludos

IAO

Holaaaa:

Gracias sr. F_Tanori, por atender mi solicitud.

Si, es un TextBox multilinea. Es complicado explicar esto porque no es con un boton para que arranque,
es el evento del mscomm que recibe la data y la coloco en el textbox. Me enredo un poco o bastante.

Te dejo una captura de la parte que recibo. A ver si captas la idea.

[IMG]

Observa como el Text1 recibe los numeros, porque pude eliminar unas letras que me tenía loco.
Ahora en el Text2, que es el mayor problema desde el principio, no me desplaza y es justamente cuando
utilizo el Right(), Left() o Mid().

También traté de colocarlo en una variable, en un arreglo, pero cuando trato de llevarlo al Text2 o a un List1,
Me muestra todo como en el Text1, sin variación de ningún tipo. Solo con Right(), Left() o Mid(), se aprecia
algún cambio pero solo en la primera linea del Text2. Me parece que la opción multilinea, no admite el uso de estas.

He llegado a pensar que no funciona con Mscomm, falta algo o algo estoy omitiendo.
Espero puedas entender mejor.

Bye('_').....

m0skit0

Creo que tu problema radica en que sobreescribes el contenido del Text2 y por eso sólo aparece un elemento en vez de todos. ¿Por qué tienes comentado vbCrLF?

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 If
End 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 · « **Respuesta #7 en:** Lunes 26 de Enero de 2009, 08:59 »

A ver IAO. Explícame por qué haces esto:

Código: Visual Basic

Text2 = Right(Text2, 6) & Right(sData, 6)
 

F_Tanori · « **Respuesta #8 en:** Lunes 26 de Enero de 2009, 10:42 »

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 · « **Respuesta #9 en:** Lunes 26 de Enero de 2009, 11:55 »

Holaaaa:

Cita de: "m0skit0"

A ver IAO. Explícame por qué haces esto:

Código: Visual Basic
Text2 = Right(Text2, 6) & Right(sData, 6)

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('_')............

m0skit0

Cita de: "IAO"

Por allí leí que es imposible hacer eso en un TextBox(desplazamiento)

¿Cómo? Pero si lo haces con el Text1

o estoy muy perdido...

¿Has probado esto?

Código: Visual Basic

Text2 = Text2 & Right(dato, 6) & vbCrLf
 

Siendo dato los datos que se te llegan en el formato "0.1-00.1 " (aunque yo sólo veo 5 caracteres empezando por la derecha y no 6).

Salud

IAO

Holaaaaa:

Sr. F_Tanori: El programa se ve buenisimo no estoy en casa pero al llegar pruebo a ver como me resuta-.
Tengo fé de va a funcionar con su propuesta.

Sr. m0skit0: Es lo que trato de transmitir. Si es texto y texto es un string o cadena, porque diablos no responde
los comandos para la manipulación de cadenas.
Si text1 lo recibe, pero mal. Lo que pasa es que el tipo de letra es más grande en text1 y da la impresión de
estar trabajando. Pero si bajo el tamaño de la letra se ve igual que text2. De verdad llevo 2 semanas en esto solo,
y no podía avanzar de este punto.

Si sr. m0skit0 he intentado su propuesta, pero que va... nini-nana.

Estoy ancioso por llegar a casa y probar con el ejemplo del sr. F_Tanori.

Bye('_')...

IAO

Holaaa:

Vamos a tener que esperar a qe lo implemente, me da un error. El programa hace exactmente lo que buscaba.
Pero cuando lo incorporo al mio me da erros de indice en: Derecha = valores(0) y Izquierda = valores(1).
-
No estoy seguro si tengo quec olocar un timer en mi form, ando un tanto atiborrado de cosas.

Bueno estaré intentandolo....

Bye('_')......

F_Tanori

No el timer lo he utilizado porque yo no podia utilizar el puerto

ya que no tengo nungun dispositivo para probarlo, por eso lo he simulado con un timer

como es que lo haz probado?

Saludos

IAO

Hola.....

Basicamente lo coloqué después del los datos del MsComm coloque el metodo2 al final y también coloque todo el contenido de metodo2
después de los Replace$ en el mscomm pero de las dos formas me dice error de indice, coloque las variables al principio, pero que va.
Algo parecido pasa cuando utilizo los textbox. Sin el mscomm funcionan al pelo con el mscomm da problemas.

F_Tanori

Bueno , es posible que en relidad los datos que estas recibiendo, no esten separados por un espacio (como yo lo entendi) entonces es por eso que split no regresa el arreglo, el espacio es una tabulacion? u otro caracter?

Saludos

IAO

Perdón dice:

El subindice está fuera de intervalo.. Disculpen pero ando colapsado.

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), "")
           
            Text1 = Text1 & sData 'Derecha
 
            Text2 = Text2 & sData
         
         Metodo2
         Me.List1.AddItem Izquierda
           
             
        End Select
    End If
    
End Sub
 
Sub Metodo2()
   valores = Split(sData, " ") '<--- Obtener datos
   
   Derecha = valores(0)
   Izquierda = valores(1)
End Sub
 
 
 

IAO

Era una tabulación pero la quité, ahora entran pegados los datos.

asi:
" 0.1-00.6" un total de 15 carateres o longitud 15
" 0.2 00.3"
" 0.3-00.1"
" 0.4 00.8"

Al principio era diferente pero lo fui llevando a este punto.
cinco corresponden a los ultimos por el signo negativo

F_Tanori

ok, entonces supongo que son 2 valores

separalos por el signo -

Código: Visual Basic

Sub Metodo2()
    valores = Split(sData, "-") '<--- Obtener datos
    
    Derecha = valores(0)
    Izquierda = valores(1)
 End Sub
 

IAO

Ahora acabo de entender, el Split(sData, " ").
Si es correcto no hay un espacio vacio, pero el signo negativo entra en algunos numeros en otros no.
Pero esta bien.
Voy a eliminar lo que quita la tabulación y agragarle un espacio sr. Tanori usted es un cerebro, un cerebro, yo soy pinky jajajaja.

Voy a probar, luego le comento.....Gracias, gracias, gracias

F_Tanori

entonces a tratar de conquistar el mundo

Saludos

IAO

Holaaa:

Comprobado por varias vias, no me trabaja pero la idea es estupenda.
Da el mismo error: El subindice está fuera de intervalo..

Bueno ni modo, seguiré indagando.

Gracias...
Bye('_')...

m0skit0

Una pista IAO: InStr()

IAO

Holaaaa:

Gracias sr. m0skit0 tampoco funciona, a sido duro esto. Pero ya logre algo.
--
Ya pude, pero de otra manera.. Todo lo que aparece en el Text1 Multilinea lo pude colocar en el List1 de esta manera.
Hoy trataré de utilizar el MID, Rigth o Left con el List1, a ver que me resulta.
Así esta quedando el código de la parte de entrada.

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, " ", "")
            'sData = Replace$(sData, Chr(9), " ")
            'sData = Replace$(sData, Chr(13), "")
            'sData = Replace$(sData, Chr(10), "")
            '
            
            Text1 = Text1 & sData  'Derecha
            
            '''Borrar el contenido del listbox
            List1.Clear
            '''El TextBox pasa (el dato ), y el caracter delimitador
            sDatos = Split(Text1, vbNewLine)
            '''Recorremos el arreglo y vamos insertando los elementos del array
            '''en el ListBox
            For i = LBound(sDatos) To UBound(sDatos)
            Me.List1.AddItem sDatos(i)
            Next
             
        End Select
    End If
    
End Sub
 
 

En un rato pego una captura de la imagen......

Bye('_')....

IAO

Holaaaaaa:

YuuuuuuuPiiiiiiii.....
Gracias por su ayuda sr. m0squit0 y sr. F_tanori. De verdad.
Miren como va quedando. Gracias por sus post, todavía falta es solo el principio.

Funcionó perfecto el MID, ahora sí.

Código: Text

 
 For i = LBound(sDatos) To UBound(sDatos)
   Me.List1.AddItem Mid(sDatos(i), 9, 6)
  Next

Luego les doy todo el código cuando finalice el tratamiento de los datos y la graficación..Falta bastante.
Siempre paso mis programas terminados..es parte del apredizaje...
Bye('_')...