مشکل خواندن متن از mmc

[الماسی]

سلام.
من یه برنامه نوشتم که متنو از مموری میخونه اما تا انتها متن نمیخونه .تو شبیه سازم امتحان کردم درست نمیخونه .
لــــــــــــــــــــطـــــــــــفــــــــــا کــــــــــــــــــــــــمـــــک کنید
*متنی که میخونه متنه خوده برنامست
http://city-upload.com/7naq11qwk0gv/almasi.zip.html

[الماسی]

پاسخ : مشکل خواندن متن از mmc

من به یه چیز جدید رسیدم اونم اینه که اگر فایل ساخته شده f21 را از مموری بخونید تا اخرش قشنگو مرتب میخونه :eek:
به نظرتون مشکل چیه ؟؟؟؟؟؟؟؟ جان هرکی دوست داری جوابمو بدید خیلی عجله دارم

[الماسی]

پاسخ : مشکل خواندن متن از mmc

چرا کسی به من جواب نمیده.اعتصاب کردید؟؟؟؟اخه من چه گناهی دارم؟؟؟؟؟؟؟؟ :cry2: :cry2: :cry2: :cry2: :cry2:

[روح الامین]

پاسخ : مشکل خواندن متن از mmc

سلام
1- برنامه رو به جای پلود همین جا با تگ کد قرار بدید(کم پیش میاد که بچه ها بخوان برنامه رو دانلود کنن بخطر یه سری مسائل که البته طبیعیه)
2- قبل از استفاده از یه ماژول یا پریفرال یا... سعی کنید اول یه توتریال ازش گیر بیارید و با دقت بخونید که چیکار کرده. من مطمئنم با یکم جستجو هم چیزای خوبی نصیبت میشه.

[الماسی]

پاسخ : مشکل خواندن متن از mmc

حــــــــــــــداقل یکی به دادم رسیدکه چکارکنم. :cry:

$regfile = "m32def.DAT" : $crystal = 1000000
$baud = 4800
$swstack = 32
$hwstack = 64
$framesize = 64

'***************************************library***********************************************
$include "CONFIG_AVR-DOS.Bas"
$include "config_mmc.bas"
'*********************************************************************************************
Dim B As String * 250
Print "Setup Port and Reset Card ... " ;
If Drivecheck() <> 0 Then
  Print
  Print "Card drive is not ready to use!"
  End
End If
Print "OK"
'*********************************************************************************************

'*********************************************************************************************
If Driveinit() <> 0 Then
  Print "Card not inserted, check Card!"
  End
End If
Print "drive cheked ... OK"
'*********************************************************************************************

'*********************************************************************************************
Print "Init File System ... " ;
If Initfilesystem(1) <> 0 Then
  Print
  Print "File system is not suported"
End
End If
Print "ok"


Open "f21.txt" For Output As #1
Print #1 , "salam 1  gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam  2 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam  3 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam   4gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam1   gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam 2  gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam 3  gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam  4 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam  5 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam   6gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam1   gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam 2  gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam 3  gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam  4 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam   gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam   gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam   gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam   gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam   gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam   gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam   gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"
Print #1 , "salam   gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku"

Close #1

Open "f1.txt" For Input As #1
Do
Line Input #1 , B
Print B
Loop Until Eof(#1) <> 0
Close #1

End

ولی برنامم مشکلیو فکرنکنم نشون بده.باز اگه تونستید شبیه سازم اجراکنید

[الماسی]

پاسخ : مشکل خواندن متن از mmc

به جان مادرم گناه نمیکنید اگر جواب منو بدید و راهنمایی کنید.
دیگه این اخرین پستم بود دیگه کاری ندارم. هرکی خواست جواب بده هرکی نخواست جواب نده. خودم میرم باهاش ور میرم تا درستش کنم