Delay Problem,Byte,Word

[Pesticida]

Hi,

I have a little problem:

Delay1 var word
DataIn var byte [12]

...........

Delay1 = Datain[3]

................
pause Delay1

Pause just work wenn Delay1 > 255 Why.

I want for Example to have a Delay sometimes 1 or 10 or 50 Milliseconds and sometime over a Second.
Its just work when Delay1 > as Byte.

How can I transform this Datain to Word.
I try with this:

Delay1.byte0 = Datain[3]
Delay1.byte1 = Datain[4]

Pause delay1

But this dont' Work.

I need Please a Help.
Thank You very mouch !!!

Ciao.

[HenrikOlsson]

Hi,
As you figured out it won't work because DataIn[3] is a byte sized variable, it can only hold values between 0 and 255. To do what you want something like this may work:

Delay1 = DataIn[3] * 256 + DataIn[4]

OR

Delay1.HighByte = DataIn[3]
Delay1.LowByte = DataIn[4]

In both examples DataIn[3] is the most is the upper 8 bits, DataIn[4] is the lower 8 bits of the word sized Delay1.

/Henrik Olsson.

[sayzer]

Why not DataIn VAR WORD[12] ?

Do I need more coffee again?

Or am I missing something here again?

-------------------

[Pesticida]

Why I must to multiple this with 256 I don't understand.
What I can do to have for example 1 Millisecond or 5 Millisecond with Pause.

Thanks.
Ciao.

[mister_e]

What is the range of your values? if all of them are <255, i guess you just need to use..
Delay1=0

Delay1.LowByte=DataIn[3]
Pause Delay1

in case the range is greater than 255, Sayzer's suggestion have to work... or i miss something myself too

[HenrikOlsson]

Hi,
(I may be missing something here too, but here comes the long winded answer....)

Since you have an array of 12 bytes each byte can only hold a value between 0 and 255. If you want a delay longer than 255mS you need to, either use an array of words OR use two bytes in the byte-array to 'make' a word.

The multiply by 256 "shifts" the 8 bits in DataIn[3] to the upper 8 bits in Delay1.

Say you want a 1000mS delay. Since 1000 wont fit in a byte you'll use two bytes. 1000 in binary is 00000011 11101000 so DataIn[3] = 3 and DataIn[4] = 232.

Then when you parse it you get Delay1 = DataIn[3] * 256 + DataIn[4] which is the same as 3 * 256 + 232 = 1000.

Or the easier way:
Delay1.HighByte = DataIn[3]
Delay1.LowByte = DataIn[4]

/Henrik Olsson.

[Pesticida]

Hi,
Thanks a lot.
But When Delay1 < 256 dont' work.
This is my Code:

INCLUDE "modedefs.bas"
DEFINE OSC 4
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_SPBRG 12 ' 19200 Bauds
DEFINE HSER_CLROERR 1

DataIn var byte [12]
Adresse var byte
AdresseIn var byte
N var byte
Delay1 var word
Loop var word
Kanal var byte [5]
KanalCount var byte




SOUND PORTB.1,[124,100]
MainStart:
Adresse = $1
low PORTB.0 '''''''''''''''''''''''''''''''''''''''''''''RS485 Input Data Enable'''''''''''''''''''''''''''''''''''''''''''' ''''''''''''
Main:

hserin 10000,MainStart,[WAIT("!"),STR Datain\13]

CheckAdr:

AdresseIn = Datain[0]
if Adresse = AdresseIn then RcvData

GoTo MainStart


RcvData:


IF Datain[11] = 13 Then CheckEnd

Goto MainStart
CheckEnd:

IF Datain[12] = 10 Then Discard

Goto MainStart
Discard:
Delay1 = 256

Delay1 = (DataIn[3] * 256) + DataIn[4]
Loop = (Datain[2] * 10)
Kanal[0] = Datain[5]
Kanal[1] = Datain[6]
Kanal[2] = Datain[7]
Kanal[3] = Datain[8]
Kanal[4] = Datain[9]
Kanal[5] = Datain[10]
KanalCount = 0

'SOUND PORTB.1,[124,30]
''''''''''''''''''''''''''''''''''''''''''''Progra m 1''''''''''''''''''''''''''''''''''''''''''''''''' ''
IF Datain[1] = 0 then
for N = 0 to Loop

High PortC.0
High PortC.1
low PortC.2
low PortC.3

Pause Delay1

low PortC.0
High PortC.1
high PortC.2
low PortC.3

Pause Delay1

low PortC.0
low PortC.1
high PortC.2
high PortC.3

Pause Delay1

high PortC.0
low PortC.1
low PortC.2
high PortC.3

Pause Delay1
Next N
endif

GoTo MainStart


My Code Work just fine wehn the Delay Value > Byte is.
But I need for Example : Pause Delay1 = 1

I Wrote a visual Basic Software where I can send this Delays values,but this work just wehn this Word Variable > 255.

Thanks.