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

[Study]

سلام دوستان شب بخیر
من برنامه ساده زیر رو توی bascomavr نوشتم و کامپایل کردم اما برنامه مشکل داره ( تا 2 میشماره ریست میشه ) اینجور که متوجه شدم مشکل از دستور wait هست اما نمیدانم چرا!!!
در ضمن فایل اسمبلی یا لیست رو نمیشه جایی دید؟

$regfile = "m16def.dat"
$crystal = 1000000


Setup:
  Dim A As Byte
  Portb = &H00
  Ddrb = &HFF
Main:
  Portb = A
  Incr A
  If A > 9 Then A = 0
  Wait 1
  Goto Main
End

[eehadi]

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

من این برنامه رو تست کردم، ظاهراً مشکلی نداره. شما تو شبیه ساز بیسکام جواب نگرفتی یا با سخت افزار؟

[Study]

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

از پاسخ شما ممنونم، شبیه ساز خودش قسمت تاخیر ( دستور wait ) رو میگذرونه در نتیجه درست کار میکنه، من هم اگر این دستور رو بردارم درست کار میکنه اما نمیخوام حذفش کنم، در proteus جواب نداد، در نتیجه احتمال 95 درصد عملی هم جواب نمیده، مشکل از دستور wait هست.

[QUARK]

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

از پاسخ شما ممنونم، شبیه ساز خودش قسمت تاخیر ( دستور wait ) رو میگذرونه در نتیجه درست کار میکنه، من هم اگر این دستور رو بردارم درست کار میکنه اما نمیخوام حذفش کنم، در proteus جواب نداد، در نتیجه احتمال 95 درصد عملی هم جواب نمیده، مشکل از دستور wait هست.

L-)
نه منم تست کردم مشکلی وجود نداشت با همون پروتئوس.

[baby_1]

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

سلام
برنامتون رو چک کردم و مشکلی نداشت با پروتئوس هم جواب داد.
برنامه رو به فرم استاندارد در آوردم که هم از لحظا برنامه نویسی مناسبتر هست هم مشخص هست دقیقا چه کاری صورت گرفته است(در هیچ برنامه ای سعی کنین از عبارت goto استفاده نکنین)

$regfile = "m16def.dat"
$crystal = 1000000
'=============================
Config Portb = Output
'============================
Dim A As Byte


Do
  Portb = A
  Incr A
  If A > 9 Then A = 0
  Wait 1
Loop
'=========================
End

برنامه تست شده به همراه فایل پروتئوس
http://vip.eca.ir/sharing/uploads/13411225501.rar

[Study]

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

ممنون از کمک شما دوستان عزیز
baby_1 جان برنامه رو به فرمی که شما نوشتید قبلا من نوشته بودم و باز هم جواب نمیداد کلا به همه جور حلقه ای نوشتم و دیدم فرقی نمیکنه در نهایت متجه شدم مشکل از wait هست. همچنان هم این مشکل وجود داره!!
ظاهرا مشکل من با کامپایلر bascom که استفاده میکنم هست، برنامه شما رو دانلود کردم مشکلی نداشت، همون فایل bas شما رو با کامپایلر خودم کامپایل کردم دوباره همون مشکل بود، کامپایلرم رو یکبار دیگه نصب میکنم چون یادم نیست این bascom رو چه زمانی نصب کرده بودم، ظاهرا مشکل از ترجمه نسخه ای هست که من دارم، احتمالا مشکلم حل بشه.
با تشکر

[baby_1]

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

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


http://www.techno-electro.com/19-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%DA%A9%D8%A7%D9%85%D9%BE%D8%A7%DB%8C%D9%84%D8%B1-Bascom-AVR-2-0-7-3.html

http://www.bargh20.com/software/bascomfull

[Study]

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

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