اطلاعیه

**ocsillator** · 2008-11-03T15:47:49

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

میشه دوباره توضیح بدید ؟ :angry:

**chia** · 2008-11-03T17:10:07

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

به به

سلام fam عزیز

میبینم که حسابی رفتی تو کار فت

خسته نباشی ادامه بده :job:

**FAM** · 2008-11-03T20:34:23

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

سلام
آقا طی برسی های بنده و پی گیریهام بلاخره تونستم فت توی
مگا32 راه بیاندازم ولی از هر 10 بار 1 بارش جواب میده چرا؟؟؟

**khast khodaiebehnam** · 2008-11-04T23:53:05

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

مطمین باش یه جای سخت افزارت مشکل داره mmc رو چک کن
از نظر من
من قبلا این بلا سرم اومده تو راه اندازیه mmc
یه جا احتمالن ولتاژ داره بالا میره بیش لز حد تو mmc :mrgreen: :biggrin: :mrgreen: :biggrin: :mrgreen: :biggrin:

**FAM** · 2008-11-05T15:39:34

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

سلام
خدا شکر جواب داد :wow: :wow: :wow: :wow: :wow: :wow: :wow:
فت رو روی مگا 32 میگم که کار کرد حالا بر عکس شده یعنی
از هر 10 بار که کار میکنه 1 بار کار نمیکنه :surprised: :surprised:

و حالا مشکل :
من به جای استفاده ی SPI به صورت سخت افزاری آن را به
صورت نرم افزاری Config کردم و کار کرد :applause: :applause:
و اشتباه دوم :
این بود که من از Initfilesystem استفاده نکردم :sad:
فعلا که نتونستم با Wav کار کنم ولی به محض این که باهاش
ارتباط بر قرار کردم بعد با BMP سیاه سفید و رنگی و..........
موفق باشید

**khast khodaiebehnam** · 2008-11-06T02:32:23

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

ای ول به fam
ما رو هم بی نصیب نذار
سورس رو لطف میکنین اپ کنین؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟///

**FAM** · 2008-11-07T19:30:20

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

سلام
من تونستم ویو رو پخش کنم اما بریده بریده :cry2: :cry2: :cry2: :cry2:
دیگه کلافه شدم
کسی راه حلی داره ؟؟؟؟
باتوجه به این که هیچ متغیری نمیتونم تعریف کنم!!!
سورسم به چشم پ میکنم یخورده سرم خلوت شه پ میکنم
اینم برنامه
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1

'$baud = 115200
Deflcdchar 0 , 24 , 32 , 32 , 32 , 32 , 32 , 32 , 32 ' replace ? with number (0-7)
'Enable Oc2
'Enable Oc0
'Enable Oc1a
Time$ = "20

00"
Date$ = "87/08/16"
'Print Time$
'Print Date$

Cursor Off

Locate 1 , 1
Lcd "Init Include" ; Chr(0)
Wait 2
'Wait 1
$include "AVR-DOS.BAS"
Locate 2 , 1
Lcd "AVR-Dos OK"
'Wait 1
$include "MMC.bas"
Locate 1 , 1
Lcd "Config MMC OK"
'Wait 1
'Print "include mmc"
Ff = Drivereset()
Ff = Driveinit()
'Print Ff
'Ff = 10
$external Waitms
Locate 1 , 1
Lcd Gbdriveerror
If Gbdriveerror <> 0 Then
'Print "Error Config"
Locate 2 , 1
Lcd Gbdriveerror
End
End If
'Print "Config OK"
B = Initfilesystem(1) 'init file system
If B <> 0 Then : Waitms 1 : ' Lcdat 15 , 1 , "Error MMC" , Black , White
Else
Locate 1 , 1
Lcd "Init"
End If

