اطلاعیه

**polestar** · 2011-01-20T14:01:19

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

نوشته اصلی توسط زوار

آقا هادی ممنون از پاسختون شرمنده اذیت شدید من نمیخوام مقاومت رو lcd را جابجا کنم اگر این کار را نکنم میتونم از برنامه شما استفاده کنم؟8 بیت دیگه که استفاده نمیشه حتما باید به زمین وصل بشه؟پایه 11هم حتما باید زمین بشه؟در ضمن یک سوال هم از جناب aivhl داشتم با این بورد رابط شما میشه تغذیه میکرو را 5 ولت داد ؟برای lcd مشکلی پیش نمیاد؟در ضمن آقا هادی اگر قضیه تاپیک طعنه نبود اگر این کارا بکنید خیلی خوب میشه همه استفاده میکنیم بازم ازتون ممنونم

سلام زوارجان طعنه دیگه چیه کاملا جدی گفتم
در مورد پایه 11 باید بگم توی اکثر LCD ها به جایی وصل نیست و تنها راه 8 بیت کردنش جابجا کردن مقاومتهای R1 با R2 است
جاداره اینجا از دوست خوبمون aivhl هم بابت طراحی برد تشکر کنم
درمورد سوال بعدیت هم باید بگم که دوست خوبم aivhl جان با استفاده از IC74HC245 میکرو رو کاملا از LCD جدا کرده و ولتاژهاش به هم بطی ندارن من هم چون نمیخواستم برد زیاد شلوغ بشه این کارو نکردم و نیازی هم نداشتم

**زوار** · 2011-01-20T14:40:49

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

پس ما منتظر این تاپیک باشیم؟ :applause: ممنون از پاسختون

**polestar** · 2011-01-26T10:43:26

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

نوشته اصلی توسط زوار

پس ما منتظر این تاپیک باشیم؟ :applause: ممنون از پاسختون

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

**polestar** · 2011-01-26T11:06:34

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

دوست خوبم من این تایپیک رو ایجاد کردم :nice:
امیدوارم همه متو کمک کنید تا تکمیل بشه اسم تایپیک رو هم گزاشتم
تحلیل سورس MP3 Player v2.0 با LCD ELT240320ATP تمام رنگی :rolleyes:
این هم ادرسش http://www.eca.ir/forum2/index.php?topic=47701.msg245845#msg245845
فقط از دوستان خواهش میکنم کمکم کنید

**hadibsb** · 2011-01-26T13:03:28

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

دوستان اگه میشه محبت کنید سورس این lcd رو که زحمتش رو کشیدید یه جای upload کنید . واسه قسمتی از پروژه دانشجوییم نیاز دارم . لینک ها بعضا پاک شدن .

**hadibsb** · 2011-01-28T19:12:08

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

دوستان این سورس رو اگه میشه یه جا اپلود کنید .(البته برای کدویژن)
صواب داره

**polestar** · 2011-01-30T13:31:43

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

نوشته اصلی توسط hadibsb

دوستان اگه میشه محبت کنید سورس این lcd رو که زحمتش رو کشیدید یه جای upload کنید . واسه قسمتی از پروژه دانشجوییم نیاز دارم . لینک ها بعضا پاک شدن .

سلام دوست من
اگر یه سرچی بکنید هست اما دوباره براتون میزارم
http://www.4shared.com/file/8X1ybQHz/MP3_Player_V2.html

**polestar** · 2011-01-31T11:57:25

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

سلام دوستان
من امروز براتون سوپرایز دارم
یه پست دیگه باز کردم خواستم براتون معرفی کنم تا فیضی ببرین
مراحل ساخت یه پروگرامر رو سایت گزاشتم که نظیر نداره (البته تو این قیمت)

http://www.eca.ir/forum2/index.php?topic=47803.new#new

**polestar** · 2011-02-02T19:05:41

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

نوشته اصلی توسط امیر حسام الفتی

البته وقتی عکس های 24 بیتی رو نمایش میدم این مشکل خیلی کمتر میشه ولی مشکل دیگه ای به وجود میاد اونم اینه که اگر مستقیما و با زاویه ی 70 به بالا به ال سی دی نگاه کنید صفحه تاریکه و عکس ها هم تاریکند.
میشه بگید باید کدوم رجیستر ال سی دی رو دست کاری کنم؟
ممنون.

