اطلاعیه

**pcbpersian** · 2012-12-17T20:26:13

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

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

پایه 16 که کاتد led هست به زمین وصل میشه .....................پایه 15 هم که اند led هست و به تغذیه مثبت که معمولا 5 ولت هست

آقا شرمنده من هی سوالای مبتدیانه میپرسم
یعنی باید به پایه های 7 و 8 میکرو که همون GND , VCC هستند وصلشون کنم؟
یا به پایه 2 و 3 LCD که VEE و VDD است وصل کنم?

**محسن نصرالهی** · 2012-12-17T22:12:33

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

شما هم میتونید به پایه 2و3 وصل کنید هم پایه 7و8 میکرو

**pcbpersian** · 2012-12-17T22:50:12

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

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

شما هم میتونید به پایه 2و3 وصل کنید هم پایه 7و8 میکرو

خیلی ممنون از راهنماییتون

**011** · 2013-02-18T07:29:16

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

سلام منم این ال سی دی n96 چینی را راهش انداختم با avr به زبان c
می خواستم چندتا سوال در رابطه با اینکه چطوری این ال سی دی که 3 تا رنگ 6 بیتی دارد می تواند در یک خط 16 بیتی بفرستد!!
مثلا اول مختصات را با چه کدی می فرستد!!!

**reza13731** · 2013-02-19T17:03:40

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

نه کلا یه کد 16 بیتی رو میفرسته
تو رنگ آبی پیکسل R0 به R5 وصله و تو آبی پیکسل R0 به R5 وصله اگه حساب کنی میشه 3*6=18-2
اگه نگاه کنی تو دیتا شیت هست

**microdavari** · 2013-03-16T13:29:15

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

سلام من با xmega کار کردم و از فلش میکرو عکس و لود می کنم ولی یک سوم صفحه بهم می ریزه :eek:

**amir_mhdi** · 2013-03-16T13:40:14

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

حدس میزنم متغیر حلقه ای که داری 16 بیتی هست و بقیه صفحه رو نمیتونه آدرس بده.

**microdavari** · 2013-03-25T17:20:47

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

ممنون این را هم تست کردم ولی دلیلش این نبود در ضمن با عکس های سایز کوچک مشکل دارم (همه چیز قاطی می کنه ) :eek:

**ali2914** · 2013-05-24T08:44:38

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

سلام
منم دارم سعی می کنم lcd را راه بندازم pcb هم براش ساختم اما یه مشکل دارم .
من چون پورتای میکرو را لازم دارم مجبورم lcd را تو مود 8 بیت راه اندازی کنم. به گفته دوستان باید پشت lcd 3 تا مقاومت باشه که R1 برای مود 8 بیت ,R2 مود 16 بیت , R3 هم برای زمانیه که IMO مود را تعیین می کنه . اما در LCD که من هفته پیش خریدم جای R1,R2 خالیه ! و اصلا R3 هم وجود نداره با ECA هم تماس گرفتم گفتن LCD برای مود 16 بیت تنظیم شده حالا من برای تغییر مود باید چیکار کنم؟!
عکسای LCD را هم می زارم که ببینید:

**baghmirani** · 2013-07-01T19:40:01

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

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

سلام .......
این سورس همون سورس اقا ارمینه که با یه کم تغییر که دادم با AVR-GCC کامپایل میشه (در راستای همه گیر شدن) انشالاه اگه فرصتی پیش بیاد تا یکی دو روز دیگه نمایش عکی از روی MMC رو بهش اضافه میکنم. :mrgreen:
GLCD 320x280 AVR GCC Port

فقط یه مساله : lcd من backlight تش خیلی ضعیف روشن میشه .
وقتی به تنهایی تغذیه backlight رو وصل میکنم درسته ولی به محض اینکه تغذیه lcd و میکرو وصل میشه خیلی کم نور میشه.تغذیه هم مشکلی نداره و جریان هم کم نمیاره حتی back light رو با یه مقاومت 6.8R به 5V زدم یه کم بهتر میشه ولی خوب نمیشه خودم احساس میکردم یکی از پایه های تغذیه باید قطع باشه چک کردم مشکلی نداشت به نظر شما lcd مشکل داره؟

