LCD de kayan yazı

[Ankaralı]

Merhabalar;

LCD de kayan yazıyı hangi komutla yapıyorduk?

[aykut54]

Ben bir kaç adet 2007 yılında yazmıştım basicte. PROTONDA bir uygulama yaptım proton KODU, Şemayı burdan çıkartırsın;

DEVICE 16F84

    Declare XTAL 4

    Declare LCD_DTPIN	PortB.4
    Declare	LCD_RSPIN	PortB.1
    Declare	LCD_ENPIN	PortB.0
    Declare	LCD_INTERFACE	4
    Declare	LCD_LINES	2 

    print $fe,$93
    print "A"
    delayms 100
    print $fe,$92
    print "Ay"
    delayms 100
    print $fe,$91
    print "Ayk"
    delayms 100
    print $fe,$90
    print "Ayku"
    delayms 100
    print $fe,$8f
    print "Aykut"
    delayms 100
    print $fe,$8e
    print "Aykut y"
    delayms 100
    print $fe,$8d
    print "Aykut yi"
    delayms 100
    print $fe,$8c
    print "Aykut yil"
    delayms 100
    print $fe,$8b
    print "Aykut yilm "
    delayms 100
    print $fe,$8a
    print "Aykut yilma  "
    delayms 100
    print $fe,$89
    print "Aykut yilmaz  "
    delayms 100
    print $fe,$88
    print "Aykut yilmaz  "
    delayms 100
    print $fe,$87
    print "Aykut yilmaz  "
    delayms 100
    print $fe,$86
    print "Aykut yilmaz   "
    delayms 100
    print $fe,$85
    print "Aykut yilmaz   "
    delayms 100
    print $fe,$84
    print "Aykut yilmaz   "
    delayms 100
	print $fe,$83
    print "Aykut yilmaz   "
    delayms 100
	print $fe,$82
    print "Aykut yilmaz   "
    delayms 1500
	
    
    
    
    print $fe,$f
    print "E"
    delayms 100
    print $fe,$ce
    print "En"
    delayms 100
    print $fe,$cd
    print "End"
    delayms 100
    print $fe,$cc
    print "End."
    delayms 100
    print $fe,$cb
    print "End.E"
    delayms 100
    print $fe,$ca
    print "End.El"
    delayms 100
    print $fe,$c9
    print "End.Ele"
    delayms 100
    print $fe,$c8
    print "End.Elek"
    delayms 100
    print $fe,$c7
    print "End.Elekt"
    delayms 100
    print $fe,$c6
    print "End.Elekttr"
    delayms 100
    print $fe,$c5
    print "End.Elektro"
    delayms 100
    print $fe,$c4
    print "End.Elektron"
    delayms 100
    print $fe,$c3
    print "End.Elektroni"
    delayms 100
    print $fe,$c2
    print "End.Elektronik" 
    delayms 100
	print $fe,$c1
    print "End.Elektronik "
    delayms 2000
    cls

bu kod çok uzun daha kolay bir yöntemi daha var tabikide FOR.....NEXT döngüsüyle
http://www.picpro.org/pic_ile_LCD%20_kayan_yazi.html
alıntıdır!

İYİ çalışmalar

[Ankaralı]

Hızır gibisin aykut54.Teşekkür ettim.

[teknikelektronikci]

kayan yazimi ?

GIRIS_YAZI: 
    Print At 0,0   
    For B2= 0 To 20
    LookUp B0, ["*** Ege Meslek Yuksek Okulu Endustriyel Elektronik ***   ?"], B1
    If B1 = "?" Then 
    GoSub EKRAN_TEMIZLE
    GoTo ANA_PROGRAM
    EndIf
    Print  B1
    B0 = B0 + 1
    Next B2
    DelayMS 100

    B0 = B0 - 20
    GoTo GIRIS_YAZI

istediginiz yaziyi yazip kaydirin

[teknikelektronikci]

bu daha iyi

ANA_PROGRAM:
    Print At 0,0   
    For B2= 0 To 20
    LookUp B0, ["*** DESIGNED BY Ay**** ELEKTRONIK-OTOMASYON www.ay****elektronik.com  ***              ?"], B1
    If B1 = "?" Then B0=0
    Print  B1
    B0 = B0 + 1
    Next B2
    DelayMS 100
    B0 = B0 - 20
  
    Print At 1,0,DEC4 CIKIS_SEC,
    Print At 2,0,"LDR1:",#LDR1_DURUM:Print At 2,11,"MOTOR1-R:",#MOTOR1_R
    Print At 3,0,"LDR2:",#LDR2_DURUM:Print At 3,11,"MOTOR1-L:",#MOTOR1_L
    Print At 5,0,"LDR3:",#LDR3_DURUM:Print At 5,11,"MOTOR2-R:",#MOTOR2_R
    Print At 6,0,"LDR4:",#LDR4_DURUM:Print At 6,11,"MOTOR2-L:",#MOTOR2_L
    Print At 7,0,"(MENU)"           :Print At 7,14,"(SLEEP)"
    
    GoSub LDR_AL
    GoSub Motor_bilgi_al
   
    If PORTB.7=0 Then 
    DelayMS 100
    GoSub EKRAN_TEMIZLE
 ;   LDR1_DURUM=0
 ;   LDR2_DURUM=0
 ;   LDR3_DURUM=0
 ;   LDR4_DURUM=0
    
  ;  MOTOR1_R=0
  ;  MOTOR1_L=0
  ;  MOTOR2_R=0
  ;  MOTOR2_L=0
    
    GoTo GOING_SLEEP_MODE
    EndIf
    
    If PORTB.4=0 Then 
    DelayMS 100
    GoSub EKRAN_TEMIZLE
    GoTo ANA_MENU
    EndIf
    
    GoTo ANA_PROGRAM

gerekli kisimlari kendinize alir degiskenleri tanimlar ve lcd configrasyonlarini yapar iseniz tamam dir

[uardal]

hocam ellerin dert görmesin kaçgündür arıyordum bunu