سلام امیر جان
شرمنده که دیر جواب میدم یه خورده زمان برد تا جواب این مشکل شمارو پیدا کردم
بد بودن کیفیت عکسهای شما به LCD ربطی نداره این مشکل زمانی پیش میاد که ولتاژ LCD شما 3.3 ولت بیشتر باشه
شما ولتاژتو چک کن و همچنین پروگرامر به بردت وصل نباشه
اگر مشکلت حل شد منو هم در جریان قرار بده

**amir_mhdi** · 2011-03-16T09:57:01

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

آقا سلام. میخوام یه چیزی بگم روم نمیشه. :cry:
آقا من 2 تا LCD مختلف گرفتم. یکی از فروشگاه سایت یکی هم از یه جای دیگه.
مشخصات درسته ، مثل پایه 21 NC یا 37 پایه و ...

کدی که اوایل تاپیک لینک خورده دیگه موجود نیست.
منم با هر کدی که پیدا کردم ، 8 بیتی ، 16 بیتی ، مقاوتها رو عوض کردم....
نشد که نشد.
اگر براتون امکان داره یک کد تست شده (حداقل میزان امکانات) در حدی که فقط یه نقطه روی صفحه بزنه. چون میخوام از سخت افزارم مطمئن بشم.
نه تاچ میخوام نه نشون دادن عکس رنگی.

**khast khodaiebehnam** · 2011-03-16T10:04:10

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

این صفحه رو کامل رنگ میکنه

کد:

        &#039;              in the name of god

$regfile = &quot;M32def.dat&quot;
$crystal = 10000000

$hwstack = 32                        &#039; default use 32 for the hardware stack

$swstack = 10                        &#039; default use 10 for the SW stack

$framesize = 40


&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;

Declare Sub Orb(ddr As Byte , Byval Bitnum As Byte)     &#039; make output ddr.bitnum = output
Declare Sub Setb(port As Byte , Bitnum As Byte)       &#039; make set  port.bitnum = 1
Declare Sub Clrb(port As Byte , Bitnum As Byte)       &#039; make reset port.bitnum = 0
Declare Function Rdb(pin As Byte , Bitnum As Byte)as Byte  &#039; read pin of a port pin.bitnum

Declare Sub Tslcdoutins                   &#039; send a word instruction to lcd
Declare Sub Tslcdoutdata                  &#039; send a data instruction to lcd
&#039;Declare Function Tslcdindata                &#039; read a word data from lcd

Declare Sub Tslcdinit                    &#039; initialization of lcd

Declare Sub Lcdfillcolor

&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;

Dim Ins As Byte
Dim Dat As Word
Dim Var11 As Byte

&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;

&#039;d.0  reset
&#039;d.1  backlight
&#039;d.2  rs *
&#039;d.3  cs *
&#039;d.4  rd *
&#039;d.5  wr *
&#039;d.6
&#039;d.7

&#039;porta=data

&#039;b.0  chip select *imo


&#039; reset pin declare
&#039; reset pin declare
Lcd_rst_port Alias Portd
Lcd_rst_ddr Alias Ddrd
Lcd_rst_pin Alias Pind
Lcd_rst_pin_num Alias 0

&#039; rs pin declare
Lcd_rs_port Alias Portd
Lcd_rs_ddr Alias Ddrd
Lcd_rs_pin Alias Pind
Lcd_rs_pin_num Alias 2

&#039; cs pin declare
Lcd_cs_port Alias Portd
Lcd_cs_ddr Alias Ddrd
Lcd_cs_pin Alias Pind
Lcd_cs_pin_num Alias 3

&#039; rd pin declare
Lcd_rd_port Alias Portd
Lcd_rd_ddr Alias Ddrd
Lcd_rd_pin Alias Pind
Lcd_rd_pin_num Alias 4

&#039;wr pin declare
Lcd_wr_port Alias Portd
Lcd_wr_ddr Alias Ddrd
Lcd_wr_pin Alias Pind
Lcd_wr_pin_num Alias 5

&#039; lcd databus declare
Lcd_db_msb_port Alias Portc
Lcd_db_msb_ddr Alias Ddrc
Lcd_db_msb_pin Alias Pinc

Lcd_db_lsb_port Alias Porta
Lcd_db_lsb_ddr Alias Ddra
Lcd_db_lsb_pin Alias Pina

