تاپیک مخصوص افکت سازی برای LCD

[nesarian]

با سلام خدمت دوستان و اساتید محترمECA
دوستانی عزیزی که در مورد کار باLCDبه زبان بیسیک اطلاعاتی دارند و می تونند افکت بسازند کد های خود را در اینجا قرار بدهند تا همگی استفاده کنند
برای تشویق امتیاز مثبت داده می شود
با تشکر فراون

[nesarian]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

با سلام خدمت دوستان عزیز
امتیاز+ برای آقیان
R.Babazadeh
dim s as string*10
"s="1234567890
dim s2 as string*1
dim i as byte
do
cls
for i=1 to 10
(s2=mid(s,i,1
lcd=s2
waitms 500
next i
loop

---

Electronet_Ir

char copy_right1[]=" A-Hosseini ";
void intro(void)
{
for(i=0;i<16;i++)
{
lcd_gotoxy(i,0);
lcd_putchar(copy_right);
lcd_putsf("_"
delay_ms(200);
}
for(i=0;i<15;i++)
{
lcd_gotoxy(i,1);
lcd_putchar(copy_right1);
lcd_putsf("_"
delay_ms(200);
}
delay_ms(2000);

}

[nesarian]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

این کد مال چه کسی است؟
خودشو معرفی کنه
$regfile = "m16def.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , _
E = Porta.3 , Rs = Porta.2
Dim Name As String * 10 , A As Integer , I As Byte , N As Byte , Name1 As String * 1 , Name2 As String * 10 , J As Byte
N = 1
Cls
Cursor Off
Name = "JUST PAYAM"
A = Len(name)
Name2 = " "
For I = 1 To A
Name1 = Mid(name , N , 1)
If Name1 <> " " Then
For J = 16 To N Step -1
Cls
Locate 1 , 1
Lcd Name2
Locate 1 , J
Lcd Name1
Waitms 150
Next
End If
Name2 = Mid(name , 1 , I)
Incr N
Next

End 'end program

[nesarian]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

سلام خدمت دوستان عزیز
میشه برایLCD متن از پایین با بالا حرکت کنه یا برعکس(کد)
ممنون میشم پاسخ بدین

[امیرعلی بلورچیان]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

بله شدنش میشه.
تو codevision یک دستور به نام lcd_gotoxy(x,y) داریم که خوب x,y رو میشه یک طوری برنامه داد که از پایین به بالا بره یعنی شما مکان نمارو کنترل میکنی زیاد کار سختی به نظر نمیاد.
حالا نمیدونم شما با چه زبانی مینویسید ولی اگر به مشخصات این دستور مراجعه کنید مشکلتون حل میشه

[nesarian]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

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

[امیرعلی بلورچیان]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

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

[رضا حاجي زاده]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

با سلام خدمت دوستان و اساتید محترمECA
دوستانی عزیزی که در مورد کار باLCDبه زبان بیسیک اطلاعاتی دارند و می تونند افکت بسازند کد های خود را در اینجا قرار بدهند تا همگی استفاده کنند
برای تشویق امتیاز مثبت داده می شود
با تشکر فراون

با سلام
شما نوع ال سی دی رو مشخص نکردی
این کاری که اقای بلورچیان پیشنهاد دادند توی ال سی دی های سایز کوچیک عملی نیست

معمولا از این دستور فقط میشه محل شروع نوشته ها رو مشخص کرد
خوب اگه بخواهید با همین دستور کلمات را با ترکیب های متفاوت نمایش بدی کارت سخت تر میشه


اگه در نظر داری برای ال سی کارهای خوبی انجام بدی بهتره با نوع گرافیکی اونا کار بکنی

موفق باشی

[امیرعلی بلورچیان]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

دستوری که من گفتم ربطی به سایز LCD نداره همه جا کار میکنه ولی خوب شاید روش بهتری وجود داشته باشه که بر میگرده به توابع موجود در زبان برنامه نویسی شما .

[رضا حاجي زاده]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

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

ضمنا باز می گم دستور lcd_gotoxy در هر باری که شما اقدام به ارسال نوشته می کنید محل شروع نوشته رو تعین می کنه
حالا شما به فرض بیاید چند تا کلمه رو جد جد در محل های مختلف نمایش بدی خوب در اون حالت تاخیر رو چی کار می کنه یعنی کلمات زشت نمایش داده میشه

موفق باشی

[nesarian]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

سلام خدمت دوستان عزیز
LCD16*4
با بیسیک میشه چنین کاری کرد لطفا توضیح بدین و کد مورد نظر را قراردهید
ممنون

[nesarian]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

با سلام خدمت دوستان عزیز
کسی جواب ما رو نمیده :sad:
با تشکر فراوان

[Iran-PC]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

خوب کاری نداره که
تو هر خطی هستی
متنتو بنویس
با یه وقفه ای
متن رو پاک کن
و در خط بعدی (چه پائینی چه بالایی) بنویس
زبانش هم مهم نیست
با هر زبانی میشه
اگر وقت کردم کدش رو میگذارم.

[امیرعلی بلورچیان]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

منم دقیقا همین منظورم هست. روش دیگه ای هم فکر نکنم داشته باشه

[r.babazadeh]

پاسخ : تاپیک مخصوص افکت سازی برای LCD

$regfile = "m8515.dat"
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6


Config Lcd = 20 * 4                    'configure lcd screen

Dim A(10) As String * 15
Dim I As Byte
Dim X As Byte
Cursor Off Noblink                     'hide cursor
Display On                         'turn display on


A(1) = "BBBBBBBBBBBBBBB"
A(2) = "CCCCCCCCCCCCCCC"
A(3) = "DDDDDDDDDDDDDDD"
A(4) = "EEEEEEEEEEEEEEE"
A(5) = "FFFFFFFFFFFFFFF"
A(6) = "GGGGGGGGGGGGGGG"
A(7) = "HHHHHHHHHHHHHHH"
A(8) = "IIIIIIIIIIIIIII"
A(9) = "JJJJJJJJJJJJJJJ"
A(10) = "KKKKKKKKKKKKKKK"

Initlcd
Main:
For I = 1 To 9
 Cls
 Lcd A(i)

 Lowerline
 X = I + 1
 Lcd A(x)

 Lowerline
 X = X + 1
 Lcd A(x)


 Lowerline
 X = X + 1
 Lcd A(x)

 Waitms 10

Next

Goto Main