mmc

[rayan20]

سلام خدمت همه دوستان

آقا من خسته شدم گییییییییج شدممممممممم :angry: :angry:

دوستان من میخوام با استفاده از mmc فایل های Wav رو بخونم.مدارمو بستم.برنامم نوشتم که براتون میفرستم. راستش بلد نیستم mmc رو تو پروتیوس کار بندازم بخاطر همین عملی کار کردم.حالا میزنم مدار کار کنه خطا میده که مربوطه به خطای file system
سوالم اینه که این خطا مربوط به چیه؟ oo:

برنامشو از کتاب پروژه های عملی با میکروکنترلر avr نوشته مهندس ملکی و نساج پور برداشتم.
واسه اینکه سرعت کارم بالا بره برخی جاهای برنامه رو حذف کردم.تو کتاب اسم پروژه wav پلیر با avrبود و چون من فقط میخواستم فایلو بخونم و به next , forward ,و اینجور چیزا نیازی نداشتم اونارو حذف کرد.

سوال دیگمم اینه که من از کارت sd دارم استفاده میکنم.mmc گیر نیاوردم.یکی میگه میشه همون sdیکی میگه نمیشه بلاخاره تکلیفو نفهمیدیم!!!!!!!!
oo: :sad: :sad: :sad: :sad:
مموریمم با فرمت fat32 آماده کردم و یه فایل Wav با مشخصات pcm و 20.050khz و mono , 8bit ریختم تو اون.از مگا32 استفاده کردم میدونم sramش کمه اما فقط دنبال اینم که کار بیافته دنبال کیفیت صدا و ایا نیستم.

لطفا برنامشو نگاهی بندازین و در مورد اون دستورات
$hwstack = 32
$swstack = 8
$framesize = 24

هم یکم توضیح بدین.


من به همه عزیزان قول میدم این پروژم که با کمک همه اگه ایشالا با موفقیت به پایان رسید آخر سر یه pdf خییییییییییلی خیلی کامل در مورد wav player بذارم سایت و در مورد تک تک خطوطش توضیح بدم .

فقط دوستان همکاری کنین که یه چیز خوب برا همه آخر سر بمونه

از همه ممنونم :smile: :smile:

---

اضافه شده در تاریخ :

[left]$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 8
$framesize = 24

Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down
'Config Watchdog = 2048
Config Timer2 = Timer , Prescale = 8
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Porta.7 , Db7 = Porta.3 , E = Porta.4 , Rs = Porta.5
Enable Interrupts
Enable Timer2 : On Timer2 T2_isr
Dim Btemp1 As Byte
Dim Berrorcode As Byte
Dim Play_enable As Bit
Dim Mmc_data(512) As Byte
Dim File_name As String * 20

Dim Read_enable As Bit
Dim Read_end As Bit

Dim Play_mode As Byte
Dim First_read As Bit
Dim Start_address As Long
Lcd "alii"
Waitms 500
Const Timer2_value = 211

$include "Config_mmc.bas"                  '
$include "config_AVR-dos.bas"                '
Audio_enable Alias Pina.2
Stop Timer2 : Timer2 = Timer2_value : Start Timer2
Set Portd.7
Set Portd.6
Set Portb.7

' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Berrorcode = Drivereset()
If Berrorcode > 0 Then
Do
 Locate 1 , 1 : Lcd "no memory"
 Waitms 500
Loop
End If
Berrorcode = Driveinit()
If Berrorcode > 0 Then
 Do
   Locate 1 , 1 : Lcd "no memoryy"
 Loop
End If

Btemp1 = Initfilesystem(1)
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
If Gbdriveerror <> 0 Then
 Do
  Locate 1 , 1 : Lcd "fatal"
 Loop
End If
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
If Btemp1 > 0 Then
 Do
 Locate 1 , 1 : Lcd "file ssytem"
 Loop
End If
Cls
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Gosub Load_settings
'-------------------------------------------------------------------------
File_name = Dir( "file_name")
If File_name = "" Then
  File_name = Dir( "*.wav")
End If
Gosub Store_settings

'-------------------------------------------------------------------------
Config Audio_enable = Output
Open File_name For Binary As # 10
Play_enable = 1 : Config Audio_enable = Input
'------------------------------------------------------------------------------
Do
 Gosub Read_file
Loop
'----------------------------------------------------------------
End


Read_file:
Lcd "hala"
Waitms 500
If Eof(#10) = 0 Then
  If Read_enable = 0 Then
   Read_enable = 1
   If First_read = 0 Then
     First_read = 1
     Start_address = 512
     Get #10 , Mmc_data(1) , Start_address , 512
   Else
     Get #10 , Mmc_data(1) , Start_address , 512
   End If
  End If
Else
Play_enable = 0 : Config Audio_enable = Output : Close #10 : Waitms 500
End If

Return
'-------------------------------------------------------------------------------
T2_isr:
Stop Timer2 : Timer2 = Timer2_value : Start Timer2
Return
'-------------------------------------------------------------------------------
Store_settings:
Writeeeprom Play_mode , 0

Writeeeprom File_name , 100
Return
'--------------------------------------------------------------------
Load_settings:
Readeeprom Play_mode , 0
If Play_mode > 3 Then
  Play_mode = 0
  Readeeprom File_name , 100
  Gosub Store_settings
End If
Return[/left]

[AMIN GHAFFARI]

پاسخ : mmc

http://www.eca.ir/forum2/index.php?topic=33267.0

[سوران آراسته]

پاسخ : mmc

با سلام

دوست خوبم شما قبل از نوشتن یه برنامه سنگنین ابتدا باید بیای بخش بخش برنامه رو تقسیم کنی و قدم به قدم بری جلو.
این pdf رو دانلود کن و بخش mmc رو بخون و قدم به قدم برو جلو.
مشکلی هم بود تا جایی که بلد باشم کمکتون می کنم.
موفق باشید