Delay Problem,Byte,Word

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

[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