lcd ye nasıl kayan yazı yazılır

[erginkavakci]

merhaba ben lcd ye kayan yazı yazdıracak komutu bulamadım yardımcı olursanız sevinirim 8O  8O

[teknikelektronikci]

buyur kardeşim al sana kayan yazı kolay gelsin




@ device XT_OSC,PROTECT_OFF,WDT_OFF,PWRT_ON,PROTECT_OFF
B1   VAR   BYTE
B0   VAR   BYTE
B2   VAR   BYTE
B3   VAR   BYTE
   Low PORTB.2
   Pause    500
   LCDOut $fe, $c0, "     buraya istediğin yazıyı yazabilirsin     "
   LCDOut $fe, 2
reset:
      B0 = 0
loop:      
      LCDOut $fe, 2
      For B2= 0 TO 15
      LookUp B0, ["    kayacak yazı buraya yazılacak  yukarıdaki yazı sabit 1. satırda bu ise 2. satırda            #"], B1
      IF B1 = "#" Then GoTo reset
      LCDOut B1
      B0 = B0 + 1
      Next B2
      Pause 300
      B0 = B0 - 15
      GoTo loop

[bayramonur]

Degisik bir kayan yazi oldu ama mantigi anlarsin umarim.

     
        Device 16F84A
        Xtal 4    
'giris animasyonu tanimlama
        Dim Anim2[9] as byte
        Anim2[0]="P"         
        Anim2[1]="i"
        Anim2[2]="c"
        Anim2[3]=" "
        Anim2[4]="P"
        Anim2[5]="r"
        Anim2[6]="o"
        Anim2[7]="j"
        Anim2[8]="e"
'yada Str Anim2 = "Pic Proje",0
        Dim x as byte
anaprogram:    
        Print at $FE, $0f
        For x = 0 to 8
         Print at 1,x+4,Anim2[x]
         Delayms 150
        next
        Print at $FE, $0e        
        For x = 8 to 0 step -1
         Print at 2,x+4,Anim2[x]
         Delayms 150
        next
        Delayms 1500           
        Print at  $FE, $0C
        Print  $FE,1
        goto anaprogram    

[mau2002]

yeri deil ama assembly ile kayan yazı kodu var mı

[mihri]

Buda benden


'-------------------------------------------------------------------------------
TRISA=%11111
TRISB=0
'-------------------------------------------------------------------------------
@ DEVICE pic16F84A
@ DEVICE pic16F84A,WDT_ON
@ DEVICE pic16F84A,PWRT_ON
@ DEVICE pic16F84A,PROTECT_OFF
@ DEVICE pic16F84A,XT_OSC
'-------------------------------------------------------------------------------
DEFINE LCD_DREG      PORTB   
DEFINE LCD_DBIT         4      
DEFINE LCD_EREG      PORTB   
DEFINE LCD_EBIT         3   
DEFINE LCD_RWREG    PORTB   
DEFINE LCD_RWBIT        2      
DEFINE LCD_RSREG   PORTB   
DEFINE LCD_RSBIT      1   
DEFINE LCD_BITS         4   
DEFINE LCD_LINES      2   
'-------------------------------------------------------------------------------
SURELCD CON 120
KAYDIR  VAR byte
'-------------------------------------------------------------------------------
LCDOUT $FE,$40,17,0,17,17,17,17,31,0  '0 ü harfi
LCDOUT $FE,$48,17,0,31,17,17,17,31,0  '1  ö harfi
LCDOUT $FE,$50,4,0,14,4,4,4,14,0        '2  i harfi   
KAYDIR=143
'-------------------------------------------------------------------------------
pause 500
YAZDIR:
   PAUSE SURELCD
   KAYDIR=KAYDIR-1                
   LCDOUT $FE,2,"                "
   LCDOUT $FE,KAYDIR,"MESUT G",0,"NG",1,"R"
   LCDOUT $FE,$C0,"                "
   LCDOUT $FE,$C0,"   SAU.EDU.TR"
   IF KAYDIR=130 THEN
   KAYDIR=143
   PAUSE 2000
   GOTO DEVAM
   ENDIF
GOTO YAZDIR
DEVAM:
   PAUSE SURELCD
   KAYDIR=KAYDIR-1
   LCDOUT $FE,2,"                "              
   LCDOUT $FE,KAYDIR,"  SAU.EDU.TR"
   LCDOUT $FE,$C0,"  MESUT G",0,"NG",1,"R"
   IF KAYDIR=129 THEN
   KAYDIR=143
   PAUSE 2000
   GOTO YAZDIR
   ENDIF
GOTO DEVAM      
End
'-------------------------------------------------------------------------------

[seco06]

@ DEVICE pic16F876
@ DEVICE pic16F876, WDT_OFF
@ DEVICE pic16F876, PWRT_ON
@ DEVICE pic16F876, PROTECT_OFF
@ DEVICE pic16F876, XT_OSC
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTA
DEFINE LCD_EBIT 1
DEFINE LCD_RWREG PORTA
DEFINE LCD_RWBIT 2
TRISB=%00000000
kay var byte
Lcdkol con 16
lcds con 28
lcdout $fe,1
pause 100
For kay=0 to lcds
pause 10
LcdOut $FE,$8F,REp " "\-kay,"picproje"
pause 200
next kay
pause 500
for kay=0 to Lcdkol
next kay

Buda benden