MMC و ATMEGA8

[FAM]

سلام لطفا کمکم کنید :cry2: :sad:
من بک مدار با مگا8 وMMC درست کردم که از هر چند صدبار که میکرو رو ریست میکنم ازش جواب میگیرم : :angry:
در بقه ی موارد میکرو هنگ میکنه اینو از اونجا میگم که یه LED چشمک زن هم گذاشتم اولش قبل از INIt کردن MMC
کارمیکنه ولی بعدش ثابت میشه از هیچکدوم اینکلود ها هم استفاده نکرده ام حتی config mmc و پیکرو بندی SPI هم SOFT ته
کمک کمک کمک :sad: :cry2: :angry: :cry:

[mohsen.hex]

پاسخ : MMC و ATMEGA8

عجیبه
برنامتو بزار تا بربچ چک کنن

[chia]

پاسخ : MMC و ATMEGA8

سلام

بهتره برنامه رو بذارید :smile:

[FAM]

پاسخ : MMC و ATMEGA8

' tttttttttt aa ggggggggg hhh hhh dddddddd iiiiiii mmmmmm mmmmmm bbbbbb eeeeeee .....
' tttttttttt aaaa gg hhh hhh ddddddddd iiiiiii mmmmmm mmmmmm bb bb ee .....
' ttt aa aa gg gggggg hhh hhh ddd ddd iii mmm mm mm mm bb bb ee .....
' ttt aa aa gg gggggg hhhhhhhhh ddd ddd iii mmm mm mm mm bbbbbbb eeeeeee
' ttt aaaaaaaa gg gg hhh hhh ddd ddd iii mmm mmmmm mm bb bb ee .....
' ttt aa aa ggggggggg hhh hhh ddddddddd iiiiiii mmm mm bb bb ee .....
' ttt aa aa ggggggggg hhh hhh dddddddd iiiiiii mmm mm bbbbbb eeeeeee .....
'


'
' MMMMM MMMMM AAA SSSSSSSSS
' MMMMMM MMMMMM AAA AAA SSSSSSSSS
' MMMMMM MMMMMM AAA AAA SSS
' MMM MM MM MMM AAA AAA SSSSSSSSS
' MMM MM MM MMM AAAAAAAAAAA SSSSSSSSS
' MMM MMM MMM AAAAAAAAAAA SSS
' MMM MMM AAA AAA SSSSSSSSS
' MMM MMM AAA AAA SSSSSSSSS



'******************************************** ***********************************
'* WAV Player *
'* Micro: ATmega 8L *
'* Author: Amir hesam Olfati FAM *
'* Location: IRAN , Qazvin City *
'* Mail: amir_lm35@yahoo.com *
'******************************************** ***********************************
$regfile = "M8def.dat"
$crystal = 14745600
' $baud = 19200
'Constants
'$sim
'Config Kbd = Portd
Const Msbl = 0
Const Msbh = 1
Const Dly = 2
Const Bits8 = 8
Const Bits16 = 16
Const Bits32 = 32
'Dim
Dim Dat As Byte
Dim Resp As Byte
Dim I As Word
Dim Addr As Long
Dim Adres As Long
Dim Tanzim As Byte
Dim A As Byte
'Dim Gbdriveerror As Byte ' General Driver Error register
'Dim Gbdriveerrorreg As Byte ' Driver load Error-Register of HD in case of error
'Dim Gbdrivestatusreg As Byte ' Driver load Status-Register of HD on case of error
'Dim Gbdrivedebug As Byte

'Aliases
Cs Alias Portc.5
Mosi Alias Portc.4
Clk Alias Portc.3
Miso Alias Pinc.2
Led_speed_incr Alias Portd.5
Led_speed_decr Alias Portd.6
Led_adres_incr Alias Portd.7
Led_adres_decr Alias Portb.0
'Declarations
Declare Sub Minit
Declare Sub Mread(byval Addr As Long )
'CCCCCCCCCCCCCCCCCCCCCCCC Configs Port ttttttttttttttttttttttttttttttttttttttt

Config Pinc.5 = Output ' M
Config Pinc.4 = Output ' M
Config Pinc.3 = Output ' C
Config Pinc.2 = Input ' Pin

Config Pind.0 = Input ' 5
Config Pind.1 = Input ' k
Config Pind.2 = Input ' e
Config Pind.3 = Input ' y
Config Pind.4 = Input ' s

Config Pind.5 = Output ' L
Config Pind.6 = Output ' E
Config Pind.7 = Output ' D
Config Pinb.0 = Output ' S

