euer geschwindikeitsproblem kann durchaus vom regelmässigen "close" kommen.

hier mal meine version:

Code:

Open Fl For Output As #ff                                   ' open file for output
'  we need to open a file  before we can use the file commands
'  we open it for OUTPUT, INPUT , APPEND or BINARY
'  In this case we open it for OUTPUT because we want to write to the file.
'  If the file existed, the file would be overwritten.


Do
Wstr = ""
   Start Adc  ' starte adc   --->>>   stromverbrauch steigt
   W = Getadc(7)    'nehme messwert
   Wstr = Str(w)     ' wandle um in string

   Stop Adc   ' stromverbrauch sinkt wieder

 
  Print #ff , Wstr  ' schreibe in puffer von sd karte
  

Loop Until Jumper = 1 

' jumper ist ein alias für die abfrage 
' eines portpins als eingang
' jumper kann auch ein taster sein. 
' hier weiss die cpu, dass ich die sd-karte haben will 
' und er mit close die sache beenden soll.

Close #ff
End


' nachdem jumper 1 wurde wird die datei geschlossen ... also die letzten 512 bytes auf die karte geschrieben.
' wenn ihr ständig "close schreibt, dauert das ewig und ihr schreibt euch die karte platt

gruss klaus