کمک در موردخواندن از صفحه کلید 4*4

[amin-zareian]

با عرض سلام
برنامه زیر درمورد خواندن از صفحه کلید وریختن آن درمتغییر Resualt است.اما قبل از فشاردادن عددی از صفحه کلید عدد 5 مکرر تکرار می شود
مشکل از کدام قسمت است
این هم برنامه اش
$regfile = "m32def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = _
Portc.4 , E = Portc.5 , Rs = Portc.6
Config Lcd = 16 * 2
Config Kbd = Porta , Debounce = 60 , Delay = 300

Ddra = 0 : Porta = 255
Dim Key As Byte
Dim Resualt As Word

Cls
Lcd "Enter Password:"
Wait 2
Lowerline
Cursor Blink
Resualt = 0

Key = 50
Waitms 10
Do
Key = Getkbd()
Key = Lookup(key , Read_key)

If Key >= 0 And Key <= 9 Then
Resualt = Resualt + Key
Resualt = Resualt * 10

Lcd Key

End If
Loop Until Key = 14

Lcd "password enter"
Waitms 100
Lcd Resualt
End
Read_key:
Data 13 , 14 , 0 , 15 , 12 , 9 , 8 , 7 , 11 , 6 , 5 , 4 , 10 , 3 , 2 , 1

[mohsen.hex]

پاسخ : کمک در موردخواندن از صفحه کلید 4*4

سلام

مشکل از لوکاپ برنامت هست
اینو تست کن جواب میگیری

$regfile = "m32def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = _
Portc.4 , E = Portc.5 , Rs = Portc.6
Config Lcd = 16 * 2
Config Kbd = Porta ', Debounce = 60 , Delay = 300

Ddra = 0 : Porta = 255
Dim Key As Byte
Dim Resualt As Word

Cls
Lcd "Enterrd:"
Wait 2
Lowerline
Cursor Blink
Resualt = 0

'Key = 50
Waitms 0
Do
Key = Getkbd()
Key = Lookup(key , Read_key)

If Key >= 0 Then
IF Key <= 9 Then
Resualt = Resualt + Key
Resualt = Resualt * 10

Lcd Key
End If
End If
Waitms 200
Loop Until Key = 14

Lcd "password enter"
Waitms 100
Lcd Resualt
End
Read_key:
Data 1 , 2 , 3 , 10 , 4 , 5 , 6 '10=f1
Data 11 , 7 , 8 , 9 , 12 , 13 , 0 , 14 '11=f2 , 12=f3 , 13=start
Data 15 , 16

همونطور که میبینی دیتا رو عوض کردم
بقیش با خودت