کمک برای اشکال یابی در یک برنامه

[Himmel]

سلام دوستان

برنامه که در زیر قرار دادم.نمیدانم بهچه علت به sub هایی که تعریف کردم نمی رود.ممنون میشم اگر راهنمایی وکمکم کنید .


$regfile = "m16def.dat"
$crystal = 12000000
$baud = 9600
Enable Interrupts
Config Lcd = 16 * 4
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.1 , Rs = Portc.0
Config Kbd = Portb , Debounce = 20 , Delay = 30
Config Adc = Single , Prescaler = Auto , Reference = Internal
Deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32
Cursor Off

Config Portd = Output
Config Portd.6 = Output
Config Portd.7 = Output

Dim T As Byte
C Alias Portd.6
H Alias Portd.7
Dim A As Byte
Dim Num As Byte
Cls



Do






A = Getkbd()


If A <> 16 Then

( Num = Lookup(a , Number

Locate 4 , 1

Lcd Num

Waitms 500


End If




If Num = 2 Then


If Num = 3 Then


Gosub M.h



Elseif Num = 4 Then

Gosub M.c

End If

Locate 1 , 1

"Lcd "test

Waitms 500

End If


Loop

End

'/////////////////////////////////////////////////




M.h:

Lcd " heat"

Waitms 500

Set H

Reset C
Return




M.c:

Locate 3 , 1

Lcd " Fan"

Waitms 500

Set C

Reset H

Return







Number:

Data 7 , 4 , 1 , 10 , 8 , 5 , 2 , 0 , 9 , 6 , 3 , 11 , 15 , 14 , 13 , 12

[man2008]

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

اول اینکه شما چطوری فهمیدین که به sub ها نمیره
interrupt رو غیر فعال کن تو که تایمر یا وقفه و این چیزا نداری

ولی فکر کنم مشکل تو kbd باشه من که هیچ موقع با این فرمت نتونستم درست و حسابی از کیپد بخونم پایه ها رو یکی یکی چک کنی بهتره البته بصورت یک تابع براش تعریف کنید شما اگه کیپد 4 در 4 دارید 4 تا سطر روپشت سر هم یک میکنی و 4 تا پایه ستون رو چک میکنی به همین راحتی بدون هر گونه خطا
این دستور getkbd() مشکل داره