اشکال در ارتباط سریال با میکرو

[mostafa26]

سلام
چرا برنامه زیر در ارتباط سریال با atmega16 به من جواب نمی دهد.
فوریییییییییییییییییه

$regfile = "m16def.dat" : $crystal = 12000000
$baud = 9600
Config Porta = Output
Dim A As Word

W:
Inputhex A : Porta = A
Waitms 5000

Goto W
End

اینم سخت افزارش

[mohammad mohandes]

پاسخ : اشکال در ارتباط سریال با میکرو

با سلام
ببین آقا شما اینها رو چک کن.
1-فرکانس میکروت مساوی فرکانسی باشه که تو برنامت نوشتی
2-باود ریت رو طوری انتخاب کن که کمترین ارور را داشته باشه
3- -متغیرت رو از نوع بایت تعریف کن
4-از دستور inputbin برای دریافت سریال استفاده کن

[mostafa26]

پاسخ : اشکال در ارتباط سریال با میکرو

دوست عزیز اینکار را کردم اما هنگامی که دکمه ارسال به میکرو را میزنم خروجی میکرو که در برنامه porta می باشد در واقع یک جور اتصال کوتاه می شود و همگی یک میشود.
مثلا در برنامه زیر پورت را با 7447 به 7seg وصل کردم ابتدا عدد 8 را نشان می دهد اما زمانی که عددی را از کامپیوتر به میکرو ارصال می کنم تمام خروجی میکرو 5 ولت رسیده و 7seg به مدت معین شده در برنامه خاموش می شود و دوباره عدد 8 را نشان می دهد.

$regfile = "m16def.dat"
$crystal = 12000000
$baud = 9600
Config Porta = Output
Dim A As Byte
Const B1 = &B10001000

W:
Porta = B1
Inputbin A
Porta = A
Waitms 200

Goto W
End

لطفا دوستان کمک کنند :angry: :angry: :angry: :angry:

[mostafa26]

پاسخ : اشکال در ارتباط سریال با میکرو

دوستان عزیز لطفا کمک کنند این مسئله برای من مهم است

[mostafa26]

پاسخ : اشکال در ارتباط سریال با میکرو

از میان این همه مهندس کسی نیست بداد ما برسد
بابا یه چیزی حداقل بگید تا دل ما خوش باد :cry: :cry: :cry:

[hossein_tomari007]

پاسخ : اشکال در ارتباط سریال با میکرو

سلام دوست عزیز
شما پورت d رو نه خروجی تعریف کردی نه ورودی!!!!!!
در حالی که بایستی پایه rxd میکرو ورودی تعریف شه
و پایه txd خروجی بایستی باشه
از max232 استفاده میکنی؟

[mostafa26]

پاسخ : اشکال در ارتباط سریال با میکرو

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

یعنی شما میگین که برنامه را باید اینطور بنویسیم

$regfile = "m16def.dat"
$crystal = 12000000
$baud = 9600
Config Porta = Output
Config Portd = Output
Config Pind.0 = Input

Dim A As Byte
Const B1 = &B10001000

W:
Porta = B1
Inputbin A
Porta = A
Waitms 200

Goto W
End

از max232 استفاده میکنی؟

بله از max232 استفاده می کنم

[hossein_tomari007]

پاسخ : اشکال در ارتباط سریال با میکرو

سلام
توی پروتئوس شبیه سازی کردم درست کار میکرد مشکلی نداشت
ایرادت حتماً سخت افزاریه
احتمال 90 در صد کریستال داخلی فعاله و میکرو با اون کار میکنه
فیوز بیت هاش رو به کریستال خارجی تعریف کن درست میشه
موفق باشی

:job: