Random Program 1

[Balarao]

I am writing a program for our raffle promo, I inputed all the numbers for the raffle in my DBF and I wrote a DO WHILE program skipping every record in loop to make it look like a random. However, I can't find a Clipper function or command to get out of the loop! How will go about it or is there a simpler way to make a random procedure.

Thanks again for your help.

God bless,

Balarao

 

[48xDrive]

hi, yo get out from a Loop, just use the Exit command

Exit = Get out
Loop = branch to begin og loop

Example:

Do While !Eof()
If Recno() == 10
Exit // Get out of Bucle
Endif
DbSkip()
Enddo

 

[XO]

Generates random number between 1 and whatever nMax is set to. You will need to link the Nanfor53.lib

#include "inkey.ch"
LOCAL nMax := 200
LOCAL nNum
cls
DO WHILE LASTKEY()<>K_ESC

nNum := INT(FT_RAND1(nMax))+1
@1,1 say nNum color &quot;gr+/n&quot;
INKEY(.2)

END DO

 

[EzLogic]

If you don't have nanfor lib, you can use my little code

nNum = TeknoRandom(50) && between 1 and 50

***********************
Function TeknoRandom(nMaxNum)
LOCAL nSeed,TeknoRan
LOCAL m,b
m = 100000000
b = 31415621
nSeed = mod( SECONDS()*b+1, m ) / m
TeknoRan = nMaxNum * nSeed
return( TeknoRan )


Ali Koumaiha
TeknoSoft Inc
Farmington Hills, Michigan