incrementing values

[Guest_imported]

In my program I have a variable named Counter which has a value of 0 to 7, I need help in writing code which increments the value of counter by 1 each time the sub procedure is run and which resets Counter to 0 when Counter exceeds 7. Thanks for your help! Lee

 

[chiph]

This is pretty easy (you'll be surprised at how easy it is!)
[tt]
Counter = Counter + 1
If Counter > 7 Then
Counter = 0
End If
[/tt]
You'd want to put the call to your subroutine in the correct place, depending on whether you want to call the sub before or after Counter gets incremented.

Chip H.

 

[jmarler]

Here you go . . .

public sub Mysub()

    '** counter is a module level variable
    Counter = Counter +1 
    if Counter > 7 then
        Counter = 0
    end if

end sub

- Jeff Marler B-)

 

[jmarler]

OK Chip . . . so you can type faster than I can . . . ;-) - Jeff Marler B-)

 

[Guest_imported]

THANKS CHIP, THANKS JEFF !!

 

[chiph]

Lee -
Glad we could be of help.

Jeff -
What can I say? I was stuck at home on a beautiful Saturday afternoon with a cold. So, I came here!

Chip H.