i have a 128*128 glcd type gdm128128a i have a problom this is my demo
program
but it dont work properly
sed is a Toshiba 128*128 /////////////////
'!!!!!!!!! text passed to sub must be in all caps to
work!!!!!!!!!!!!!!
$regfile = "m16DEF.DAT"
'$crystal = 6000000
'The connections of the LCD used in this demo
'LCD pin connected to
' 1 FG GND
'2 GND GND
'3 +5V +5V
'4 VEE -9V potmeter
'5 /WR PORTb.0 1-5
'6 /RD PORTb.1 2-6
'7 /CE PORTb.2 3-7
'8 C/D PORTb.3 4-8
'9 RESET PORTb.4 5-9
'10-17 D0-D7 Pa 40-33
'18 FS PORTb.5 6-18
'19 A POWER BLK (4.2V)
'20 K POWER (GND)
'First we define that we use a graphic LCD
Config Graphlcd = 128 * 128 , Dataport = Porta , Controlport = Portb ,
Wr = 0 , Rd = 1 , Ce = 2 , Cd = 3 , Reset = 4 , Fs = 5 , Mode = 8
'The dataport is the portname that is connected to the data lines of
the LCD
'The controlport is the portname which pins are used to control the
lcd
'CE, CD etc. are the pin number of the CONTROLPORT.
' For example CE =2 because it is connected to PORTB.2
Do
Cls Graph
Cursor Off
Showpic 0 , 0 , Mede
Waitms 500
Cls Graph
Lcd "MEDE SYSTEM ELECTRONIC"
Waitms 500
Cls Text
Loop
End
Mede:
$bgf "MSE1.BGF"