راه اندازی MMC

[y.gh]

پاسخ : راه اندازی MMC

با سلام برنامه شما نرم افزاری یا سخت افزاری از طریق USART/UART باید باشه.میشه برنامتو دوباره چک کنی؟
اونوخ میبینی که هیچ کجا نه USART?UART فعال کردی نه از وقفه های اونا استفاده کردی!!!!!! :bye

[sina1359]

پاسخ : راه اندازی MMC

تو این برنامه ساعت و تاریخ رو توی mmc توی یه فایل txt میریزه

$regfile = "M64def.dat "                  'IT'S POSSIBLE USE DIFFERENT AVR-CHIPS
$crystal = 16000000                     'or any
$baud = 9600
$swstack = 64
$hwstack = 128
$framesize = 128
Config Clock = Soft
Config Date = Dmy , Separator = .
Enable Interrupts
Time$ = "20:22:33"
Date$ = "16.04.08"
Dim B As Byte
Dim L As Byte
Dim Ff As Byte
Dim S As String * 20
Dim Diskf As Long
Dim Disks As Long
Dim Acc As Long
Cls
Print "Initation..."
$include "Config_AVR-DOS.BAS"
$include "Config_MMC.bas"                  'include mmc

Ff = Drivereset()
Ff = Driveinit()

$external Waitms

If Gbdriveerror <> 0 Then

Print "Error Config"

Print Gbdriveerror
End
End If

'include avr-dos

B = Initfilesystem(1)                    'init file system
If B <> 0 Then Print "Error MMC"
'-------------------------------------------------------------------------------
'------------------------ PROGRAM START ------------------------------
'-------------------------------------------------------------------------------
Do
Wait 2                           'you can type your calling subroutine and another code
Gosub A                           'for example
Loop

End


A:
Print "Now Create file"
Ff = Freefile()
Open "ALI.txt" For Binary As #ff
Acc = Lof(#ff)
Print "acc:" ; Acc
Seek #ff , Acc
Print #ff , ""
Print #ff , Time$
Print #ff , Date$
Close #ff
Print Time$
Return

سلام دوست عزیز
شماتیک مدار این برنامه رو میتونید به من بدید؟
با تشکر

[sina1359]

پاسخ : راه اندازی MMC

دوست عزیز اگر زحمتی نیست
شماتیک این برنامه را قرار دهید
با تشکر