Delay Problem,Byte,Word

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

[Pesticida]

Hi,
Pic 16F870 and PBP 2.46.

Maybe is this a Compiler Bug for the Pause Command.

[mister_e]

mmm, i think i may have spotted few problems...

When you declare an array like this...

Array var BYTE[3]

it will hold 3 different value. And they will be...
Array[0]
Array[1]
Array[2]

Not MUCH, if you Write to Array[3], the compiler won't complaint... but it will cause you some problem one day or another because you WILL overwrite x variable...

so just modify your code and it should work better. In VB it work.. but it's a little bit different in PBP.

Just for testing, try...

DelayArray  var byte[4]
    delayarray[0]=1
    delayarray[1]=10
    delayarray[2]=100
    delayarray[3]=200

Delay       var word
CounterA    var byte

Start:
    for countera=0 to 3
        high PORTB.0
        delay=delayarray[countera]
        pause delay
        low PORTB.0
        pause delay
        next
    
    goto start

at least it's working here

[Pesticida]

Mister thank a lot I will try now your code,
I try this too:
Delay1 var Word
Delay2 var Byte

Delay1 = Datain[3] * Datain[4]

if Delay1 < 256 then
Delay2 = Delay1
Delay1 = 0
else
Delay2 = 0
endif

Loop = (Datain[2] * 10)
''''''''''''''''''''''''''''''''''''''''''''Progra m 1''''''''''''''''''''''''''''''''''''''''''''''''' ''
IF Datain[1] = 0 then
for N = 0 to Widerholung

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

Pause Delay1
Pause Delay2

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

Pause Delay1
Pause Delay2

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

Pause Delay1
Pause Delay2

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

Pause Delay1
Pause Delay2

Next N
endif

This Work ! :-)