&#039; lcd global defines
&#039;-------------------tucj screen
Ts_size_x Alias 240
Ts_size_y Alias 320
Ts_val_entry_mod Alias &amp;H0030
&#039;Ts_ins_gram_hor_ad Alias Ts_ins_gram_adx
&#039;Ts_ins_gram_ver_ad Alias Ts_ins_gram_ady
&#039;Ts_ins_hor_start_ad Alias Ts_ins_start_adx
&#039;Ts_ins_hor_end_ad Alias Ts_ins_end_adx
&#039;Ts_ins_ver_start_ad Alias Ts_ins_start_ady
&#039;Ts_ins_ver_end_ad Alias Ts_ins_end_ady

&#039;==============================regidter=========================================
Ts_ins_start_osc Alias &amp;H0000
Ts_ins_driv_out_ctrl Alias &amp;H0001
Ts_ins_driv_wav_ctrl Alias &amp;H0002
Ts_ins_entry_mod Alias &amp;H0003
Ts_ins_resize_ctrl Alias &amp;H0004               &#039;RESIZE CONTROL
Ts_ins_disp_ctrl1 Alias &amp;H0007
Ts_ins_disp_ctrl2 Alias &amp;H0008
Ts_ins_disp_ctrl3 Alias &amp;H0009
Ts_ins_disp_ctrl4 Alias &amp;H000A
Ts_ins_rgb_disp_if_ctrl1 Alias &amp;H000C
Ts_ins_frm_marker_pos Alias &amp;H000D
Ts_ins_rgb_disp_if_ctrl2 Alias &amp;H000F
Ts_ins_pow_ctrl1 Alias &amp;H0010
Ts_ins_pow_ctrl2 Alias &amp;H0011
Ts_ins_pow_ctrl3 Alias &amp;H0012
Ts_ins_pow_ctrl4 Alias &amp;H0013
Ts_ins_gram_hor_ad Alias &amp;H0020
Ts_ins_gram_ver_ad Alias &amp;H0021
Ts_ins_rw_gram Alias &amp;H0022
Ts_ins_pow_ctrl7 Alias &amp;H0029
Ts_ins_frm_rate_col_ctrl Alias &amp;H002B
Ts_ins_gamma_ctrl1 Alias &amp;H0030
Ts_ins_gamma_ctrl2 Alias &amp;H0031
Ts_ins_gamma_ctrl3 Alias &amp;H0032
Ts_ins_gamma_ctrl4 Alias &amp;H0035
Ts_ins_gamma_ctrl5 Alias &amp;H0036
Ts_ins_gamma_ctrl6 Alias &amp;H0037
Ts_ins_gamma_ctrl7 Alias &amp;H0038
Ts_ins_gamma_ctrl8 Alias &amp;H0039
Ts_ins_gamma_ctrl9 Alias &amp;H003C
Ts_ins_gamma_ctrl10 Alias &amp;H003D
Ts_ins_hor_start_ad Alias &amp;H0050
Ts_ins_hor_end_ad Alias &amp;H0051
Ts_ins_ver_start_ad Alias &amp;H0052
Ts_ins_ver_end_ad Alias &amp;H0053
Ts_ins_gate_scan_ctrl1 Alias &amp;H0060
Ts_ins_gate_scan_ctrl2 Alias &amp;H0061
Ts_ins_gate_scan_ctrl3 Alias &amp;H006A
Ts_ins_part_img1_disp_pos Alias &amp;H0080
Ts_ins_part_img1_start_ad Alias &amp;H0081
Ts_ins_part_img1_end_ad Alias &amp;H0082
Ts_ins_part_img2_disp_pos Alias &amp;H0083
Ts_ins_part_img2_start_ad Alias &amp;H0084
Ts_ins_part_img2_end_ad Alias &amp;H0085
Ts_ins_panel_if_ctrl1 Alias &amp;H0090
Ts_ins_panel_if_ctrl2 Alias &amp;H0092
Ts_ins_panel_if_ctrl3 Alias &amp;H0093
Ts_ins_panel_if_ctrl4 Alias &amp;H0095
Ts_ins_panel_if_ctrl5 Alias &amp;H0097
Ts_ins_panel_if_ctrl6 Alias &amp;H0098

