
Originally Posted by
fratello
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:
<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:
<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-
Bookmarks