Koda: |
$regfile = "m32def.dat" $crystal = 8000000 $baud = 9600 'baud rate $hwstack = 128 'obvezno mora biti 128!!! $swstack = 128 'obvezno mora biti 128!!! $framesize = 128 'obvezno mora biti 128!!! 'VKLJUČIMO POTREBNE DATOTEKE $include "Config_MMC.bas" 'v tej datoteki se definirajo pini za komunikacijo s SD kartico (MISO, MOSI, CLK in CS) $include "Config_AVR-DOS.bas" Print "Zagon programa!" Dim I As Byte '***** GLAVNI PROGRAM ***** 'Driveinit - seznanitev pinov s SD kartico, DRIVEINIT nam vrne 0 če ni napake Gbdriveerror = Driveinit() If Gbdriveerror <> 0 Then Print "Napaka GB " ; Gbdriveerror End Else Print "OK!" End If 'Inicializacija datotečnega sistem, številka particije je normalno (1), v spremenljivko I se nam zapiše rezultat napake (I=0 ni napake) I = Initfilesystem(1) 'Preverimo ali je prišlo pri inicializaciji do napake If I <> 0 Then Print "Napaka pri inicializaciji!" End Else Print "Inicializacija OK!" End If 'Odpiram datoteko Open "data.txt" For Append As #9 'append Print "Odpiram datoteko!" 'Pisanje v odprto datoteko Print #9 , "Pozdravljeni Test pisanja na SD kartico" Print #9 , "Teks2" Print #9 , "Deluje odlicno!" Print "Pisanje v datoteko!" 'Zapiram datoteko Close #9 Print "Zapiranje datoteke!" End |