Bascom AVR

[SQ2EER]

Witam - ok może być cały wiersz tylko że część tego 1 wiersza pojawia mi się w 3 linii

Kod:

'************* Konfiguracja uC *****************
'***********************************************
$regfile = "m644pdef.dat"
$crystal = 16000000


Config Lcdpin = Pin , Db4 = Porta.5 , Db5 = Porta.4 , Db6 = Porta.3 , Db7 = Porta.2 , E = Porta.0 , Rs = Porta.1       'tu zmien na odpowiednie piny
Config Lcd = 16 * 4

Deflcdchar 1 , 31 , 4 , 4 , 4 , 4 , 4 , 4 , 4               ' replace ? with number (0-7)
Deflcdchar 2 , 31 , 32 , 32 , 32 , 32 , 32 , 32 , 32        ' replace ? with number (0-7)
Deflcdchar 3 , 31 , 4 , 4 , 4 , 4 , 32 , 32 , 32            ' replace ? with number (0-7)
Deflcdchar 4 , 4 , 4 , 4 , 4 , 14 , 14 , 31 , 31            ' replace ? with number (0-7)

Config Portd.0 = Input
Config Portd.1 = Input
Config Portd.2 = Input

Set Portd.0
Set Portd.1
Set Portd.2

Dim A As Byte


Cursor Off


Cls

Do

For A = 1 To 10

  Shiftlcd Right

Waitms 250                                                  

Next

Lcd Chr(1) ; Chr(2) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(2)

Lowerline
Lcd " 261   " ; Chr(4) ; "   305  "

Thirdline

Lcd "Line 3"

Fourthline

Lcd "Line 4"

Home Third                                                  

Home Fourth


Loop

2, 3 oraz 4 też się przesuwają a ma tylko 1 - w lewo lub prawo - pozdrawiam Jacek.