Proton LCD Kayan Yazı

[एक होना]

web de araştırırken bir örnek buldum ve uyguladım. ufak bir sorun var. lcd ekranda yazı soladan sağa doğru kayıyor. bunu sağdan sola doğru nasıl düzenleyebiliriz ?

Device 18F4550
Xtal 20

Declare LCD_Type 0              'LCD Model marka
Declare LCD_DTPin PORTD.4       'LCD Data pinleri başlangıç sayısı
Declare LCD_RSPin PORTD.2       'LCD RS port belirtmeti
Declare LCD_ENPin PORTD.3       'LCD EN port belirtmeti
Declare LCD_Lines 2                     'LCD satır sayısı

All_Digital 1                   

TRISD=0
Dim i As Byte

DelayMS 150
Cls

Inicio:
For i=0 To 15
    Cls
    Print At 1,i, "www.picproje.org"  
    DelayMS 50
    Cls
    
Next i    
    
 GoTo Inicio
 End

Saygılar.

[Karamel]

hocam basic i pek bilmiyorum ama su kismi degistirirseniz olacak gibi.

For i=15 To 0
    Cls
    Print At 1,i, "www.picproje.org" 
    DelayMS 50
    Cls
   
Next i   

[t2]

For i= 15 To 0 Step -1
    Cls
    Print At 1,i, "www.picproje.org"  
    DelayMS 50
    Cls
    
Next i   

[Karamel]

hocam yukarida yazdigim olmazsa soylede deniyebilirsiniz

For i=0 To 15
    Cls
    Print At 1,(15 - i), "www.picproje.org" 
    DelayMS 50
    Cls
   
Next i   

[एक होना]

@Karamel hocam yardımın için teşekkürler @ t2 hoca nın verdiği kod demeti oldu.

tekrar teşekkürler.

LCD ekranda yazı geçmesi esnasında yazı gelip gidiyor bu normal midir ?

her satır kaydığında yazı kayboluyor ve tekrar geliyor geldiğinde bir satır kaymış oluyor.

[t2]

Döngü içindeki cls leri silelim, yanıp sönmez.

[एक होना]

@t2 hocam teşekkürler.