PROTON + la LCD işlevleri nasıl oluyor?

[sünger bob]

Protan da 2x40 lcd kullanıyorum. 1 inci ve 2 ci satırda istediğim yere yazdırıyorum
1-2 değişik yazdırmadan sonra örnek olarak ekrana 3 defa değişik yazı yazdırdım sonra son yazdırdığım şeylerin kalmasını istiyorum ilk 2 tanesi artık gözükmesin mesala

PRINT $FE , 1  					
print at 1,1,"merhaba"
print at 2,6,"selam Picproje"
DELAYMS 3000
PRINT $FE , 1
print at 1,3,"buradayim"
print at 2,3,"ahmet nasilsin"
DELAYMS 3000
PRINT $FE , 1
print at 1,1,"bu gun yemek guzeldi"	
print at 2,6,"aksama evdeyim" 
DELAYMS 3000

program döngüsü başka işler yapmaya gitsede bu 3 cü gösterimin kalmasını istiyorum

PRINT $FE , 1
print at 1,1,"bu gun yemek guzeldi"	
print at 2,6,"aksama evdeyim" 
DELAYMS 3000

birde ekranda yazının sağdan sola kaymasını nasıl yaparım?

kısaca bunları beceremedim  :oops:
kısa bir örnekle anlatabilirmisiniz? teşekkürler

[cuneytsezmis1]

PRINT $FE , 1
print at 1,1,"bu gun yemek guzeldi"    
print at 2,6,"aksama evdeyim"
goto .......  (etiket) yazarsan ekranda kalır.
kolay gelsin

[Maxim]

yani ,

PRINT $FE , 1                  
print at 1,1,"merhaba" 
print at 2,6,"selam Picproje" 
DELAYMS 3000 
PRINT $FE , 1 
print at 1,3,"buradayim" 
print at 2,3,"ahmet nasilsin" 
DELAYMS 3000 

start1:

PRINT $FE , 1 
print at 1,1,"bu gun yemek guzeldi"    
print at 2,6,"aksama evdeyim" 
DELAYMS 3000


goto start1

[Maxim]

sola kaydırmayı ben böyle yapıyorum ..

PRINT $FE , 1                  
print at 1,1,"merhaba" 
print at 2,6,"selam Picproje" 
DELAYMS 3000 
PRINT $FE , 1 
print at 1,3,"buradayim" 
print at 2,3,"ahmet nasilsin" 
DELAYMS 3000 

start1: 

PRINT $FE , 1 
print at 1,1,"bu gun yemek guzeldi"    
print at 2,6,"aksama evdeyim" 
DELAYMS 150

PRINT $FE , 1 
print at 1,1,"bu gun yemek guzeldi"    
print at 2,5,"aksama evdeyim" 
DELAYMS 150

PRINT $FE , 1 
print at 1,1,"bu gun yemek guzeldi"    
print at 2,4,"aksama evdeyim" 
DELAYMS 150

PRINT $FE , 1 
print at 1,1,"bu gun yemek guzeldi"    
print at 2,3,"aksama evdeyim" 
DELAYMS 150

PRINT $FE , 1 
print at 1,1,"bu gun yemek guzeldi"    
print at 2,2,"aksama evdeyim" 
DELAYMS 150

PRINT $FE , 1 
print at 1,1,"bu gun yemek guzeldi"    
print at 2,1,"aksama evdeyim" 
DELAYMS 150

DELAYMS 3000 

goto start1

[sünger bob]

Hocam mantığı anladım, bende denemeler yapıyordum
sayenizde protonu sevmeye başladım yaptıkca pişeceğiz
tekrar teşekkürler

[sitenindelisi]

Şu şekilde çok daha efektif kod çıkarabilirsiniz.

Dim _count as byte

start1:
print $fe,1
print at 1,1,"bu gun yemek guzeldi"
 
for _count =6 to 1 step -1
       print at 2,_count,"aksama evdeyim"
       delayms 150
next _count

delayms 3000

