Using Nokia LCD

[fratello]

Even with "pause 100" don't work ; still "fleas". And yes, the display with part info printed work good. The last line it's with problem !!!! She don't want to be erased !! I try another program and look at differences. First two foto are with good display; "main" program - and, after LCD_clear , "set" display. The last two are with "fake" display. The last line remain from "main" program display !!!

[Gusse]

Even with "pause 100" don't work ; still "fleas". And yes, the display with part info printed work good. The last line it's with problem !!!! She don't want to be erased !! I try another program and look at differences. First two foto are with good display; "main" program - and, after LCD_clear , "set" display. The last two are with "fake" display. The last line remain from "main" program display !!!

LCD seems to work OK if you can write text to it, to all 6 rows. Try some PAUSE after Lcd_Clear -command if that will make any difference. Could it be so that LCD controller is quite slow and next command will override Lcd_Clear. Just speculations ...

BR,
-Gusse-

[fratello]

Thanks for repply ! But...with "Pause" (10-200 !) it's worst !

[Gusse]

Are you using similar LCD_Clear code as in post #161?

Would code below make any difference?
At least it has worked for me very well with several different 3310 LCD modules.

<code><font color="#000000">Lcd_Data        <b>VAR BYTE </b>[6]

Lcd_Clear:
    PosX=0:PosY=0:<b>GOSUB </b>Lcd_GotoXY
    <b>HIGH </b>Lcd_DC
    Lcd_Data(0)=0:Lcd_Data(1)=0:Lcd_Data(2)=0:Lcd_Data(3)=0:Lcd_Data(4)=0:Lcd_Data(5)=0
    <b>FOR </b>Char=1 <b>TO </b>84
    <b>GOSUB </b>Write_LCD
    <b>NEXT </b>Char
    <b>RETURN

</b>Write_LCD:
    <b>SHIFTOUT </b>SDIN,SCK,1,[ Lcd_Data(0),Lcd_Data(1),Lcd_Data(2),Lcd_Data(3),Lcd_Data(4),Lcd_Data(5) ]
    <b>RETURN

</b></code>

BR,
-Gusse-

[fratello]

She drives me crazzy ! Don't work ; still "fleas"... verry disappointed ... I have now five display useless...

[fratello]

Here : http://www.edaboard.com/ftopic324477.html&usg , I find something interesting...

[Gusse]

So, somebody is selling fake 3310 LCD displays, that are actually with 102*80 controllers. Nice practical joke!
I bet that those aren't made by Philips, Samsung or Seiko Epson.

BR,
-Gusse-

[Gusse]

She drives me crazzy ! Don't work ; still "fleas"... verry disappointed ... I have now five display useless...

Hi Fratello,

Try this one. It will change row after it has cleared 84 pixels. Old version changed row also after 84, but if you have 102 pixels per row then 502 positions are not enough.

<code><font color="#000000">Lcd_Data        <b>VAR BYTE
</b>Cursor          <b>VAR BYTE

</b>Lcd_Clear:
    <b>FOR </b>Cursor = 0 <b>TO </b>5
        PosX=0:PosY=Cursor:<b>GOSUB </b>Lcd_GotoXY
        <b>HIGH </b>Lcd_DC
        Lcd_Data = 0
        <b>FOR </b>Char = 1 <b>TO </b>84
            <b>GOSUB </b>LCD_ByteOut
        <b>NEXT </b>Char
    <b>NEXT </b>Cursor
    <b>RETURN

</b></code>

or

<code><font color="#000000">Lcd_Data        <b>VAR BYTE </b>[6]

Lcd_Clear:
    PosX=0:PosY=0:<b>GOSUB </b>Lcd_GotoXY
    <b>HIGH </b>Lcd_DC
    Lcd_Data(0)=0:Lcd_Data(1)=0:Lcd_Data(2)=0:Lcd_Data(3)=0:Lcd_Data(4)=0:Lcd_Data(5)=0
    <b>FOR </b>Char=1 <b>TO </b>102
    <b>GOSUB </b>Write_LCD
    <b>NEXT </b>Char
    <b>RETURN

</b>Write_LCD:
    <b>SHIFTOUT </b>SDIN,SCK,1,[ Lcd_Data(0),Lcd_Data(1),Lcd_Data(2),Lcd_Data(3),Lcd_Data(4),Lcd_Data(5) ]
    <b>RETURN


</b></code>

BR,
-Gusse-

[fratello]

Thank's ! Of course, You are right ! So simple solution...Great !

Lcd_Clear:
For cursor = 0 to 5
	PosX=0:PosY=Cursor:Gosub Lcd_GotoXY
	High Lcd_DC

	For i= 1 to 84
      	Lcd_Data=0:Gosub Lcd_SentByte
      	Lcd_Data=0:Gosub Lcd_SentByte
	Next i
Next cursor
Return