&#039; lcd color code defines
Ts_col_red Alias &amp;H001F
Ts_col_green Alias &amp;H07E0
Ts_col_blue Alias &amp;HF800
Ts_col_yellow Alias &amp;H07FF
Ts_col_purple Alias &amp;HF81F
Ts_col_black Alias &amp;H0000
Ts_col_white Alias &amp;HFFFF

&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;

&#039; start program

&#039;config portb=output
&#039;Config Porta = Output
&#039;--------^ ^---------i think it&#039;s beter use of this line

Var11 = 1
Shift Var11 , Left , Lcd_rst_pin_num
Lcd_rst_port = Lcd_rst_port Or Var11
Lcd_rst_ddr = Lcd_rst_ddr Or Var11

Var11 = 1
Shift Var11 , Left , Lcd_rs_pin_num
Lcd_rs_port = Lcd_rs_port Or Var11
Lcd_rs_ddr = Lcd_rs_ddr Or Var11

Var11 = 1
Shift Var11 , Left , Lcd_cs_pin_num
Lcd_cs_port = Lcd_cs_port Or Var11
Lcd_cs_ddr = Lcd_cs_ddr Or Var11

Var11 = 1
Shift Var11 , Left , Lcd_rd_pin_num
Lcd_rd_port = Lcd_rd_port Or Var11
Lcd_rd_ddr = Lcd_rd_ddr Or Var11

Var11 = 1
Shift Var11 , Left , Lcd_wr_pin_num
Lcd_wr_port = Lcd_wr_port Or Var11
Lcd_wr_ddr = Lcd_wr_ddr Or Var11


Call Tslcdinit
Call Lcdfillcolor

&#039; end program
End


&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;

Sub Tslcdoutdata                      &#039;page 51 write to internal gram

Local Var1 As Word

Config Lcd_db_msb_port = Output
Config Lcd_db_lsb_port = Output
Reset Lcd_cs_port.lcd_cs_pin_num              &#039;reset cs
Set Lcd_rs_port.lcd_rs_pin_num               &#039;set rs
Set Lcd_rd_port.lcd_rd_pin_num               &#039;set rd
Var1 = Dat
Shift Var1 , Right , 8
Lcd_db_msb_port = Var1                   &#039;porta=var1
Lcd_db_lsb_port = Dat
Reset Lcd_wr_port.lcd_wr_pin_num              &#039;reset wr
Set Lcd_wr_port.lcd_wr_pin_num               &#039;set wr
Set Lcd_cs_port.lcd_cs_pin_num

End Sub

&#039;******************************************

Sub Tslcdoutins                       &#039;write an index register

Local Var1 As Word

Reset Lcd_cs_port.lcd_cs_pin_num              &#039;reset cs
Reset Lcd_rs_port.lcd_rs_pin_num              &#039;reset rs
Set Lcd_rd_port.lcd_rd_pin_num               &#039;set rd
Var1 = Ins
Shift Var1 , Right , 8
Lcd_db_msb_port = Var1
Lcd_db_lsb_port = Ins
Reset Lcd_wr_port.lcd_wr_pin_num              &#039;reset wr
Set Lcd_wr_port.lcd_wr_pin_num               &#039;set wr
Set Lcd_cs_port.lcd_cs_pin_num

End Sub


&#039;Function Tslcdindata

&#039;Local Var_lsb As Byte
&#039;Local Var_msb As Word

&#039;Config Lcd_db_port = Input
&#039;Reset Lcd_cs_port.lcd_cs_pin_num              &#039;reset cs
&#039;Set Lcd_rs_port.lcd_rs_pin_num               &#039;set rs
&#039;Set Lcd_wr_port.lcd_wr_pin_num               &#039;set wr
&#039;Reset Lcd_rd_port.lcd_rd_pin_num              &#039;reset rd
&#039;Var_msb = Lcd_db_pin
&#039;Set Lcd_rd_port.lcd_rd_pin_num               &#039;set rd
&#039;Reset Lcd_rd_port.lcd_rd_pin_num              &#039;reset rd
&#039;Var_lsb = Lcd_db_pin
&#039;Set Lcd_rd_port.lcd_rd_pin_num               &#039;set rd
&#039;Set Lcd_cs_port.lcd_cs_pin_num               &#039;set cs
&#039;Shift Var_msb , Left , 8
&#039;Tslcdindata = Var_msb Or Var_lsb
&#039;Print Tslcdindata &#039;;) this your loaded data from gram ;)
&#039;End Function