goto start1

[sünger bob]

Verdiğiniz bilgiler için teşekkürler.

2 satıra 1 cisi soldan 2 cisi sağdan kayar yazdırmak istediğimde 2 ci satır için kodda sorun çıktı
eksik olan ne? "step +1" deyince hataya giriyor

PRINT $FE,1
for _count2 =19 to 3 step -1
print at 1,_count2,"SELAM PICPROJE"		
       delayms 150
next _count2

for _count3 =1 to 15 step +1
print at 2,_count3,"HEY BURADAYIZ"	
       delayms 150
next _count3	   
DELAYMS 3000

bu şekilde çalışıyor fakat yazı kayması bitince son hanelerde karakterler kalıyor
1 ci satır kayması bitmeden 2 ci satır kayması başlamıyor

PRINT $FE,1
for _count2 =19 to 3 step -1
print at 1,_count2,"SELAM PICPROJE"		
       delayms 150
next _count2

for _count3 =19 to 3 step -1
print at 2,_count3,"HEY BURADAYIZ"	
       delayms 150
next _count3	   
DELAYMS 3000

[e3]

Kaydırmayı bitirdikten sonra ekranda yazı kalmayacağı için ekranı CLS komutu ile silersen ekranda yazıların son karakterleri kalmaz.Sonra ikinci satıra geçer kaydırmaya devam edersin.İyi çalışmalar.

Edit : Ayrıca hataya gelince "HEY BURADAYIZ" zaten 13 karakter.1 to 3 dersen sorun çıkmaz zannediyorum.

[sünger bob]

@sitenindelisi hocam verdiğiniz kısa yol kodlar her ne kadar proteus ta çalışıyor olsada gerçek kart üstünde sorunlar yaşadım

hele kullandığım 4mhz kristal beni hacımat etti tam kartı camdan atacakken olayı farkettim değiştirice program düzeldi.
Öğrenmek için tırmalamaya devam ediyorum başka yolu yok.

[Maxim]

@sitenindelisi hocam verdiğiniz kısa yol kodlar her ne kadar proteus ta çalışıyor olsada gerçek kart üstünde sorunlar yaşadım

hele kullandığım 4mhz kristal beni hacımat etti tam kartı camdan atacakken olayı farkettim değiştirice program düzeldi.
Öğrenmek için tırmalamaya devam ediyorum başka yolu yok.

sitenindelisi`nin kodları çok daha mantıklı ,
sorun varsa onun üzerinde çalış derim .

mesela benim kodları kullanırsan,
yukarıda verdiğim kodlar ile 16F84 üzerinde ,
yazıyı sağdan sola kaydır sonra aynı şekilde soldan sağa kaydıramıyorsun çünkü 16F84 ün hafızası doluyor .

[sünger bob]

Kristalin sebebine arada bir lcd de el kol hareketlerine benzer şekiller çıkınca neredeyse akraba oluyorduk.  8O
Çalışıyorum hocam hemde tam gaz.

[Maxim]

Yaw bu kristallerde bi numaralar var ama anlamadım bende ,

geçenlerde 5-6 tane 20mhz kristal almıştım ,
kullanırken beni deli etti ,
2 tanesi çalıştı ,diğerleri fıss ..
ama atmadım onları, kesin bir gariplik var ,
bekliyorum hepsi bozuk olamaz diye düşünüyorum .
Bakalım ne çıkacak .

[showtime]

Yaw bu kristallerde bi numaralar var ama anlamadım bende ,

geçenlerde 5-6 tane 20mhz kristal almıştım ,
kullanırken beni deli etti ,
2 tanesi çalıştı ,diğerleri fıss ..
ama atmadım onları, kesin bir gariplik var ,
bekliyorum hepsi bozuk olamaz diye düşünüyorum .
Bakalım ne çıkacak .

aynen kardeş bende de biri bozuk çıktı ve 20Mhz. kafayı yiyecektim devrede hata nerde diye meğerse kristal kafadan bozuk çıktı.