اطلاعیه

Collapse
No announcement yet.

mmc و avr

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    mmc و avr

    [move]کمک[/move]
    سلام
    از میکرو mega128 استفاده میکنم.میخوام یه mmc 2gb رو به avr وصل کنم.از bascom و کتابخونه avr-dos استفاده کردم.پین های mmc رو هم به صورت سخت افزاری و به ترتیب:

    1 MMC_CS PORTB.0
    2 MOSI PORTB.2
    3 GND
    4 +3.3V
    5 CLOCK PORTB.1
    6 GND
    7 MISO, PORTB.3

    وصل کردم.کریستال میکرو هم روی 1mhz داخلی قرار داره.ورودی mmc هم 3.3.چند تا برنامه نوشتم که یه فایل روی mmc درست کنه اما هیچکدوم کار نکرد.نمیفهمم مشکل از کجاست.
    به نظر شا مشکل چی میتونه باشه؟اگه مشکلی نیست یه برنامه بزارید که بتونم ارتباط mmc با avr رو تست کنم.از برنامه های انجمن هم استفاده کردم ولی جواب نداد. :agree:
    [img width=119 height=100]http://www.haojieworld.com/image/cooperation.jpg[/img]

    #2
    پاسخ : mmc و avr

    کد:
    $regfile = "M64def.dat "                  'IT'S POSSIBLE USE DIFFERENT AVR-CHIPS
    $crystal = 16000000                     'or any
    $baud = 9600
    $swstack = 64
    $hwstack = 128
    $framesize = 128
    Config Clock = Soft
    Config Date = Dmy , Separator = .
    Enable Interrupts
    Time$ = "20:22:33"
    Date$ = "16.04.08"
    Dim B As Byte
    Dim L As Byte
    Dim Ff As Byte
    Dim S As String * 20
    Dim Diskf As Long
    Dim Disks As Long
    Dim Acc As Long
    Cls
    Print "Initation..."
    $include "Config_AVR-DOS.BAS"
    $include "Config_MMC.bas"                  'include mmc
    
    Ff = Drivereset()
    Ff = Driveinit()
    
    $external Waitms
    
    If Gbdriveerror <> 0 Then
    
    Print "Error Config"
    
    Print Gbdriveerror
    End
    End If
    
    'include avr-dos
    
    B = Initfilesystem(1)                    'init file system
    If B <> 0 Then Print "Error MMC"
    '-------------------------------------------------------------------------------
    '------------------------ PROGRAM START ------------------------------
    '-------------------------------------------------------------------------------
    Do
    Wait 2                           'you can type your calling subroutine and another code
    Gosub A                           'for example
    Loop
    
    End
    
    
    A:
    Print "Now Create file"
    Ff = Freefile()
    Open "omegaadiban.txt" For Binary As #ff
    Acc = Lof(#ff)
    Print "acc:" ; Acc
    Seek #ff , Acc
    Print #ff , ""
    Print #ff , Time$
    Print #ff , "omega adiban"
    Print #ff , Date$
    Close #ff
    Print Time$
    Return
    علم چندانکه بیشتر خوانی چون عمل در تو نیست نادانی

    دیدگاه


      #3
      پاسخ : mmc و avr

      آقای adiban .واقعا ممنونم.شما اینو تست کردید؟الان میرم تست کنم. :wow:
      [img width=119 height=100]http://www.haojieworld.com/image/cooperation.jpg[/img]

      دیدگاه


        #4
        پاسخ : mmc و avr

        معلومه که تست شده.مطمین باش بهش
        علم چندانکه بیشتر خوانی چون عمل در تو نیست نادانی

        دیدگاه


          #5
          پاسخ : mmc و avr

          بازم ممنون.من یه مشکل دیگه هم دارم تو proteus که تست میکنم جواب میده ولی در عمل وقتی mmc رو به pc وصل میکنم هیچی تو mmc ذخیره نشده. :cry:
          به نظر شما دلیلش حجم 2gb نمیتونه باشه؟چون تو بیشتر موارد حجم پایین دیدم.یه چیز دیگه من mmc رو با سیم وصل کردم.بلند بودن سیم ها میتونه دلیل نویز باشه؟ :redface: :job:
          [img width=119 height=100]http://www.haojieworld.com/image/cooperation.jpg[/img]

          دیدگاه


            #6
            پاسخ : mmc و avr

            از چند چیز مطمین شو
            ولتاژ مموری و میکرو هر دو نهایتا 3.5 ولت با(2 تا دیود 4007 می تونی واتاژ رو کم کنی)

            حتما به جز پایه 7 مموری واسه 3 تا پایه دیگه که به میکرو میره مقاومت 100 اهم بزار یا 220 اهم

            مموری رو حتما فرمت fat یا fat16 کن

            یه خازن صافیه خوب بزار

            از lcd استفاده نکن فعلا و تیکه تیکه تو برنامت یه چیزی رو پرینت کن رو پرت سریال تا از صحت انجام برنامه مطمین بشی
            علم چندانکه بیشتر خوانی چون عمل در تو نیست نادانی

            دیدگاه


              #7
              پاسخ : mmc و avr

              من مقاومت به این پایه ها وصل نکردم.چون جایی ندیدم وصل کرده باشن.تو ptoteus هم بدون مقاومت وصل کردم.ولتاژ هم دقیقا 3.3.
              ولی مقاومت وصل میکنم شاید جواب بده. :rolleyes:
              lcd هم وصل نکردم.فعلا همون سریال. :smile:
              مرسی نتیجه رو همین جا میگم.
              [img width=119 height=100]http://www.haojieworld.com/image/cooperation.jpg[/img]

              دیدگاه


                #8
                پاسخ : mmc و avr

                omega زحمتت دادم. :redface:
                چند روز پیش جواب داد. :wow: :nerd: :job:
                [img width=119 height=100]http://www.haojieworld.com/image/cooperation.jpg[/img]

                دیدگاه


                  #9
                  پاسخ : mmc و avr

                  سلام دوست عزیز،
                  یه سر به پروژه ای که من اوی این زمینه کار کردم بزن:
                  http://www.eca.ir/forum2/index.php?topic=33267.msg160540#msg160540
                  یک چند به کودکی به استاد شدیم یک چند ز استادی خود شاد شدیم
                  پایان سخن شنو که ما را چه رسید از خاک در آمدیم و بر باد شدیم

                  In childhood we strove to go to school,
                  Our turn to teach, joyous as a rule
                  The end of the story is sad and cruel From dust we came, and gone with winds cool.

                  دیدگاه

                  لطفا صبر کنید...
                  X