Avr-Dos و ATmega2561V

[khast khodaiebehnam]

پاسخ : Avr-Dos و ATmega2561V

منتظریم راش بندازی
نشد بگو یه برنامه گیر اوردم بهت بدم ببینش

[FAM]

پاسخ : Avr-Dos و ATmega2561V

سلام
من تونستم فایل ویو رو با کیفیت بالا پخش کنم
ولی باید SPI سخت افزاری پیکره بندی بشه
اما در صورت پیکره بندی سخت افزاری دو باره
همون مشکل از هر 10 بار 1 بار جواب میده رو دارم
ولی وقتی نرم افزاری میبندم همیشه جواب میده ولی
سرعت پایینه و برش برش خونده میشه؟؟ :surprised:
پس من یا باید سرعت رو در حالت نرم افزاری بالا ببرم (که این بهتره)
یا مشکل سخت افزای رو برطرف کنم

[khast khodaiebehnam]

پاسخ : Avr-Dos و ATmega2561V

شاید حرفم خیلی بچه گانه باشه fam جان
ولی وقتی سخت افزاریش میکنی باید حتما به پایه هایmiso mosi clkو....وصل کنی
این کارو کردی؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

در ضمن حتما کارت رو intionوreset کن

[FAM]

پاسخ : Avr-Dos و ATmega2561V

سلام
میشه راجع به Init و Reset تضیح بدبد

[khast khodaiebehnam]

پاسخ : Avr-Dos و ATmega2561V

بایر حتما دستورات
driveinit()
drive chek()
رو بنویسی
و پاسخ 00 بگیری

و گر نه نمیشهههههههههههههههه

در ضمن یادت یاشه که از پایه ها سه تا از پایه ها واسه مموری ورودی و یکی خروجی هست
پس داخل config کردن اشتباه نکن/چکش کن
++++میکروت معمولی باشه

[khast khodaiebehnam]

پاسخ : Avr-Dos و ATmega2561V

'$PROG &HFF,&HC1,&HD9,&H00' generated. Take care that the chip supports all fuse bytes.'ÑæŽå ÎæÇä&I uml;å æ äæÔÊ&au ml; ÇÒ MMC
'ÈÑÇ&iac ute; ÇãÊÍ&am p;Ccedil;ä ÇÓÊ æ ÌäÈå í ÂãæÒ&amp ;Ocirc;í ÏÇÑÏ
'äæÔÊ& amp;aring; ÔÏå ÊæÓØ:&am p;Oacute;íÏ æÑí&Ccedi l; ãÍÊÔ&amp ;atilde;í

'ÎæÇä Ïä æ äæÔÊ&au ml; Ñæ íÇã Çã Óí Èå ÕæÑÊ ÓßÊæ& Ntilde;í ÇÓÊ

'Çíå åÇí MMC
'MMC M32
'1 MMC_CS
'2 MOSI
'3 GND
'4 +3.3V
'5 CLOCK
'6 GND
'7 MISO

'ÔãÇ ãíÊæ&amp ;Ccedil;äíÏ åã ÇÒ íßÑÈ&a mp;auml;Ïí ÓÎÊ ÇÝÒÇ&a mp;Ntilde;í íÇ äÑã ÇÝÒÇ&a mp;Ntilde;í ÇÓÊÝ&am p;Ccedil;Ïå ßäíÏ


'íßÑ ÈäÏí ÓÎÊ ÇÝÒÇ&a mp;Ntilde;ícMMC_Soft = 0
'íßÑ&Egr ave;äÏí äÑã ÇÝÒÇ&a mp;Ntilde;í: cMMC_Soft = 1

$regfile = "m64def.dat"
$crystal = 16000000
$baud = 9600
Const Cmmc_soft = 0

'ÏÑ Çíä ÌÇ Èå ÕæÑÊ äÑã ÇÝÒÇ&a mp;Ntilde;í ÇÓÊ
Config Portd = Output

#if Cmmc_soft = 0

' --------- íßÑ ÈäÏí ÓÎÊ ÇÝÒÇ&a mp;Ntilde;í ----------------------------------------







