برام عجیبه چرا کسی همکاری نمیکنه!؟؟ 
oo: :cry2:
من این برنامه رو براش نوشتم
Locate 1 , 3
Lcd "plaese wait"
Locate 2 , 2
Lcd "loading memory"
Waitms 500
'******************************************** ************************************************** * MMC HARDWARE
Const Cmmc_soft = 0
Config Pinb.4 = Output
Mmc_cs Alias Portb.4
Set Mmc_cs
Config Pinb.4 = Output
Spi_ss Alias Portb.4
Set Spi_ss
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 4 , Noss = 1
Spsr = 1
Spiinit
'******************************************** ************************************************** *
Const Cperrdrivereset = 225
Const Cperrdriveinit = 226
Const Cperrdrivereadcommand = 227
Const Cperrdrivewritecommand = 228
Const Cperrdrivereadresponse = 229
Const Cperrdrivewriteresponse = 230
Const Cperrdrive = 231
Const Cperrdrivenotsupported = 232
Waitms 10
Dim Gbdriveerror As Byte
Dim Gbdriveerrorreg As Byte
Dim Gbdrivestatusreg As Byte
Dim Gbdrivedebug As Byte
$lib "MMC.LIB"
$external _mmc
Gbdriveerror = Drivereset()
Gbdriveerror = Driveinit()
Cls
If Gbdriveerror = 0 Then
Locate 1 , 8
Lcd "ok"
Waitms 500
Else
Locate 1 , 7
Lcd "error"
Waitms 500
Cls
Gbdriveerror = Drivereset()
Gbdriveerror = Driveinit()
jmp er
End If
اینم اروریه که میده:
کسی میتونه بگه مشکل از کجاست؟
یا لااقل یه برنامه که ازش جواب گرفته باشه بزاره
با تشکر