با عرض سلام خدمت دوستای گلم
اقا این مموری منو کشت
هرکاری میکنم نمیتونم بهش وصل بشم حداقل 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 میکرو
پول اپ زدم به خروجی هام به رم
دیگه کلا کلافه شدم
خیلی گیجم کرده لطفا کمک کنین
اقا این مموری منو کشت
هرکاری میکنم نمیتونم بهش وصل بشم حداقل 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 میکرو
پول اپ زدم به خروجی هام به رم
دیگه کلا کلافه شدم
خیلی گیجم کرده لطفا کمک کنین
دیدگاه