چنانچه پروژه ای برنامه نویسی کرده اید و در ابتدای برنامه نیاز دارید که تبلیغات خودتان را نمایش دهید میتوانید از قطعه برنامه ای که نوشته ام استفاده نمایید.

در متغیر Text میتوانید متن دلخواه را وارد نموده و متغیر Speed سرعت حرکت و متغیر های Lcd_row و Lcd_col مشخصه های ال سی دی بکار رفته میباشد.

اولی تعداد ردیفهای ال سی دی و دومی تعداد ستونهای آن میباشد.

این برنامه بگونه ای نوشته شده که شما براحتی بتوانید از آن استفاده نمایید و نیاز به دستکاری داخل برنامه نباشد.

شماتیک:

سورس برنامه :

***************************************
NAME = LCD Ravan
Ver : 1.0
DESIGNER = ESMAEIL MOHAMMAD ZADEH
MOBILE : 09139545140
FINAL DATE : 1391/8/5
E-MAIL : Esmaeil_AVR@yahoo.com
***************************************
$regfile = "M32def.dat" : $crystal = 8000000 : Enable Interrupts

Config Debounce = 50
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7 , _
E = Pina.3 , Rs = Pina.2

Dim Text As String * 50
Dim Text2 As String * 50
Dim I As Byte , Lenght As Byte
Dim Lcd_col As Byte , Lcd_row As Byte
Dim Col As Byte , Speed As Word
******************************************
Text = "Esmaeil Mohammad Zadeh - Tel : 09139545140"
Lcd_row = 2
Lcd_col = 16
Speed = 300 Mili sec
***************************************
Begin:
Cls : Cursor Off
Lenght = Len(text)
Home : Lcd " LCD Ravan"
Main:
***************************************
Col = Lcd_col
For I = 1 To Lcd_col
Text2 = Mid(text , 1 , I)
Locate Lcd_row , Col : Lcd Text2
Waitms Speed
Decr Col
Next I
***************************************
For I = 2 To Lenght
Text2 = Mid(text , I , Lcd_col)
Locate Lcd_row , 1 : Lcd Text2 ; " "
Waitms Speed
Next I
Locate Lcd_row , 1 : Lcd " "
***************************************
jmp Main
End