lcd kayan yazı

[bilim_teknik]

:lol:  Merhaba ben Mikail bu sene liseye geçtim lise 1. 8)    Siteye yeni üye oldum ben lcd de kayan yazı yapa mıyorum program da   mı sorun yoksa devredemi? ben de siz den küçük bir yardım almak istedim.yardım ederseniz çoook sevinirim.şimdiden yardım larınız için teşekkür ederim


işte program
---------------------------------------------------------------------------------------------------------------------------

TRISA=%00000001
TRISB=%00000000
PORTA=0
PORTB=0
DEFINE LCD_DREG		PORTB	'LCD data bacakları PortB de bağlı
DEFINE LCD_DBIT			4		'LCD data bacakları 4. bitten başlıyor
DEFINE LCD_EREG		PORTB	'LCD Enable Bacağı PortB de bağlı
DEFINE LCD_EBIT			3		'LCD Enable Bacağı 3. bite bağlı	
DEFINE LCD_RWREG    		PORTB	'LCD RW Bacağı PortB de bağlı
DEFINE LCD_RWBIT     		2		'LCD RW Bacağı  2. bite bağlı
DEFINE LCD_RSREG		PORTB	'LCD RS Bacağı PortB de bağlı
DEFINE LCD_RSBIT		1		'LCD RS bacağı 1. Bite bağlı		
DEFINE LCD_BITS			4		'LCD 4 bit  olarak bağlı
DEFINE LCD_LINES		2		'LCD 2 sıra olarak çalışıyor.
LCDOUT $FE,1
BASLA:
IF PORTA.0=0 THEN 
LCDOUT $FE,1,"M"
PAUSE 100
LCDOUT ,"E"
PAUSE 100
LCDOUT ,"R"
PAUSE 100
LCDOUT ,"H"
PAUSE 100
LCDOUT ,"A"
PAUSE 100
LCDOUT ,"B"
PAUSE 100
LCDOUT ,"A"
PAUSE 100
LCDOUT $FE,$0F,"MERHABA"
PAUSE 100
LCDOUT $FE,$10,"MERHABA"
PAUSE 100
LCDOUT $FE,$14,"MERHABA"
PAUSE 100
ENDIF
GOTO BASLA
END

---------------------------------------------------------------------------------------------------------------------------------

[a.zorba]

TRIS ve PORT tanımlamaların LCD tanımlamasının altına yaz birde LCD adreslerini eksik yazmışsın
LCDOUT ,"E"  olmaz buraya lcd hangı satır hangı sutundan başlamnı ıstedıgın adresi yaz

[M_B]

Asagıda fıkır vermesı acısından yapılmıs bır LCD kayan yazı programı var.
Incele mantıgını ogrenmeye calıs. Direk olarak kopyala yapıstır yapma

'******LCD TANIMLAMALARI******
DEFINE LCD_DREG     PORTB 'LCD DATA BACAKLARI PORTB'YE BAGLI
DEFINE LCD_DBIT     4     'LCD DATA BITLERI HANGİ BITTEN BASLIYOR
DEFINE LCD_EREG     PORTB 'LCD ENABLE BACAGI HANGI PORTA BAGLI
DEFINE LCD_EBIT     3     'LCD ENABLE 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 SIRADAN OLUSUYOR

TRISB=0
PAUSE 200           '200 ms BEKLEME YAP

LCDOUT $FE,$80,"PBP SEVEREK"
LCDOUT $FE,$C3,"OGRENIYORUM"
PAUSE 2000
BASLA:
LCDOUT $FE,$1,"WWW.PICPROJE.COM"

LCDOUT $FE,$CF,"AYKUT YILMAZ "
PAUSE 50
LCDOUT $FE,$CE,"AYKUT YILMAZ "
PAUSE 50
LCDOUT $FE,$CD,"AYKUT YILMAZ " 
PAUSE 50
LCDOUT $FE,$CC,"AYKUT YILMAZ "
PAUSE 50
LCDOUT $FE,$CB,"AYKUT YILMAZ "
PAUSE 50                     
LCDOUT $FE,$CA,"AYKUT YILMAZ "
PAUSE 50
LCDOUT $FE,$C9,"AYKUT YILMAZ "
PAUSE 50
LCDOUT $FE,$C8,"AYKUT YILMAZ "
PAUSE 50
LCDOUT $FE,$C7,"AYKUT YILMAZ "
PAUSE 50                     
LCDOUT $FE,$C6,"AYKUT YILMAZ "
PAUSE 50
LCDOUT $FE,$C5,"AYKUT YILMAZ "
PAUSE 50
LCDOUT $FE,$C4,"AYKUT YILMAZ "
PAUSE 50
LCDOUT $FE,$C3,"AYKUT YILMAZ "
PAUSE 50
LCDOUT $FE,$C2,"AYKUT YILMAZ "
PAUSE 1500
LCDOUT $FE,$C1,"AYKUT YILMAZ "
PAUSE 50
LCDOUT $FE,$C0,"AYKUT YILMAZ "
PAUSE 50
LCDOUT $FE,$C0,"YKUT YILMAZ "
PAUSE 50
LCDOUT $FE,$C0,"KUT YILMAZ "
PAUSE 50                  
LCDOUT $FE,$C0,"UT YILMAZ "
PAUSE 50
LCDOUT $FE,$C0,"T YILMAZ "
PAUSE 50
LCDOUT $FE,$C0," YILMAZ "
PAUSE 50
LCDOUT $FE,$C0,"YILMAZ "
PAUSE 50
LCDOUT $FE,$C0,"ILMAZ "
PAUSE 50
LCDOUT $FE,$C0,"LMAZ "
PAUSE 50
LCDOUT $FE,$C0,"MAZ "
PAUSE 50
LCDOUT $FE,$C0,"AZ "
PAUSE 50
LCDOUT $FE,$C0,"Z "
PAUSE 50
LCDOUT $FE,$C0," "
PAUSE 50
GOTO BASLA
END

[bilim_teknik]

yardımlarınız için teşekkürler
ama kayan yazı komutları bunlar değilmi?

$FE,$0F /YANIP SÖNEN İMLEÇ
$FE,$10 /YAZIYI SOLA KAYDIR
$FE,$14 /YAZIYI SAĞA KAYDIR
BUNLAR DEĞİLMİ
YOKSA BENMİ YANLIŞ YAZ MIŞIM??
YİNEDE YARDIMLARINIZ İÇİN ÇOOOOOK TEŞEKKÜR EDERİM
BAZI SORUNLARINIZ OLURSA BANA SORA BİLİR SİNİZ..