Open "Avalin.wav" For Binary As #10 'apri il file mp3 e play song
While Eof(#10) = 0
Get #10 , Mmc_data(1) , , 512 'preleva 512 byte
For I = 1 To 512 '512
Pwm1a = Mmc_data(curbyte)

Waitus 30

Incr Curbyte
Next I
'first 32
Curbyte = 1
Wend
Cls
Locate 1 , 1
Lcd Eof(#10)
Locate 2 , 1
Lcd "end"

**m_b_mofidi** · 2008-11-07T20:57:36

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

سلام برید اینجا:
http://www.edaboard.com/viewtopic.php?t=327657&highlight=
من یک فایل گذاشتم برا ارتباط با ُSD cart و با Mega64 کار کرده.فقط با C نوشتم تو کدویژن.
واسه نمایش فایل Bitmap هم اینجا بری:
http://www.edaboard.com/viewtopic.php?t=329363&highlight=
یک فایلbitmap رو که 16 بیتی است لود می کنیم بعدش نشون میدیم.اینم تو بورلند سی نوشتم.

**khast khodaiebehnam** · 2008-11-08T00:02:57

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

فکر کنم مشکلت اینجاس
Pwm1a = Mmc_data(curbyte)

Waitus 30

Incr Curbyte
Next I
چون تو mmc سرعت خیلی پایینه باید خاندن از mmc و پخشت با هم باشه ببین------------------------

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

$regfile = "m8def.dat"
'$prog &HFF , &H7F , &HD9 , &H00 ' generated. Take care that the chip supports all fuse bytes.$regfile = "M8def.dat"
$crystal = 16000000
'$PROG &HFF,&HFF,&HD9,&H00' generated. Take care that the chip supports all fuse bytes. ' generated. Take care that the chip supports all fuse bytes.000000
$baud = 9600
'$PROG &HFF,&HFF,&HD9,&H00' generated. Take care that the chip supports all fuse bytes.
'-------------------------- MMC Pin Configuration ------------------------------
' Change this pin configuration if it is necessary in your project.
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 Portc.5 = Output
Led Alias Portc.5
'---------------------------- MMC Var. Define ----------------------------------
' MMC function declarations and variables.
' DONT TOUCH THIS PART!!!

Config Pind.2 = Input
Config Pind.3 = Input

Declare Sub Mmc_init
Declare Sub Mmc_status

Dim Mmc_buffer(512) As Byte
Dim Sector_pointer As Word
Dim Free_counter As Word
Dim Sector_number As Long
Dim Addr As Long
Dim Mmc_dat As Byte
Dim Mmc_resp As Byte
Dim Mmc_resp2 As Word
Dim Y As Byte
Dim Shomare1 As Eram Long
Dim Shomare2 As Eram Long
Dim Shomare22n As Long
Dim I As Word
Dim V As Byte
Dim Safe As Eram Byte
Dim T As Byte
Dim S As String * 70
Dim D As String * 70
Dim Dd As String * 1
Dim Ss As String * 1
Dim Idx As Byte
Dim My_counter As Integer
Dim In_char As String * 1

Dim A As Byte
Const Msbl = 0 : Const Msbh = 1
Const Spidelay = 5

'-----------------------adc and timer------------------------------------------
Enable Interrupts
Config Adc = Single , Prescaler = 16 , Reference = Internal

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1
Wait 1

Mmc_init

'----------------------- Your Functions Declarations ---------------------------
' Write Your Functions Declarations Here:

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

'-------------------------------- M A I N --------------------------------------
If Mmc_resp2 <> 0 Then
For A = 1 To 5
Toggle Led
Wait 1
Next A
End If

T = Safe
Waitms 4
If T < 50 Then
Safe = 50
Waitms 4
End If

Incr T
Safe = T
Waitms 4
Print T

'If T > 11 Then Goto Laince

Shomare22n = Shomare1
Waitms 4
If Shomare22n < 50 Then
Shomare22n = 1100 '\/\/\/\/\/\/\/\/\/\/\
Shomare1 = Shomare22n
Print "shomare 1 has been chenged"
End If

Shomare22n = Shomare2
Waitms 4
If Shomare22n < 50 Then
Shomare22n = 1100 '/\/\/\/\/\/\/\/\/\/\/
Shomare2 = Shomare22n
Print "shomare 2 has been chenged"
End If
Sector_number = Shomare2
Waitms 4
Ss:
If Sector_number > 941000 Then
For A = 1 To 5
Toggle Led
Wait 1
Next A
Goto Laince
End If
A = 0
T = 0
Reset Led
Do
If Pind.2 = 0 Then Goto Recstar
If Pind.3 = 0 Then Goto Readstar
Incr A

If A > 253 Then
Incr T
If T > 200 Then
A = 0
T = 0
Toggle Led
End If
End If
Loop

Restart:

If Pind.2 = 0 And Pind.3 = 0 Then
Waitms 620
Toggle Led
Shomare2 = 1100
Waitms 4
Shomare1 = 1100
Waitms 4
Print "restarting in procses"
Waitms 550
Toggle Led
End If
Waitms 600
Toggle Led
Return

'--------------------------------- E N D ---------------------------------------

'------------------------------- Functions -------------------------------------
'-------------------------------------------------------------------------------
' Write your functions here :

'-------------------------------------------------------------------------------
'---------------------------- Initializing MMC ---------------------------------
Sub Mmc_init

Print "--Start Initializing MMC ..."
'Set Portb.1
Set Cs
Mmc_dat = &HFF
For Free_counter = 1 To 10
Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Next Free_counter
Mmc_resp = 255

Print "--Command No.=0"
Reset Cs
'40 dar asl argooman ast
'yani bite aval 0(start)bit 2vom(1){safhey 473 va 474 ketab}va 6 bit cmd ast}
Cmd0:
Mmc_dat = &H40 : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay '8 bite avval
Addr = 0 : Shiftout Mosi , Clk , Addr , Msbl , 32 , Spidelay '32 bit argooman
Mmc_dat = &H95 : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay 'crc(tashkise khata)
While Mmc_resp <> &H01 'mitoni inja beshmari bebini chand ta klock mizaneh
Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay
Wend
Print "--Command Response :" ; Hex(mmc_resp)

Set Cs
Waitms 50

Print "--Command No.=1"
Reset Cs
Mmc_dat = &HFF
Cmd1:
While Mmc_resp <> &H00
Set Cs
Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay

Reset Cs
Mmc_dat = &H41 : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Addr = 0 : Shiftout Mosi , Clk , Addr , Msbl , 32 , Spidelay
Mmc_dat = &HFF : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay
Wend
Mmc_dat = &HFF
Set Cs

Print "--Command Response :" ; Hex(mmc_resp)
Print ""
Mmc_status '***************************chek for status
Print "--Initialize Complete."

End Sub
'-------------------------- MMC Initializing END -------------------------------

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

'---------------------------- Read MMC Status ----------------------------------
Sub Mmc_status

Cmd13:
Set Cs
Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay

Reset Cs
Mmc_dat = &H4D : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay 'mmc dat=4d yani 4 ro bi khial d=13
'ya dakhele dastore cmd 1=mishe 41 va to cmd 0 mishe 40(yooohooo)
Addr = 0 : Shiftout Mosi , Clk , Addr , Msbl , 32 , Spidelay
Mmc_dat = &HFF : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Shiftin Miso , Clk , Mmc_resp2 , Msbl , 8 , Spidelay
Print "" : Print "--Status :" ; Hex(mmc_resp2)
Set Cs

End Sub

'------------------------------- Functions -------------------------------------
'-------------------------------------------------------------------------------
'******************************playing******* **********************************
'------------------------------- Functions -------------------------------------
'-------------------------------------------------------------------------------
Readstar:
Gosub Restart
Set Led
Print "playing......"
Sector_number = Shomare1
Shomare22n = Shomare2
Waitms 4
Waitms 4
Print Sector_number
'Shomare22 = Shomare2
'Waitms 4
Wait 1
Enable Oc1a
Do

Addr = Sector_number * 512
Set Cs
Mmc_dat = &HFF
Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay

Cmd170:
Reset Cs
Mmc_dat = &H51 : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Shiftout Mosi , Clk , Addr , Msbl , 32 , Spidelay
Mmc_dat = &HFF : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay

Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay

While Mmc_resp <> 0
Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay
Wend
While Mmc_resp <> &HFE

Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay
Wend

For Sector_pointer = 1 To 512

Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay
Mmc_buffer(sector_pointer) = Mmc_resp
Pwm1a = Mmc_resp
Waitus 35 '\/\/\/\/\delay for play
Next Sector_pointer

Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay
Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay

Set Cs

Incr Sector_number
If Sector_number = Shomare22n Then Exit Do
Loop Until Pind.3 = 0
Disable Oc1a
Print "finishing........."
Wait 1
Reset Led
Goto Ss

'------------------------------- end Functions --------------------------------
'-------------------------------------------------------------------------------

'------------------------------- Functions -------------------------------------
'-------------------------------------------------------------------------------

'*********************************recording** ***********************************

'------------------------------- Functions -------------------------------------
'-------------------------------------------------------------------------------
Recstar:

Gosub Restart
Set Led
Sector_number = Shomare2
Waitms 4
Print Sector_number
Shomare1 = Sector_number
Waitms 4
Print "shomare1 and sector number"
Print Sector_number
Pwm1a = 0
Disable Oc1a

Start Adc
Wait 1

Do
Addr = Sector_number * 512
Set Cs
Mmc_dat = &HFF : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay

Cmd24:
Reset Cs
Mmc_dat = &H58 : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Shiftout Mosi , Clk , Addr , Msbl , 32 , Spidelay
Mmc_dat = &HFF : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay

Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay
While Mmc_resp <> 0
Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay
Wend
Mmc_dat = &HFE : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
For Sector_pointer = 1 To 512
Mmc_buffer(sector_pointer) = Getadc(0)
Mmc_dat = Mmc_buffer(sector_pointer)
Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Next Sector_pointer
Mmc_dat = &HFF : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Mmc_dat = &HFF : Shiftout Mosi , Clk , Mmc_dat , Msbl , 8 , Spidelay
Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay
Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay
While Mmc_resp = 0
Shiftin Miso , Clk , Mmc_resp , Msbl , 8 , Spidelay
Wend
Set Cs
Incr Sector_number
If Sector_number > 941000 Then Exit Do
Loop Until Pind.2 = 0

Stop Adc
Shomare2 = Sector_number
Waitms 5
Print "shomare2"
Print Sector_number

Wait 1
Reset Led
Goto Ss

'------------------------------- end Functions --------------------------------
'-------------------------------------------------------------------------------

'------------------------------- end Functions --------------------------------
'-------------------------------------------------------------------------------

Laince:
Do

Loop

**FAM** · 2008-11-08T22:51:25

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

سلام
آقا من تونستم عکس بی ام پی 8 بیت(256رنگ) رو روی این ال سی دی های رنگی نمایش بدم
ولی برای نمایش با کریستال 14 زمانی حدود دو دقیقه طول میکشید اما من این زمانو به 2 ثانیه
تبدال کردم :eek: :eek:
چه جوری:
البته روش من زیاد اصولی نبود
از کریستال 14745500 استفاده کردم و به جای اینکه ازداخا برنامه کریستالو 14745600 تعریف کنم
8000000 تعریف کردم.
برنامه رو تا آخر این ماه پ میکنم چون باید براش 256 رنگ بنویسم و256 کیس تا حالا 128 تاشو نوشتم.
خدا رو شکر که جواب داد
موفق باشید

**rezam123** · 2008-11-09T12:38:23

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

نوشته اصلی توسط m_b_mofidi

سلام برید اینجا:
http://www.edaboard.com/viewtopic.php?t=327657&highlight=
من یک فایل گذاشتم برا ارتباط با ُSD cart و با Mega64 کار کرده.فقط با C نوشتم تو کدویژن.
واسه نمایش فایل Bitmap هم اینجا بری:
http://www.edaboard.com/viewtopic.php?t=329363&highlight=
یک فایلbitmap رو که 16 بیتی است لود می کنیم بعدش نشون میدیم.اینم تو بورلند سی نوشتم.

سلام
با تشکر از تمامی دست اندرکاران این پروژه باید عرض کنم
اول اینکه کار بزرگی انجام شده (پورت کردن FatFs روی AVR با CodeVision)
ولی این کتابخانه با وجود اینکه یکی از بهترین کتابخانه های سورس باز در زمینه فایلینگ می باشد نقطه ضعف ها و ایراداتی دارد که امیدوارم به زودی حل شوند.
سایت رسمی FatFs :
http://elm-chan.org/fsw/ff/00index_e.html
با تشکر موفق باشید.

**m_b_mofidi** · 2008-11-09T12:46:33

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

من فایل مربوط به FAT رو از سایت http://www.khazama.com گرفتم که اونم از همین سایت http://elm-chan.org/fsw/ff/00index_e.html برداشته که تبدیل به codevision کرده.ولی وقتی استفده کردم از فایل سایت khazama دیدم فقط وقتی ا¾روگرام میکنی یه بار کار میکنه که من تصحیحش کردم واسه خود.شد این که گذاشتم اینجا.

**FAM** · 2008-11-09T19:18:09

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

سلام
کسی میتونه منو در مورد تشخیص این رنگا کمک کنه؟؟

**khast khodaiebehnam** · 2008-11-11T09:13:50

پاسخ : پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

fam جا
کاش سورس و مرجع بزاری

اطلاعیه

پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

پخش فایل Wav نمایش فایل Bmp از طریق Fat16 با Bascom

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه