Graphic LCD with PICbasic pro

**amindzo** · - 6th November 2008, 21:39

Hi,i want to learn how can i write on graphic LCD? How can i make custom characters? How can i make new fonts in other languages? This is may first time. I bought TS12864A-2 v1.1 graphic LCD.I use PICbasic pro 2.5 and PIC16F877A.

**mister_e** · - 6th November 2008, 21:45

first of all, you need to know which controller type your LCD use, here, it seems to be a KS0108.

From there, you download the usual datasheet, and try to understand how it works.

A swear jar is recommended, not a so easy task... have done it before... still trying to recover it, or redoing it from scratch next week or so.

**amindzo** · - 7th November 2008, 09:46

I can not find the complete datasheet of the LCD.could you send me a PDF file or website that can help me with graphic LCD in PICBasic(PIC projects with graphic LCD)?

**Jerson** · - 7th November 2008, 10:21

Search for CrystalFontz LCD. They have the range of monochrome LCD panels with data sheets if thats what you're using.

**Acetronics2** · - 7th November 2008, 10:30

Hi, Jerson

I'd better bet on : " SHENZHEN TECHSTAR ELECTRONICS CO.,LTD "

Alain

http://www.datasheet4u.com/download.php?id=553270

**Jerson** · - 7th November 2008, 12:58

Yes ofcourse Alain. Most stuff comes from China anyway

**mister_e** · - 7th November 2008, 15:07

Originally Posted by amindzo

I can not find the complete datasheet of the LCD.could you send me a PDF file or website that can help me with graphic LCD in PICBasic(PIC projects with graphic LCD)?

Assuming I'm right, KS0108 controller, 128x64 GLCD type, the following datasheet should be handy
http://circuit-ed.com/uplds/GDM12864B.pdf

and then maybe this link too
http://www.compsys1.com/workbench/On...ontroller.html

**Acetronics2** · - 7th November 2008, 15:21

Originally Posted by mister_e

Assuming I'm right, KS0108 controller, 128x64 GLCD type, the following datasheet should be handy
http://circuit-ed.com/uplds/GDM12864B.pdf

and then maybe this link too
http://www.compsys1.com/workbench/On...ontroller.html

May be A types have a different pinout ... ( A -2 means w/backlight ! )

Alain

**mister_e** · - 7th November 2008, 15:23

Maybe, but the above also have it !

tomyhony · - 25th November 2012, 11:45

hello
can one show me small program as example using ks0108 lcd desplay word and how can i interfacing it

**phoenix_1** · - 12th December 2008, 21:22

Maybe is bad ....maybe it help you.
Regards

Code:

@ Device pic16F877, HS_OSC, BOD_ON, PWRT_OFF, WDT_ON, PROTECT_OFF
    Define osc 20
    ADCON1 = 7
    trisc = $00 
    trisd = $00 
    en var portd.0 
    rw var portd.1 
    rs var portd.2 
    cs1 var portd.3 
    cs2 var portd.4 
    reset var portd.5
    rs = 1 
    rw = 0 
    en = 0 
    cs1 = 1 
    cs2 = 1
    temp var byte 
    x var byte
    y var byte
    z var byte
    h var byte
    x = 0
    y = 0
    z = 0
    h = 0
    gosub rst
    pause 500
    gosub brisanje
    
gosub levo 
gosub nulti
temp = 184
gosub komanda
for z = 0 to 63
lookup z,[$ff,$01,$01,$01,$01,$01,$01,$01,$01,$01,$09,$09,$09,$09,$09,$09,$89,$69,$19,$09,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$f9,$89,$89,$89,$89,$89,$89,$89,$89,$f9,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff],temp
gosub podatak
next z 

temp = 0
gosub desno 
gosub komanda
temp = 184
gosub komanda
for z = 0 to 63
lookup z,[$ff,$01,$01,$01,$01,$01,$01,$01,$01,$01,$f9,$09,$09,$09,$09,$09,$09,$f9,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff,$01,$01,$01,$01,$81,$81,$c1,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$81,$e1,$f1,$e1,$81,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff],temp
gosub podatak
next z

temp = 0
gosub levo
gosub komanda
gosub nulti
temp = 185
gosub komanda
for z = 0 to 63
lookup z,[$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$90,$88,$86,$81,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$9f,$90,$90,$90,$90,$90,$90,$90,$90,$9f,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff],temp
gosub podatak
next z 

temp = 0
gosub desno 
gosub komanda
temp = 185
gosub komanda
for z = 0 to 63
lookup z,[$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$91,$91,$91,$91,$91,$91,$91,$9f,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff,$80,$80,$80,$81,$83,$83,$87,$81,$81,$81,$81,$81,$81,$80,$80,$80,$80,$80,$80,$80,$80,$9f,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff],temp
gosub podatak
next z

temp = 0
gosub levo 
gosub komanda
temp = 186
gosub komanda
for z = 0 to 63
lookup z,[$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$c0,$a0,$90,$88,$84,$fc,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$7c,$44,$44,$44,$44,$44,$44,$44,$c4,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff],temp
gosub podatak
next z

temp = 0
gosub desno 
gosub komanda
temp = 186
gosub komanda
for z = 0 to 63
lookup z,[$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$fc,$84,$84,$84,$84,$84,$84,$84,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$00,$80,$00,$c0,$00,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$f0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff],temp
gosub podatak
next z

temp = 0
gosub levo 
gosub komanda
temp = 187
gosub komanda
for z = 0 to 63
lookup z,[$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$1f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$20,$20,$3f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff],temp
gosub podatak
next z

temp = 0
gosub desno 
gosub komanda
temp = 187
gosub komanda
for z = 0 to 63
lookup z,[$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$1f,$10,$10,$10,$10,$10,$10,$1f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$00,$0a,$07,$1f,$07,$0a,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$04,$1c,$3f,$1c,$04,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff],temp
gosub podatak
next z

gosub levo 
gosub nulti
temp = 188
gosub komanda
for z = 0 to 63
lookup z,[$ff,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$21,$31,$f9,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$79,$09,$09,$09,$09,$89,$79,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff],temp
gosub podatak
next z 

temp = 0
gosub desno 
gosub komanda
temp = 188
gosub komanda
for z = 0 to 63
lookup z,[$ff,$01,$01,$01,$01,$01,$01,$01,$01,$01,$09,$09,$09,$09,$89,$89,$89,$89,$f9,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff],temp
gosub podatak
next z

temp = 0
gosub levo
gosub komanda
gosub nulti
temp = 189
gosub komanda
for z = 0 to 63
lookup z,[$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$90,$90,$9f,$90,$90,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$90,$98,$94,$92,$91,$90,$90,$90,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff],temp
gosub podatak
next z 

temp = 0
gosub desno 
gosub komanda
temp = 189
gosub komanda
for z = 0 to 63
lookup z,[$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$90,$90,$90,$90,$90,$90,$90,$90,$9f,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$81,$81,$81,$81,$81,$81,$81,$81,$81,$81,$81,$81,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff],temp
gosub podatak
next z

temp = 0
gosub levo 
gosub komanda
temp = 190
gosub komanda
for z = 0 to 63
lookup z,[$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$fc,$04,$04,$04,$04,$04,$fc,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$c0,$40,$c0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff],temp
gosub podatak
next z

temp = 0
gosub desno 
gosub komanda
temp = 190
gosub komanda
for z = 0 to 63
lookup z,[$ff,$00,$00,$00,$f8,$88,$88,$88,$88,$00,$00,$f8,$88,$88,$88,$88,$98,$00,$00,$f8,$08,$08,$08,$08,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$f8,$88,$88,$08,$00,$f8,$00,$00,$f8,$00,$08,$08,$f8,$08,$08,$00,$f8,$88,$88,$08,$00,$f8,$88,$88,$88,$f8,$00,$00,$00,$00,$ff],temp
gosub podatak
next z

temp = 0
gosub levo 
gosub komanda
temp = 191
gosub komanda
for z = 0 to 63
lookup z,[$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$9f,$90,$90,$90,$90,$90,$9f,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$81,$81,$81,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff],temp
gosub podatak
next z

temp = 0
gosub desno 
gosub komanda
temp = 191
gosub komanda
for z = 0 to 63
lookup z,[$ff,$80,$80,$80,$8f,$88,$88,$88,$88,$80,$80,$8c,$88,$88,$88,$88,$8f,$80,$80,$8f,$88,$88,$88,$88,$80,$80,$80,$80,$80,$ff,$80,$80,$80,$8f,$88,$88,$88,$80,$8f,$82,$84,$8f,$80,$80,$80,$8f,$80,$80,$80,$8f,$88,$88,$88,$80,$8f,$80,$81,$86,$88,$80,$80,$80,$80,$ff],temp
gosub podatak
next z

goto kraj



'*************************************************************
'komande za GLCD                                             *
'************************************************************* 

 rst:
   reset = 0 
   pause 1000 
   reset = 1
   temp = $3e 
   gosub komanda
   pause 100 
   temp = $3f 
   gosub komanda
   pause 100
   
nulti:
temp = $40'+55
gosub komanda 
return
   
brisanje:
    for x = 0 to 7 
    temp = $b8 + x 
    gosub komanda
    for y = 0 to 63 
    temp = $00 
    gosub podatak
    next y 
    next x
    pause 1000
    return 
komanda:
    rw = 0 
    rs = 0 
    portc = temp 
    en = 1 
    pause 5 
    en = 0
    return  
    
podatak:
    rw = 0 
    rs = 1 
    portc = temp 
    en = 1 
    pause 5 
    en = 0 
    return    
    
razmak:
    temp = $00 
    return

levo:
cs1 = 0
cs2 = 1
return

desno:
cs1 = 1
cs2 = 0
return 
kraj:
pause 1000
goto kraj 
end

**amindzo** · - 12th December 2008, 22:07

i have copied that code to picbsic pro 2.5 but it has some errors in compiling.

skimask · - 13th December 2008, 00:17

Originally Posted by amindzo

i have copied that code to picbsic pro 2.5 but it has some errors in compiling.

Jeeze...WHATEVER you do, don't tell us what the errors you got are. Let us guess at them...no wait...Let's have a lottery, or maybe we can draw pieces of paper out of a hat and guess the errors.

But since you are using PBP 2.50, look in your manual on page 30 at the bottom, then compare those comments with every one of those LOOKUP statements in the code above...
Notice anything?

pash48 · - 31st December 2009, 02:39

http://www.parallax.com/Portals/0/Do...s/sw/lcdcc.zip

**Acetronics2** · - 12th April 2010, 17:56

Originally Posted by phoenix_1

Maybe is bad ....maybe it help you.
Regards

Hi, Phoenix

Really a nice screen ...

I should learn Serbian language ...

Code:

'****************************************************************
'*  Name    : GLCD Test.BAS                                     *
'*  Author  : Phoenix_1                   *
'*  Notice  : Copyright (c) 2010 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 12/04/2010                                        *
'*  Version : 1.1                                              *
'*  Notes   : Easy Pic5 Modified  !!!                              *
'*          :                                                   *
'****************************************************************

@ Device pic16F877a, HS_OSC, BOD_ON, PWRT_OFF, WDT_ON, PROTECT_OFF

Define osc 8

ADCON1 = 7
CMCON  = 7

trisB = $00 
trisD = $00
 
en      var portB.4 
rw      var portB.3 
rs      var portB.2 
cs1     var portB.0 
cs2     var portB.1 
reset   var portB.5

rs  = 1 
rw  = 0 
en  = 0 
cs1 = 1 
cs2 = 1

temp    var byte 
x       var byte
y       var byte
z       var byte
h       var byte

x   = 0
y   = 0
z   = 0
h   = 0

gosub rst
pause 500
gosub brisanje

gosub levo 
gosub nulti
temp = 184
gosub komanda
for z = 0 to 63
lookup z,[$ff,$01,$01,$01,$01,$01,$01,$01,$01,$01,$09,$09,$09,$09,$09,$09,$89,_
$69,$19,$09,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff,$01,$01,$01,$01,$01,_
$01,$01,$01,$01,$01,$f9,$89,$89,$89,$89,$89,$89,$89,$89,$f9,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff],temp
gosub podatak
next z 

temp = 0
gosub desno 
gosub komanda
temp = 184
gosub komanda
for z = 0 to 63
lookup z,[$ff,$01,$01,$01,$01,$01,$01,$01,$01,$01,$f9,$09,$09,$09,$09,$09,$09,_
$f9,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff,$01,$01,$01,$01,$81,$81,$c1,_
$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$81,$e1,$f1,$e1,$81,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff],temp
gosub podatak
next z

temp = 0
gosub levo
gosub komanda
gosub nulti
temp = 185
gosub komanda
for z = 0 to 63
lookup z,[$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$90,$88,$86,$81,$80,_
$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff,$80,$80,$80,$80,$80,_
$80,$80,$80,$80,$80,$9f,$90,$90,$90,$90,$90,$90,$90,$90,$9f,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff],temp
gosub podatak
next z 

temp = 0
gosub desno 
gosub komanda
temp = 185
gosub komanda
for z = 0 to 63
lookup z,[$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$91,$91,$91,$91,$91,$91,$91,_
$9f,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff,$80,$80,$80,$81,$83,$83,$87,_
$81,$81,$81,$81,$81,$81,$80,$80,$80,$80,$80,$80,$80,$80,$9f,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff],temp
gosub podatak
next z

temp = 0
gosub levo 
gosub komanda
temp = 186
gosub komanda
for z = 0 to 63
lookup z,[$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$c0,$a0,$90,$88,$84,$fc,_
$80,$00,$00,$00,$00,$00,$00,$00, $00,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$00,$00,_
$00,$00,$00,$00,$00,$7c,$44,$44,$44,$44,$44,$44,$44,$c4,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff],temp
gosub podatak
next z

temp = 0
gosub desno 
gosub komanda
temp = 186
gosub komanda
for z = 0 to 63
lookup z,[$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$fc,$84,$84,$84,$84,$84,$84,_
$84,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$00,$80,$00,$c0,_
$00,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$f0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff],temp
gosub podatak
next z

temp = 0
gosub levo 
gosub komanda
temp = 187
gosub komanda
for z = 0 to 63
lookup z,[$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$1f,_
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$00,$00,_
$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$20,$20,$3f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff],temp
gosub podatak
next z

temp = 0
gosub desno 
gosub komanda
temp = 187
gosub komanda
for z = 0 to 63
lookup z,[$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$1f,$10,$10,$10,$10,$10,$10,_
$1f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$00,$0a,$07,$1f,_
$07,$0a,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$04,$1c,$3f,$1c,$04,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff],temp
gosub podatak
next z

gosub levo 
gosub nulti
temp = 188
gosub komanda
for z = 0 to 63
lookup z,[$ff,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$21,$31,$f9,$01,_
$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff,$01,$01,$01,$01,$01,_
$01,$01,$01,$01,$01,$01,$01,$79,$09,$09,$09,$09,$89,$79,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff],temp
gosub podatak
next z 

temp = 0
gosub desno 
gosub komanda
temp = 188
gosub komanda
for z = 0 to 63
lookup z,[$ff,$01,$01,$01,$01,$01,$01,$01,$01,$01,$09,$09,$09,$09,$89,$89,$89,_
$89,$f9,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff,$01,$01,$01,$01,$01,$01,$01,_
$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$ff],temp
gosub podatak
next z

temp = 0
gosub levo
gosub komanda
gosub nulti
temp = 189
gosub komanda
for z = 0 to 63
lookup z,[$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$90,$90,$9f,$90,_
$90,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff,$80,$80,$80,$80,$80,_
$80,$80,$80,$80,$80,$80,$80,$90,$98,$94,$92,$91,$90,$90,$90,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff],temp
gosub podatak
next z 

temp = 0
gosub desno 
gosub komanda
temp = 189
gosub komanda
for z = 0 to 63
lookup z,[$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$90,$90,$90,$90,$90,$90,$90,_
$90,$9f,$80,$80,$80,$80,$80,$80, $80,$80,$80,$80,$ff,$80,$80,$80,$80,$80,$80,$80,_
$80,$80,$80,$81,$81,$81,$81,$81,$81,$81,$81,$81,$81, $81,$81,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff],temp
gosub podatak
next z

temp = 0
gosub levo 
gosub komanda
temp = 190
gosub komanda
for z = 0 to 63
lookup z,[$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$fc,$04,$04,$04,$04,_
$04,$fc,$00,$00,$00,$00,$00,$00, $00,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$00,$00,_
$00,$00,$00,$00,$00,$00,$00,$00,$00,$c0,$40,$c0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff],temp
gosub podatak
next z

