بستم مدار lcd گرافیکی

[h-hichkas]

با سلام خدمت دوستان
من میخواهم یک مدار lcd گرافیکی رو روی بورد ببندم . برنامه کاملا تست شده و در پروتیوس جواب گرفته ام. اما وقتی lcd رو روی بورد می بندم ؛ بعد از وصل مدار کاملا مشکی می شود. من از mega16 استفاده کرده ام و برق رو هم از usb پاور رگلاتور و هر چه که به فکرم رسیده استفاده کرده ام . از پتانسیو متر 10k استفاده می کنم و روشنایی رو هم کم و زیاد میکنم . lcd هم از مدل ts12864a2 است.

لطفا سریع به من کمک کنید که کارم خیلی گیره

[as2000x]

پاسخ : بستم مدار lcd گرافیکی

سلام

با چی نوشتی؟

[msh13792]

پاسخ : بستم مدار lcd گرافیکی

سلام
منم مثله شما دقیقا همین مشکل دارم همه کاری هم کردم اگه شما راهی پیدا کردی بگو .

[h-hichkas]

پاسخ : بستم مدار lcd گرافیکی

سلام

با چی نوشتی؟

با CodeVision برنامه رو نوشتم

[as2000x]

پاسخ : بستم مدار lcd گرافیکی

سلام


Reset lcd رو داخل Proteus به کجا وصل کردی ؟ (میکرو یا Vcc+5 )

اگر Vcc+5 وصل کرده باشی توی Proteus جواب میده اما توی عمل جواب نمیده ( یه زمان کلی منو سرکار گذاشته بود)

وصل کنید به میکرو و قبل از وارد شدن به تابع ست ال سی دی (init_lcd ). مقدارشو 1 کنید

void init()
{
int i=0,com[4] = {0xc0,0xb8, 0x40, 0x3f};
rst=1; ////*******/reset is set
rs=0;
while(i<4){
write_left(com[i]);
i++;
}
i=0;
while(i<4){

write_right(com[i]);
i++;
}
cursor(0,25);
write_char('A'
clear();
}

[msh13792]

پاسخ : بستم مدار lcd گرافیکی

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

[eagle shadow]

پاسخ : بستم مدار lcd گرافیکی

سلام...بعد از init کردن lcd یه بار lcd_clear() رو اجرا کن (یعنی یه بار کامل lcd رو پاک کن ببین درست میشه یا نه....

[hamid_adel]

پاسخ : بستم مدار lcd گرافیکی

سلام

منم همچین مشکلی دارم امیدوارم دوستان عنایت کنن تا این مشکل به یاری خدا حل بشه :agree:

[r.p]

پاسخ : بستم مدار lcd گرافیکی

کسی از دوستان میتونه به زبان بیسیک برای ال سی دی سری sed برنامه بنویسه؟

[hamed_online62]

پاسخ : بستم مدار lcd گرافیکی

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

$regfile = "m32def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40


$lib "glcdKS108.lbx"


Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 0 , Ce2 = 1 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5

Wait 1
Glcdcmd &H3E , 1 : Glcdcmd &H3E , 2
Wait 1
Glcdcmd &H3F , 1 : Glcdcmd &H3F , 2

Dim Y As Byte
Cls
Setfont Font8x8

Wait 1


Lcdat 1 , 1 , "123"
Lcdat 2 , 1 , "123" , 1
Line(0 , 0) -(127 , 64) , 1
Wait 2
Line(0 , 0) -(127 , 64) , 0

For Y = 1 To 20
Circle(30 , 30) , Y , 1
Waitms 100
Next


Showpic 0 , 0 , Lable
End
$include "font8x8.font"

Lable:
$bgf "ks108.bgf"