kod

[koordinat]

hocam 877 ile denemelere yenibaşladım.lcd sorunsuz çalışıyor ama buton bağladığımda porte ye anlamıyor .sürekli butona bas diyor.nedir bu hojam yaa..

'DEVICE 16F877
PAUSE 500
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTC
DEFINE LCD_RSBIT 2
DEFINE LCD_EREG PORTC
DEFINE LCD_EBIT 4
D1 VAR BYTE 
D2 VAR BYTE
D3 VAR BYTE
PORTA.0=1
PORTA.1=1
PORTA.2=1
D1=0
D2=0
D3=0
'----------
BASLA:

PAUSE 1000


PORTKONTROL:

BUTTON PORTA.0,0,254,254,D1,1,LED1_YAK
BUTTON PORTA.1,0,254,254,D2,1,LED2_YAK
BUTTON PORTA.2,0,254,254,D3,1,LED3_YAK

LCDOUT $FE,1,"HERHANGI BIR"
LCDOUT $FE,$C0,"BUTONA BASIN"
PAUSE 1000
GOTO PORTKONTROL

LED1_YAK:
PAUSE 1000
LCDOUT $FE,1,"1.BUTONA"
LCDOUT $FE,$C0,"BASILDI"
PAUSE 1000
GOTO PORTKONTROL

LED2_YAK:
PAUSE 1000
LCDOUT $FE,1,"2.BUTONA"
LCDOUT $FE,$C0,"BASILDI"
PAUSE 1000
GOTO PORTKONTROL

LED3_YAK
PAUSE 1000
LCDOUT $FE,1,"3.BUTONA"
LCDOUT $FE,$C0,"BASILDI"
PAUSE 1000
GOTO PORTKONTROL
END

[Veli B.]

Birde böyle dener misin?


PAUSE 500
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTC
DEFINE LCD_RSBIT 2
DEFINE LCD_EREG PORTC
DEFINE LCD_EBIT 4
D1 VAR BYTE
D2 VAR BYTE
D3 VAR BYTE
TRISA=1   ' 8)
PORTA.0=1
PORTA.1=1
PORTA.2=1
D1=0
D2=0
D3=0

[mmengi]

16F876-77 ve diğer analog girişi olan piclerde ilk enerji verdiğinde analaog giriş özelliği olan portlar dijital çalışmaz.Ben örnek verdiğin kodda bu portları dijitale çevrildiğini göremedim.istersen programın başına şunları yaz.

16F87x için ADCON1=7


16F62x için CMCON=7

[Veli B.]

Üstat :cry:  :cry:  :cry:
Atlamışım.