&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;

Sub Tslcdinit

Local Var1 As Byte
Var1 = 1
Shift Var1 , Left , Lcd_rst_pin_num
Lcd_rst_ddr = Lcd_rst_ddr Or Var1
Reset Lcd_rst_port.lcd_rst_pin_num
Waitms 50
Set Lcd_rst_port.lcd_rst_pin_num
Waitms 50

Waitms 100
Ins = &amp;H00E3 : Call Tslcdoutins               &#039;INDEX REGISTER(IR)
Dat = &amp;H3008 : Call Tslcdoutdata              &#039;set the internal vcore voltage
Ins = &amp;H00EF : Call Tslcdoutins
Dat = &amp;H1231 : Call Tslcdoutdata

Ins = Ts_ins_start_osc : Call Tslcdoutins          &#039;drive code read page51
Dat = &amp;H0001 : Call Tslcdoutdata
Waitms 50

Ins = Ts_ins_driv_out_ctrl : Call Tslcdoutins
Dat = &amp;H0100 : Call Tslcdoutdata              &#039;set SS, SM
Ins = Ts_ins_driv_wav_ctrl : Call Tslcdoutins
Dat = &amp;H0700 : Call Tslcdoutdata              &#039;set 1 line inversion

Ins = Ts_ins_entry_mod : Call Tslcdoutins          &#039;H03 CODE REGISRTE FOR 8 BIT MODE
Dat = Ts_val_entry_mod : Call Tslcdoutdata         &#039;H30 SELECT 8BIT CODE

Ins = Ts_ins_resize_ctrl : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata              &#039;FOR CHANGE SIZE Wink

Ins = Ts_ins_disp_ctrl2 : Call Tslcdoutins
Dat = &amp;H0202 : Call Tslcdoutdata              &#039;SAP=1/BT1=1/APE=1/AP1=1/AP0=1 PAGE64
Ins = Ts_ins_disp_ctrl3 : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata
Ins = Ts_ins_disp_ctrl4 : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata
Ins = Ts_ins_rgb_disp_if_ctrl1 : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata
Ins = Ts_ins_frm_marker_pos : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata
Ins = Ts_ins_rgb_disp_if_ctrl2 : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata

Ins = Ts_ins_pow_ctrl1 : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata
Ins = Ts_ins_pow_ctrl2 : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata
Ins = Ts_ins_pow_ctrl3 : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata
Ins = Ts_ins_pow_ctrl4 : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata
Waitms 200

Ins = Ts_ins_pow_ctrl1 : Call Tslcdoutins
Dat = &amp;H17B0 : Call Tslcdoutdata
Ins = Ts_ins_pow_ctrl2 : Call Tslcdoutins
Dat = &amp;H0137 : Call Tslcdoutdata
Waitms 50

Ins = Ts_ins_pow_ctrl3 : Call Tslcdoutins
Dat = &amp;H013C : Call Tslcdoutdata
Waitms 50

Ins = Ts_ins_pow_ctrl4 : Call Tslcdoutins
Dat = &amp;H1400 : Call Tslcdoutdata
Ins = Ts_ins_pow_ctrl7 : Call Tslcdoutins
Dat = &amp;H0007 : Call Tslcdoutdata
Waitms 50

Ins = Ts_ins_gram_hor_ad : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata
Ins = Ts_ins_gram_ver_ad : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata

Ins = Ts_ins_gamma_ctrl1 : Call Tslcdoutins
Dat = &amp;H0007 : Call Tslcdoutdata
Ins = Ts_ins_gamma_ctrl2 : Call Tslcdoutins
Dat = &amp;H0504 : Call Tslcdoutdata
Ins = Ts_ins_gamma_ctrl3 : Call Tslcdoutins
Dat = &amp;H0703 : Call Tslcdoutdata
Ins = Ts_ins_gamma_ctrl4 : Call Tslcdoutins
Dat = &amp;H0002 : Call Tslcdoutdata
Ins = Ts_ins_gamma_ctrl5 : Call Tslcdoutins
Dat = &amp;H0707 : Call Tslcdoutdata
Ins = Ts_ins_gamma_ctrl6 : Call Tslcdoutins
Dat = &amp;H0406 : Call Tslcdoutdata
Ins = Ts_ins_gamma_ctrl7 : Call Tslcdoutins
Dat = &amp;H0006 : Call Tslcdoutdata
Ins = Ts_ins_gamma_ctrl8 : Call Tslcdoutins
Dat = &amp;H0404 : Call Tslcdoutdata
Ins = Ts_ins_gamma_ctrl9 : Call Tslcdoutins
Dat = &amp;H0700 : Call Tslcdoutdata
Ins = Ts_ins_gamma_ctrl10 : Call Tslcdoutins
Dat = &amp;H0A08 : Call Tslcdoutdata

