74HC595 SAYICI

[bahdiyarusta]

Merhaba,

ekli devreyi yapmayı düşünüyorum tasarımımı yaptım yazılımda baya bir takıldım, 0-9999 a kadar saydıracam ama bu yazdığım kodlar ile 0 sayılara ulaşmak mümkün görünmüyor bu yazılımın bir kolay yolu vardır diye düşünüyorum, desteklerinizi bekliyorum,,,
teşekkürler,,,

@ DEVICE pic16F628A                      'i?lemci 16F628A                                
@ DEVICE pic16F628A, WDT_OFF             'Watch Dog timer açyk
@ DEVICE pic16F628A, PWRT_OFF            'Power on timer açyk
@ DEVICE pic16F628A, PROTECT_ON         'Kod Protek kapaly
@ DEVICE pic16F628A, MCLR_ON            'MCLR pini kullanylMIYOR.
@ DEVICE pic16F628A, BOD_OFF
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT  'Dahili osilatör kullanylacak
DEFINE OSC 4
CMCON=7
TRISA=%00000111
TRISB=%00000000
PORTB=0
PORTA=0
DEGER1 VAR BYTE
DEGER2 VAR BYTE
DEGER3 VAR BYTE
DEGER4 VAR BYTE
SAYAC VAR Word 

DEGER1=64
DEGER2=64
DEGER3=64
DEGER4=64
gosub gonder
SAYAC=0
SYMBOL AZALT=PORTA.0
SYMBOL ARTIR=PORTA.2
SYMBOL OK=PORTA.1

PAUSE 1000
BASLA:
    IF ARTIR=0 THEN
    WHILE ARTIR=0
    WEND
    SAYAC=SAYAC+1
    ENDIF
    IF SAYAC=1 THEN BIR
    IF SAYAC=2 THEN IKI
    IF SAYAC=3 THEN UC
    IF SAYAC=4 THEN DORT
    IF SAYAC=5 THEN BES
    IF SAYAC=6 THEN ALTI
    IF SAYAC=7 THEN YEDI
    IF SAYAC=8 THEN SEKIZ
    IF SAYAC=9 THEN DOKUZ
    IF SAYAC=10 THEN UN
    IF SAYAC=11 THEN UNBIR
    IF SAYAC=12 THEN UNIKI
    PAUSE 50
    GOTO BASLA


BIR:
    DEGER1=249
    DEGER2=64
    DEGER3=64
    DEGER4=64
    GOSUB GONDER
IKI:
    DEGER1=36
    DEGER2=64
    DEGER3=64
    DEGER4=64
    GOSUB GONDER
UC:
    DEGER1=48
    DEGER2=64
    DEGER3=64
    DEGER4=64
    GOSUB GONDER
DORT:
    DEGER1=25
    DEGER2=64
    DEGER3=64
    DEGER4=64
    GOSUB GONDER
BES:
    DEGER1=18
    DEGER2=64
    DEGER3=64
    DEGER4=64
    GOSUB GONDER
ALTI:
    DEGER1=2
    DEGER2=64
    DEGER3=64
    DEGER4=64
    GOSUB GONDER
YEDI:
    DEGER1=120
    DEGER2=64
    DEGER3=64
    DEGER4=64
    GOSUB GONDER
SEKIZ:
    DEGER1=0
    DEGER2=64
    DEGER3=64
    DEGER4=64
    GOSUB GONDER
DOKUZ:
    DEGER1=16
    DEGER2=64
    DEGER3=64
    DEGER4=64
    GOSUB GONDER
UN:
    DEGER1=64
    DEGER2=249
    DEGER3=64
    DEGER4=64
    GOSUB GONDER
UNBIR:
    DEGER1=249
    DEGER2=249
    DEGER3=64
    DEGER4=64
    GOSUB GONDER
UNIKI:
    DEGER1=36
    DEGER2=249
    DEGER3=64
    DEGER4=64
    GOSUB GONDER

GONDER:
    SHIFTOUT PORTB.5,PORTB.6,1,[DEGER4,DEGER3,DEGER2,DEGER1]
    PORTB.7=1
    PAUSEUS 15
    PORTB.7=0    
    GOTO BASLA    
    END
    
      
      
      
      
      
      

[ete]

Hazır yapılmış projeyi incelemeye ne dersin. Çünki yazılım çok fazla basit kalmış. Bu mantıkla bir yere varman mümkün değil. Projeyi incele eksiklerini gör.

http://etepic.com/index.php/topic,2985.msg31151.html#msg31151
Ete

[bahdiyarusta]

evet hocam teşekkür ederim...