یوارت دوم mega64

[naser134]

راه اندازی یوارت دوم mega64 با اینتراپت
دوستان سلام
من میخوام یوارت دوم mega64 رو با اینتراپتش (urxc1)راه اندازی کنم.
بدون اینتراپت کار میکنه
Config Com2 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Open "COM2:" For Binary As #1
اما نمیدونم چرا در وقفه جواب نمیده
ضمنا من یوارت 1 رو با وقفه جواب میگیرم (urxc)
اگه ممکنه یک sample برام بگذارید.
از کمکتون ممنونم.
ضمنا من با bascom کار میکنم
متشکرم

[aminsaeedi]

پاسخ : یوارت دوم mega64

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

[naser134]

پاسخ : یوارت دوم mega64

بله اینم برنامه:
$regfile = "m64def.dat"
$crystal = 16000000
$baud = 9600

Config Pind.5 = Output
Config Pind.6 = Output
Config Pind.7 = Output
Config Portc = Output
Config Timer0 = Timer , Prescale = 1
Start Timer0
'--------------------------------------------------------------------------------------------------------------------------------------------------

Config Lcd = 20x4
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portd.7 , Rs = Portd.5 ', Rw = Pind.6

'--------------------------------------------------------------------------------------------------------------------------------------------------


Enable Interrupts
'
Enable Urxc

On Urxc Urxc_isr

'--------------------------------------------------------------------------------------------------------------------------------------------------


Cls
Dim Akey(30) As Dword
Dim Ab(30) As Dword
Dim N As Byte
Dim Tim As Word

'--------------------------------------------------------------------------------------------------------------------------------------------------



N = 1


Do
Locate 1 , 1
Lcd "a" ; Akey(5) ; Akey(6) ; Akey(7) ; Akey(8) ; Akey(9) ; Akey(10)
Loop
'--------------------------------------------------------------------------------------------------------------------------------------------------

'-------- ----------------------------
Urxc_isr:
sbis usr,7 ' Wait for character
rjmp urxc_isr ' wait until we can read the byte
N = N + 1
Akey(n) = Udr ' get the byte
Return



End


'--------------------------------------------------------------------------------------------------------------------------------------------------

[mohammad mohandes]

پاسخ : یوارت دوم mega64

ببین اینا رو بنویسی حله

$baud1=9600
enable urxc1
on urxc1 myser
enable interrupts

do

loop
end

myser:
a=udr1


return

ببین دوست عزیز تو این چند خط بالا فقط روش رو بهت یاد دادم که هم از وقفش استفاده کنی و هم اینکه تو وقفه مقدار دریافتی رو بگیری

[naser134]

پاسخ : یوارت دوم mega64

خوب اشکال من دقیقا همینه که با این کار جواب نمیده

[mohammad mohandes]

پاسخ : یوارت دوم mega64

مطمئنی کل خطها رو ببین چون من با این کار بارها و بارها با مگا 64 و 128 جواب گرفتم یه بار دیگه متن منو بخون و به عدد 1 که جلو برخی تنظیمات و رجیستر ها نوشتم دقت کن اگر نشد باز بگو شاید حلش کردیم

[naser134]

پاسخ : یوارت دوم mega64

ok
حل شد عزیز
دستت درد نکنه
فقط اونجایی که وارد اینتراپت میشه نباید اول sbis usr,7 رو بنویسم؟

[mohammad mohandes]

پاسخ : یوارت دوم mega64

چه خوب
نه لازم نیست کلا تو زیر برنامه اینتراپت لازم نیست جز گرفتن مقدار کاره دیگه ایی انجام بدی البته من متوجه دستورت نشدم ولی اگر بگی که چه بیتی رو یک می کنی یعنی اسمشو بگی من می تونم بهت کمک کنم.

[naser134]

پاسخ : یوارت دوم mega64

ممنونم از توجه جناب عالی
کار کنم دوباره حتما سوال پیش میاد میپرسم
فعلا حله
بازم ممنون

[aminsaeedi]

پاسخ : یوارت دوم mega64

آقا ناصر می شه توضیح بدید توی زیربرنامه خط اول و دوم چه کاری انجام می دهند

[naser134]

پاسخ : یوارت دوم mega64

اگر دیتا بود دریافت میکنه
اگر نبود برمیگرده به اول
با اینتراپت اولی هم کار میکنه

[aminsaeedi]

پاسخ : یوارت دوم mega64

من که خیلی متوجه نشدم منظورتون چیه

شما چه طوری با udr کار می کنید من هر مقداری که میدم udr برابر 13 میشه

[mohammad mohandes]

پاسخ : یوارت دوم mega64

من که خیلی متوجه نشدم منظورتون چیه

شما چه طوری با udr کار می کنید من هر مقداری که میدم udr برابر 13 میشه

به خاطر اینه که اگر از کامپیوتر می فرستی اطلاعاتو برای ارسال اطلاعات از کامپیوتر اخرش یه کاراکتر 13 می زنه که همون LF می شه برای اینکه این دیتا رو نگیری اگر از کامپیوتر می فرستی باید دیتا باینری بفرستی و اگر با میکرو دیگه می فرستی به جای print از printbin استفاده کن در این صورت دیگه فقط خود عدد رو می فرسته یا اینکه با میکرو دیگه اینو بنویس

print "s" ;

[aminsaeedi]

پاسخ : یوارت دوم mega64

این طور که شما گفتید یعنی نمیشه بیشتر از یک بایت و یا یک رشته از این طریق دریافت کنیم

[mohammad mohandes]

پاسخ : یوارت دوم mega64

چرا می شه شما باید برنامتو بصورت ارایه ای بنویسی و هر وقت اومدی تو اینتراپت شمارنده ایندکستو اضافه کنی و بعد تو خونه بعدی اطلاعات بعدی رو بنویسی اینطوری می تونی تا ان تا اطلاعات رو بفرستی حرفه ای ترین راه ارتباط سریال بهره برداری از وقفشه و در غیر اینصورت شما باید cpu رو خیلی معطل کنی.