Svetelektro.com

Svetelektro.com

Meno:
Heslo:
SVETELEKTRO • SD karta

SD karta

Moderátori: psichac, Moderátori

SD karta

Odosla┼ąod jenda23 » 27 Jan 2014, 18:44

Zdrav├şm, nem├íte n─Ťkdo zku┼íenosti se ─Źten├şm a z├ípisem souboru na SD kartu v bascomu pros├şm. Pop┼Ö├şpad─Ť klidn─Ť uv├şt├ím pokud by n─Ťkco byl od─çhoten jak s kartou komunikovat nez knihoven. To znamen├í zvl├ídnout FAT syst├ęm.

D├şky, s pozdravem jenda
Lokomotiva je jako ┼żena.Je jich stovky typ┼» a ka┼żdej z nich je jinej,ka┼żd├í z nich je sv├Żm zp┼»sobem kr├ísn├í.Kdy┼ż j├ş chce┼í aspo┼ł trochu poznat jsou to stovky hodin ─Źasu.Nejde s n├ş b├Żt ani┼ż bys j├ş bezmezn─Ť miloval,je nemo┼żn├Ż j├ş zn├ít do posledn├ş skulinky
jenda23
Obr├ízok pou┼ż├şvate─ża
Ultimate ─Źlen
Ultimate ─Źlen
Pr├şspevky: 4795
Vek: 28.74
Zalo┼żen├Ż: 27.06.2008
Bydlisko: Česká Třebová
Paragraf: 23
Karma: 58

Re: SD karta

Odosla┼ąod smotek7 » 28 Jan 2014, 17:42

Ahoj, takyto dotaz som tu mal pred 2 mi rokmi a vidim, ze tam dodnes je 0 reakcii.

nieco som vtedy skusal a zapis mi myslim fungoval
tu je kus kodu ak ti to pomoze. (nieje cely)

$include "Config_MMC.bas" 'Include AVR-DOS Configuration and library
$include "Config_AVR-DOS.BAS"
'***************************************************************************
Declare Sub Inc_sd
Declare Sub Record_file(byval Uloz_data2 As String )
Declare Sub Testerrors(byval N As Byte )

Cls
Lcd "start"
Do
Cls

If Sd_in_slot = 1 Then 'karta SD neni ve slotu
Locate 1 , 1
Lcd "Nevlozena karta"

Else 'karta SD je ve slotu
Locate 1 , 1
Lcd "Vlozena karta"

Uloz_data = "test;" + Str(s)

Uloz_data = Uloz_data + ";"


Incr S

Call Inc_sd()

Locate 2 , 1
Lcd Uloz_data



End If

Wait 5

Toggle Led

Loop
End



'xxxxxxxxxxxxxxxxxxxxxxxxxxx zapis na SD kartu xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Inc_sd
Gbdriveerror = Driveinit() 'Inciace karty
If Gbdriveerror = 0 Then
Btemp1 = Initfilesystem(1) ' Partition 1
If Btemp1 <> 0 Then
Cls
Lcd "error: " ; Btemp1
Locate 2 , 1
Lcd "at Init f. system"
Wait 2
Else
Locate 1 , 6
Lcd "S"
Call Record_file(uloz_data)
Locate 1 , 6
Lcd " "
End If
Else
Print "Error during Drive Init: " ; Gbdriveerror
Cls
Lcd "Err Init:" ; Gbdriveerror
Wait 2
End If
End Sub


Sub Record_file(byval Uloz_data2 As String )
Reset Watchdog
Open "Teplota1.csv" For Append As #1
Write #1 , Uloz_data2 ' write is also supported
Flush #1
Close #1
Call Testerrors(1)
Reset Watchdog
Wait 1
Locate 2 , 6
Lcd "O"
Reset Watchdog
Wait 1
Locate 2 , 6
Lcd " "
Reset Watchdog
End Sub





'***************************************************************************
'* Debug routine, test AVR-DOS error flag. If errors found signals user
'* flashing a LED and writes the error position code
'***************************************************************************
Sub Testerrors(byval N As Byte )
While Gbdoserror <> 0
Cls
Lcd "err:" ; Gbdoserror ; " posit:" ; N
Waitms 100
Wend
End Sub
' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx end SD karta xxxxxxxxxxxxxxxxxxxxxxxxxxx
Nemus├şm vede┼ą v├íhu elektr├│nu ak chcem zasp├íjkova┼ą tranzistor.
smotek7
Pokro─Źil├Ż ─Źlen
Pokro─Źil├Ż ─Źlen
Pr├şspevky: 521
Vek: 39.66
Zalo┼żen├Ż: 08.08.2011
Bydlisko: PN
Karma: 4


Nasp├Ą┼ą na Bascom

Kto je pr├ştomn├Ż

U┼ż├şvatelia prezeraj├║ci si toto f├│rum: ┼Żiadny registrovan├Ż pou┼ż├şvate─ż a 0 host├ş.

Forums ©
Autor str├ínky je Ondrej Z├ívodsk├Ż(zawin), o graficky design sa star├í ─Żubo┼í Fabo(BUFU).

TOPlist

Powered by Copyright © UNITED-NUKE CMS. All Rights Reserved.
─îas potrebn├Ż k spracovaniu str├ínky 0.18 sek├║nd