temp = 0
gosub desno 
gosub komanda
temp = 190
gosub komanda
for z = 0 to 63
lookup z,[$ff,$00,$00,$00,$f8,$88,$88,$88,$88,$00,$00,$f8,$88,$88,$88,$88,$98,_
$00,$00,$f8,$08,$08,$08,$08,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$f8,$88,$88,$08,_
$00,$f8,$00,$00,$f8,$00,$08,$08,$f8,$08,$08,$00,$f8,$88,$88,$08,$00,$f8,$88,$88,$88,$f8,$00,$00,$00,$00,$ff],temp
gosub podatak
next z

temp = 0
gosub levo 
gosub komanda
temp = 191
gosub komanda
for z = 0 to 63
lookup z,[$ff,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$9f,$90,$90,$90,$90,_
$90,$9f,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff,$80,$80,$80,$80,$80,_
$80,$80,$80,$80,$80,$80,$80,$80,$80,$81,$81,$81,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$ff],temp
gosub podatak
next z

temp = 0
gosub desno 
gosub komanda
temp = 191
gosub komanda
for z = 0 to 63
lookup z,[$ff,$80,$80,$80,$8f,$88,$88,$88,$88,$80,$80,$8c,$88,$88,$88,$88,$8f,_
$80,$80,$8f,$88,$88,$88,$88,$80, $80,$80,$80,$80,$ff,$80,$80,$80,$8f,$88,$88,$88,_
$80,$8f,$82,$84,$8f,$80,$80,$80,$8f,$80,$80,$80,$8f,$88,$88,$88,$80,$8f,$80,$81,$86,$88,$80,$80,$80,$80,$ff],temp
gosub podatak
next z

goto kraj



'************************************************* ************
'komande za GLCD *
'************************************************* ************ 

rst:
reset = 0 
pause 1000 
reset = 1
temp = $3e 
gosub komanda
pause 100 
temp = $3f 
gosub komanda
pause 100

nulti:
temp = $40'+55
gosub komanda 
return

brisanje:
for x = 0 to 7 
    temp = $b8 + x 
    gosub komanda
    
    for y = 0 to 63 
        temp = $00 
        gosub podatak
    next y
     
next x
pause 1000
return 

komanda:
rw = 0 
rs = 0 
portD = temp 
en = 1 
pause 1 '5 
en = 0
return 

podatak:
rw = 0 
rs = 1 
portD = temp 
en = 1 
pause 1 '5 
en = 0 
return 

razmak:
temp = $00 
return

levo:
cs1 = 0
cs2 = 1
return

desno:
cs1 = 1
cs2 = 0
return
 
kraj:
pause 1000
goto kraj
 
end

Congratulations, Robert

I just sped it a bit, as datasheet enable cycle time is specified @ 1 ms ...

Alain

**phoenix_1** · - 12th April 2010, 19:38

Hi Alain,
It was only test for some my project .....
Yes it was slow but work and it was in my start to play with graphic display with touch screen from Mikro Elektronika.....
It cost 20EUR but there is much faster GLCD in market...

The best regards
/Robert

**flotulopex** · - 10th August 2010, 22:04

Hello,

May I ask some of you what designing software* you use to create the graphics?

I'm starting using a EADOGL128-6 display (http://www.lcd-module.com/products/dog.html). At the bottom of this website, there's a soft I may use.

Nevertheless, is there a program most people use?

*I'm using Windows XP

**SKOLS1** · - 29th January 2011, 15:09

Can you post a tutorial or something like that,so I can made my own picture on GLCD?And how to put a text line,from mesurments with DS18B20?

Thread: Graphic LCD with PICbasic pro

Thread Tools

Search Thread

Display

Hybrid View

Graphic LCD with PICbasic pro

Re: Graphic LCD with PICbasic pro

Probe these ;-)

try

it was a test in start...

what design software

Similar Threads

PICBASIC PRO 16F84 with 16X02 LCD

How to configure SPI in PICBASIC PRO?

Cheap LCD for PicBasic pro projects -16F84a

Using LCD 40 x 4 with Picbasic pro

PICBasic Pro interfacing with graphic LCDs

Members who have read this thread : 1

Bookmarks

Bookmarks

Posting Permissions