Microsoft KB Archive/109154

How to Create Random Color Pairs ID: Q109154 1.02 2.00 2.5x 2.6x | 2.5x 2.6x 3.00 | 2.5x 2.60a MS-DOS | WINDOWS | MACINTOSH The information in this article applies to: Microsoft Visual FoxPro for Windows, version 3.0 Microsoft FoxPro for MS-DOS, versions 1.02, 2.0, 2.5x, 2.6x Microsoft FoxPro for Windows, versions 2.5x, 2.6x Microsoft FoxPro for Macintosh, version 2.5x, 2.6a SUMMARY It is sometimes desirable to randomly generate colors, for example, for a screen that changes the color for a @ ... SAY statement. This article demonstrates a sample procedure for creating random colors. MORE INFORMATION The following code displays the text "This is a test" with various randomly generated colors. FOR i = 1 to 50 colorpair = randcolor() @ 2,2 SAY "This is a test" COLOR &colorpair FOR n = 1 to 10000 && Slows it down a bit so you can see it! ENDFOR ENDFOR PROCEDURE randcolor numcolor = INT(RAND()*100) && Create a 2-digit number num1 = ALLTRIM(STR(numcolor/10)) && store 1st digit num2 = ALLTRIM(STR(INT(MOD(numcolor,10)))) && store 2nd digit * Select one valid color from random digit color1 = CHRTRAN(num1,"0123456789","WNRGBBGRNW") color2 = CHRTRAN(num2,"0123456789","WNRGBBGRNW") * Combine two colors to create color pair colstrg = color1 + "," + color2 RETURN colstrg Additional reference words: VFoxWin 3.00 FoxMac FoxDos FoxWin 1.02 2.00 2.50 2.50a 2.50b 2.50c 2.60 2.60a KBCategory: KBSubcategory: FxprgGeneral Keywords  : kbcode FxprgGeneral Version  : 1.02 2.00 2.5x 2.6x | 2.5x 2.6x Platform  : MACINTOSH MS-DOS WINDOWS

Last Reviewed: May 22, 1998 © 1999 Microsoft Corporation. All rights reserved. Terms of Use.