برنامه نویسی بسکام

[ma12]

پاسخ : برنامه نویسی بسکام

برنامه رو همان طور که گفتی کامل کردم ولی موقعی که از کی پد کلید فشار میدم یا تو پروتوس خطا میده یا روی سگمنت چیزی نشون نمیده ایرادش چیه؟ برنامه رو پایین گذاشتم کجاش ایراد داره؟
$regfile = "m16def.dat"
$crystal = 8000000
Config Porta = Output
Config Portc = Output
Config Kbd = Porta
Dim A As Byte
Do
M:
A = Getkbd()
If A = 16 Then Gosub M
Portc = Lookup(a , L)
Reset Portb
Loop
End
L:
Data &H3F , &H06 , &H5B &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F

[ma12]

پاسخ : برنامه نویسی بسکام

کسی نمیدونه مشکل برنامه بالا چیه که خروجی نمیده؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[محمد مومنی22]

پاسخ : برنامه نویسی بسکام

برنامه رو همان طور که گفتی کامل کردم ولی موقعی که از کی پد کلید فشار میدم یا تو پروتوس خطا میده یا روی سگمنت چیزی نشون نمیده ایرادش چیه؟ برنامه رو پایین گذاشتم کجاش ایراد داره؟
$regfile = "m16def.dat"
$crystal = 8000000
Config Porta = Output
Config Portc = Output
Config Kbd = Porta
Dim A As Byte
Do
M:
A = Getkbd()
If A = 16 Then Gosub M
Portc = Lookup(a , L)
Reset Portb
Loop
End
L:
Data &H3F , &H06 , &H5B &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F

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

[ma12]

پاسخ : برنامه نویسی بسکام

مقدار مقاومت چقدر باید باشه؟برای همه پایه ها باید مقاومت بذارم؟

[ma12]

پاسخ : برنامه نویسی بسکام

مقاومت هیچ تاثیری نداشت اشکال داخل خود برنامه هست؟کسی میتونه ایرادش چیه؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[sinaitg]

پاسخ : برنامه نویسی بسکام

ببین دوست عزیز چند تا نکته ....
1)وقتی میخوای کد بذاری رو سایت ، بی زحمت (مثل کدی که من گذاشتم) با فرمت درست بذار تا اینجوری بهم نریزه ...
2)پروتیوس تو کیپد ضعف داره و درست کار نمیکنه ... باید عملی ببندیش ...
3)اگه میخوای تو پروتیوس جواب بگیری باید کیپد رو با کلید های فشاری ، خودت بسازی .... اینجوری در صورت درست بودن برنامه جواب میده
4)تو برنامه ت هم ایرادی به چشمم نخورد ... باید کار کنه ....

[ma12]

پاسخ : برنامه نویسی بسکام

ممنون