LCDInfo.com

http://www.lcdinfo.com
It is currently Fri Nov 22, 2024 3:55

All times are UTC + 2 hours




Post new topic Reply to topic  [ 1 post ] 
Author Message
 Post subject: ra8835 problem
PostPosted: Tue Mar 30, 2010 0:51 
Offline

Joined: Tue Mar 30, 2010 0:47
Posts: 2
Hi every body;

please i am in the middle of a project and i have a Graphic lcd type is lm2029c its a topway lcd
320x240 with touch screen

please some body tell me whats wrong i tested the connection and hardware
only backlight is active no pixels shows any where

the controller is RA8835 the equivelant of sed1335 the problem is its not working at all i tried every thing i know in the datasheet
this is the connection
1--gnd
2--vcc
3--pot between vcc and pin18 in lcd
4-wr
5-rd
6-cs
7-a0
8-rst
9---16 I/o portb

this is the code

'****************************************************************
'* Compiler:MIKROBASIC6 *
'* Date:28/3/2010 *
'* Program: Operating of GLCD LM2029C with SED1335 controller *
'* IC: PIC18F252 *
'* Oscillator : 8Mhz Highspeed osc *
'****************************************************************
program GraphicLcdSED1335
symbol data = portb
symbol a0 = portc.1
symbol res = portc.0
symbol wr = portc.3
symbol rd = portc.4
symbol cs = portc.5
symbol button1 = portc.6
symbol button2 = portc.7
const value1 as byte[8] = ($30,$87,$00,$28,$45,$EF,$28,$00)
const value2 as byte[8] = ($00,$00,$EF,$00,$00,$EF,$00,$00)
const strings as byte[6] = (65 , 69 , 67 , 32 , 64 , 64)
dim var_data,dummy as byte
dim varCommand as BYTE
dim varCursor as BYTE
dim varByte as BYTE
dim varLoop1 as BYTE
dim varLoop2 as BYTE
dim varAddress as WORD
const conSet = $40
const conScroll = $44
const conCursorForm = $5d
const conCursorAddress = $46
const conCursorRight = $4c
const conOverlay = $5b
const conWrite = $42
const conDisplayON = $59
const conDisplayOFF = $58
const conCharPerLine = $28

sub procedure senddata
CS=0
A0=0
RD=1
WR=1
delay_us(1)
portb = varbyte
WR=0
delay_us(1)
WR=1
delay_us(1)
CS=1
A0=0
end sub

sub procedure sendcommand
CS=0
wr = 1
portb = varcommand
A0=1
rd=1
WR=0
delay_us(1)
WR=1
delay_us(1)
CS=1
delay_us(1)
end sub
sub procedure InitDisplay
'uchar i=0;
CS=0
RES=1
delay_ms(1)
RES=0
delay_ms(100)
RES=1
delay_ms(100)
RD=1
WR=1
A0=1
delay_ms(100)
varCommand = 0x40
SendCommand
delay_ms(1)
varByte = 0x30
SendData
varByte = 0x87
SendData
varByte = 0x07
SendData
varByte = 41
SendData
varByte = 0x40
SendData
varByte = 239
SendData
varByte = 0x41
SendData
varByte = 0x00
SendData
delay_ms(1)
varCommand = 0x44
SendCommand
delay_ms(1)
varByte = 0x00
SendData
varByte = 0x00
SendData
varByte = 0xf0
SendData
varByte = 0x70
SendData
varByte = 0x26
SendData
varByte = 0xf0
SendData
varByte = 0xd0
SendData
varByte = 0x02
SendData
varByte = 0x00
SendData
varByte = 0x00
SendData
delay_ms(1)'; //Set display start address of layer1&2 at VRAM area
varCommand = 0x5a
SendCommand
delay_ms(1)
varByte = 0x06
SendData
delay_ms(1)' //SET HORIZONTAL SCROLL POSITION HDOT SCR
varCommand = 0x5b
SendCommand
delay_ms(1)
varByte = 0x0d
SendData
delay_ms(1)'; //SET DISPLAY OVERLAY FORMAT
varCommand = 0x46
SendCommand
delay_ms(1)
varByte = 0x00
SendData
varByte = 0x00
SendData
delay_ms(1)
varCommand = 0x5d
SendCommand
delay_ms(1)
varByte = 0x04
SendData
varByte = 0x86
SendData
delay_ms(1)
varCommand = 0x59
SendCommand
delay_ms(1)
varByte = 0x04
SendData
varCommand = 0x4c
SendCommand
delay_ms(1)
varCommand = 0x51
SendCommand
delay_ms(1)
varByte = 0x01
SendData
delay_ms(1)
varCommand = 0x42
SendCommand
delay_ms(1)
varByte = 65
SendData
varByte = 66
SendData
varByte = 67
SendData

end sub


main:
delay_ms(100)
trisa = 0xff
trisb = 0x00
trisc = %00000000
initDisplay
delay_ms(5000)
lop:
goto lop

end.


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 1 post ] 

All times are UTC + 2 hours


Who is online

Users browsing this forum: Google [Bot] and 51 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group