الدايرة هيا توصيل الكي باد فى البروتوس مع ميكرو atmega32
وعرض الارقام في نافذة السريال
------
المشكلة
الارقام تظهر بشكل خاطي
------
الكود والتصميم مرفق فى ملف
http://www.gulfup.com/?Ya74Q7
-----------
الكود
كود:
$regfile = "m323def.dat"
$crystal = 4000000
$baud = 9600
Config Kbd = Portb , Debounce = 100 , Delay = 100
Dim Var As Byte
Do
Var = Getkbd()
If Var < 16 Then Gosub Check_number
Loop
End
Check_number:
Select Case Var
Case 00 : Print " key press is (_ 1 _) "
Case 01 : Print " key press is (_ 2 _) "
Case 02 : Print " key press is (_ 3 _) "
Case 03 : Print " key press is (_ 4 _) "
Case 04 : Print " key press is (_ 5 _) "
Case 05 : Print " key press is (_ 6 _) "
Case 06 : Print " key press is (_ 7 _) "
Case 07 : Print " key press is (_ 8 _) "
Case 08 : Print " key press is (_ 9 _) "
Case 09 : Print " key press is (_ 10 _) "
Case 10 : Print " key press is (_ 11 _) "
Case 11 : Print " key press is (_ 12 _) "
Case 12 : Print " key press is (_ 13 _) "
Case 13 : Print " key press is (_ 14 _) "
Case 14 : Print " key press is (_ 15 _) "
Case 15 : Print " key press is (_ 16 _) "
End Select
Return
التصميم على برنامج البروتوس وبرنامج باسكوم avr مرفق فى رابط فى الاعلى
-------------------
اين المشكلة ؟
مشكلة فى كود او تصميم باسكوم avr