Mmc_cs Alias Portb.2 : Config Pinb.2 = Output 'Connected to Pin No.1 Of MMC (CS)
'Mosi Alias Portb.3 : Config Pinb.3 = Output 'Connected to Pin No.2 Of MMC (DataIn)
'Clk Alias Portb.5 : Config Pinb.5 = Output 'Connected to Pin No.5 Of MMC (Clock)
'Miso Alias Pinb.4 : Config Pinb.4 = Input
Config Portb.1 = Output

Set Portb.1













' Chip-Select ãÔÎÕ ßÑÏä Çíå
'Config Pinb.2 = Output
'Mmc_cs Alias Portb.2
Set Mmc_cs

'ãÔÎ&Otild e; ßÑÏä Çíå SS
Config Pinb.2 = Output
Spi_ss Alias Portb.2
Set Spi_ss


' íßÑ ÈäÏí SPI
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 4 , Noss = 1
Spsr = 1
Spiinit 'Úãá ÈÑÞÑ&am p;Ccedil;Ñí ÇÑÊÈ&am p;Ccedil;Ø

' --------- ÇÊãÇ&am p;atilde; ------------------------------------------

#else

' --------- íßÑ ÈäÏí äÑã ÇÝÒÇ&a mp;Ntilde;í --------------------------------------


' Chip Select Pin => Pin 1 of MMC/SD
Config Pinb.0 = Output
Mmc_cs Alias Portb.0
Set Mmc_cs

' MOSI - Pin => Pin 2 of MMC/SD
Config Pinb.2 = Output
Set Pinb.2
Mmc_portmosi Alias Portb
Bmmc_mosi Alias 2

' MISO - Pin => Pin 7 of MMC/SD
Config Pinb.3 = Input
Mmc_portmiso Alias Pinb
Bmmc_miso Alias 3

' SCK - Pin => Pin 5 of MMC/SD
Config Pinb.1 = Output
Set Pinb.1
Mmc_portsck Alias Portb
Bmmc_sck Alias 1


' --------- ÇÊãÇ&am p;atilde; ----------------------------------------

#endif

' ========== ÇíÇ&auml ; íßÑ ÈäÏí =======================================
' we must init the filesystem once

Print "start"
' ÎØÇå&amp ;Ccedil;
Const Cperrdrivereset = 225
Const Cperrdriveinit = 226
Const Cperrdrivereadcommand = 227
Const Cperrdrivewritecommand = 228
Const Cperrdrivereadresponse = 229
Const Cperrdrivewriteresponse = 230
Const Cperrdrive = 231
Const Cperrdrivenotsupported = 232

Waitms 1
Dim Gbdriveerror As Byte
Dim Gbdriveerrorreg As Byte
Dim Gbdrivestatusreg As Byte
Dim Gbdrivedebug As Byte
Dim Sector_pointer As Word
$lib "MMC.LIB"
$external _mmc
Gbdriveerror = Driveinit() 'ÈÑÞ&Ntil de;ÇÑí ÇÑÊÈ&am p;Ccedil;Ø ÈÇMMC
Gbdriveerror = Drivecheck() 'ÇãÊ&Iacu te;Çä ÈÑÞÑ&am p;Ntilde;ÇÑí ÇÑÊÈ&am p;Ccedil;Ø
Print "khata " ; Gbdriveerror
'ÊæÖí Í:ÇÑ ÎØÇí&am p;iacute; ÑÎ ÏåÏ ãÞÏÇ& Ntilde; Âä ÏÑ ãÊÛí&amp ;Ntilde; ÑíÎÊ&amp ;aring; ãí ÑÏÏ(Gbdriveerror )

Dim Abuffer(512) As Byte ' ãÊÛí&amp ;Ntilde; ÇÑÊÈ&am p;Ccedil;Øí ÈÇ ÓßÊæ& Ntilde;
Dim Wsrampointer As Word ' ÂÏÑÓ ãÊÛí&amp ;Ntilde; ÏÑÍÇ&amp ;Yacute;Ùå
Dim Lsectornumber As Long
Dim Omid As Long ' ÓßÊæ& Ntilde; ÔãÇÑ&am p;aring;
Dim I As Integer

