please help me check

[kctan]

i am using the proton to write this code but i don't know y when i give the input signal until 5 the portb.3 can't be light up? can anyone help me check? thanks 1st
 
here is the coding (proton)
 
Device = [/size]16F877A
XTAL [/color][/size]= 20
TRISB = %00000000
TRISC = %11111111
ALL_DIGITAL [/color][/size]= true
Dim i As Byte
start:
i = 1
If PORTC.0 = 1 Then
PORTB.0 = 1
Else
PORTB.0 = 0
EndIf
If PORTB.0 =1 Then
i = i + 1
EndIf
While i = 5
DelayMS 300
PORTB.3 = 1
Wend

[ero]

The problem is the code. Lets look together;
Start:
        i = 1                          '_________ if program comes here second time (i) become 1 again for this reason this line must be put before (start:)
        If PORTC.0 = 1 Then
            PORTB.0 = 1
          Else
            PORTB.0 = 0
        EndIf
       
        If PORTB.0 =1 Then   _____'********the problem is here
          i = i + 1                    'i become (i=i+1=2) 2 here and
        EndIf                          '________________program pass over here
       
        While i = 5                 '____________the (i) is two here, and program pass
        pause 300                 '____________to the end
        PORTB.3 = 1
        Wend
                                           '_____________________now program is here and there is not any code
                                           '_____________________For this reason, we have to put here;
       goto start ' ____________this command.

The right code should be as follows;
i=1
start:
'-------------
        If PORTC.0 = 1 Then
             PORTB.0 = 1
        Else
            PORTB.0 = 0
        EndIf
       
        If PORTB.0 =1 Then
           i = i + 1
        EndIf
       
       While i = 5
        delayms 300
        PORTB.3 = 1
        Wend
      goto start


ERO

[Parmin]

I agree with ERO,

Since the program is not in a loop, there is no increment of i larger than the integer 2.

If there is a loop, it seems that the loop should go to the label "start"  thus passing the label, i get set back to the integer 1.

Since i cannot get over the value of integer 2,  the while i = 5 condition is never met, so PortB.3 will never turn on.

[kctan]

thanks for all of the help .