ايران ويج

با سلام

دنبال یه برنامه میگردم که یه سری فایل صوتی رو با توجه به دستور ارسالی به میکرو از طریق مثلا چند میکرو سوئیچ از روی مموری کارت (MMC) خوانده و پخش کنه،فرض کنید ما 5 تا فایل صوتی رو مموری مورد نظرمون داریم حالا
میخواهیم با فشار یکی از سوئیچ های مورد نظرمون فایل مربوط به اون رو پخش کنیم.
بنده به این منظور چند برنامه ایی رو (که یکی از اونا رو در زیر پیوست کردم) مورد بررسی قرار دادم ولی نتیجه نگرفتم (به این دلیل که برنامه ذیل فایل های روی مموری رو یکی پس از دیگری پخش میکنه)چون مطمئنم که برنامه رو باید طوری نوشت که آدرس ابتدا و انتهایی هر ترک (فایل صوتی) رو بشه شناسایی کرد تا زمانی که مثلا سوئیچ 4 رو فشار میدهیم فایل صوتی شماره 4 پخش شه که مشکل من دقیقا همینه که چطور اینکار روبکنم.
در ضمن برنامه پیوست شده توسط بنده تست شده و کاملا جواب میده!
راستی یه جایی خوندم برای این منظور باید مموری را سکتور بندی کرد؛اگه ممکنه یه اطلاعاتی هم در مورد واحد حافظه ایی از قبیل Sector-Block-page رو بدین که مثلا اگه یه مموری 256مگابایت داریم واحد های حافظه ایش به چه صورتی هست.

اگر امکانش هست یه توضیح در مورد برنامه ذکر شده بدین (مخصوصا اونجایی که میکرو مشغول پیکربندی و شناسایی مموری میشه)
(در ضمن نگید که تو تاپیکا سرچ کنم که قبلا این کارا رو کردم)[/code]
واقعا ببخشید پر حرفی کردما؛از لطفتون ممنونممممممممممم. :


[code]$regfile = "M8def.dat"
$crystal = 10000000
'$sim
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 1

Const Msbl = 0
Const Msbh = 1
Const Dly = 2
Const Bits8 = 8
Const Bits16 = 16
Const Bits32 = 32

Dim Dat As Byte
Dim Resp As Byte
Dim I As Word
Dim Addr As Long
Dim Adres As Long
Dim Tanzim As Byte

Cs Alias Portd.1
Mosi Alias Portd.2
Clk Alias Portd.3
Miso Alias Pind.0

Declare Sub Minit
Declare Sub Mread(byval Addr As Long )


Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.3 = Output
Config Pind.2 = Input
Waitms 300
Config Spi = Soft , Din = Pind.0 , Dout = Portd.2 , Ss = Portd.1 , Clock = Portd.3
Spiinit
'******** MAIN PROGRAM *************
Main:
Minit
Adres = 1048576
Inja:
Mread Adres
Adres = Adres + 512
Goto Inja
Xloop:
Set Cs
Shiftout Mosi , Clk , Dat , Msbl
Endloop:
Goto Endloop
End
'end program
'======= SUB ROUTINES AND FUNCTIONS =======
'*** INITIALIZATION OF MMC ***
Sub Minit
Set Cs
Dat = &HFF
For I = 1 To 10
Shiftout Mosi , Clk , Dat , Msbl

Next I
Resp = 255
Reset Cs
Cmd0:
Dat = &H40
Shiftout Mosi , Clk , Dat , Msbl
Addr = &H00000000
Shiftout Mosi , Clk , Addr , Msbl
Dat = &H95
Shiftout Mosi , Clk , Dat , Msbl
While Resp <> &H01
Shiftin Miso , Clk , Resp , Msbl

Wend
Set Cs
Waitms 50
Reset Cs
Dat = &HFF
Cmd1:
While Resp <> &H00
Set Cs
Shiftout Mosi , Clk , Dat , Msbl
Shiftin Miso , Clk , Resp , Msbl
Reset Cs
Dat = &H41
Shiftout Mosi , Clk , Dat , Msbl
Addr = 0
Shiftout Mosi , Clk , Addr , Msbl
Dat = &HFF
Shiftout Mosi , Clk , Dat , Msbl
Shiftout Mosi , Clk , Dat , Msbl
Shiftin Miso , Clk , Resp , Msbl
Wend
Dat = &HFF
Set Cs
End Sub

'**** READ routine assumes ADDR uses Status subroutine *****
Sub Mread(byval Addr As Long)
Set Cs
Dat = &HFF
Shiftout Mosi , Clk , Dat , Msbl
Shiftin Miso , Clk , Resp , Msbl
Reset Cs
Dat = &H51
Shiftout Mosi , Clk , Dat , Msbl
Shiftout Mosi , Clk , Addr , Msbl
Dat = &HFF
Shiftout Mosi , Clk , Dat , Msbl
Shiftin Miso , Clk , Resp , Msbl
While Resp <> 0
Shiftin Miso , Clk , Resp , Msbl
Wend
While Resp <> &HFE
Shiftin Miso , Clk , Resp , Msbl
Wend
For I = 1 To 512
Shiftin Miso , Clk , Resp , Msbl
Pwm1a = Resp
Waitus 30
Next I
Shiftin Miso , Clk , Resp , Msbl
Shiftin Miso , Clk , Resp , Msbl
Set Cs
End Sub

وووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووای
یعنی چی؟
کسی نیست کمک کنه؟
ما که در همین جور در جنب و جوشیم، یه مدت دیگه هم صبر میکنیم!

منم قبلا با این مسله مشکل داشتم باید از یه میکرو ایتفاده کنی که 4kbsram داشته باشه بعد از fat استفاده کنی توی برنامت تا فایلارو از هم جدا بتونی اجرا کنی اگه بگردی خیلی مطلب راجب این مسله هست

از کتابخانه DOS-AVR استفاده کن : http://members.aon.at/voegel
البته توضیحات خوبی هم اقای تروشه توی یکی از آموزشهاشون (مربوط به شبه سیستم عامل بود ) دادن که به کار شما هم یه قسمتهائیش میاد