Again about array

[pedja089]

Where you index your array here

for i=0 to 9
    ADCON0.1 = 1			' Start conversion
	While ADCON0.1=1:Wend		' Wait for conversion
	DataW.HighByte=ADRESH		' Read variable from ADC and save
	DataW.LowByte=ADRESL
	pause 50
next i

Also high and low byte will just use first word of array.
IF DATAW < 1023 THEN this also only reference first word of array.

Array must be used as in LCDOUT.
So your code should look like this

TmpW var word
DataW 	var word[10]
i       var byte


main:
for i=0 to 9
    ADCON0.1 = 1			' Start conversion
	While ADCON0.1=1:Wend		' Wait for conversion
	TmpW .HighByte=ADRESH		' Read variable from ADC and save
	TmpW .LowByte=ADRESL
        DataW[i]=TmpW 
	pause 50
next i

LCDOUT $fe,1
for i=0 to 9
      lcdout dec dataw[i], " "
next i

[fratello]

Thank you verry much ! Works fine !
I really appreciate it !
...and how to continue to second line of LCD ? There is no room for ten values on the first line ...
Something like this ?

LCDOUT $fe,1
for i=0 to 3
      lcdout dec dataw[i], "," 
pause 500
next i

lcdout $FE, $C0

for i=4 to 7
      lcdout dec dataw[i], "," 
pause 500
next i

Note : there is room only for four values on the line

[pedja089]

That should work.

[Scampy]

...and how to continue to second line of LCD ? There is no room for ten values on the first line ...

Line 1 = $80
Line 2 = $C0

If you have a 4 line LCD

Line 1 = $fe,$80,
Line 2 = $fe,$C0,
Line 3 = $fe,$94,
Line 4 = $fe,$d4,

[Ioannis]

Note : there is room only for four values on the line

Then you can only fit 8 values!

For 10 I guess you have to use a larger display or maybe use hex notation.

Ioannis

[fratello]

Yes, I use only 8 value.
Thank you, all !