Delay Problem,Byte,Word

[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.

[mister_e]

I'm curious to see the VB program too.

[Pesticida]

Hi,

Yes I understand what you mean,but my problem ist that i want to have sometimes values that < as 255 is,for Example 1 Millisecond for My Stepping Motor.

The Visual Basic Software Work very good,all what I send I receive with my Pic,My only Problem ist that wehn I send this Chr(1) to my Word variable Delay ,dont' Work,wehn I send Chr(1) And I use the Pic Code: Delay1 = (DataIn[3] * 256) + DataIn[4] this work but I need 1 Millisecond for my Stepping Motor.

Thanks.

[mister_e]

OK, so do a simple test, skip the HSERIN stuff and load the value in the array manually at the top of your code, then redo your tests.

Also... there's a little mistake here

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

Should be

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

I think it's on the VB side... just drop the Mscomm1.Output line

[Pesticida]

Hi,

This is my Visual Basic Communication Code:

MSComm1.Output = "!" & Chr(Val(CmbAdresse.Text)) & Chr(0) & Chr(Val(TxtLoop.Text)) & Chr(Val(TxtDelayOn1.Text)) _
& Chr(Val(TxtDelayOn2.Text)) & Chr(Val(TxtKanal1.Text)) & Chr(Val(TxtKanal2.Text)) & Chr(Val(TxtKanal3.Text)) _
& Chr(Val(TxtKanal4.Text)) & Chr(Val(TxtKanal5.Text)) & Chr(Val(TxtKanal6.Text)) & Chr(13) & Chr(10)
Sleep 30

I need for the moment just Byte CmbAdresse.Text,Byte TxtLoop.Text,Byte TxtDelayOn1.Text,Byte TxtDelayOn2.Text.
I have 13 Bytes !

[Pesticida]

Ok I did what You told me,now I wrote direct too Delay1 = 1.

But dont work,maybe I can not use a Word variable with Pause when this Values less then 256 is.

I can not find the Answer.

[mister_e]

EDIT: forgive me i was wrong... i'll be back!!!

[Pesticida]

Ok,
but what I dont understand is why when I write Direct in Picbasic Pro:
Delay1 = 1

.......

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

Pause Delay1

this dont work,but when i write Pause 1 or when :
Delay1 var byte
Delay1 = 1

.......

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

Pause Delay1
This work.

[mister_e]

It's certainely strange dude...
Wich PIC #
Wich PBP version?