LCD'de yazı gözükmüyor

[fabrisio]

Devre simülasyonda da çalışmıyorsa kodlarda sorun var. Şemayı ve kodları eklersen sorunu buluruz.

 

[mustafa6106]

Fabrisio,
dediklerin etkili oldu .ama şimdi butona basınca karakterler gözükmüyor
potu maxa doğru getirdiğimde teksıra halinde cizgiler olusuor (butona basınca oluyor)minimuma doğru gittikçede ekranda titreşmeler oluyor

 

[mustafa6106]

cevap verebilecek kimse yokmu?
DEFINE LCD_DREG PORTB 'Lcd DATA BACKLARI PORTB'YE BAGLI
DEFINE LCD_DBIT 4 'LCD DATA BITLRI HANGİ BTTEN BASLIYOR
DEFINE LCD_EREG PORTB 'LCD ENABLE BACAGI HANGI PORTA BAGLI
DEFINE LCD_EBIT 3 'LCD ENBLE BITI HANGI PORTA BAGLI
DEFINE LCD_RSREG PORTB 'LCD RS BACAGI HANGI PORTA BAGLI
DEFINE LCD_RSBIT 2 'LCD RS BACAGI HANGI BITE BAGLI
DEFINE LCD_BITS 4 'LCD 4 BIT BAGLI
DEFINE LCD_LINES 2 'LCD KAC SIRDAN OLUSUYOR

TRISA=%11001 'TRISA GIRIŞ
TRISB=0
LCDOUT $FE,1 'LCD temizle

SYMBOL BUTON_A=PORTA.0

BASLA:
PAUSE 500

IF BUTON_A=0 THEN
lcdout $FE,$C0,"EMRE YILMAZ"
pause 500
ENDIF
GOTO BASLA
END

 

[fabrisio]

Mustafa, kodların doğru. Neden şemanı eklemiyorsun? Belki orda vardır bir sıkıntı. Bu benden son yardım teklifi.

 

[mustafa6106]

şemayı koymayı bilimyorum

 

[insert123]

sen peki bir direnç yada potansiyo metre ile Lcd konstart ayarını yaptınmı o aqyar yapılmaz ise olmuyor yazı falan çımkıyor benimde başıma geldi aynısı bende neden diye düşünürken intereneet gördüm sonra denedim oldu lcdini3. bacağıda bir 47o ohmluk bir direnç ile 1. gnd ye bağlayarak işlem gerçekleştiriliyor umarım işine yarar.

 

[fabrisio]

Mustafa, Aşağıdaki kodları da mcs ye kopyala. Derleyicide pici 16f84a yapmayı unutma.

TRISA=%11111 'TRISA GIRIŞ
TRISB=0

porta=0
portb=0

DEFINE LCD_DREG PORTB 'Lcd DATA BACKLARI PORTB'YE BAGLI
DEFINE LCD_DBIT 4 'LCD DATA BITLRI HANGİ BTTEN BASLIYOR
DEFINE LCD_EREG PORTB 'LCD ENABLE BACAGI HANGI PORTA BAGLI
DEFINE LCD_EBIT 3 'LCD ENBLE BITI HANGI PORTA BAGLI
DEFINE LCD_RSREG PORTB 'LCD RS BACAGI HANGI PORTA BAGLI
DEFINE LCD_RSBIT 2 'LCD RS BACAGI HANGI BITE BAGLI
DEFINE LCD_RSREG PORTB 'LCD RW BACAGI HANGI PORTA BAGLI
DEFINE LCD_RWBIT 1
DEFINE LCD_BITS 4 'LCD 4 BIT BAGLI
DEFINE LCD_LINES 2 'LCD KAC SIRDAN OLUSUYOR

LCDOUT $FE,1 'LCD temizle

BUTON_A var PORTA.0
PAUSE 500


BASLA:
LCDOUT $FE,1
gosub KONTROL
GOTO BASLA

KONTROL:
IF BUTON_A=0 THEN
lcdout $FE,$C0," EMRE YILMAZ "
pause 500
ENDIF
RETURN

Butona bastığında 500ms yazı ekranda kalacaktır.

 

[mustafa6106]

olmuyor.sizde sağlam bi derleyici varsa atabilirmisiniz acaba

 

[ExpinceR]

Potu değiştir bide kardes

 

[mustafa6106]

potuda değiştirdim