Programación General > Visual Basic 6.0 e inferiores

 Cargar Una Matriz Desde El Puerto Serie

(1/1)

Neli:
Hola! necesito cargar una matriz bidimensional, para luego poder hacer con los datos un gráfico, estos datos vienen desde el puerto serie y los recibo en un txt, con el siguiente formato, por ejemplo:    20, 2568 donde 20 es el dato de posición y 2568 de velocidad, de esta forma me tira  hasta 16384 filas, yo necesito poner el dato de posición en una columna y el de velocidad en la otra. El tema es q no se como decirle.....lo de antes de la coma va en la primer columna y lo de despues en la segunda...
este es el pedacito del código donde leeo los datos del puerto, sRecidida es el string donde los recido

' Leer caracteres del puerto
        If LeerCarsPuerto(sRecibida) > 0 Then
            txtRX.Text = txtRX.Text & sRecibida    'aca debería de cargar la matriz
        End If
Por favor si alguien me puede ayudar, de verdad gracias!! Neli  :comp:

cpmario:
Espero el siguiente código te dé una idea:

--- Código: Text ---    Dim astrTempText() As String    Dim astrMatrix(16384, 1) As String    Dim lngCount As Long    Dim sRecidida As String    Dim lngPos As Long        'sRecidida= entrada de datos del serial    sRecidida = "20, 2568" & vbNewLine & "21, 2567" & vbNewLine    astrTempText = Split(sRecidida, vbNewLine)    For lngCount = 0 To UBound(astrTempText) - 1        lngPos = InStr(astrTempText(lngCount), ",")        astrMatrix(lngCount, 0) = Mid$(astrTempText(lngCount), 1, lngPos - 1)        astrMatrix(lngCount, 1) = Mid$(astrTempText(lngCount), lngPos + 1, Len(astrTempText(lngCount)) - (lngPos - 1))    Next lngCount  :comp:

Neli:
Hola Mario!....simplemente para agradecerte...ahun no he podido probar el codigo porque se nos rompio el data logger de donde probamos la captura de datos, pero en pocos días lo solucionamos, lo estuve viendo y me guio bastante...GRACIAS!! Neli :hola:

Navegación

[0] Índice de Mensajes