با سلام خدمت دوستان.
یه برنامه ساده برای تست MMC نوشتم ولی هر کاری کردم عمل نکرد از دوستان آشنا به این قطعه خواهش می کنم کمک کنن.در زیر نحوه اتصال MMc به میکرو و همچنین یه عکس از خود MMC گذاشتم. راستی من پایه 1 رو سیم زرد رنگ در نظر می گیرم البته اگر اشتباه نکرده باشم و تو شماتیک به جای مقاومت های 2.4 کیلو 2.7 کیلو می زارم.

شماتیک

نحوه اتصال سیم به پایه های MMC
اینم برنامه :
دوستان برنامه قشنگ کامپایل میشه و کتابخانه ها رو در مسیر ذخیره فایل گذاشتم همچنین دیتا قشنگ رو LCDk نمایش داده میشه و فقط می نویسه mmc test shod وظاهرا اصلا MMC چک نمیشه.
با تشکر.
یه برنامه ساده برای تست MMC نوشتم ولی هر کاری کردم عمل نکرد از دوستان آشنا به این قطعه خواهش می کنم کمک کنن.در زیر نحوه اتصال MMc به میکرو و همچنین یه عکس از خود MMC گذاشتم. راستی من پایه 1 رو سیم زرد رنگ در نظر می گیرم البته اگر اشتباه نکرده باشم و تو شماتیک به جای مقاومت های 2.4 کیلو 2.7 کیلو می زارم.

شماتیک

نحوه اتصال سیم به پایه های MMC
اینم برنامه :
کد:
$regfile = "m32def.dat"
$crystal = 8000000
$swstack = 32
$hwstack = 64
$framesize = 64
'---------------------------
Enable Interrupts
'---------------------------
Config Date = Ymd , Separator = /
Config Clock = Soft
'----------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
'----------------------------
Dim Check As Byte , Wr As Byte
'----------------------------
$include "CONFIG_AVR-DOS.Bas"
$include "config_mmc.bas"
'-----------------------------
Time$ = "12:00:00" : Date$ = "11/08/12"
'------------------------------
Test:
Check = Drivecheck()
If Check = 0 Then
Cls
Lcd "mmc test shod."
Wait 1
Goto Main
Elseif Check <> 0 Then
Cls
Lcd "mmc kharab ast."
Wait 1
Goto Test
End If
Main:
Wr = Driveinit()
If Wr = 0 Then
Cls
Lcd "mmc OK"
Elseif Wr <> 0 Then
Cls
Lcd "mmc error"
End If
End 'end program
با تشکر.







دیدگاه