Nem felejtettem el amit ígértem, csak összecsaptak a hullámok a fejem fölött .
Még egy pár nap türelmet kérek!
Kód: Egész kijelölése
$regfile = "M32def.dat"
$hwstack = 128
$swstack = 128
$framesize = 128
$prog &B00111111 , &B00111111 , &B11010001, '8Mhz Quartz, EEprom nem törlődik(FSB3) MEGA32
$crystal = 16000000
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portc.5 , Db7 = Portc.4 , E = Porta.6 , Rs = Porta.7
Config Lcd = 16 * 2 'LCD típusa
Config Clock = Soft
Config Porta = &B11011111 'Input=0 Output=1
Porta = &B11011111 'felhúzó ellenálással=1
Config Portc = &B11110000 'Input=0 Output=1
Portc = &B11111111 'felhúzó ellenálással=1
Config Portd = &B11111111 'Input=0 Output=1
Portd = &B01000000 'felhúzó ellenálással=1
Dim Mmc_stat As Bit
Dim Hibakod As Byte , Btemp1 As Byte
'Kártya init
$Include "Config_MMC.bas"
Mmc_stat = 0
Gbdriveerror = Driveinit()
Hibakod = Gbdriveerror
If Gbdriveerror = 0 Then
$Include "Config_AVR-DOS.BAS"
Btemp1 = Initfilesystem(1)
If Btemp1 = 0 Then
Mmc_stat = 1 'Kártya OK
End If
End If
Cls
Upperline
If Mmc_stat = 1 Then
Lcd " MMC rendben! "
Else
Lcd " MMC hiba!"
Lowerline
Lcd "Hibakod: " ; Hibakod
End If
Wait 3
Do
'osztunk, szorzunk, gyökötvonunk, kiszámoljuk ami kell
'és ha ez megvan akkor:
If Mmc_stat = 1 Then
Open "temp.txt" For Append As #1 'File nyitás
Print #1 , "Valami" 'Írás a file-ba
Close #1 'File lezárása
End If
Loop
Természetesen a PC kell kátryaolvasóban formázni, és az üres file-t létrehozni.Ezt az M32 végzi, vagy a PC-n hozod létre (hogyan)?
Kód: Egész kijelölése
Open "akármi" For Output As #1Kód: Egész kijelölése
Open "akármi" For Append As #1Kód: Egész kijelölése
Filechk = Dir( "fájl.kit")
If Len(filechk) = 0 Then...Kód: Egész kijelölése
A formázás kész.
14 745 088 bájt teljes lemezterület
14 745 088 bájt használható lemezterület
512 bájt foglalási egységenként.
28 799 foglalási egység van a lemezen.
16 bit minden FAT-bejegyzésben.
A kötet sorozatszáma: B809-D19C