Hallo
Habe Probleme beim lesen von Arrays von der SD karte mit den AVR-DOS Get Befehl. Anbei ein kleinen code um es zu veranschaunlichen. Hat jemand Erfahrung oder schon ähnliches gehabt?
Was mache ich falsch bei den code?


'Diesen Code funktioniert NICHT
Dim Dados(80) As Word
Dim Pixel As Long
Dim Loop1 As Long
Dim Data_array(12) As Byte
Dim F9 as string * 12
Dim ff As Byte

F9 = "test.bin"
Ff = Freefile() ' file handle holen
Open F9 For Binary As #ff

For Loop1 = 1 To Pixel
Get #ff , Dados(1) , , 80 ''80 words von der SD Karte auf einmal einlesen

For J_b = 0 To 79
Data_array(2) = Dados(j_b) 'low byte von der word variable speichern
Shift Dados(j_b) , Right , 8
Data_array(1) = Dados(j_b) 'high byte von der word variable speichern
Print #1 , "data2 =" ; Hex(data_array(2))
Print #1 , "data1 =" ; Hex(data_array(1))
Next J_b
Next Loop1
close #ff
Print #1 , "ENDE "



'Diesen Code FUNKTIONIERT aber zu langsam dar jedes mal nur ein word variable von der SD Karte gelesen wird

Dim Dados As Word
Dim Pixel As Long
Dim Loop1 As Long
Dim Data_array(12) As Byte
Dim F9 as string * 12
Dim ff As Byte

F9 = "test.bin"
Ff = Freefile() 'file handle holen
Open F9 For Binary As #ff

For Loop1 = 1 To Pixel
Get #ff , Dados 'jedesmal ein word variable einlesen
Data_array(2) = Dados 'low byte von der word variable speichern
Shift Dados(j_b) , Right , 8
Data_array(1) = Dados 'high byte von der word variable speichern
Print #1 , "data2 =" ; Hex(data_array(2))
Print #1 , "data1 =" ; Hex(data_array(1))
Next Loop1
close #ff
Print #1 , "ENDE "

Bin dankbar für jede Hilfe

Mfg
Sato