اطلاعیه

**sfarm** · 2010-09-23T21:08:22

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

ممنون بررسی میکنم .اگه دانشگاه هم بری یه سر به اینجا بزن. :read:

**sfarm** · 2010-10-07T21:32:47

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

خودم پیدا کردم ممنون از همکاریتون!!!!!!!!!!1

**milad_arm** · 2010-10-07T22:34:05

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

:read:

**pajuhaan** · 2010-10-26T18:55:53

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

من این برامه رو با همین شماتیک (فقط پورت داده رو تغییر دادم) تست کردم و کار نکرد . یعنی از ممری عکس رو خوند اما ال سی دی هیچی نشون نداد!
ممکنه از مقاومت های R2 و R1 باشه ؟برای من R1 لحیم شده و R2 خالیه :sad:

**pajuhaan** · 2010-10-26T19:54:25

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

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

اینم برنامه ایه که انجا بود . فقط پورت داده رو تغییر دادم :

کد:

$regfile = &quot;M128def.dat&quot;
$crystal = 11059200
$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

&#039;porta=data

&#039;b.0  chip select *imo
Config Portg = Output
Lcd_rst_port Alias Portg
Lcd_rst_ddr Alias Ddrg
Lcd_rst_pin Alias Ping
Lcd_rst_pin_num Alias 2
&#039; rd pin declare
Lcd_rd_port Alias Porta
Lcd_rd_ddr Alias Ddra
Lcd_rd_pin Alias Pina
Lcd_rd_pin_num Alias 7

&#039;wr pin declare
Lcd_wr_port Alias Porta
Lcd_wr_ddr Alias Ddra
Lcd_wr_pin Alias Pina
Lcd_wr_pin_num Alias 6

&#039; rs pin declare
Lcd_rs_port Alias Porta
Lcd_rs_ddr Alias Ddra
Lcd_rs_pin Alias Pina
Lcd_rs_pin_num Alias 5

&#039; cs pin declare
Lcd_cs_port Alias Porta
Lcd_cs_ddr Alias Ddra
Lcd_cs_pin Alias Pina
Lcd_cs_pin_num Alias 4





&#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 Portf
Lcd_db_lsb_ddr Alias Ddrf
Lcd_db_lsb_pin Alias Pinf

&#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;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              &#039;dec=80
Ts_ins_hor_end_ad Alias &amp;H0051               &#039;dec=81
Ts_ins_ver_start_ad Alias &amp;H0052              &#039;dec=82
Ts_ins_ver_end_ad Alias &amp;H0053               &#039;dec=83
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
Config Portb = Output
Config Portc = Output
Config Portd = Output
Config Porta = 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
Print &quot;start&quot;
Print &quot;in the name of God&quot;
Call Tslcdinit

&#039;Call Lcdfillcolor

&#039;Wait 5
Portd.7 = 1


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



Ff = Freefile()
Open &quot;omega.bmp&quot; For Binary As #ff
Portg.3 = 1
&#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 = 100
&#039;B = 0
 &#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
Portg.3 = 0
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

مقاومت R1 هم ورداشتم گذاشتم جایR2

اما تا حالا هیچی روی ال سی دی نتونستم ببینم.
بک لایتش روشن میشه .
جایی باید کاری کنم؟ :cry2:

**sfarm** · 2010-10-27T00:39:01

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

سلام دوست عزیز
خودم یکی دو روز دیگه برنامه ای می نویسم و واستون می زارم :bye

**msf@msf** · 2010-11-17T21:35:04

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

سلام دوست عزیز
برنامه خیلی خیلی عالی بود دمتون گرم :job:
فقط یه سوال ؟؟؟؟ اینکه در قسمت فراخوانی عکس از MMC که نوشته شده freefile() ما میتونم هر عکسی با هر پسوندی نمایش بدیم یا نه ؟؟ در مورد بقیه فایلا چی مثل pdf , word ,exe اینا رو هم میشه توی همین lcd باز کرد ؟؟؟؟؟

**sfarm** · 2010-11-17T23:01:01

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

من از AVR-DOC سر در نمی یارم یه لایبری خدم به MMC نوشتم با اون کار می کنم.

در مرد نمایش PDF ,WORD,.. بگم که میشه ولی زمان میبره.

**msf@msf** · 2010-11-18T22:10:35

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

خب یه راهنمایی بکنید که از کجا شروع کنیم ؟؟؟؟
با همین بسکام خودون یشه ؟؟؟؟؟؟

**sfarm** · 2010-11-18T23:12:58

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

فایل های نوشتاری چه از نوع PDF,TXT,WORD ,...باشند .وقتی که اینها را داخل MMC ارسال می کنیم فرقی نمی کنه از چه نوعی باشه فقط کافی است آدرس فایل را از روت دایرکتوری پیدا کنی و محتویات آن را بخوانی و در روی LCD نمایش بدی.فقط می مونه ظاهرش که باید به سلیقه ی خودت درستش کنی

**msf@msf** · 2010-11-20T11:20:39

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

از نظر ظاهری مشکلی ندارم مشکل دستوراتی که توی بسکام باید از mmc بخونه و روی lcd نمایش بده :angry:
شما این دستورات رو دارین که به منم بدین ؟؟؟؟؟؟
اصلا تا حالا خودتون امتحان کردین ؟؟؟؟؟؟؟؟

**sfarm** · 2010-11-20T20:22:55

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

نوشته اصلی توسط msf@msf

از نظر ظاهری مشکلی ندارم مشکل دستوراتی که توی بسکام باید از mmc بخونه و روی lcd نمایش بده :angry:
شما این دستورات رو دارین که به منم بدین ؟؟؟؟؟؟
اصلا تا حالا خودتون امتحان کردین ؟؟؟؟؟؟؟؟

اگه منظورت دستورات avr-doc تو بیسکام است شرمنده من تا بحال با avr-doc کار نکردم.اما اگر دستورات خود mmc را بخواهی من در خدتم

**حامد رحیمی** · 2010-11-20T22:20:51

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

سلام به همه عزیزان
یه سوال
این lcd چیه ؟
ینی اخه n96 که صفحه لمسی نیست ؟

oo:
برم بازار چی بگم قیمش چنده ؟
شرمنده سوال های بی ربط کردم :cry2:

**msf@msf** · 2010-11-20T23:02:14

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

سلام
برو بازار بگو lcd n96 چینی و حتما چینیشو قید کنی
فقط توی بعضی هاش تاچ داره
من خودم یکی خریدم که تاچ نداره ولی اگه بخوام تاچش هست که هزار تومنه . :nice:
قیمتش توی مشهد بدون تاچ 10 تومنه . حواست باشه که 37 پایه باشه فلتشم بلند .

**roboamol** · 2010-12-13T13:13:00

پاسخ : کدهای راه اندازی LCD-N96 با Bascom

برید به سایت نویز و مجله نویز رو دانلود کنید کمک میکنه. :read:

اطلاعیه

کدهای راه اندازی LCD-N96 با Bascom

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه