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

[gt700]

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

http://www.thaieasyelec.net/images/uploads/Product-Image/ARM/ETEE009-Bluescreen.jpg
اقا این چیه پروت یو اس بی هم داره oo:

بورد آموزش موبایل
راستی آقایون چرا همین ال سی دی های معمولی 2*/16 - 16تا پایه داره که ما از 6تا پایه ی اول و 6 تا پایه ی آخر استفاده میکنیم 4تا پایه ی وست چه کاره اند oo:

[رضا شفقی]

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

من که چیز بدر بخوری ندیدم!!!!!!

مگه شما اینارو نمیخواین؟

Software Support
- Program Bitmap to Hex converter - bmp2h_conv (RAR , ThaiEasyElec's Program Bitmap Picture file convert to Hex code for use in your C program)
- IMG to HEX Thank you Mr. Krisda Yingkayun

[mohsen.hex]

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

مگه شما اینارو نمیخواین؟

Software Support
- Program Bitmap to Hex converter - bmp2h_conv (RAR , ThaiEasyElec's Program Bitmap Picture file convert to Hex code for use in your C program)
- IMG to HEX Thank you Mr. Krisda Yingkayun

ممنون از توجهتون
من دارم از روی mmc میخونم و باید یک عکس با فرمت bmp و با کد بندی خاص باشه تا با برنامه من(منظورم برنامه ای که توی همین تاپیک معرفی شده)خونده بشه و روی ال سی دی نشون داده بشه
مثلا این که فقط همین رو میتونه خوب نشون بده دیگه هر عکس دیگری رو تست کردم نشد
راستی من .bmp اسم فایل رو به jpg. تبدیل کردم تا توی سایت اپلود شه این فایل در کل فرمت bmp داره
و این که اگه عکس رو سیاه می بینین اگه ذخیره کنین روی سیستم بعد نگاه کنین عادی می بینین

[alireza.s]

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

آیا از این نوع lcd که در موردش بحث شده سایز های بزرگتر مثلا 5 یا ترجیحا 7 اینچ هم موجود هست.اگر برای خرید آدرسی،شماره تلفنی یا وبسایتی سراغ دارید ،ممنون میشم راهنمایی کنید.
یک مساله مهم هم در مورد TFT LCD ها وجود داشتن برنامه ای برای تبدیل عکس به کد هگز و برنامه برای درایو کردن LCD است،اگر چنین موردی میشناسید معرفی کنید.

[mohsen.hex]

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

سلام
چرا این ال سی دی به غیر از عکس omega (توی چند صفحه قبل بود) هیچ عکس دیگری رو درست حسابی نشون نمیده؟؟
کسی مبدل ش رو داره یا کسی میتونه بگه به چه روشی براش باید عکس بسازم؟؟

حل شد :wow:

[رضا شفقی]

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

میشه بگید مشکلتون از چی بود و چجوری حل شد؟

[mohsen.hex]

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

میشه بگید مشکلتون از چی بود و چجوری حل شد؟

سلام
من متوجه سوالتون نشدم
ولی
این که گفتم حل شد این طور من متوجه شدم فرمت bmp چندین نوع (برای ویندوز های مختلف از ویندوز 3 تا ....) که در این برنامه با فرمت
windows 3 16bit R5 G6 B5
کار شده که من با فتوشاپ تبدیل کردم و مشکلم حل شد!!

[mohsen.hex]

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

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

[mohsen.hex]

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

اخرین پیشرفت
لود هر عکس در حدود یک ثانیه طول میکشه :wow:
و این که یکی از بچها داره برام یه برنامه برای تبدیل عکس مینویسه که نهایتا تا فردا میزارم روی سایت :agree:
البته تا حالا چند تا سورس به هم داده ولی من بهش میگم که برام فلان کار رو کن که الان فقط مونده تصویر رو هم عمودی بده و هم افقی :read:

[abbasmh]

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

سلام
یه سر به ایتجا بزن
http://www.eca.ir/forum2/index.php?t...5051#msg185051
یه پروژه بزرگه که کوچکترین چیزش راه انداختن ال سی دیه!
زمان لود هر عکس هم از mmc کمتر از 0.7 ثانیس .البته با pic که با 10mips کار می کنه!!!
موفق باشی :NO:
:bye

[mohsen.hex]

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

سلام
یه سر به ایتجا بزن :
http://www.eca.ir/forum2/index.php?t...5051#msg185051
یه پروژه بزرگه که کوچکترین چیزش راه انداختن ال سی دیه!
زمان لود هر عکس هم از mmc کمتر از 0.7 ثانیس .البته با pic که با 10mips کار می کنه!!!
موفق باشی

:eek: :eek:
این چی بود دیگه
بابا ایول :applause:
خوب خقته بخندی :cry2:
ولی
خوبه خودت داری میگی با pic اینکارو کردی من با مگا 128 اونم اورکلاک شده با کریستال 20
خوب مثل این که میبینم یکی از دانشمند های مملکت از دوباره به این تاپیک سر زده خوب دوست عزیز میتونی بهم بگی چطور میتونم به یه پیکسل تنها فرمان بدم یا توی یه صفحه رو رفرش کنم بدون این که تغیری در پیکسل به وجود بیاد؟؟؟

[abbasmh]

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

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

sub procedure LCD_DOT(dim X as word,dim Y as byte,dim color as word)
LCD_W_INS(0x50)
LCD_W_DAT(Y)
LCD_W_INS(0x51)
LCD_W_DAT(Y)
LCD_W_INS(0x52)
LCD_W_DAT(X)
LCD_W_INS(0x53)
LCD_W_DAT(X)
LCD_W_INS(0x20)
LCD_W_DAT(0)
LCD_W_INS(0x21)
LCD_W_DAT(0)
LCD_W_INS(0x22)
porte.5=1 'setBitRS
porte.4=0 'clrBitCS
portd=hi(color)
porth=lo(color)
porte.6=0
porte.6=1
porte.4=1 'setBitCS
end sub

به همین راحتی
در مورد رفرش صفحه یعنی می خوای که کل صفحه رو رفرش کنی ولی یه پیکسل تغییر نکنه؟
نمی تونی با دستورات خود ال سی دی این کار رو بکنی.
باید رنگ اون پیکسل رو داشته باشی و بعد از رفرش دوباره بنویسیش سر جاش .
:job:

[mohsen.hex]

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

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

sub procedure LCD_DOT(dim X as word,dim Y as byte,dim color as word)
LCD_W_INS(0x50)
LCD_W_DAT(Y)
LCD_W_INS(0x51)
LCD_W_DAT(Y)
LCD_W_INS(0x52)
LCD_W_DAT(X)
LCD_W_INS(0x53)
LCD_W_DAT(X)
LCD_W_INS(0x20)
LCD_W_DAT(0)
LCD_W_INS(0x21)
LCD_W_DAT(0)
LCD_W_INS(0x22)
porte.5=1 'setBitRS
porte.4=0 'clrBitCS
portd=hi(color)
porth=lo(color)
porte.6=0
porte.6=1
porte.4=1 'setBitCS
end sub

به همین راحتی
در مورد رفرش صفحه یعنی می خوای که کل صفحه رو رفرش کنی ولی یه پیکسل تغییر نکنه؟
نمی تونی با دستورات خود ال سی دی این کار رو بکنی.
باید رنگ اون پیکسل رو داشته باشی و بعد از رفرش دوباره بنویسیش سر جاش .
:job:

حیف که فقط یک بار میشه تشکر کرد وگرنه ....
من حدود 3 روز فقط روی همین قضیه گیر بودم که شما رام انداختی
بازم ممنون

[abbasmh]

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

قابلی نداشت :job:
اینم واسه دوستان دیگه که هی نگن که 17 صفحه خوندیم چیزی نفهمیدیم: :mrgreen:

sub procedure LCD_W_DAT(dim dat as word)
porte.5=1 'setBitRS
porte.4=0 'clrBitCS
portd=hi(dat) 'write data high byte
porth=lo(dat)
porte.6=0 'clrBitWR
porte.6=1 'setBitWR
porte.4=1 'setBitCS
end sub
sub procedure LCD_W_INS(dim ins as word)
porte.5=0 'clrBitRS
porte.4=0 'clrBitCS
portd=hi(ins) 'write data high byte
porth=lo(ins)
porte.6=0 'clrBitWR
porte.6=1 'setBitWR
porte.4=1 'setBitCS
end sub

sub procedure LCD_INIT0()
trise=0
'e.7=0 RD
'e.6=0 RW
'e.5=0 RS
'e.4=0 CS
trisj=0 'j.0=RESET
trisd=0 'high
trish=0 'low
portj =0 'reset=0
delay_ms(100)
portj.0=1 'reset=1
delay_ms(100)
porte.7=1 'setBitRD
LCD_W_INS(0x00E5)
LCD_W_DAT(0x8000) 'set the internal vcore voltage
LCD_W_INS(0x00) '0x00
LCD_W_DAT(0x0001) 'start oscillator
delay_ms(50)

LCD_W_INS(0x01) '0x01
LCD_W_DAT(0x0000) 'set SS, SM
LCD_W_INS(0x02) '0x02
LCD_W_DAT(0x0700) 'set 1 line inversion

LCD_W_INS(0x03) '0x03
LCD_W_DAT(0x12B8) '0x0028 set GRAM write direction, BGR=0

LCD_W_INS(0x04) '0x04
LCD_W_DAT(0x0000) 'no resizing

LCD_W_INS(0x08) '0x08
LCD_W_DAT(0x0202) 'front & back porch periods = 2
LCD_W_INS(0x09) '0x09
LCD_W_DAT(0x0000)
LCD_W_INS(0x0A) '0x0A
LCD_W_DAT(0x0000)
LCD_W_INS(0x0C) '0x0C
LCD_W_DAT(0x0001) 'select system interface
LCD_W_INS(0x0D) '0x0D
LCD_W_DAT(0x0000)
LCD_W_INS(0x0F) '0x0F
LCD_W_DAT(0x0000)

LCD_W_INS(0x10) '0x10
LCD_W_DAT(0x0000)
LCD_W_INS(0x11) '0x11
LCD_W_DAT(0x0000)
LCD_W_INS(0x12) '0x12
LCD_W_DAT(0x0000)
LCD_W_INS(0x13) '0x13
LCD_W_DAT(0x0000)
delay_ms(100)
LCD_W_INS(0x10) '0x10
LCD_W_DAT(0x17B0)
LCD_W_INS(0x11) '0x11
LCD_W_DAT(0x0137)
delay_ms(50)
LCD_W_INS(0x12) '0x12
LCD_W_DAT(0x013C)
delay_ms(50)
LCD_W_INS(0x13) '0x13
LCD_W_DAT(0x1400)
LCD_W_INS(0x29) '0x29
LCD_W_DAT(0x0007)
delay_ms(50)
LCD_W_INS(0x20) '0x20
LCD_W_DAT(0x0000)
LCD_W_INS(0x21) '0x21
LCD_W_DAT(0x0000)
LCD_W_INS(0x30) '0x30
LCD_W_DAT(0x0007)
LCD_W_INS(0x31) '0x31
LCD_W_DAT(0x0504)
LCD_W_INS(0x32) '0x32
LCD_W_DAT(0x0703)
LCD_W_INS(0x35) '0x35
LCD_W_DAT(0x0002)
LCD_W_INS(0x36) '0x36
LCD_W_DAT(0x0707)
LCD_W_INS(0x37) '0x37
LCD_W_DAT(0x0406)
LCD_W_INS(0x38) '0x38
LCD_W_DAT(0x0006)
LCD_W_INS(0x39) '0x39
LCD_W_DAT(0x0404)
LCD_W_INS(0x3C) '0x3C
LCD_W_DAT(0x0700)
LCD_W_INS(0x3D) '0x3D
LCD_W_DAT(0x0A08)
LCD_W_INS(0x50) '0x50
LCD_W_DAT(0x0000)
LCD_W_INS(0x51) '0x51
LCD_W_DAT(0x00EF)
LCD_W_INS(0x52) '0x52
LCD_W_DAT(0x0000)
LCD_W_INS(0x53) '0x53
LCD_W_DAT(0x013F)
LCD_W_INS(0x60) '0x60
LCD_W_DAT(0x2800)
LCD_W_INS(0x61) '0x61
LCD_W_DAT(0x0001)
LCD_W_INS(0x6A) '0x6A
LCD_W_DAT(0x0000)
LCD_W_INS(0x80) '0x80
LCD_W_DAT(0x0000)
LCD_W_INS(0x81) '0x81
LCD_W_DAT(0x0000)
LCD_W_INS(0x82) '0x82
LCD_W_DAT(0x0000)
LCD_W_INS(0x83) '0x83
LCD_W_DAT(0x0000)
LCD_W_INS(0x84) '0x84
LCD_W_DAT(0x0000)
LCD_W_INS(0x85) '0x85
LCD_W_DAT(0x0000)
LCD_W_INS(0x90) '0x90
LCD_W_DAT(0x0010)
LCD_W_INS(0x92) '0x92
LCD_W_DAT(0x0000)
LCD_W_INS(0x93) '0x93
LCD_W_DAT(0x0003)
LCD_W_INS(0x95) '0x95
LCD_W_DAT(0x0110)
LCD_W_INS(0x97) '0x97
LCD_W_DAT(0x0000)
LCD_W_INS(0x98) '0x98
LCD_W_DAT(0x0000)
LCD_W_INS(0x07) '0x07
LCD_W_DAT(0x0173)
end sub

sub procedure LCD_PIC_INIT(dim START_X as word,dim END_X as word,dim START_Y as byte,dim END_Y as byte)
LCD_W_INS(0x50)
LCD_W_DAT(START_Y)
LCD_W_INS(0x51)
LCD_W_DAT(END_Y)
LCD_W_INS(0x52)
LCD_W_DAT(START_X)
LCD_W_INS(0x53)
LCD_W_DAT(END_X)
LCD_W_INS(0x20)
LCD_W_DAT(0)
LCD_W_INS(0x21)
LCD_W_DAT(0)
LCD_W_INS(0x22)
end sub
sub procedure LCD_SEND_PIC(dim color as word)
porte.5=1 'setBitRS
porte.4=0 'clrBitCS
portd=hi(color)
porth=lo(color)
porte.6=0 'clrBitWR
porte.6=1 'setBitWR
porte.4=1 'setBitCS
end sub

تقریبا همه چیز مشخصه.
پراسیجر یکی مونده به اخر یه تکه از ال سی دی رو واسه رفرش انتخاب میکنه و پراسیجر اخری تک تک پیکسلهارو توی اون ناحیه می نویسه
البته چند تا پراسیجر دیگه هست اگه خواستید بگید
موفق باشید دوستان :job:

[mohsen.hex]

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

یک مشکل دیگه برنامه من که با بسکامه از سایت گرفتم عکس رو میرور(اینه) میکنه نشون میده باید چکار کنم؟؟

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 'INDEX REGISTER(IR)
Dat = &H3008 : Call Tslcdoutdata 'set the internal vcore voltage
Ins = &H00EF : Call Tslcdoutins
Dat = &H1231 : Call Tslcdoutdata

Ins = Ts_ins_start_osc : Call Tslcdoutins 'drive code read page51
Dat = &H0001 : Call Tslcdoutdata
Waitms 50

Ins = Ts_ins_driv_out_ctrl : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata 'set SS, SM
Ins = Ts_ins_driv_wav_ctrl : Call Tslcdoutins
Dat = &H0700 : Call Tslcdoutdata 'set 1 line inversion

Ins = Ts_ins_entry_mod : Call Tslcdoutins 'H03 CODE REGISRTE FOR 8 BIT MODE
Dat = Ts_val_entry_mod : Call Tslcdoutdata 'H30 SELECT 8BIT CODE

Ins = Ts_ins_resize_ctrl : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata 'FOR CHANGE SIZE

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

Ins = Ts_ins_hor_start_ad : Call Tslcdoutins 'RAM SITING FOR SLECT PIC POSITION
Dat = &H0000 : Call Tslcdoutdata
Ins = Ts_ins_hor_end_ad : Call Tslcdoutins
Dat = &H00EF : Call Tslcdoutdata 'END OF HOR ADRES=239
Ins = Ts_ins_ver_start_ad : Call Tslcdoutins
Dat = &H0000 : Call Tslcdoutdata
Ins = Ts_ins_ver_end_ad : Call Tslcdoutins 'GRAM LINE2 SELECT(WE HAVE 320 LINE)
Dat = &H013F : Call Tslcdoutdata '319 END OF VER
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 = &H0000 : Call Tslcdoutdata
'--------------------------------

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


End Sub