از روی LCD یه فلت کوچیک روی برد ال سی دی لحیم شده واسه منم این مشکل پیش اومده بود دوباره این فلت رو لحیم زدم خوب شد

**SUPERIOR** · 2013-07-04T08:34:55

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

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

با سلام
اره من بیسکام رو کار می کنه رو مزارم
و avrgcc رو که کار نمیکنه
http://uplod.ir/ym8cp90jpi0i/N96LCD_BASCOM.rar.htm
http://uplod.ir/nfut95m9byyt/N96LCD_AtmanAvr_Test.rar.htm

اگه میشه دوباره پ کنید! از سرور حذف شده اند

**ebka85** · 2013-07-12T15:01:04

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

سلام..
من بصورت 16 بیتی با میکرو مگا 32 و کامپایلر بسکام تونستم ال سی دی رو راه بندازم فقط رنگها رو... و برای نمایش عکس حافظه میکرو جواب نمیده باید از mmc استفاده کنم..
یه برنامه با مگا 128 دیدم که انگار راه انداخته و عکس رو نمایش داده ولی وقتی تبدیلش میکنم به مگا 32 به خطای out of sram رو میده که با کلیک کردن روش لایبری CONFIG_AVR-DOS.bas رو باز میکنه.. من اومدم و دستور
Const C_filehandlesize = Co_filebuffer + 513 رو به Const C_filehandlesize = Co_filebuffer + 128 تغییر دادم ولی هیچی رو ال سی دی نمایش نمیده...
دوستان کمک کنین نتا این مشکل حل بشه
برنامه تبدیل شده به مگا 32
من فقط پایه هارو تغییر دادم و اون تغییری که در بالا گفتم.. ممنون

کد:

$regfile = &quot;M32def.dat&quot;
$crystal = 16000000
$baud = 9600
$hwstack = 128                       &#039; default use 32 for the hardware stack

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

$framesize = 256
$baud = 9600
&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#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 As Word            &#039; read a word data from lcd

Declare Sub Tslcdinit                    &#039; initialization of lcd

Declare Sub Lcdfillcolor
Declare Sub Lcdfillcolor2
&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#039;&#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 Dat1 As Byte
Dim Dat2 As Byte
Dim Var11 As Byte
Dim Omid As Word
Dim Counterarmin As Long
Dim Var1 As Word
Dim S As String * 4
Dim Lo As Byte
Dim Ff As Byte
Dim B As Byte
Dim A 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
Config Portc = Output
Config Portd = Output
Config Porta = Output
Config Portb = Output
&#039;porta=data

&#039;b.0  chip select *imo
 &#039;  Config Porta = Output
    &#039; Config Portc = Output
      &#039; Config Portd = Output
&#039;Config Portg = Output

&#039;Lcd_rst_port Alias Portg]
Lcd_rst_port Alias Portd
Lcd_rst_ddr Alias Ddrd
Lcd_rst_pin Alias Pind
Lcd_rst_pin_num Alias 4
&#039; rd pin declare
&#039;Lcd_rd_port Alias Porta
Lcd_rd_port Alias Portd
Lcd_rd_ddr Alias Ddrd
Lcd_rd_pin Alias Pind
Lcd_rd_pin_num Alias 3

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

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

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

&#039;Cs Alias Portd.0
&#039;Rs Alias Portd.1
&#039;Wr Alias Portd.2
&#039;Rd Alias Portd.3
&#039;Rst Alias Portd.4



&#039; lcd databus declare
Lsb_port Alias Porta
Msb_port Alias Portc

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;H1030                &#039;1030  bgr=1
&#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;H00
Ts_ins_driv_out_ctrl Alias &amp;H01
Ts_ins_driv_wav_ctrl Alias &amp;H02
Ts_ins_entry_mod Alias &amp;H03
Ts_ins_resize_ctrl Alias &amp;H04                &#039;RESIZE CONTROL
Ts_ins_disp_ctrl1 Alias &amp;H07
Ts_ins_disp_ctrl2 Alias &amp;H08
Ts_ins_disp_ctrl3 Alias &amp;H09
Ts_ins_disp_ctrl4 Alias &amp;H0A
Ts_ins_rgb_disp_if_ctrl1 Alias &amp;H0C
Ts_ins_frm_marker_pos Alias &amp;H0D
Ts_ins_rgb_disp_if_ctrl2 Alias &amp;H0F
Ts_ins_pow_ctrl1 Alias &amp;H10
Ts_ins_pow_ctrl2 Alias &amp;H11
Ts_ins_pow_ctrl3 Alias &amp;H12
Ts_ins_pow_ctrl4 Alias &amp;H13
Ts_ins_gram_hor_ad Alias &amp;H20
Ts_ins_gram_ver_ad Alias &amp;H21
Ts_ins_rw_gram Alias &amp;H22
Ts_ins_pow_ctrl7 Alias &amp;H29
Ts_ins_frm_rate_col_ctrl Alias &amp;H2B
Ts_ins_gamma_ctrl1 Alias &amp;H30
Ts_ins_gamma_ctrl2 Alias &amp;H31
Ts_ins_gamma_ctrl3 Alias &amp;H32
Ts_ins_gamma_ctrl4 Alias &amp;H35
Ts_ins_gamma_ctrl5 Alias &amp;H36
Ts_ins_gamma_ctrl6 Alias &amp;H37
Ts_ins_gamma_ctrl7 Alias &amp;H38
Ts_ins_gamma_ctrl8 Alias &amp;H39
Ts_ins_gamma_ctrl9 Alias &amp;H3C
Ts_ins_gamma_ctrl10 Alias &amp;H3D
Ts_ins_hor_start_ad Alias &amp;H50               &#039;dec=80
Ts_ins_hor_end_ad Alias &amp;H51                &#039;dec=81
Ts_ins_ver_start_ad Alias &amp;H52               &#039;dec=82
Ts_ins_ver_end_ad Alias &amp;H53                &#039;dec=83
Ts_ins_gate_scan_ctrl1 Alias &amp;H60
Ts_ins_gate_scan_ctrl2 Alias &amp;H61
Ts_ins_gate_scan_ctrl3 Alias &amp;H6A
Ts_ins_part_img1_disp_pos Alias &amp;H80
Ts_ins_part_img1_start_ad Alias &amp;H81
Ts_ins_part_img1_end_ad Alias &amp;H82
Ts_ins_part_img2_disp_pos Alias &amp;H83
Ts_ins_part_img2_start_ad Alias &amp;H84
Ts_ins_part_img2_end_ad Alias &amp;H85
Ts_ins_panel_if_ctrl1 Alias &amp;H90
Ts_ins_panel_if_ctrl2 Alias &amp;H92
Ts_ins_panel_if_ctrl3 Alias &amp;H93
Ts_ins_panel_if_ctrl4 Alias &amp;H95
Ts_ins_panel_if_ctrl5 Alias &amp;H97
Ts_ins_panel_if_ctrl6 Alias &amp;H98

&#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


Print &quot;Initation...&quot;
$include &quot;Config_AVR-DOS.BAS&quot;
$include &quot;Config_MMC.bas&quot;                  &#039;include mmc

Ff = Drivereset()
Ff = Driveinit()

$external Waitms

If Gbdriveerror &lt;&gt; 0 Then

Print &quot;Error Config&quot;

Print Gbdriveerror
End
End If

&#039;include avr-dos

B = Initfilesystem(1)                    &#039;init file system
If B &lt;&gt; 0 Then Print &quot;Error MMC&quot;
&#039;Do
&#039;Toggle Porta
&#039;Toggle Portc
&#039;Toggle Portd
&#039;Waitms 100
&#039;Loop
Set Portb.5 : Waitms 300 : Reset Portb.5          &#039;led
Print &quot;start&quot;
Print &quot;in the name of God&quot;
Call Tslcdinit

&#039;Call Lcdfillcolor

&#039;Wait 5



               &#039;az to send data vardashtam vase afzayesh sorat



Ff = Freefile()
Open &quot;omega.bmp&quot; For Binary As #ff
&#039;Print Lof(#ff) ; &quot; length of file&quot;
&#039;Print Fileattr(#ff) ; &quot; file mode&quot;             &#039; should be 32 for binary
Ins = Ts_ins_hor_start_ad : Call Tslcdoutins        &#039;dec=80
Dat = &amp;H0000 : Call Tslcdoutdata              &#039;start asres hor=0
Ins = Ts_ins_hor_end_ad : Call Tslcdoutins         &#039;dec=81
Dat = &amp;H00EF : Call Tslcdoutdata              &#039;end adres hor=240 f0
Ins = Ts_ins_gram_hor_ad : Call Tslcdoutins         &#039;dec=32
Dat = &amp;H0000 : Call Tslcdoutdata

Ins = Ts_ins_ver_start_ad : Call Tslcdoutins        &#039;dec=82
Dat = &amp;H0000 : Call Tslcdoutdata              &#039;start adrese vertical=0
Ins = Ts_ins_ver_end_ad : Call Tslcdoutins         &#039;dec=83
Dat = &amp;H0140 : Call Tslcdoutdata              &#039;end adrese vertical=540(140hex)(des=320)

Ins = Ts_ins_gram_ver_ad : Call Tslcdoutins         &#039;dec=33
Dat = &amp;H0000 : Call Tslcdoutdata

Ins = Ts_ins_rw_gram : Call Tslcdoutins           &#039;*READ data FROM gram dec=34

Set Lcd_rs_port.lcd_rs_pin_num
A = 0 : B = 0
For Omid = 1 To 70
Get #ff , B
Next
For Counterarmin = 1 To 76800
&#039;A = 0
&#039;B = Counterarmin
                 &#039;76800=240*320 ;)
Get #ff , A
Get #ff , B
&#039;A = A + 1
&#039;B = B + 1
 &#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;Var1 = Dat
&#039;Shift Var1 , Right , 8
Lcd_db_msb_port = B                     &#039;Var1                   &#039;porta=var1
Lcd_db_lsb_port = A                     &#039;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
&#039;-----------------------------
Next

Close #ff

Print &quot;ok&quot;
Wait 4
&#039;---------------------------
End


&#039;-------------------------------------------------------------------------------
&#039;-----------------------------Sub Tslcdoutdata----------------------------------
&#039;-------------------------------------------------------------------------------

Sub Tslcdoutdata                      &#039;write to internal gram



Reset Lcd_cs_port.lcd_cs_pin_num              &#039;reset cs
Set Lcd_rs_port.lcd_rs_pin_num               &#039;set rs
Var1 = Dat
Shift Var1 , Right , 8
Lcd_db_msb_port = Var1                   &#039;Var1                   &#039;porta=var1
Lcd_db_lsb_port = Dat                    &#039;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;-------------------------------------------------------------------------------
&#039;-----------------------------Sub Tslcdoutins-----------------------------------
&#039;-------------------------------------------------------------------------------

Sub Tslcdoutins                       &#039;write an index register

&#039;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;-------------------------------------------------------------------------------
&#039;-------------------------------Sub Tslcdinit-----------------------------------
&#039;-------------------------------------------------------------------------------
Sub Tslcdinit

&#039;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 ;)

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;H000F : 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
              &#039;armin goft 5 taye avval ro 1 kardam lcd khoob shodeh
              &#039;baghish ro test nakardehaa
Ins = Ts_ins_gamma_ctrl1 : Call Tslcdoutins
Dat = &amp;H0007 : Call Tslcdoutdata              &#039;007
Ins = Ts_ins_gamma_ctrl2 : Call Tslcdoutins
Dat = &amp;H0504 : Call Tslcdoutdata              &#039;504
Ins = Ts_ins_gamma_ctrl3 : Call Tslcdoutins
Dat = &amp;H0703 : Call Tslcdoutdata              &#039;703
Ins = Ts_ins_gamma_ctrl4 : Call Tslcdoutins
Dat = &amp;H0002 : Call Tslcdoutdata              &#039;002
Ins = Ts_ins_gamma_ctrl5 : Call Tslcdoutins
Dat = &amp;H0707 : Call Tslcdoutdata              &#039;707
Ins = Ts_ins_gamma_ctrl6 : Call Tslcdoutins
Dat = &amp;H0406 : Call Tslcdoutdata              &#039;406
Ins = Ts_ins_gamma_ctrl7 : Call Tslcdoutins
Dat = &amp;H0006 : Call Tslcdoutdata              &#039;006
Ins = Ts_ins_gamma_ctrl8 : Call Tslcdoutins
Dat = &amp;H0404 : Call Tslcdoutdata              &#039;404
Ins = Ts_ins_gamma_ctrl9 : Call Tslcdoutins
Dat = &amp;H0700 : Call Tslcdoutdata              &#039;700
Ins = Ts_ins_gamma_ctrl10 : Call Tslcdoutins
Dat = &amp;H0A08 : Call Tslcdoutdata              &#039;a08

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

