مشکل با lcd گرافیکی

[mehranviva]

سلام دوستان
یه پروژه با lcd گرافیکی باید انجام بدم تمام کاراشو کردم تو پروتئس جواب میده درست کار میکنه اما تو عمل هیچی نشون نمیده رو lcd خواهشن کمک کنید
فایل bascom و proteus
http://s5.picofile.com/file/8144434842/LCD2.zip.html
اگر کسی پیشنهاد بهتری داره ممنون میشم راهنمایی کنه

[اشکان غفارزاده]

پاسخ : مشکل با lcd گرافیکی

عزیز جان دستور end رو فراموش کرده بوده


بفرما اینم برنامه با end

[code=vb]$regfile = "m16def.dat"
$crystal = 8000000

$hwstack = 32
$swstack = 10
$framesize = 40
$include "font8x8.font"

$lib "glcdKS108.LBX"

Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portb , Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 6 , Enable = 2
Setfont Font8x8
Do
Showpic 0 , 0 , Pic1
Waitms 50
Showpic 0 , 0 , Pic2
Waitms 50
Showpic 0 , 0 , Pic3
Waitms 50
Showpic 0 , 0 , Pic4
Waitms 50
Showpic 0 , 0 , Pic5
Waitms 50
Showpic 0 , 0 , Pic6
Waitms 50
Showpic 0 , 0 , Pic7
Waitms 50
Showpic 0 , 0 , Pic8
Waitms 50
Cls
Loop

End

Pic1:
$bgf "01.bgf"

Pic2:
$bgf "02.bgf"

Pic3:
$bgf "03.bgf"

Pic4:
$bgf "04.bgf"

Pic5:
$bgf "05.bgf"

Pic6:
$bgf "06.bgf"

Pic7:
$bgf "07.bgf"

Pic8:
$bgf "08.bgf"[/code]

[mehranviva2]

پاسخ : مشکل با lcd گرافیکی

[quote author=اشکان غفارزاده. link=topic=99819.msg635353#msg635353 date=1412607718]
عزیز جان دستور end رو فراموش کرده بوده


دوسته عزیز برنامه از loop خارج نمیشه که بخواد به end برسه , ممنون امتحان کردم بازم درست نشد
متاسفانه ساده ترین چیز هم نتونستم روی lcd گرافیکی نمایش بدم

[اشکان غفارزاده]

پاسخ : مشکل با lcd گرافیکی

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

یه سوال اساسی : شما پایه 3 رو به کجا وصل کردید ؟ این پایه مربوط به کنتراست هست که باید یه پتانسیومتر رو به پایه 18 و زمین وصل کنید و سروسط پتانسیومتر رو به پایه 3 بدید و کنتراست رو تنظیم کنید تا تصویر ظاهر بشه

[mehranviva2]

پاسخ : مشکل با lcd گرافیکی

پایه 3 مگه gnd نیست؟
پایه 4 یعنی vo رو به پایه وسط پتانسیومتر وصل کردم
مشکل در عملی هست که کار نمیکنه
ممکنه از فرکانس یا نویز یا منبع تغذیه باشه؟ چقدر مصرف دارن این lcd ها؟

[اشکان غفارزاده]

پاسخ : مشکل با lcd گرافیکی

پایه 3 مگه gnd نیست؟
پایه 4 یعنی vo رو به پایه وسط پتانسیومتر وصل کردم

ترتیب پایه ها پروتئوس با عمل از زمین تا آسمون فرق داره :-SS %-( ~x( ~x( ~x( ~x( :-? :-?
ترتیب پایه ها در واقعیت به صورت زیره

مشکل در عملی هست که کار نمیکنه

بله مشکل در عملی هست

ممکنه از فرکانس یا نویز یا منبع تغذیه باشه؟ چقدر مصرف دارن این lcd ها؟

از فرکانس و نویز و مویز و این جور چیزا نیست
مصرف این السیدی ها تقریبا 5میلی آمپره


بعد هم اون دستور end استاندارد برنامه هست

[mehranviva2]

پاسخ : مشکل با lcd گرافیکی

خیلی ممنون مشکلم حل شد
تصویرم میاد اما خیلی نویز داره به صورت کامل هم نشون نمیده

[اشکان غفارزاده]

پاسخ : مشکل با lcd گرافیکی

خیلی ممنون مشکلم حل شد
تصویرم میاد اما خیلی نویز داره به صورت کامل هم نشون نمیده

دلیلش اینکه زمان برای نمایش کامل تصویر کمه
برای حل مشکل اون waitms ها رو زیاد کن

[mehranviva2]

پاسخ : مشکل با lcd گرافیکی

دلیلش اینکه زمان برای نمایش کامل تصویر کمه
برای حل مشکل اون waitms ها رو زیاد کن

شرمنده شما رو اذیت میکنم
اما تو تصویرم خط های راه راه هست بعد از چند ثانیه تصویر چشمک میزنه کاملا همه چیز میره

[اشکان غفارزاده]

پاسخ : مشکل با lcd گرافیکی

شرمنده شما رو اذیت میکنم
اما تو تصویرم خط های راه راه هست بعد از چند ثانیه تصویر چشمک میزنه کاملا همه چیز میره

این تبعات عوضی وصل پایه هاست
احتمالا سوخته
چون شما سروسط پتانسیومتر رو که به پایه 4 وصل و سر وسط پتانسیومتر هم ولتاژ منفی داره و استاندارد ولتاژ پایه 4 که جزو پایه های منطقی هست از منفی0.5ولت تا 5.5ولت هست

حالا برای اطمینان شما یه تصویر رو نمایش بده
[code=vb] $regfile = "m16def.dat"
$crystal = 8000000

$hwstack = 32
$swstack = 10
$framesize = 40
$include "font8x8.font"

$lib "glcdKS108.LBX"

Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portb , Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 6 , Enable = 2
Setfont Font8x8
Do
Showpic 0 , 0 , Pic1
Wait 1
Loop

End

Pic1:
$bgf "01.bgf"

[/code]

[mehranviva2]

پاسخ : مشکل با lcd گرافیکی

درست نشون نمیده :cry2: :cry2: :cry2: :cry2:
محو عکس خیلیم کمرنگه

[اشکان غفارزاده]

پاسخ : مشکل با lcd گرافیکی

درست نشون نمیده :cry2: :cry2: :cry2: :cry2:
محو عکس خیلیم کمرنگه

خب اگه کمرنگه باید با پتانسیومتر تنظیمش کنی