TODOPIC

Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: Xa2 en 16 de Julio de 2004, 06:36:00

Título: Sacar datos a un fichero .txt
Publicado por: Xa2 en 16 de Julio de 2004, 06:36:00

Tengo una pregunta interesante, creo yo!!
Como se haria en VB sacar todos los datos obtenidos durante un cierto tiempo  mandarlos a un fichero txt?????
El puerto serie va recibiendo datos cada 1 segundo, y se van aplastando, quisiera guaradar todos los datos y enviarlos una vez que se desee a un fichero txt o algo parecido, es decir, que se pueda trabajar luego con ellos!!
Si me pudierais ayudar os lo agradeceria mucho, Saludos!!

Título: RE: Sacar datos a un fichero .txt
Publicado por: Abago en 16 de Julio de 2004, 09:17:00

lo que te pasa, es que los datos te salen siempre en la misma linea...
eso tiene facil solución...
ponle al programa de tu pic, que haga un CR LF al final de enviar los datos, y te irán saliendo en distintan filas...

de todos modos tienes la opción el el hyperterminal, de guardar un fichero log, de todo lo que ha pasado por el puerto...

Título: RE: Sacar datos a un fichero .txt
Publicado por: Xa2 en 18 de Julio de 2004, 12:33:00

Gracias, pero sigo teniendo la misma duda, en visual basic como se sacan luego todos los datos recibidos a un fichero txt o parecido???es decir, para poder trabajar con ellos??? Que habria que hacer para poder conseguirlo??"
Muchas gracias de todas formas, haber si podeis ayudarme con el problema!!
U otra solucion es como se podria sacar una grafica con los valores obtenidos!!
Saludos

Título: RE: Sacar datos a un fichero .txt
Publicado por: Abago en 18 de Julio de 2004, 20:42:00

Busca en la página del guille...
sobre manejo de ficheros de texto...
lo único que tendràs que hacer es abrir el fichero de texto y escribir sobre el todo lo que lea por el puerto serie...

Título: RE: Sacar datos a un fichero .txt
Publicado por: Abago en 18 de Julio de 2004, 20:43:00

ops. se me pasó poner el link....
http://www.elguille.info/indice.asp

es una grandiosa página de documentación sobre vb...
mas de una vez me ha sacado de algún apuro...

Título: RE: Sacar datos a un fichero .txt
Publicado por: Sispic en 19 de Julio de 2004, 00:08:00

Una vez lo hize así :

Codigo:


   Open CurDir + "Nombre_archivo.txt" For Output Shared As #1
        "{{{ Curdir retorna el directorio en curso}}}}
        
    Linea = " Blalalla , bla ,bla "   " Texto
    Print #1, Linea
    Linea = IntToHex(Hex(b)) " Assci
    Print #1, Linea
    
    Close #1
    
End Function
    

"""""""""""""""""""""""""""  Algunas funciones utiles """""""""""""""""""""""""""""

Public Function IntToHex(valor As Byte) As String   "Conbierte decimal a binario
Dim H As Integer, L As Integer
  H = Fix(valor / 16)
  L = valor - (H * 16)
  IntToHex = ToHex(Fix(H)) + ToHex(Fix(L))
End Function

Public Function ToHex(valor As Integer) As String  "Conbierte nieble decimal a binario
 If valor < 10 Then
   ToHex = Chr(48 + valor)
 Else
  ToHex = Chr(65 + (valor - 10))
End If

End Function

Public Function HighByte(valor As Long) As Byte  " retorna el byte alto de un word
  HighByte = Fix(valor / 256)
End Function

Public Function LowByte(valor As Long) As Byte " retorna el byte bajo de un word
  LowByte = (valor - (HighByte(valor) * 256))
End Function

suerte

Título: RE: Sacar datos a un fichero .txt
Publicado por: Xa2 en 19 de Julio de 2004, 03:03:00

Muchas gracias a todos por vuestra ayuda, a ver si consigo hacer algo con la ayuda que me habeis dado, si tengo algun problema no dudare en acudir a vosotros!!
Saludos y gracias d nuevo!!!