Ins = Ts_ins_hor_start_ad : Call Tslcdoutins        &#039;RAM SITING FOR SLECT PIC POSITION
Dat = &amp;H0000 : Call Tslcdoutdata
Ins = Ts_ins_hor_end_ad : Call Tslcdoutins
Dat = &amp;H00EF : Call Tslcdoutdata              &#039;END OF HOR ADRES=239
Ins = Ts_ins_ver_start_ad : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata
Ins = Ts_ins_ver_end_ad : Call Tslcdoutins         &#039;GRAM LINE2 SELECT(WE HAVE 320 LINE)
Dat = &amp;H013F : Call Tslcdoutdata              &#039;319 END OF VER
Ins = Ts_ins_gate_scan_ctrl1 : Call Tslcdoutins
Dat = &amp;H2700 : Call Tslcdoutdata
Ins = Ts_ins_gate_scan_ctrl2 : Call Tslcdoutins
Dat = &amp;H0001 : Call Tslcdoutdata
Ins = Ts_ins_gate_scan_ctrl3 : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata

Ins = Ts_ins_panel_if_ctrl1 : Call Tslcdoutins
Dat = &amp;H0010 : Call Tslcdoutdata
Ins = Ts_ins_panel_if_ctrl2 : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata
Ins = Ts_ins_panel_if_ctrl3 : Call Tslcdoutins
Dat = &amp;H0003 : Call Tslcdoutdata
Ins = Ts_ins_panel_if_ctrl4 : Call Tslcdoutins
Dat = &amp;H0110 : Call Tslcdoutdata
Ins = Ts_ins_panel_if_ctrl5 : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata
Ins = Ts_ins_panel_if_ctrl6 : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata

Ins = Ts_ins_disp_ctrl1 : Call Tslcdoutins
Dat = &amp;H0133 : Call Tslcdoutdata


End Sub

&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;

Sub Lcdfillcolor                      &#039;**page 52


Local Counter11 As Long                   &#039;tabdeile counter1 be counter11
Ins = Ts_ins_hor_start_ad : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata              &#039;start asres hor=0

Ins = Ts_ins_hor_end_ad : Call Tslcdoutins
Dat = &amp;H00F0 : Call Tslcdoutdata              &#039;end adres hor=240

Ins = Ts_ins_gram_hor_ad : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata

Ins = Ts_ins_ver_start_ad : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata              &#039;start adrese vertical=0

Ins = Ts_ins_ver_end_ad : Call Tslcdoutins
Dat = &amp;H0320 : Call Tslcdoutdata              &#039;140 hex    &#039;end adrese vertical=500(320hex)

Ins = Ts_ins_gram_ver_ad : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata

&#039;page 82 regester ra benevis va poshte sare ham data befrest ;)
Ins = Ts_ins_rw_gram : Call Tslcdoutins           &#039;*hex 0022 write too gram



For Counter11 = 0 To 76800                 &#039;76800=240*320 ;)
 Dat = Ts_col_red : Call Tslcdoutdata
Next


End Sub


&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;
&#039;IR=index regster
&#039;SR=status read
&#039;RS=REGISTER SELECTION
&#039;RM=RAm access
&#039;DM=DISPLAY OPERATION MODE
&#039;8 BIT------&gt;IM=0011 DB10 ----D17
&#039;DB0--DB9 MUST BE CONEECTED TO GND OR VCC
&#039;I THINK RGB INTERFACE IS 6-BIT CAUSE WE CAN USE ONLE DB10-DB17

