با سلام
من یک بر نامه نوشتم که چک کنه که SD وصله یا نه ولی هرکاری میکنم این بسکام نمیتونه SD رو بخونه؟؟؟؟؟
پیغام "check Card" میده!!!
اینم برنامه:
[code=vb]$lib "glcdKS108.lib"
$regfile = "m32def.dat"
$crystal = 8000000
Dim X As Long , Xx As Long
Dim Y As Long , Yy As Long
Dim Xxx As Long , Xxxx As Long
Dim Yyy As Long , Yyyy As Long
Dim Eror As Byte , Temp1 As Byte
Dim S As String * 60 , Fl As String * 12 , Ff As Byte
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 6 , Enable = 2
Start Adc
Cls
$include "my6_8.font"
$include "CONFIG_AVR-DOS.Bas"
$include "config_mmc.bas"
Setfont My6_8
Enable Interrupts
Cls
Lcdat 1 , 0 , "AVR-DOS version:" ; Ver()
Wait 2 : Cls
Lcdat 1 , 0 , "Setup Port..."
Cls
If Drivecheck() <> 0 Then
Lcdat 1 , 0 , "Card drive is not"
Wait 2 : Cls
End
End If
Lcdat 1 , 0 , "OK"
Wait 1 : Cls
If Driveinit() <> 0 Then
Lcdat 1 , 0 , "check Card!"
End
End If
Lcdat 1 , 0 , "drive OK"
End[/code]
من با SD 8 گیگ که CLASS 10 هستش استفاده میکنم
توی کدویژن کار میکنه اما توی بسکام نه!!!
مشکل کجاست؟؟؟
من یک بر نامه نوشتم که چک کنه که SD وصله یا نه ولی هرکاری میکنم این بسکام نمیتونه SD رو بخونه؟؟؟؟؟
پیغام "check Card" میده!!!
اینم برنامه:
[code=vb]$lib "glcdKS108.lib"
$regfile = "m32def.dat"
$crystal = 8000000
Dim X As Long , Xx As Long
Dim Y As Long , Yy As Long
Dim Xxx As Long , Xxxx As Long
Dim Yyy As Long , Yyyy As Long
Dim Eror As Byte , Temp1 As Byte
Dim S As String * 60 , Fl As String * 12 , Ff As Byte
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 6 , Enable = 2
Start Adc
Cls
$include "my6_8.font"
$include "CONFIG_AVR-DOS.Bas"
$include "config_mmc.bas"
Setfont My6_8
Enable Interrupts
Cls
Lcdat 1 , 0 , "AVR-DOS version:" ; Ver()
Wait 2 : Cls
Lcdat 1 , 0 , "Setup Port..."
Cls
If Drivecheck() <> 0 Then
Lcdat 1 , 0 , "Card drive is not"
Wait 2 : Cls
End
End If
Lcdat 1 , 0 , "OK"
Wait 1 : Cls
If Driveinit() <> 0 Then
Lcdat 1 , 0 , "check Card!"
End
End If
Lcdat 1 , 0 , "drive OK"
End[/code]
من با SD 8 گیگ که CLASS 10 هستش استفاده میکنم
توی کدویژن کار میکنه اما توی بسکام نه!!!
مشکل کجاست؟؟؟
دیدگاه