با سلام خدمت همه ی اساتید
من تو پروژم نیاز دارم که از دوتا کی پد استفاده کنم.برای این کار هروقت نیاز دارم از کی پد خونده بشه تابع مربوطه فراخوانی می شه.که هر بار فراخوانی می کنم config
کی پد رو همون جا انجام می دم.ولی درست جواب نمی ده.دوستان عزیز لطفا راهنمایی کنید.اینم کدیه که برای تابع هام نوشتم
Kbd1:
Config Kbd = Porta , Debounce = 50 , Delay = 100
A = Getkbd()
Select Case A
Case 4 : A = 100
Case 5 : A = 9
Case 6 : A = 6
Case 7 : A = 3
Case 8 : A = 0
Case 9 : A = 8
Case 10 : A = 5
Case 11 : A = 2
Case 13 : A = 7
Case 14 : A = 4
Case 15 : A = 1
Case Else : A = 255
End Select
Put #1 , A
Waitms 50
Return
'------------------------------------------------------------------------------
Kbd2:
Config Kbd = Portc , Debounce = 50 , Delay = 100
A = Getkbd()
Select Case A
Case 0 : A = 1
Case 1 : A = 2
Case 2 : A = 3
Case 4 : A = 4
Case 5 : A = 5
Case 6 : A = 6
Case 8 : A = 7
Case 9 : A = 8
Case 10 : A = 9
Case 13 : A = 0
'Case 14 : A = 100
Case Else : A = 255
End Select
Return
من تو پروژم نیاز دارم که از دوتا کی پد استفاده کنم.برای این کار هروقت نیاز دارم از کی پد خونده بشه تابع مربوطه فراخوانی می شه.که هر بار فراخوانی می کنم config
کی پد رو همون جا انجام می دم.ولی درست جواب نمی ده.دوستان عزیز لطفا راهنمایی کنید.اینم کدیه که برای تابع هام نوشتم
Kbd1:
Config Kbd = Porta , Debounce = 50 , Delay = 100
A = Getkbd()
Select Case A
Case 4 : A = 100
Case 5 : A = 9
Case 6 : A = 6
Case 7 : A = 3
Case 8 : A = 0
Case 9 : A = 8
Case 10 : A = 5
Case 11 : A = 2
Case 13 : A = 7
Case 14 : A = 4
Case 15 : A = 1
Case Else : A = 255
End Select
Put #1 , A
Waitms 50
Return
'------------------------------------------------------------------------------
Kbd2:
Config Kbd = Portc , Debounce = 50 , Delay = 100
A = Getkbd()
Select Case A
Case 0 : A = 1
Case 1 : A = 2
Case 2 : A = 3
Case 4 : A = 4
Case 5 : A = 5
Case 6 : A = 6
Case 8 : A = 7
Case 9 : A = 8
Case 10 : A = 9
Case 13 : A = 0
'Case 14 : A = 100
Case Else : A = 255
End Select
Return
دیدگاه