şifreli kilit

[dragons00]

trisa=0
trisb=255
e var byte
f var byte
ana:
e=portb
if e>0 then
gosub kontrol1
else
goto ana
endif
kontrol1:


e=ncd e
if e=1 then
gosub kontrol2
else
goto ana
endif
kontrol2:


if f=100 then goto ana




pause 50


e=portb
if e=0 then
f=f+1
goto kontrol2
endif


e=ncd e
if e=2 then
high porta.1
else
goto ana
endif
end

arkadaşlar şifreli kilit simülasyonu yapıyorum çalışmıyor kodlardamı yanlışlık var yoksa simülasyondaki bağlantılardamı yardımcı olurmusunuz.

 

[ULAGA]

Yardım etmeyi çok isterdim.
Ancak PIC Basic dili ile daha önce hiç çalışmadım.
Basic dilinin sözdizimini zaten hiç sevmemişimdir bu zamana kadar.
Neyse konumuz bu değil.
Sana bir önerim olacak;
O giriş uçlarını direk gnd'ye bağlama.
4.7k direnç ile pull down yap.

Ayrıyeten tasarladığın devrede mantık hatası var.
Yani algoritma doğru değil.
Öncelikle şifre kaç haneli ise o kadar dönüp, o haneleri okuyup, bir yere kaydedeceksin.
Daha sonra o kaydettiğin haneleri, hafızada tuttuğun şifre ile karşılaştıracaksın.