Sacar datos a un fichero .txt

[Xa2]

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!!

[Abago]

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...

[Xa2]

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

[Abago]

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...

[Abago]

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...

[Sispic]

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

[Xa2]

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!!!