lcd sayı arttırma

[YusufYLMZ]

arkadaşlar pic16f628a ile bir devre yaptım.
tüm tanımlamalar yapıldı.
sayi değişkenini byte olarak ayarladım.
bir butona basıldığında sayı 1 artacak ekranda da bunu gösterecek şu kodları yazdım proteusta çalıştı ama devre sayıyı arttırmıyor
kod şu;
basla
lcdout $fe,$1
lcdout $fe,$80,dec2 sayi
pause 150
if buton=1 then sayi=sayi+1
go to basla
neden çalışmıyor sizce şimdiden teşekkürler

 

[MAIN_LOOP]

kod doğru devrede hata vardır. ekranda 0 göründümü yada bir karakter çıktımı. eğer çıkmadıysa kristal bağlantın veya beslemelerinde sorun var. donanıma odaaklan

 

[YusufYLMZ]

dahili kristal ile çalıştırdım 0 görünüyor ama artma olmuyor

 

[YusufYLMZ]

devre şeması

 

[serkan_48]

Uygulamada ekranda 0 rakamı görünüyor ama artmıyor mu?

Devreni ne ile besledin? güç kaynağı pil mi yoksa adaptör mü? Adaptörlerde bazen iyi filtre edilmediği için pic doğru çalışmayabiliyor.

 

[YusufYLMZ]

pil

 

[MAIN_LOOP]

$fe,$1 yerine $fe,1 yazarmısın.

 

[YusufYLMZ]

Olmadı

 

[NBATMAN]

Merhaba,

aşaşğıdaki şekilde dener misiniz?

SYMBOL yukari=portB.1       'yukarı tusu portb.1 e atandı
SYMBOL asagi=portB.0        'asağı tusu portb.0 a atandı
x VAR WORD                  'X DEĞİŞKENİ WORD OLARAK TANIMLANDI



X=0                         'X'e sıfır değeri atandı
GOSUB GOSTER


Basla:
    IF YUKARI=0 THEN
    X=X+1
    IF x=20 THEN X=0
    ENDIF
    GOSUB goster
    IF ASAGI=0 THEN
    x=x-1
    IF x=0 THEN X=20
    ENDIF
    GOSUB goster
    GOTO BASLA
PAUSE 500
goster:
    LCDOUT $FE,1                'LCD 'yi sil
     lcdout $FE, $83, DEC5 x  'LCD ye  yazdı
   
   
    PAUSE 30
    RETURN
END

 

[YusufYLMZ]

şimdi bişey farkettim sadece porta.4 e bağlı butonda artma oluyor diğer butonlar neden çalışmıyor olabilir sizce? herşey doğru bi hata yok devrede, koda bişey mi eklemem lazım