مشکل در محیط شبیه ساز bscom

[hosseinhn]

با سلام یک سوال ابتدایی
چرا کیپد در شبیه ساز عمل نمی کند دستور config kbd=portb هم نوشتم و تابع getkbd() فراخوانی کردم اما متغیر عدد 16 را بر میگرداند
راهنمایی کنید
نمونه کد
regfile = "m323def.dat"
$crystal = 1000000


Config Kbd =PORTD ,DEBOUNCE=40,DELAY=100


Dim A As Byte
Do
A = Getkbd()
print A
loop

[jimston]

باید اینجوری بنویسی:
Do
Gosub k
......
Loop

K:
A=getkbd()
If a>15then
Gosub k
Endif
End


فرستاده شده از HUAWEI G610-U20ِ من با Tapatalk