Şifreli kilit sistemi proton

[arinkucuk]

Merhaba arkadaslar,
Benim bu dönem bitirme ödevim proton kullanarak şifreli kilit sistemi oluşturmak ancak bi kaç problemim var.

Şu an gelebildiğim nokta da sadece keypad aracılığıyla yazdgm tek basamaklı komut ile led yakabiliyorum, led üzerine 2 3 ya da 4 basamak yazdırmaya çalıştm ancak bu seferde ekranda yazan 3 4 basamklı kodu şifre olarak kullanamıyorum

Şimdiden yardımlarınız için teşekkür ederim

Gelebildiğim nokta;

Device = 16F877
XTAL = 4
KEYPAD_PORT=PORTB
LCD_DTPIN = PORTD.4
LCD_RSPIN = PORTD.2
LCD_ENPIN = PORTD.3
LCD_INTERFACE = 4
LCD_LINES = 2
LCD_TYPE = 0
TRISA=0
Dim kilit As PORTA.0
Dim alarm As PORTA.1


Dim X As Byte


Dim A As Byte
Dim sutun As Word
Dim s1 As Word
Dim s2 As Word
Dim s3 As Word
Dim sayi As Word




BASLA:
Print At 1,1, " KOD GIRINIZ: "
DelayMS 100
sutun=0
s1="x"
s2="x"
s3="x"


KODGIR:




X = InKey
If X=16 Then GoTo KODGIR
A=LookUp X,[1,4,7,"*",2,5,8,0,3,6,9,"#"]
sutun=sutun+1
Print At 2,sutun,@ A
If sutun=1 Then s1=A
If sutun=2 Then s2=A
If sutun=3 Then s3=A


DelayMS 200


GoTo KODGIR
If A=101 Then
High kilit
Else
High alarm
EndIf
End


Devre : https://i.kontrolkalemi.com/1/W2Q914.jpg