سلام
من mmc رو با mega32 و کتابخونه ی avr-dos راه اندازی کردم و خیلی هم خوب جواب گرفتم
از دوستان هم عذر خواهی میکنم و میخوام که پستی که اشتباه زدم رو حذف کنند به جای کلیک روی پاسخ جدید روی موضوع جدید کلیک کردم
باتشکر.
فایل های مورد نیاز و pcb :
ممنون دیگه داشتم از این روش نا امید می شدم تست می کنم
سلام
در مورد ارتباط AVR و MMC کامپایلر بسکام همش برای (config_mmc.bas) ارور میده. آیا کتابخانه ای باسد اضافه کنیم .
باتشکر
نیازی نیست شما config_mmc رو کامپایل کنید شما فقط config_mmc و config_avr-dos رو کنار فایل main کپی می کنید و فایل main رو کامپایل می کنید اون موقع اگه error داد متن error رو بنویسید تا بررسی کنم.
سلام
من config_mmc کامپایل نمی کنم
error 43 برای $include "Config_MMC.bas" و error 46 برای Gbdriveerror = Driveinit() شمااگر زحمتی نیست برنامه را کامپایل کنید
$regfile = "m32def.dat"
$crystal = 8000000
$swstack = 64
$hwstack = 128
$framesize = 128
Config Portc = Output : Portc = 0
Config Pind.1 = Input : Portd.1 = 1
Rec_key Alias Pind.1
Config Porta.1 = Output : Porta.1 = 0
Led_rec Alias Porta.1
Config Porta.2 = Output : Porta.2 = 0
Led_play Alias Porta.2
Config Int0 = Falling
On Int0 Request
Enable Interrupts
Enable Int0
'****************************************************************
Waitms 1
$include "Config_MMC.bas"
$external _mmc
Gbdriveerror = Driveinit()
If Gbdriveerror <> 0 Then
Led_rec = 1 : Wait 1 : Led_rec = 0
Else
Led_play = 1 : Wait 1 : Led_play = 0
End If
Gbdriveerror = Drivecheck()
'****************************************************************
Config Adc = Single , Prescaler = 32 , Reference = Avcc
'****************************************************************
Declare Sub No_key
Dim Abuprint Er(512) As Byte
Dim Wsrampointer As Word
Dim Lsectornumber As Long
Dim Cop_lsec As Integer
Lsectornumber = 100
Dim I As Integer
For I = 1 To 512
Abuprint Er(i) = 0
Next
I = 1
'************************************WRITING PROCEDURE*************
Do
If Rec_key = 0 Then
Call No_key
Led_rec = 1
Start Adc
Goto Main
End If
Loop
Main:
Wsrampointer = Varptr(abuprint Er(1))
Do
For I = 1 To 512
Abuprint Er(i) = Getadc(0)
Abuffer(i) = Abuffer(i) - 498
Next
Gbdriveerror = Drivewritesector(wsrampointer , Lsectornumber)
Lsectornumber = Lsectornumber + 1
I = 1
Loop
Request:
Stop Adc
Cop_lsec = Lsectornumber
Led_rec = 0
Lsectornumber = Lsectornumber - 1
'********************************READING PROCEDURE*****************
From_one:
Do
If Rec_key = 0 Then
Call No_key
Goto Start_play
End If
Loop
Start_play:
Led_play = 1 : Led_rec = 0
Lsectornumber = 100
Wsrampointer = Varptr(abuprint Er(1))
Gbdriveerror = Drivereadsector(wsrampointer , Lsectornumber)
Do
I = 1
For I = 1 To 512
Portc = Abuffer(i)
Waitus 117
Next
Lsectornumber = Lsectornumber + 1
Gbdriveerror = Drivereadsector(wsrampointer , Lsectornumber)
Loop Until Cop_lsec = Lsectornumber
'*************************************
Portc = 0
Led_play = 1 : Led_rec = 1
Goto From_one
Return
End
'*************************************
Sub No_key
Do
Loop Until Pind.1 = 1
Waitms 5
End Sub
(۰۱-مهر-۱۳۸۹, ۱۶:۰۹:۵۶)mohammad qc نوشته است: [ -> ]سلام
من config_mmc کامپایل نمی کنم
error 43 برای $include "Config_MMC.bas" و error 46 برای Gbdriveerror = Driveinit() شمااگر زحمتی نیست برنامه را کامپایل کنید
درود.
ارور اولی مربوط میشه به پیدا نشدن فایل.
نقل قول: نیازی نیست شما config_mmc رو کامپایل کنید شما فقط config_mmc و config_avr-dos رو کنار فایل main کپی می کنید و فایل main رو کامپایل می کنید
با این کار احتمالا ارور دوم هم برطرف میشه.
سلام
با عرض معذرت من متوجه نشدم کدام فایل پیدا نمیشه آیا باید در کتابخانه اضافه شود اگر امکان دارد بیشتر توضیح دهید . در ضمن در مورد کپی کردن config_mmc و config_avr-dos برای بسکام شناخته شده نیست .
باتشکر
(۰۱-مهر-۱۳۸۹, ۱۷:۴۰:۵۲)mohammad qc نوشته است: [ -> ]سلام
با عرض معذرت من متوجه نشدم کدام فایل پیدا نمیشه آیا باید در کتابخانه اضافه شود اگر امکان دارد بیشتر توضیح دهید . در ضمن در مورد کپی کردن config_mmc و config_avr-dos برای بسکام شناخته شده نیست .
باتشکر
این دو تا فایل رو جایی که پروژه ی خودتون رو save کردید کپی و پیست کنید:
config_avr-dos.bas و config_mmc.bas
احیانا اگه بازم اورور داد به جایی که بیسکام رو نصب کردید برید، بعد توی فولدر lib دنبال فایل AVR-DOS.LBX بگردید، اگه نبود فایلی رو که توی لینک زیر هست رو کپی کنید.(فضای آپلودم توی ایرانویج تموم شده، ببخشید)
لینک دانلود
موفق باشید.
(۰۱-مهر-۱۳۸۹, ۱۴:۴۶:۵۵)فروم باز نوشته است: [ -> ]نیازی نیست شما config_mmc رو کامپایل کنید شما فقط config_mmc و config_avr-dos رو کنار فایل main کپی می کنید و فایل main رو کامپایل می کنید اون موقع اگه error داد متن error رو بنویسید تا بررسی کنم.
(۰۱-مهر-۱۳۸۹, ۱۸:۵۲:۳۶)salehjg نوشته است: [ -> ] (۰۱-مهر-۱۳۸۹, ۱۷:۴۰:۵۲)mohammad qc نوشته است: [ -> ]سلام
با عرض معذرت من متوجه نشدم کدام فایل پیدا نمیشه آیا باید در کتابخانه اضافه شود اگر امکان دارد بیشتر توضیح دهید . در ضمن در مورد کپی کردن config_mmc و config_avr-dos برای بسکام شناخته شده نیست .
باتشکر
این دو تا فایل رو جایی که پروژه ی خودتون رو save کردید کپی و پیست کنید:
config_avr-dos.bas و config_mmc.bas
احیانا اگه بازم اورور داد به جایی که بیسکام رو نصب کردید برید، بعد توی فولدر lib دنبال فایل AVR-DOS.LBX بگردید، اگه نبود فایلی رو که توی لینک زیر هست رو کپی کنید.(فضای آپلودم توی ایرانویج تموم شده، ببخشید)
لینک دانلود
موفق باشید.
تشکر از جوابتون
ولی باز جواب نداد یعنی فایل AVR-DOS.LBX درون LIB هست
در ضمن config_avr-dos.bas و config_mmc.bas راکپی میکنم ولی بسکام این دو را ارور میگیرد . قبل از کپی برنامه "include "Config_MMC.bas$ را ارور میگیرد .
نمودونم باید چه کار کنم لطفا راهنمایی کنید.درضمن برنامه راهم گذاشته ام .
(۰۱-مهر-۱۳۸۹, ۱۹:۵۲:۲۷)mohammad qc نوشته است: [ -> ]تشکر از جوابتون
ولی باز جواب نداد یعنی فایل AVR-DOS.LBX درون LIB هست
در ضمن config_avr-dos.bas و config_mmc.bas راکپی میکنم ولی بسکام این دو را ارور میگیرد . قبل از کپی برنامه "include "Config_MMC.bas$ را ارور میگیرد .
نمودونم باید چه کار کنم لطفا راهنمایی کنید.درضمن برنامه راهم گذاشته ام .
سلام
برنامه رو نیگاه کردم ولی اشکال های دیگه ای داره(البته با توجه به متن کد که پست دادین)
(یه سوال: ABU چیه؟ توی بسکام تعریف نشده هست.)
Abu printer باید به هم چسبیده نوشته شوند،(اگر ABU چیز خاصی نباشد و جزء اسم آرایه باشه)
مثلا آرایه Abuffer تعریف نشده هست.
یا
..
فکر کنم شما فایل دیگه ای رو include کردید که اینا تعریف شدن.
اگه در موردشون توضیح بدین، شاید با کمک دوستان مشکلتون حل بشه.
موفق باشید.
