سلام بچه من خیلی وقته سر این مشکل دارم با خودم دعوا میکنم و حل نمیشه .اگه میشه شما کمک کنید.
من یه برنامه از یزد کیت گرفتم که mmc را می خواندو اندازه ،اندازه خالی و پرشو نشون میداد،حالا ما برداشتیم دو خط از برنامه کم کردیم،دیگه کار نکرد نمیدونم چرا؟
اینم برنامه
$regfile = "m32def.dat" : $crystal = 1000000
$baud = 4800
$swstack = 32
$hwstack = 64
$framesize = 64
'*****************************************dim ************************************************
Dim Eror As Byte , Temp1 As Byte
Dim S As String * 60 , Fl As String * 12 , Ff As Byte
'******************************************** *************************************************
*************************************config******* *****************************************
Config Date = Ymd , Separator = /
Config Clock = Soft
Config Lcd = 16 * 2
Config Porta = Output
'***************************************libra ry***********************************************
$include "CONFIG_AVR-DOS.Bas"
$include "config_mmc.bas"
'******************************************** *************************************************
Enable Interrupts
Cls : Cursor Off
Time$ = "12:00:00" : Date$ = "10/04/27"
'******************************************** *************************************************
Print "AVR-DOS Library version : " ; Ver()
'******************************************** *************************************************
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Wait 5
If Drivecheck() <> 0 Then
Set Porta.0
Else
Reset Porta.0
End If
Wait 5
'******************************************** *************************************************
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Wait 5
If Driveinit() <> 0 Then
Set Porta.0
Else
Reset Porta.0
End If
Wait 5
'******************************************** *************************************************
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Wait 5
if Initfilesystem(1) <> 0 Then
Set Porta.0
Else
Reset Porta.0
End If
Wait 5
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Wait 5
End
حالا تو شبیه ساز کار نمیکنه مشکل چیه؟
من یه برنامه از یزد کیت گرفتم که mmc را می خواندو اندازه ،اندازه خالی و پرشو نشون میداد،حالا ما برداشتیم دو خط از برنامه کم کردیم،دیگه کار نکرد نمیدونم چرا؟
اینم برنامه
$regfile = "m32def.dat" : $crystal = 1000000
$baud = 4800
$swstack = 32
$hwstack = 64
$framesize = 64
'*****************************************dim ************************************************
Dim Eror As Byte , Temp1 As Byte
Dim S As String * 60 , Fl As String * 12 , Ff As Byte
'******************************************** *************************************************
*************************************config******* *****************************************
Config Date = Ymd , Separator = /
Config Clock = Soft
Config Lcd = 16 * 2
Config Porta = Output
'***************************************libra ry***********************************************
$include "CONFIG_AVR-DOS.Bas"
$include "config_mmc.bas"
'******************************************** *************************************************
Enable Interrupts
Cls : Cursor Off
Time$ = "12:00:00" : Date$ = "10/04/27"
'******************************************** *************************************************
Print "AVR-DOS Library version : " ; Ver()
'******************************************** *************************************************
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Wait 5
If Drivecheck() <> 0 Then
Set Porta.0
Else
Reset Porta.0
End If
Wait 5
'******************************************** *************************************************
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Wait 5
If Driveinit() <> 0 Then
Set Porta.0
Else
Reset Porta.0
End If
Wait 5
'******************************************** *************************************************
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Wait 5
if Initfilesystem(1) <> 0 Then
Set Porta.0
Else
Reset Porta.0
End If
Wait 5
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500
Set Porta.0
Waitms 500
Reset Porta.0
Wait 5
End
حالا تو شبیه ساز کار نمیکنه مشکل چیه؟
دیدگاه