&#039;----&gt;Registers Access
&#039;1. Specify the index of register (IR)
&#039;2. Read a status
&#039;3. Display control
&#039;4. Power management Control
&#039;5. Graphics data processing
&#039;6. Set internal GRAM address (AC)
&#039;7. Transfer data to/from the internal GRAM (R22)
&#039;8. Internal grayscale &#227;-correction (R30 ~ R39)



&#039;8.2.6. Entry Mode (R03h)  **PAGE(55)**      **
&#039;R/W RS D15 D14 D13 D12 D11 D10 D9 D8 D7 D6 D5 D4 *D3*D2 D1 D0
&#039;W 1 TRI DFM 0 BGR 0  0  HWM 0 ORG 0 I/D1 I/D0*AM*0 0 0
&#039;AM Control the GRAM update direction.       **
&#039;When AM = &ldquo;0&rdquo;, the address is updated in horizontal writing direction.
&#039;When AM = &ldquo;1&rdquo;, the address is updated in vertical writing direction.
&#039;When a window area is set by registers R50h ~R53h, only the addressed GRAM area is updated based
&#039;on I/D[1:0] and AM bits setting
&#039;***AM=1 PIC WILL SHOW IN VER MODE AM=0 PIC WILL SHOW IN HOR MODE

&#039;               PAGE **(56)**
&#039;TRI When TRI = &ldquo;1&rdquo;, data are transferred to the internal RAM in 8-bit x 3 transfers mode via the 8-bit interface.
&#039;It is also possible to send data via the 16-bit interface or SPI in the transfer mode that realizes display in 262k
&#039;colors in combination with DFM bits. When not using these interface modes, be sure to set TRI = &ldquo;0&rdquo;.

&#039;DFM Set the mode of transferring data to the internal RAM when TRI = &ldquo;1&rdquo;. See the following figures for
&#039;details.

&#039;**************************PAGE 57 FOR CHANGE SIZE******************************

&#039; RSZ[1:0] Resizing factor
&#039;00 No resizing (x1)
&#039;01 x 1/2
&#039;10 Setting prohibited
&#039;11 x 1/4
&#039;*FOR RESIZING U MUST USE STANDARD PICTURE IF ELSE U MUST TEST PAGE(105)

**amir_mhdi** · 2011-03-16T10:26:36

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

ممنونم . اما...
هیچچچچچی به هیچچچی .
سخت افزار من اینجوریه (البته پایه های کد شما رو تغییر دادم)
RESET -> B.0
RS -> B.1
CS -> B.2
RD -> B.3
WR -> B.4

LSB -> PORTD
MSB -> PORTD
فقط میمونه پایه IM0.
یکی از LCD هام R1, R2 داره یکی دیگه R1,R2,R3 البته فقط تو هر کدوم یکیشون لحیم شده.
من هم اونا رو جایجا کردم هم IM0 رو تغییر دادم . تمام حالتها رو هم تو 16 بیتی و 8 بیتی تست کردم.
اما هییییییییییییییییییییییچ.
نکته دیگه ای هم میمونه؟؟؟
در ضمن چیپم هم mega16A هست. من تغییرات رو تو کد شما هم دادم.
بدجور لنگم.

**khast khodaiebehnam** · 2011-03-16T22:08:21

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

چند تا نکته رو رعایت نکردی
اولا که این 2 تارو نمیتونی یک پورت بزاری که....

LSB -> PORTD
MSB -> PORTD

باید یکیش رو بزاری پورت a

نکته بعدی اینه که این برنامه واسه 16 بیتی نوشته شده پس حتما حتما r1 r2 r3 رو که معمولا فقط یمیش رو روی ال سی دی میزارن وردار
یعنی هر چی R داری ورش دار

**hadibsb** · 2011-03-16T22:14:23

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

سلام
اقا من پورت کنترول رو از B به D , A تغییر دادم ولی ال سی دی روی این پرت ها جواب نمیده میشه راهنمایی کنید چرا ؟

**khast khodaiebehnam** · 2011-03-17T14:08:00

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

والا نمیدونم روی b جواب داد؟؟
پین های میکرو رو کنترل کنید ببینید سالم هستند؟

نکنه دیتا رو داری با پورت c میفرستی و jtag پورت فعال باشه .....

مفاومت روی ال سی دی رو ورداشتی؟

اطلاعیه

راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه