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

[aivhl]

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

با سلام ...

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

'tftlcd_function(225 ) , undefined symbol 'portB


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

با سلام،

شما هدر فایل io میکروی مربوطه رو includeآنکردی و یا اینکه اشتباه include شده!

( در ضمن باید بنویسی PORTB ...... )

[ATA.Mega64]

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

سلام.


آقا کسی هست بدونه چرا LCD من با فرکانس نهایتا 2مگ درایو میشه؟

من این السیدی رو روی فیبر سوراخدار راه اندازی کردم تقریبا از تمام چیزایی که لازم داشتم جواب گرفتم.نمایش عکس و متن و تاچ اسکرین.البته با کریستال 16 مگ و میکروی 128.
حالا که پروژه رو براش PCB زذم نمیدونم چرا وقتی کریستال میکرو بیشتر از 2مگ داخلی میشه السیدی رو راه اندازی نمیکنه.
حتی 4 و 8 مگ داخلی هم همینطورن.
دلیلش چی میتونه باشه؟همون LCD و همون میکرو رو از روی فیبر سوراخدار باز کردم گذاشتمش روی PCB یا همون برد پروژم.
تنها چیزی که به ذهن خودم میرسه اینه که شاید فاصله ترکهای مدارم به هم کم باشه و چون فرکانس میره بالا خاصیت خازنی بوجود بیاد و مداخله ایجاد کنه.


دوستان کسی نظری نداره؟

[ATA.Mega64]

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

نبـــــــــــــــــــــــــــــــــــود؟؟؟؟؟

[8925347]

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

سلام
من هم همچین مشکلی دارم منتهی با lcd معمولی کار می کنم
روی برد برد مدار به طور کامل کار می کنه ولی روی pcb فقط lcdکار می کنه اونم با8m داخلی ولی نه mmc رو می خونه ونه می تونم کریستال خارجی رو وصل کنم
تا حالا دو تا pcb زدم جواب نداده برای بار سوم می خوام میکرو رو با ماژولش روی pcb بزنم شاید جواب بده

[hossein_tomari007]

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

نبـــــــــــــــــــــــــــــــــــود؟؟؟؟؟

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

[sabli]

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

سلام همگی دوستان
آقا من میخواسم LCD رو رو مد 8 بیتی بزارم با جامپرهاش. اونوقت خازن ا¾C8 و C15 کنده شد :cry: :cry: :angry: :angry:
میخواسم بدونم lcd بدون اینا کار میکنه یا نه. کمک کنید بی زحمت مرسی

[sabli]

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

کسی اینجا نیست جواب مارو بده؟؟؟؟ :surprised: آهههاااایییی oo: کجااییییییییینننننننننننننننننننننننننن من تهنا موندمممممممم :cry: کککمــــــــــــــــــــــــــــــــــــــــک :cry:

[shadkanlu]

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

سلام به دوستان
من حدودا یه هفته پیش موفق به راه اندازی کامل این شدم البته با بسکام و مگا 64 :biggrin:

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

[reza13731]

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

سلام کسی این lcd n96 chiniiii eca رو با بسکام راه انداخته تو رو خدا اگه کسی راه انداخته کمک کنه یه برنامه بدید برای تستش مثلا صفحش زرد شه یا قرمز فقط همین خونم خوش شد دو هفتس دارم کار میکنم نمیشه میکروشم atmega32 هست
اینم عکسش http://eshop.eca.ir/product_info.php?cPath=87_74&products_id=619

اینم پایهاش
Cs Alias Portd.4 'Chip Select (Low)
Rs Alias Portd.3 'Register Select (0=Ins-1=Dat)
Wr Alias Portd.2 'Write Enable (Low)
Rd Alias Portd.1 'Read Enable (Low)
Rst Alias Portd.0 'Reset (Low)
Im Alias Portd.5 'Mode Select (0=16Bit-1=8Bit)
Db1 Alias Portc 'Data Bus 1 (DB0 to DB7)
Db2 Alias Portb 'Data Bus 2 (DB10 to DB17)

اینم بردپروجکتش موهام مثل صفحش سفید شد

[reza13731]

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

برادران گرامی کمک بفرمایید همین حرفای بالایه : :nice: :applause:

[reza13731]

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

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

[hossein_tomari007]

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

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

سلام دوست عزیز
شما میتونید برنامه کدویژن رو دریافت کنید و به کد بسکام تبدیل کنید
فکر نمیکنم کار سختی باشه :eek:
من وقت ندارم وگرنه اینکارو میکردم
یه کم هم خودتون وقت بگذارید واسه این کارا
موفق باشید :job:

[shadkanlu]

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

اینم یه سورس اولیه واسه این دوستمون که فقط چندتا رنگ نشون میده !!!

' in the name of god

$regfile = "M64def.dat"
$crystal = 16000000

$swstack = 64
$hwstack = 128
$framesize = 128
$baud = 9600

''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' '''''

Declare Sub Orb(ddr As Byte , Byval Bitnum As Byte)
Declare Sub Setb(port As Byte , Bitnum As Byte)
Declare Sub Clrb(port As Byte , Bitnum As Byte)
Declare Function Rdb(pin As Byte , Bitnum As Byte)as Byte

Declare Sub Tslcdoutins
Declare Sub Tslcdoutdata

Declare Sub Tslcdinit

Declare Sub Lcdfillcolor
Declare Sub Lcdfillcolor2
Declare Sub Lcdfillcolor3

''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' '''''
Dim New As Word
Dim Ins As Byte
Dim Dat As Word
Dim Ff As Byte
Dim Curbyte As Long
Dim S As String * 11
Dim B As Byte
Dim A As Byte
Dim X As Byte
Dim Y As Byte


''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' '''''

Lcd_rst_port Alias Portg
Lcd_rst_ddr Alias Ddrg
Lcd_rst_pin Alias Ping
Lcd_rst_pin_num Alias 0

' rs pin declare
Lcd_rs_port Alias Portg
Lcd_rs_ddr Alias Ddrg
Lcd_rs_pin Alias Ping
Lcd_rs_pin_num Alias 1

' cs pin declare
Lcd_cs_port Alias Portg
Lcd_cs_ddr Alias Ddrg
Lcd_cs_pin Alias Ping
Lcd_cs_pin_num Alias 2

' rd pin declare
Lcd_rd_port Alias Portg
Lcd_rd_ddr Alias Ddrg
Lcd_rd_pin Alias Ping
Lcd_rd_pin_num Alias 3

'wr pin declare
Lcd_wr_port Alias Portg
Lcd_wr_ddr Alias Ddrg
Lcd_wr_pin Alias Ping
Lcd_wr_pin_num Alias 4

' 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


' lcd global defines
'-------------------tucj screen
Ts_size_x Alias 240
Ts_size_y Alias 320
Ts_val_entry_mod Alias &H1030

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

' lcd color code defines
Ts_col_red Alias &H001F
Ts_col_green Alias &H07E0
Ts_col_blue Alias &HF800
Ts_col_yellow Alias &HFF00
Ts_col_purple Alias &HF81F
Ts_col_black Alias &H0000
Ts_col_white Alias &HFFFF

''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' '''''


Config Portc = Output
Config Porta = Output
Config Portg = Output

Call Tslcdinit
Call Lcdfillcolor

Sub Tslcdoutdata

Local Var1 As Word

Config Lcd_db_msb_port = Output
Config Lcd_db_lsb_port = Output
Reset Lcd_cs_port.lcd_cs_pin_num
Set Lcd_rs_port.lcd_rs_pin_num
Set Lcd_rd_port.lcd_rd_pin_num
Var1 = Dat
Shift Var1 , Right , 8
Lcd_db_msb_port = Var1
Lcd_db_lsb_port = Dat
Reset Lcd_wr_port.lcd_wr_pin_num
Set Lcd_wr_port.lcd_wr_pin_num
Set Lcd_cs_port.lcd_cs_pin_num

End Sub

'***************************************** *

Sub Tslcdoutins

Config Lcd_db_msb_port = Output
Config Lcd_db_lsb_port = Output
Reset Lcd_cs_port.lcd_cs_pin_num
Reset Lcd_rs_port.lcd_rs_pin_num
Set Lcd_rd_port.lcd_rd_pin_num
Lcd_db_msb_port = 0
Lcd_db_lsb_port = Ins
Reset Lcd_wr_port.lcd_wr_pin_num
Set Lcd_wr_port.lcd_wr_pin_num
Set Lcd_cs_port.lcd_cs_pin_num

End Sub

'***************************************** *

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 = &H00E3 : Call Tslcdoutins
Dat = &H3008 : Call Tslcdoutdata
Ins = &H00EF : Call Tslcdoutins
Dat = &H1231 : Call Tslcdoutdata

Ins = Ts_ins_start_osc : Call Tslcdoutins
Dat = &H0001 : Call Tslcdoutdata
Waitms 50

Ins = Ts_ins_driv_out_ctrl : Call Tslcdoutins
Dat = &H0100 : Call Tslcdoutdata
Ins = Ts_ins_driv_wav_ctrl : Call Tslcdoutins
Dat = &H0700 : Call Tslcdoutdata

Ins = Ts_ins_entry_mod : Call Tslcdoutins
Dat = Ts_val_entry_mod : Call Tslcdoutdata

Ins = Ts_ins_resize_ctrl : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata

Ins = Ts_ins_disp_ctrl2 : Call Tslcdoutins
Dat = &H0202 : Call Tslcdoutdata
Ins = Ts_ins_disp_ctrl3 : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata
Ins = Ts_ins_disp_ctrl4 : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata
Ins = Ts_ins_rgb_disp_if_ctrl1 : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata
Ins = Ts_ins_frm_marker_pos : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata
Ins = Ts_ins_rgb_disp_if_ctrl2 : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata

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

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

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

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

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

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

Ins = Ts_ins_hor_start_ad : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata
Ins = Ts_ins_hor_end_ad : Call Tslcdoutins
Dat = &H00EF : Call Tslcdoutdata
Ins = Ts_ins_ver_start_ad : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata
Ins = Ts_ins_ver_end_ad : Call Tslcdoutins
Dat = &H013F : Call Tslcdoutdata
Ins = Ts_ins_gate_scan_ctrl1 : Call Tslcdoutins
Dat = &H2700 : Call Tslcdoutdata
Ins = Ts_ins_gate_scan_ctrl2 : Call Tslcdoutins
Dat = &H0001 : Call Tslcdoutdata
Ins = Ts_ins_gate_scan_ctrl3 : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata

Ins = Ts_ins_panel_if_ctrl1 : Call Tslcdoutins
Dat = &H0010 : Call Tslcdoutdata
Ins = Ts_ins_panel_if_ctrl2 : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata
Ins = Ts_ins_panel_if_ctrl3 : Call Tslcdoutins
Dat = &H0003 : Call Tslcdoutdata
Ins = Ts_ins_panel_if_ctrl4 : Call Tslcdoutins
Dat = &H0110 : Call Tslcdoutdata
Ins = Ts_ins_panel_if_ctrl5 : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata
Ins = Ts_ins_panel_if_ctrl6 : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata
'------------------------
Ins = Ts_ins_frm_rate_col_ctrl : Call Tslcdoutins
Dat = &H000D : Call Tslcdoutdata
'--------------------------------
Ins = Ts_ins_disp_ctrl1 : Call Tslcdoutins
Dat = &H0133 : Call Tslcdoutdata


End Sub

''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' '''''

Sub Lcdfillcolor

Local Counter11 As Long
Ins = Ts_ins_hor_start_ad : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata
Ins = Ts_ins_hor_end_ad : Call Tslcdoutins
Dat = &H00EF : Call Tslcdoutdata
Ins = Ts_ins_gram_hor_ad : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata

Ins = Ts_ins_ver_start_ad : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata
Ins = Ts_ins_ver_end_ad : Call Tslcdoutins
Dat = &H013F : Call Tslcdoutdata
Ins = Ts_ins_gram_ver_ad : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata

Ins = Ts_ins_rw_gram : Call Tslcdoutins

For Counter11 = 0 To 76800
Dat = Ts_col_blue : Call Tslcdoutdata
Next

For Counter11 = 0 To 54855
Dat = Ts_col_white : Call Tslcdoutdata
Next

For Counter11 = 0 To 43884
Dat = Ts_col_black : Call Tslcdoutdata
Next


For Counter11 = 0 To 32913
Dat = Ts_col_yellow : Call Tslcdoutdata
Next

For Counter11 = 0 To 21942
Dat = Ts_col_red : Call Tslcdoutdata
Next

For Counter11 = 0 To 10971
Dat = Ts_col_green : Call Tslcdoutdata
Next


End Sub

فقط این lcd پنج ولت نیست ... البته کار میکنه ولی عمرش کم میشه ... 3.3 ولت بهش اعمال کنین بهتره !!!

[sabli]

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

آقایون و علما و فضلا لطفاً هرکی با میکرو مگا32 جواب گرفته از این LCD لطفاً شماتیک و فایل HEX بذاره ما این LCD مون رو تست کنیم ببینیم اصلا سالمه :angry: :angry: :angry: :angry: :angry: :angry: :angry:
دست گلتون درد نکنه مرسییییی

[shadkanlu]

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

آقایون و علما و فضلا لطفاً هرکی با میکرو مگا32 جواب گرفته از این LCD لطفاً شماتیک و فایل HEX بذاره ما این LCD مون رو تست کنیم ببینیم اصلا سالمه :angry: :angry: :angry: :angry: :angry: :angry: :angry:
دست گلتون درد نکنه مرسییییی

مهندس جان سورسی که من گذاشتم تبدیلش به مگا 32 که کاری نداره !!!
فقط کافیه این قسمت برنامه رو مطابق پایه هایی که وصل کردی تغییر بدی !!!

' rst pin declare
Lcd_rst_port Alias Portg
Lcd_rst_ddr Alias Ddrg
Lcd_rst_pin Alias Ping
Lcd_rst_pin_num Alias 0

' rs pin declare
Lcd_rs_port Alias Portg
Lcd_rs_ddr Alias Ddrg
Lcd_rs_pin Alias Ping
Lcd_rs_pin_num Alias 1

' cs pin declare
Lcd_cs_port Alias Portg
Lcd_cs_ddr Alias Ddrg
Lcd_cs_pin Alias Ping
Lcd_cs_pin_num Alias 2

' rd pin declare
Lcd_rd_port Alias Portg
Lcd_rd_ddr Alias Ddrg
Lcd_rd_pin Alias Ping
Lcd_rd_pin_num Alias 3

'wr pin declare
Lcd_wr_port Alias Portg
Lcd_wr_ddr Alias Ddrg
Lcd_wr_pin Alias Ping
Lcd_wr_pin_num Alias 4

' lcd databus declare

>>>> MSB پایه های d1 تا d8
Lcd_db_msb_port Alias Portc
Lcd_db_msb_ddr Alias Ddrc
Lcd_db_msb_pin Alias Pinc

>>>> LSB پایه های d9 تا d17
Lcd_db_lsb_port Alias Porta
Lcd_db_lsb_ddr Alias Ddra
Lcd_db_lsb_pin Alias Pina