Waitms 300
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 1
'Config Spi = Soft , Din = Pinc.2 , Dout = Portc.4 , Ss = Portc.5 , Clock = Portc.3
$include "Config_MMC.bas"
Spiinit
'Print "Spiinit"
'******************************** MAIN PROGRAM *********************************
Set Led_adres_decr
Set Led_adres_incr
Set Led_speed_decr
Set Led_speed_incr
Waitms 200
Reset Led_speed_incr
Waitms 200
Reset Led_speed_decr
Waitms 200
Reset Led_adres_incr
Waitms 200
Reset Led_adres_decr
Waitms 300
Set Led_adres_decr
Set Led_adres_incr
Set Led_speed_decr
Set Led_speed_incr
Waitms 200
Reset Led_adres_decr
Reset Led_adres_incr
Reset Led_speed_decr
Reset Led_speed_incr
Waitms 200
Set Led_adres_decr
Set Led_adres_incr
Set Led_speed_decr
Set Led_speed_incr
Waitms 200
A = 7
Main:
'Initialize the MMC
Minit
'Print "Minit"
Adres = 1048576
'280576
'Print "Adres = 1048576"
Inja:
'Print "Inja"
Mread Adres
'Print "Mread Adres"
Adres = Adres + 512
'Print Adres
If Pind.0 = 1 Then : Decr A : Reset Led_speed_incr : Waitms 200 : Set Led_speed_incr : End If 'incr speed
If Pind.4 = 1 Then : Incr A : Reset Led_speed_decr : Waitms 200 : Set Led_speed_decr : End If 'decr speed
If Pind.1 = 1 Then : Adres = Adres - 131072 : Reset Led_adres_decr : Waitms 200 : Set Led_adres_decr : End If
If Pind.3 = 1 Then : Adres = Adres + 65536 : Reset Led_adres_incr : Waitms 200 : Set Led_adres_incr : End If
If Pind.2 = 1 Then : Waitms 200 : Do : If Pind.2 = 1 Then Exit Do : Loop : Waitms 200 : End If
Goto Inja
Xloop:
Set Cs
Shiftout Mosi , Clk , Dat , Msbl
Endloop:
Goto Endloop
End 'end program
'***************************** END OF 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 'Play the sound
'Toggle Portd.5
Select Case A :
Case 2 : Waitus 5
Case 3 : Waitus 10
Case 4 : Waitus 15
Case 5 : Waitus 20
Case 6 : Waitus 25
Case 7 : Waitus 30 'middle speed
Case 8 : Waitus 35
Case 9 : Waitus 40
Case 10 : Waitus 45
Case 11 : Waitus 50
Case 12 : Waitus 55
Case 13 : Waitus 60
Case 14 : Waitus 65
Case 15 : Waitus 70

Case 1 : Waitus 1 'for next

Case Else Waitus 30
End Select 'sorat
'If Pind.3 = 0 Then Gosub Chek
'Waitus 30
Next I
Shiftin Miso , Clk , Resp , Msbl
Shiftin Miso , Clk , Resp , Msbl
Set Cs
End Sub
'
البته من این برنامه را برای استفاده ی همه توی Iranled.ir گذاشتم :rolleyes:

[FAM]

پاسخ : MMC و ATMEGA8

یه جواب دیدددددددددددددددددددددددددددددددددددددددددددددددد ددددددددددددددد :twisted: :twisted: :angry: :angry: :angry: :angry: :cry2: :cry2:

[pooyafaroka]

پاسخ : MMC و ATMEGA8

سلام

من یه بار یه پروژه مشابه ای رو داشتم که ال ای دی برای میکرو گذاشته بودم تا صحت کار اونو ببینم . بعد از یک بار کار کردن شروع به چشمک زدن می کرد و من فکر می کردم در حال ری استارت شدن هست . علت مشکل ایجا شده برای من افزایش جریان کشی از منبعی بود که در نظر گرفته بودم . چون وسایل زیادی به میکرو وصل کرده بودم . برای حل این مشکل از از رگولاتور 7805 استفاده کردم و مشکلم حل شد . گفتم شاید این مشکل رو هم بررسی کنی بد نباشه . حداقل از صحت بعضی از قسمت های مدارت مطمین می شی.

پیروز و سربلند باشید.

[pooyafaroka]

پاسخ : MMC و ATMEGA8

راستی یه سر هم به کتاب مرجع میکرو کنترلر های ای وی آر نوشته پرتوی فر بزن . توضیح های خوبی برای راه اندازی mmc داره.

[FAM]

پاسخ : MMC و ATMEGA8

کدوم صفششششششششششششششششششششششششششششششش
مرسی :rolleyes:

[pooyafaroka]

پاسخ : MMC و ATMEGA8

در این کتاب یک فصل مجزا در مورد mmc مطالبی رو گفته . صفحه 470 تا 487.

[FAM]

پاسخ : MMC و ATMEGA8

سلام
برای من تو این صفحه هایی که گفتی پروژه های عملی نه mmc
کتابمم چاپ 85 اونم اولش
توی فهرستشم گشتم پیدا نکردم
حالا چی گفته؟؟؟؟ :rolleyes:

[FAM]

پاسخ : MMC و ATMEGA8

helpppppppppppppppppppppppppppppp :angry: :angry: :angry:

[FAM]

پاسخ : MMC و ATMEGA8

چرا کسی جواب نمیده؟؟؟؟؟؟؟ :cry2: :angry: :twisted:

[jh_topgraph]

پاسخ : MMC و ATMEGA8

سلام

ولتاژ کاری حافظه 2.7 تا 3.6 ولت هست

شما باید برای خطوط دیتا تون از یه تقسیم ولتاژی و برای تغذیه هم از یک رگلاتور ولتاژی 3.3 ولت استفاده کنید.

انتخاب مد spi در حافظه مراحلی داره که شرح کلی اون همونطور که دوستمون فرمودن تو کتاب پرتوی فر هست(صفحه 471)

موفق باشید