Yazılım sorunu!!

[speederly]

şifreli kapının programını tekrardan yazırom şifrei lcd de XXXX olrk göstermk istiorm ne yapmam gerek??

[subram]

şifrenin ne olduğunu biliyorsan işin kolay! ki bilmesen bile şifrenin tutulduğu bir kaydedici vardır. 4haneli ise Word kaydedici işinizi görür örneğin şifre SIFRE adlı kaydedicide kayıtlı ise alttaki komut işini görür. bu arada yazdıklarım tamamen hayal gücü programı buraya koyarsan daha rahat olur.

Kod Seç Genişlet

LCDOUT,$FE,$80, SIFRE

[speederly]

Kod Seç Genişlet

\'****************************************************************
\'*  Name    : ZAMANR.BAS                                      *
\'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
\'*  Notice  : Copyright (c) 2010 [select VIEW...EDITOR OPTIONS] *
\'*          : All Rights Reserved                               *
\'*  Date    : 23.08.2010                                        *
\'*  Version : 1.0                                               *
\'*  Notes   :                                                   *
\'*          :                                                   *
\'****************************************************************

@ DEVICE pic16F877A \'islemci pic16F877A
@ DEVICE pic16F877A, WDT_on  \'WATCH DOG AÇIK
@ DEVICE pic16F877A, PWRT_ON \'POWER ON TİMER AÇIK
@ DEVICE pic16F877A, PROTECT_OFF \'KOD KORUMA KAPALI
@ DEVICE pic16F877A, XT_OSC \'DAHİLİ OSİLATÖR KULLANILACAK

ADCON1=7

Define  LCD_DREG        PORTC
Define  LCD_DBIT        4
Define  LCD_RSREG       PORTC
Define  LCD_RSBIT       0         
Define  LCD_EREG        PORTB
Define  LCD_EBIT        3                   
DEFINE LCD_BITS        4
DEFINE LCD_LINES    2
define lcd_commandus 2000
define lcd_dataus 50

TRISB=%00000111
TRISC=0
TRISD=0
PORTC=0
PORTD=0

B VAR BYTE
O VAR BYTE
Y VAR BYTE
BN VAR BYTE
SAYAC VAR BYTE
SIFRE VAR WORD
SAYI VAR WORD
TUS VAR BYTE
PAUSE 500


SYMBOL SUTUN1=PORTB.0
SYMBOL SUTUN2=PORTB.1
SYMBOL SUTUN3=PORTB.2
SYMBOL SATIR1=PORTB.4
SYMBOL SATIR2=PORTB.5
SYMBOL SATIR3=PORTB.6
SYMBOL SATIR4=PORTB.7
SYMBOL ROLE=PORTD.5
SYMBOL PNPLED=PORTD.7
SYMBOL LED=PORTD.6

SIFRE=7837
BASLA:
    Y=0:O=0:B=0:SAYAC=0:SAYI=0:BN=0   
    PORTB=0 : PORTC=0
    PAUSE 200
    LCDOUT $FE,1,\"KULTUR UNI.\"
    LCDOUT $FE,$C0,\"HOSGELDINIZ\"
    PAUSE 1500
    LCDOUT $FE,1,\"SIFRE GIR :\"
    LCDOUT $FE,$C0,\"                \"
    PAUSE 10

TUSTARAMA:
    HIGH SATIR1
    IF SUTUN1=1 THEN TUS=1:GOSUB LCD
    IF SUTUN2=1 THEN TUS=2:GOSUB LCD
    IF SUTUN3=1 THEN TUS=3:GOSUB LCD 
    LOW SATIR1
   
    HIGH SATIR2
    IF SUTUN1=1 THEN TUS=4:GOSUB LCD
    IF SUTUN2=1 THEN TUS=5:GOSUB LCD
    IF SUTUN3=1 THEN TUS=6:GOSUB LCD
    LOW SATIR2
   
    HIGH SATIR3
    IF SUTUN1=1 THEN TUS=7:GOSUB LCD
    IF SUTUN2=1 THEN TUS=8:GOSUB LCD
    IF SUTUN3=1 THEN TUS=9:GOSUB LCD
    LOW SATIR3
   
    HIGH SATIR4
    IF SUTUN1=1 THEN TUS=10:GOSUB LCD2
    IF SUTUN2=1 THEN TUS=0:GOSUB LCD
    IF SUTUN3=1 THEN TUS=12:GOSUB LCD1
    LOW SATIR4
    GOTO TUSTARAMA
   
   
LCD:
    BN=Y:Y=O:O=B:B=TUS
    SAYI=1000*BN+100*Y+10*O+B
    LCDOUT $FE,1,\"SIFRE GIR : \",DEC SAYI
    PAUSE 500
   
    RETURN
   
   
LCD1:
    SAYAC=SAYAC+1
    LCDOUT $FE,1,\"SIFRE GIR : \",DEC SAYI
    LCDOUT $FE,$C0,\"                \",DEC SAYAC   
    IF SIFRE=SAYI THEN GOTO HUSEYIN
    PAUSE 600 
    LCDOUT $FE,$C0,\"                \",DEC SAYAC
    IF SAYAC=1 THEN GOTO BEN
    IF SAYAC=2 THEN GOTO BEN
    IF SAYAC=3 THEN GOTO HASAN
     
    RETURN
   
   
BEN:   
    LCDOUT $FE,1,\"SIFRE           \"
    LCDOUT $FE,$C0,\"DOGRULANIYOR!   \"
    PAUSE 1600
    LCDOUT $FE,1,\"YANLIS          \"
    LCDOUT $FE,$C0,\"SIFRE!          \"
    PAUSE 1200
    GOTO LCD2
   
    RETURN
   
   
LCD2:
    Y=0:O=0:B=0:SAYAC=SAYAC:SAYI=0:BN=0   
    LCDOUT $FE,1,\"SIFRE GIR :\"
    LCDOUT $FE,$C0,\"                \"

    RETURN   
     

HASAN:
    LCDOUT $FE,1,\"SIFRE            \"
    LCDOUT $FE,$C0,\"DOGRULANIYOR!   \"
    pause 1600
    LCDOUT $FE,1,\"YANLIS          \"
    LCDOUT $FE,$C0,\"SIFRE!          \"
    PAUSE 1200
    HIGH PORTD.0   
    LCDOUT $FE,1,\"KILIT           \"
    LCDOUT $FE,$C0,\"30 SN.          \"
    PAUSE 30000
    IF PORTD.0=0 THEN GOTO TOPAL
   
    RETURN   
   
   
HUSEYIN:
    LCDOUT $FE,1,\"SIFRE           \"
    LCDOUT $FE,$C0,\"DOGRULANIYOR!   \"
    PAUSE 1600
    HIGH PORTD.7
    LCDOUT $FE,1,\"  HOSGELDINIZ   \"
    LCDOUT $FE,$C0,\"               \"
    PAUSE 3000
    LCDOUT $FE,1,\"                \"
    LCDOUT $FE,$C0,\"               \"
    PAUSE 1000
    LOW PORTD.7
    PAUSE 500             
    IF PORTD.7=0 THEN GOTO TOPAL
   
    RETURN
   
   
TOPAL:
    SAYAC=0   
    IF SAYAC=0 THEN GOTO LCD2
       
    RETURN



    end