obj color problem..

[keeyean]

for q = 0 to 3
SolidObjR.Color = 1 + q
TextObj.Color = 1 + q
next q

how do i make it .. when the q=3.. then the color will be 7(White)??

 

[dsi]

You can use (4 + q) in your formula, or include and If statement:

For q = 0 To 3
  If q = 3 Then
    SolidObjR.Color = 7
    TextObj.Color = 7
  Else
    SolidObjR.Color = 1 + q
    TextObj.Color = 1 + q
  End If
Next q

 DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.

 

[MMAshwin]

Hi,

No way is right but I'd have gone this way

for q = 0 to 2 'Note 2 not 3
SolidObjR.Color = 1 + q
TextObj.Color = 1 + q
next q

SolidObjR.Color = 7
TextObj.Color = 7


When the q loop is over ie q=2 the colors are changed
to white (7) as though q had gone one more loop. It should be slightly faster than the previous example (which was very good).
The only draw back is if q needs to be 3 later on in the program (ie its value after it leaves the loop is required further in the code) if it is then add q=3 after the Next q instruction.

Regards