با عرض سلام خدمت دوستای گلم
اقا این مموری منو کشت
هرکاری میکنم نمیتونم بهش وصل بشم حداقل 5-6 تا سورس کد پیدا کردم انواع بستن های نرم افزاری سخت افازری و شماتیک های مختلف ایرانی و خارجی رو تست کردم
اما هرکاری میکنم نمیتونم باهاش ارتباط برقرار کنم!!!!!!!
میکرو اس دی 4 گیگ استفاده میکنم
atmega32
creystal 16
bascom
$regfile = "m32def.dat" ' specify the used micro
$crystal = 16000000 ' used crystal frequency
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 8 'default use 10 for the SW stack
$framesize = 24
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Pinc.6 , Db6 = Pinc.7 , Db5 = Pinc.2 , Db4 = Pinc.3 , E = Pinc.4 , Rs = Pinc.5
Cursor Off
Cls
' TA'RIFE PINHAII KE MMC BE ANHA VASL MISHAVAD
Const Cmmc_soft = 1
Config Pinb.0 = Output
Mmc_cs Alias Portb.0
Set Mmc_cs
Config Pinb.6 = Output
Set Pinb.6
Mmc_portmosi Alias Portb
Bmmc_mosi Alias 3
Config Pinb.5 = Input
Mmc_portmiso Alias Pinb
Bmmc_miso Alias 1
Config Pinb.7 = Output
Set Pinb.7
Mmc_portsck Alias Portb
Bmmc_sck Alias 2
' PAIANE TARIFE PINHAIE MMC
' Errors
Const Cperrdrivereset = 225 ' Error response Byte at Reset command
Const Cperrdriveinit = 226 ' Error response Byte at Init Command
Const Cperrdrivereadcommand = 227 ' Error response Byte at Read Command
Const Cperrdrivewritecommand = 228 ' Error response Byte at Write Command
Const Cperrdrivereadresponse = 229 ' No Data response Byte from MMC at Read
Const Cperrdrivewriteresponse = 230 ' No Data response Byte from MMC at Write
Const Cperrdrive = 231
Const Cperrdrivenotsupported = 232 ' return code for DriveGetIdentity, not supported yet
Waitms 10 ' Wait some time before initialising MMC/SD
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
Dim Wsrampointer As Word
Dim Lsectornumber As Long
Dim Berror As Byte
Dim Abuffer(512) As Byte
$lib "MMC.LIB" ' link driver library
$external _mmc
Wait 1
Gbdriveerror = Driveinit()
Cls ' wait after initializing
Lcd Gbdriveerror
Wait 2
' Init MMC/SD Card
Gbdriveerror = Drivecheck()
Cls ' wait after initializing
Lcd Gbdriveerror
Wait 2
Waitms 100
' BARAIE KHANDAN AZ SECTOR 0 VA COPY KARDANE AN DAR ARRAYE ABUFFER
Wsrampointer = Varptr(abuffer(1))
Lsectornumber = 0
Berror = Drivereadsector(wsrampointer , Lsectornumber)
' BARAIE NEVESHTANE ARRAYE ABUFFER RUIE SECTORE 1
Lsectornumber = 1
Berror = Drivewritesector(wsrampointer , Lsectornumber)
End
این یک نمونه کد بود
وقتی اجرا میکنم خطا میده!!
Const Cperrdrivereset = 225 ' Error response Byte at Reset command
تو قسمت Gbdriveerror = Driveinit()
سیم هام کوتاه هستن خازن زدم 104 و 100 میکرو
پول اپ زدم به خروجی هام به رم
دیگه کلا کلافه شدم
خیلی گیجم کرده لطفا کمک کنین