&#039;------------------------
Ins = Ts_ins_frm_rate_col_ctrl : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata
&#039;--------------------------------

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


End Sub

&#039;-------------------------------------------------------------------------------
&#039;-----------------------------Sub Lcdfillcolor----------------------------------
&#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;H00EF : 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;H013F : Call Tslcdoutdata              &#039;end adrese vertical=540(140hex)
Ins = Ts_ins_gram_ver_ad : Call Tslcdoutins
Dat = &amp;H0000 : Call Tslcdoutdata

Ins = Ts_ins_rw_gram : Call Tslcdoutins           &#039;*READ data FROM gram


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


End Sub


&#039;-------------------------------------------------------------------------------
&#039;-----------------------------Sub Lcdfillcolor2---------------------------------
&#039;-------------------------------------------------------------------------------

Sub Lcdfillcolor2                      &#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;H00EF : Call Tslcdoutdata              &#039;end adres hor=240 f0
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;H013F : Call Tslcdoutdata              &#039;end adrese vertical=540(140hex)

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

Ins = Ts_ins_rw_gram : Call Tslcdoutins           &#039;*READ data FROM gram



Set Lcd_rs_port.lcd_rs_pin_num               &#039;az to send data vardashtam vase afzayesh sorat

For Counter11 = 0 To 76800

                 &#039;76800=240*320 ;)
Dat = Ts_col_red
 &#039;----------------------
Reset Lcd_cs_port.lcd_cs_pin_num              &#039;reset cs
&#039;Set Lcd_rs_port.lcd_rs_pin_num               &#039;set rs
Var1 = Dat
Shift Var1 , Right , 8
Lcd_db_msb_port = Var1                   &#039;Var1                   &#039;porta=var1
Lcd_db_lsb_port = Dat                    &#039;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
&#039;-----------------------------
Next


End Sub

ممنونم

**hossein_tomari007** · 2013-07-13T12:09:23

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

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

سلام
منم دارم سعی می کنم lcd را راه بندازم pcb هم براش ساختم اما یه مشکل دارم .
من چون پورتای میکرو را لازم دارم مجبورم lcd را تو مود 8 بیت راه اندازی کنم. به گفته دوستان باید پشت lcd 3 تا مقاومت باشه که R1 برای مود 8 بیت ,R2 مود 16 بیت , R3 هم برای زمانیه که IMO مود را تعیین می کنه . اما در LCD که من هفته پیش خریدم جای R1,R2 خالیه ! و اصلا R3 هم وجود نداره با ECA هم تماس گرفتم گفتن LCD برای مود 16 بیت تنظیم شده حالا من برای تغییر مود باید چیکار کنم؟!
عکسای LCD را هم می زارم که ببینید:

یه مقاومت هست پیش r2 با نام j4 اون مقاومت رو بردار بچسبون به جای r2 و با پایه ی imo کنترلش کن :eek: :eek:

اگر میخوای ثابت بشه اون موقع اگه دقت کنی یه پد بالای مقاومت j4 وجود داره با پد پایینی که الان مقاومت روشه رو به هم با همون مقاومت بچسبون مشکل حل میشه :wow: :wow:

**bahrami20** · 2013-07-31T11:43:15

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

سلام.این lcd موجود در فروشگاه طبق اون چیزی که تو خود سایت گفته دارای دارای چیپست به شماره های ili9325-ili9320 هست.میخواستم بپرسم که برنامه هایی مثلا واسه ili9325 نوشته شده,واسه ili9320 هم قابل استفادست یا نیاز به تغییر داره؟
ممنون

**hosein1371** · 2013-08-15T10:46:08

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

سلام
بچه ها من می خوام یه عکس رو به هدر فایل تبدیل کنم اما نرم افزارش رو پیدا نمی کنم
می تونید کمکم کنید؟
با lpc1768 و تو keil کار می کنم
ممنون

اطلاعیه

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

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه