ارتباط با mmc sd

[maxn@morteza]

[/quote]سلام دوستان خوب هستین من میخوام یه ظبط پخش دیجیتال درست کنم با avr برنامه زیر رو ؟آزمایش کردم جواب داد و کار میکنه ولی فقط پخش از کلیات برنامه یه چیزای فهمیدم ولی جزیاتشو نه ممنون میشم دوستان توضیح بدن قسمتهای مثل آدرس دهی mmc و... و توضیحی برای اضافه کردن ظبط به این برنامه البته میخوام هر جا که خواستم ضبط کنم از همونجا هم بخونم و یه مشکل دیکه من با mmc 32 مگابایت مشکلی ندارم ولی 1گیگو نمیخونه ؟ همینطور sd مشکل کجاس ممنون میشم راهنمای کنید
آقا دیدم کسی جواب ننداد رو این کار کردم کسی هست اینو توضیح بده ؟]

$regfile = "m8def.dat"
$crystal = 11059200
$swstack = 64
$hwstack = 128
$framesize = 128

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1
Pwm1a = 500
Pwm1b = 550



Config Pind.1 = Input : Portd.1 = 1
Rec_key Alias Pind.1
Config Portd.6 = Output : Portd.6 = 0
Led_rec Alias Portd.6
Config Portd.7 = Output : Portd.7 = 0
Led_play Alias Portd.7
Config Int0 = Falling
On Int0 Request
Enable Interrupts
Enable Int0
'****************************************************************
Waitms 1
$include "Config_MMC.bas"
$external _mmc
Gbdriveerror = Driveinit()
If Gbdriveerror <> 0 Then
Led_rec = 1 : Wait 1 : Led_rec = 0
Else
Led_play = 1 : Wait 1 : Led_play = 0
End If


Gbdriveerror = Drivecheck()
'**************************************************************** .

'****************************************************************
Config Adc = Single , Prescaler = 32 , Reference = Avcc
'****************************************************************

Declare Sub No_key
Dim Abuffer(512) As Byte
Dim Wsrampointer As Word
Dim Lsectornumber As Long
Dim Cop_lsec As Integer
Lsectornumber = 100
Dim I As Integer
For I = 1 To 512
Abuffer(i) = 0
Next
I = 1
'************************************WRITING PROCEDURE*************
Do


If Rec_key = 0 Then
Call No_key
Led_rec = 1
Start Adc
Goto Main
End If
Loop
Main:
Wsrampointer = Varptr(abuffer(1))
Do
For I = 1 To 512
Abuffer(i) = Getadc(0)


Abuffer(i) = Abuffer(i) - 498
Next
Gbdriveerror = Drivewritesector(wsrampointer , Lsectornumber)
Lsectornumber = Lsectornumber + 1
I = 1
Loop
Request:
Stop Adc
Cop_lsec = Lsectornumber
Led_rec = 0
Lsectornumber = Lsectornumber - 1
'********************************READING PROCEDURE*****************
From_one:
Do
If Rec_key = 0 Then
Call No_key
Goto Start_play
End If
Loop
Start_play:
Led_play = 1 : Led_rec = 0
Lsectornumber = 100
Wsrampointer = Varptr(abuffer(1))
Gbdriveerror = Drivereadsector(wsrampointer , Lsectornumber)
Do


I = 1
For I = 1 To 512
Pwm1a = Abuffer(i)
Waitus 117
Next
Lsectornumber = Lsectornumber + 1


Gbdriveerror = Drivereadsector(wsrampointer , Lsectornumber)
Loop Until Cop_lsec = Lsectornumber
'*************************************
Pwm1a = 0
Led_play = 1 : Led_rec = 1
Goto From_one
Return
End
'*************************************
Sub No_key

Do
Loop Until Pind.1 = 1
Waitms 5[/align]
End Sub

[/align]align=left]

[maxn@morteza]

سلام دوباره کسی نیست به ما کمک کنه

[ha_60]

اولا بیسیک زبان بدردبخوری برای کارکردن نیست
بعد در بارع MMC کلی تو سایت بحث شده
تو هیچ فروم دیگه یای با گذاشتن کد به این شکل جواب نمی گیری در واقع انتظار داری یه نفر دیگه کار شما رو تحلیل این کد بوده رو انجام بده که وقت زیادی می خواد
برای یه چنین موردی که همه کار نکردن شاید سوال موردی هم بپرسی نتونن کمکت کنن

[maxn@morteza]

شرمنده من به جز زبان بیسیک چیز دیگه ای بلد نیستم در باره ارتباط mmc خیلی مطلب خوندم ولی هر کدوم یجوری باهش کارکردن و مطلب درست هسابی که بشه متوجه ماجرا شد نیست بازم ممنون ازتون بیخیال یه کاریش میکنم

[ilgar]

بیسیک زبان بدردبخوری برای کارکردن نیست

چطور مگه؟!!!
در ضمن منظورتون زبان بیسیکه یا کامپایلر بیسکام؟

[maxn@morteza]

فکر کنم بیسکام منظورشون نی میدونم چرا همه میگن به درد نخوره ما که ازش راضی هستیم به هر حال هر کسی نظری داره

[ha_60]

کلا بیسیک
بسکام هم چیز به دردبخوری نیست

[ilgar]

ولی تا حالا به درد خیلیا خورده
من اعتقاد دارم خارجیا(نه چینیا) چیزایی که به درد نموخورن نمیسازنش!


بستگی داره درد چی باشه!!!
فکر میکنم از اون دردایی که شما مد نظرتون هست تو ایران کمتر پیدا میشه. دکترش هم کمه

[maxn@morteza]

حالا آقای هادی شما با c و زبانهای پیشرفته کار میکنی چرا اینقدر پزشو میدی خوب هر چیزی کاربردی داره مثلا اگه من ابتدای بتونم با همون بیسیک برنامه بنویسم شاهکار کردم و ... اونوقت باید بگیم چون arm هست avr وpic هیچن و چون اینا هستن 80c51 اصلا به درد نمیخوره و 80z که هیچی .. ولی من کلی پروژه تولیدی ددیدم که با 8051 کار شده و خیلی هم به درد میخوره هر چیزی کاربردی داره .

[ha_60]

ببین بیسیک برای افراد مبتدیه برای اون ها هم خوبه برای شروع هم بد نیست
من برای خودتون می گم برای من فرقی نمی کنه
۸۰۵۱ خوب بود ولی الان قیمتش توجیه نداره
arm یکم گرونه و داکیومنت هم براش زیاد نیست
z80 که هیجی اصلا به درد نمی خوده
avr وpic هنوز هم قابل استفادن به خاطر قیمت و سادگی کار باهاشون

[maxn@morteza]

چشم آقای هادی از این به بعد میریم دنبال c یاد گرفتن یکم پیشرفته شیم