'Ñ ßÑÏä ãÊÛí&amp ;Ntilde; Èå ÕæÑÊ ÏáÎæ&C cedil;å
'ÏÑ ÇíÌ&Ccedil ; Èå ÕæÑÊ ãËÇá Çíä ØæÑí Ñ ÔÏå ÇÓÊ
For I = 1 To 512
If I < 256 Then Abuffer(i) = I Else Abuffer(i) = 255
Next

Lsectornumber = 6000
'ÑÝÊ&aum l; ÂÏÑÓ Çæáí&am p;auml; ÈÇíÊ ãÊÛí&amp ;Ntilde; ÇÒ ÍÇÝÙ&a mp;aring;
Gbdriveerror = Drivewritesector(wsrampointer , Lsectornumber)
For Sector_pointer = 1 To 512
Print Abuffer(sector_pointer) ; ",";

Next Sector_pointer

Print "-----------------------"
Print "--Reading MMC Buffer Finished."
Print "khata " ; Gbdriveerror

Print "----------------------------------"

'ÔãÇ&Ntil de;å ÓßÊæ& Ntilde; ãæÑÏ äÙÑ
'ÔãÇ ãí ÊæÇä&i acute;Ï Èå ÏáÎæ&C cedil;å æ ÈÇ ÊæÌå Èå ÙÑÝí&a mp;Ecirc; Çã Çã Óí Âä ÑÇ ÊÛíí&amp ;Ntilde; ÏåíÏ
Print "start-----------------------------------"
For Omid = 1 To 1000
Lsectornumber = Omid
'Gbdriveerror = 120 'omid nevasht fo test
' äæÔÊ&au ml; ãÞÏÇ& Ntilde; ãÊÛí&amp ;Ntilde; ÏÑ ÓßÊæ& Ntilde; ÇäÊÎ&C cedil;È ÔÏå
Gbdriveerror = Drivewritesector(wsrampointer , Lsectornumber)
'Print "khata " ; Gbdriveerror
'Print "Lsectornumber" ; Lsectornumber
Next Omid
Print "fiiiiniiish"


'ÎÇá&iacu te; ßÑÏä ãÊÛí&amp ;Ntilde;
For I = 1 To 512
Abuffer(i) = 12
Next

Nima:
Input "what sector read?" , Lsectornumber
Print "----------------------------------"
Print "--Start Reading MMC Buffer ..."
Print "-----------------------"
Gbdriveerror = Drivereadsector(wsrampointer , Lsectornumber)

For Sector_pointer = 1 To 512
Print Abuffer(sector_pointer) ; ",";

Next Sector_pointer

Print "-----------------------"
Print "--Reading MMC Buffer Finished."
Print "khata " ; Gbdriveerror

Print "----------------------------------"

Goto Nima



'*
'äÔÇ&aum l; ÏÇÏä íß ÈÇíÊ ÇÒ ÓßÊæ& Ntilde; ãæÑÏ äÙÑ Ñæí ÑÊ ÈÑÇ&iacute ; ÇãÊÍ&am p;Ccedil;ä ßÑÏä
'ÈÑÇ&iac ute; ãËÇá ÈÇíÊ ÔãÇÑ&am p;aring; í 57 ÇäÊÎ&C cedil;È ÔÏå
'Portd = Abuffer(57)

End 'ÇÊã&Cced il;ã ÈÑäÇ&amp ;atilde;å

'ÈÑÇ&iac ute; ÏÑß ÈíÔÊ&amp ;Ntilde; ÝÇí&aacute ; ÑæÊí&am p;aelig;Ó ÑÇ ÇÌÑ&Ccedil ; ßäíÏ
'æÞÊ&iacute ; ÝÇí&aacute ; ÑæÊí&am p;aelig;Ó ÑÇ ÇÌÑ&Ccedil ; ãí ßäíÏ Âä ÎØí ßå ÓÊÇÑ&am p;aring; ÏÇÑ ÇÓÊ ÏÑ ÈÇá&Ccedil ; ãÞÏÇ& Ntilde; Âä ÑÇ ÇÌÑ&Ccedil ; ãí ßäÏ

[khast khodaiebehnam]

پاسخ : Avr-Dos و ATmega2561V

من قبلا با این جوا گرفتم

اگر سرعت میخای سخــــــــــــــــــــــــــــــــــــــــــــــــ ــت افزاری باید کار کنی :wow: :wow: