یه برنامه ساده اما مشکل دار

[question]

سلام این برنامه یه مقدار از برنامه منه
اما led چشمک نمیزنه و زمانی که دستور baud=19200 را بردارم کار میکنه چرا؟ :surprised:

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 19200

Led Alias Portd.6
Config Pind.6 = Output

On Urxc Onrxd
Enable Urxc
Enable Interrupts

Do
Waitms 200
Toggle Led
Loop


Onrxd:
Return

من از یه میکرو دیگه هر یک ثانیه با همون نرخ تبادل به این میکرو از طریق دستور print کد میدم اما بازم کار نمیکنه
کسی میدونه چرا.

[Dr.j]

پاسخ : یه برنامه ساده اما مشکل دار

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

[masih_enter]

پاسخ : یه برنامه ساده اما مشکل دار

سلام این برنامه یه مقدار از برنامه منه
اما led چشمک نمیزنه و زمانی که دستور baud=19200 را بردارم کار میکنه چرا؟ :surprised:

اگه مشکل baud باشه یه سر به این جا بزن
http://www.eca.ir/forum2/index.php?topic=15936.0

[question]

پاسخ : یه برنامه ساده اما مشکل دار

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

تو برنامه اصلی ابن دستور هست و در این هم گذاشتم اما ... نمیدونم باید چه کار کنم یکی از عزیزان بیاد و این مدار رو بسازه و مشکل ما رو حل کنه

[khast khodaiebehnam]

پاسخ : یه برنامه ساده اما مشکل دار

کریستال خارجی باید بزارین

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


$regfile="m8def.dat"
$crystal=8000000
$baud=9600
do
print"omid"
waitms 300
loop

[question]

پاسخ : یه برنامه ساده اما مشکل دار

کریستال خارجی باید بزارین

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

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

اینم برنامه اون یکی میکرو
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 19200

Dim A As Byte

Do
Print A
Wait 1
Loop

End

[khast khodaiebehnam]

پاسخ : یه برنامه ساده اما مشکل دار


اینم برنامه اون یکی میکرو
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 19200

Dim A As Byte
a=125
Do
Print A
Wait 1
Loop

End

این هیچ مشکلی نداره-------------------------------^

ولی واسه اون یکی اینو بنویس
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 19200

Dim A As Byte

Do
input a
if a=125 then
print"ok"
end if
Loop

End

[question]

پاسخ : یه برنامه ساده اما مشکل دار

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