کمک در موردmmc و فایلfat

[farhadz]

سلام
یه برنامه بیسکام میخوام که بشه avr فایل text که از کامپیوتر save شده رو بخونه واون رو روی lcd نمایش بده

ممنونم ::

[mohsen.hex]

پاسخ : کمک در موردmmc و فایلfat

سلام

$regfile = "M128def.dat " 'IT'S POSSIBLE USE DIFFERENT AVR-CHIPS
$crystal = 1000000 'or any
$baud = 57600

$swstack = 64
$hwstack = 128
$framesize = 128
'-------------------------------------------------------------------------------
Config Clock = Soft
Config Date = Dmy , Separator = .
Enable Interrupts
Time$ = "2000"
Date$ = "16.04.08"
'-------------------------------------------------------------------------------
Config Lcdpin = Pin , Db4 = Pinf.4 , Db5 = Pinf.5 , Db6 = Pinf.6 , Db7 = Pinf.7 , E = Pinf.2 , Rs = Pinf.3
Config Lcd = 16 * 2
'-------------------------------------------------------------------------------
Dim B As Byte
Dim L As Byte
Dim Ff As Byte
Dim S As String * 30
Dim S1 As String * 10
Dim Diskf As Long
Dim Disks As Long
'-------------------------------------------------------------------------------
Cls
Home
Lcd "Initation..."
$include "Config_AVR-DOS.BAS"
$include "Config_MMC.bas" 'include mmc

Ff = Drivereset()
Ff = Driveinit()


$external Waitms

If Gbdriveerror <> 0 Then
Cls
Lcd "Error Config"
Locate 2 , 1
Lcd Gbdriveerror
End
End If

'include avr-dos

B = Initfilesystem(1) 'init file system
If B <> 0 Then Lcd "Error MMC"
'-------------------------------------------------------------------------------
'------------------------ PROGRAM START ------------------------------
'-------------------------------------------------------------------------------
Locate 2 , 1
Lcd "Now reade file"

Diskf = Diskfree()
Disks = Disksize()


Do
Open "text.txt" For Input As #9 'OPEN LA LISTA
While Eof(#9) = 0
Line Input #9 , S 'READ filename Mp3
Waitms 100
Wend
Close #9
Loop
End


End

اون تایم رو که قرمز کردم یه تایم برای انداختن وقفه بین زمان خوندن لاین اول تا دوم یا لاین دوم تا سوم یا لاین ....
هست

[bahramicq]

پاسخ : کمک در موردmmc و فایلfat

If Gbdriveerror <> 0 Then
Cls
Lcd "Error Config"
Locate 2 , 1
Lcd Gbdriveerror
End
End If

'include avr-dos

B = Initfilesystem(1) 'init file system
If B <> 0 Then Lcd "Error MMC

"

محسن جان در مورد این چند خط میشه یه توضیحاتی بدی که چیکار میکنن تاپیک های دیگه رو نگاه کردم در این مورد چیزی نبود

[mohsen.hex]

پاسخ : کمک در موردmmc و فایلfat

سلام بهرام خان
این ارایه(Gbdriveerror) برابر هست با دستور Driveinit که چک میکنه ببینه ایا مموری به میکرو وصل هست یا البته شما خودت اگه هلپ بسکام رو بخونی(Driveinit) کاملا متوجه میشی در ضمن این دستور داخل برنامه "Config_MMC.bas" که با دستور $include "Config_MMC.bas" به این برنامه اضاف شده و شما اگه داخل این برنامه (Config_MMC.bas) که باید همراه این برنامه کامپایل بشه نگاه کنین می بینین
موفق باشین

[bahramicq]

پاسخ : کمک در موردmmc و فایلfat

ممنون از اینکه توضیح دادی من هلپ بیسکام خودمو که نگاه کردم دستور Gbdriveerror توش نبود ( بیسکامم ورژن 1.11.9 ) که خودت زحمتشو کشیدی :applause: یه نکته دیگه فایل همین پروزه روکه چیا تو انجمن گداشته تو پروتئوس من اجرا نمیشه فایل MMC_LIB و MMC.DLL رو تو پوشه کتابخانه و BIN کپی کردم :redface: بازم مشکل داره ورژن پروتئوسم 7.1 SP4

[mohsen.hex]

پاسخ : کمک در موردmmc و فایلfat

سلام من که گفتم Gbdriveerror برابر هست با Driveinit پس داخل هلپ بسکام دنبال Driveinitبگرد
و این فایل که من گذاشتم رو دانلود کن من تست کردم جواب داده حتی کامپایل هم کردم شما فقط فایل پروتوس رو باز کن و پلی کن اگه مشکل داشت مال پروتوست هست که باید ورژن بالا تر شو بگیری
http://rapidshare.com/files/153414269/source_Code.rar.html
موفق باشی

[feshwari]

پاسخ : کمک در موردmmc و فایلfat

سلام.
do
open "text.txt" for input As# 9
این text.txt که اینجا آمده اسم فایلی که در MMC وجود دارد است؟
عدد 9 اینجا چیست؟

Line input #9 , s
این دستور چکار می کند؟
متغییر S در اینجا برای چیست؟
من می خواهم یک فایل باینری رو از MMC بخونم. البته به صورت بایت به بایت بخوانم و رو پورت بگذارم.
چطور این کار رو انجام بدهم؟
با تشکر
محمد شرفی

[feshwari]

پاسخ : کمک در موردmmc و فایلfat

لطفا یکی جواب بدهد