YARDIM!!!

[Şahin35]

Hocam daha onceden de yazmıstım .buzzer sorunun hallaettım. onun yerıne led bagladım. calsısp calsımadıgını gormek ıcın gayet gusel calısıyor. devre acılınca 2 sanıyelıgıne led yanıyor ve sonra sonuyor. daha sonra her tusu bastıgmda ledı yakıyorum .ve sıfre degıstırme ıslemı olarak da soyle bısey yaptım ..

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2014 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 06.03.2014                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************

PortA=0
TrisA=%10010000
PortB=0
TrisB=%00011011
CMCON=7
OPTION_REG.7=0
SYMBOL BUZZER =PORTA.4
SYMBOL BUTON =PORTB.5
SYMBOL ROLE =PORTB.6
SYMBOL KAYIT=PORTB.1
  SYMBOL YATAY_A =PORTA.0
  SYMBOL YATAY_B =PORTA.1
  SYMBOL YATAY_C =PORTA.2
  SYMBOL YATAY_D =PORTA.3
  SYMBOL DIKEY_1=PORTB.0
  SYMBOL DIKEY_2=PORTB.3
  SYMBOL DIKEY_3=PORTB.4
   
  DAD VAR BYTE
RAKAM VAR BYTE
OKU VAR BYTE
SIFRE VAR WORD
TUS VAR BYTE
ANA_MENU:
SIFRE=0
TUS=0
ROLE=0
BUZZER=1
BUTON =0
PAUSE 300
         low buzzer
         pause 2000
         high buzzer

BASLA:       

        tus=255
       YATAY_A=0
       IF DIKEY_1=0 THEN
         TUS=1
         low buzzer
         pause 750
         high buzzer
         WHILE DIKEY_1=0:WEND
       ENDIF
       
         IF DIKEY_2=0 THEN
           TUS=2
          low buzzer
         pause 750
         high buzzer
           WHILE DIKEY_2=0:WEND
         ENDIF
         
       IF DIKEY_3=0 THEN
         TUS=3
         low buzzer
         pause 750
         high buzzer
         WHILE DIKEY_3=0:WEND
       ENDIF
       
       HIGH YATAY_A
       
       YATAY_B=0
       IF DIKEY_1=0 THEN
         TUS=4
        low buzzer
         pause 750
         high buzzer
         WHILE DIKEY_1=0:WEND
       ENDIF
       
       IF DIKEY_2=0 THEN
         TUS=5
         low buzzer
         pause 750
         high buzzer
         WHILE DIKEY_2=0:WEND
      ENDIF
        IF DIKEY_3=0 THEN
           TUS=6
           low buzzer
         pause 750
         high buzzer
           WHILE DIKEY_3=0:WEND
        ENDIF
       
        HIGH YATAY_B
       
        YATAY_C=0
        IF DIKEY_1=0 THEN
          low buzzer
         pause 750
         high buzzer
          TUS=7
          low buzzer
         pause 750
         high buzzer
          WHILE DIKEY_1=0:WEND
        ENDIF
       
          IF DIKEY_2=0 THEN
            TUS=8
            low buzzer
         pause 750
         high buzzer
            WHILE DIKEY_2=0:WEND
          ENDIF
            IF DIKEY_3=0 THEN
              TUS=9
              low buzzer
         pause 750
         high buzzer
              WHILE DIKEY_3=0:WEND
            ENDIF
           
            HIGH YATAY_C
       
         YATAY_D=0
         IF DIKEY_1=0 THEN
           TUS=11
           low buzzer
         pause 750
         high buzzer
           WHILE DIKEY_1=0:WEND
         ENDIF
         
           IF DIKEY_2=0 THEN
             TUS=0
             low buzzer
         pause 750
         high buzzer
             WHILE DIKEY_2=0:WEND
           ENDIF
           IF DIKEY_3=0 THEN
             TUS=12
             low buzzer
         pause 750
         high buzzer
             WHILE DIKEY_3=0:WEND
           ENDIF
            HIGH YATAY_D
            PAUSE 30
            IF TUS=10 THEN TUS=0
            IF TUS<13 THEN
              SIFRE=SIFRE*10+TUS
            ENDIF
            IF SIFRE=12352 THEN
              GOSUB ROLEAC
              SIFRE=0
            ENDIF
            IF SIFRE>10000 THEN SIFRE=0
       
            GOTO BASLA 
         
ROLEAC:
            HIGH PORTB.6
            PAUSE 5000
            LOW PORTB.6
            PAUSE 5000
            RETURN

       IF BUTON=0 THEN GOSUB DEGIS
             DEGIS:
             read 10,SIFRE

IF SIFRE=255 THEN
SIFRE=12352
WRITE 10,SIFRE
pause 10
ENDIF

           BASLA1:
           FOR   DAD = 8 TO 11
           HIGH DAD
           GOSUB DEGER2
           LOW DAD
           NEXT DAD
           GOTO BASLA1
           END
           DEGER2:
             YATAY_A=0
       IF DIKEY_1=0 THEN
         TUS=1
        WHILE DIKEY_1=0:WEND
       ENDIF
       
         IF DIKEY_2=0 THEN
           TUS=2
           WHILE DIKEY_2=0:WEND
      ENDIF
         
       IF DIKEY_3=0 THEN
         TUS=3
         WHILE DIKEY_3=0:WEND
       ENDIF
       
       HIGH YATAY_A
       
       YATAY_B=0
       IF DIKEY_1=0 THEN
         TUS=4
       WHILE DIKEY_1=0:WEND
       ENDIF
       
       IF DIKEY_2=0 THEN
         TUS=5
         WHILE DIKEY_2=0:WEND
     ENDIF
        IF DIKEY_3=0 THEN
           TUS=6
           WHILE DIKEY_3=0:WEND
        ENDIF
       
        HIGH YATAY_B
       
        YATAY_C=0
        IF DIKEY_1=0 THEN
          TUS=7
          WHILE DIKEY_1=0:WEND
        ENDIF
       
          IF DIKEY_2=0 THEN
            TUS=8
            WHILE DIKEY_2=0:WEND
          ENDIF
            IF DIKEY_3=0 THEN
              TUS=9
              WHILE DIKEY_3=0:WEND
           ENDIF
           
            HIGH YATAY_C
       
         YATAY_D=0
         IF DIKEY_1=0 THEN
           TUS=11
           WHILE DIKEY_1=0:WEND
        ENDIF
         
           IF DIKEY_2=0 THEN
             TUS=0
             WHILE DIKEY_2=0:WEND
           ENDIF
           IF DIKEY_3=0 THEN
             TUS=12
             WHILE DIKEY_3=0:WEND
           ENDIF
            HIGH YATAY_D
            PAUSE 30
            IF TUS=10 THEN TUS=0
           
           IF TUS<13 THEN
            SIFRE=SIFRE*10+TUS
            ENDIF
            RETURN
           

[pwm3434]

dsn  dosyasınıda ekleyebilirmisin

[Şahin35]

buyrun hocam ekledım .. altakı entegreyı gormeyın sız max entegresıdır. ...

[pwm3434]

png dosyası  istemedimki  dsn dosysını  istedim  isiste  devrenin   simülesini  izlemek  için.  neyse  varsa  eklersin.

[Şahin35]

tamam hocam buyrun gonderdım ..

[Şahin35]

Hocalarım bir yardım edın  nerde takıldım yada hatam var  devre seması ve programı mevcuttur.