Post by anthonyrbrown on Jan 13, 2024 18:37:31 GMT
So I have always wondered if there is a difference using RANDOMIZE TIMER once or all the time ?
Can anyone give a technical reason why one is better than the other ? or are they both the same ?
How can we test the 2 different types ?
Below are 2 examples...
REM ----------------------------------------------------------
REM RANDOM10NUMBERSV1 {USES THE RANDOMIZE TIMER ONCE!}
REM BELOW >>>>>
RANDOMIZE TIMER
HOWMANTIMES:
CLS
PRINT
PRINT " RANDOM10NUMBERS PROGRAM(V1) "
PRINT: PRINT
INPUT " ENTER HOW MANY TIMES TO RUN (ENTER = 100) "; TMSTR
IF TMSTR = 0 THEN TMSTR = 100
IF TMSTR > 0 THEN GOTO START
GOTO HOWMANTIMES
REM **********************************************************
START:
RANDOMNUM = INT(RND * 10)
REM **********************************************************
IF RANDOMNUM = 0 THEN RAND0TOTAL = RAND0TOTAL + 1
IF RANDOMNUM = 1 THEN RAND1TOTAL = RAND1TOTAL + 1
IF RANDOMNUM = 2 THEN RAND2TOTAL = RAND2TOTAL + 1
IF RANDOMNUM = 3 THEN RAND3TOTAL = RAND3TOTAL + 1
IF RANDOMNUM = 4 THEN RAND4TOTAL = RAND4TOTAL + 1
IF RANDOMNUM = 5 THEN RAND5TOTAL = RAND5TOTAL + 1
IF RANDOMNUM = 6 THEN RAND6TOTAL = RAND6TOTAL + 1
IF RANDOMNUM = 7 THEN RAND7TOTAL = RAND7TOTAL + 1
IF RANDOMNUM = 8 THEN RAND8TOTAL = RAND8TOTAL + 1
IF RANDOMNUM = 9 THEN RAND9TOTAL = RAND9TOTAL + 1
COUNT = COUNT + 1
IF COUNT = TMSTR THEN GOTO ENDOFPROGRAM
GOTO START
REM **********************************************************
ENDOFPROGRAM:
CLS
PRINT: PRINT
PRINT " RAND0TOTAL = "; RAND0TOTAL
PRINT " RAND1TOTAL = "; RAND1TOTAL
PRINT " RAND2TOTAL = "; RAND2TOTAL
PRINT " RAND3TOTAL = "; RAND3TOTAL
PRINT " RAND4TOTAL = "; RAND4TOTAL
PRINT " RAND5TOTAL = "; RAND5TOTAL
PRINT " RAND6TOTAL = "; RAND6TOTAL
PRINT " RAND7TOTAL = "; RAND7TOTAL
PRINT " RAND8TOTAL = "; RAND8TOTAL
PRINT " RAND9TOTAL = "; RAND9TOTAL
PRINT
RAND09TOTAL = RAND09TOTAL + RAND0TOTAL + RAND1TOTAL
RAND09TOTAL = RAND09TOTAL + RAND2TOTAL + RAND3TOTAL
RAND09TOTAL = RAND09TOTAL + RAND4TOTAL + RAND5TOTAL
RAND09TOTAL = RAND09TOTAL + RAND6TOTAL + RAND7TOTAL
RAND09TOTAL = RAND09TOTAL + RAND8TOTAL + RAND9TOTAL
PRINT " TOTAL = "; RAND09TOTAL
PRINT: PRINT
INPUT " PRESS (ENTER TO RUN AGAIN "; RUNAGAIN
CLEAR
RUN
REM -------------------------------------------------
REM ----------------------------------------------------------
REM RANDOM10NUMBERSV2 {USES THE RANDOMIZE TIMER ALL THE TIME}
REM LOOK AT THE START: >>>>>
HOWMANTIMES:
CLS
PRINT
PRINT " RANDOM10NUMBERS PROGRAM(V2) "
PRINT: PRINT
INPUT " ENTER HOW MANY TIMES TO RUN (ENTER = 100) "; TMSTR
IF TMSTR = 0 THEN TMSTR = 100
IF TMSTR > 0 THEN GOTO START
GOTO HOWMANTIMES
REM **********************************************************
START:
RANDOMIZE TIMER
RANDOMNUM = INT(RND * 10)
REM **********************************************************
IF RANDOMNUM = 0 THEN RAND0TOTAL = RAND0TOTAL + 1
IF RANDOMNUM = 1 THEN RAND1TOTAL = RAND1TOTAL + 1
IF RANDOMNUM = 2 THEN RAND2TOTAL = RAND2TOTAL + 1
IF RANDOMNUM = 3 THEN RAND3TOTAL = RAND3TOTAL + 1
IF RANDOMNUM = 4 THEN RAND4TOTAL = RAND4TOTAL + 1
IF RANDOMNUM = 5 THEN RAND5TOTAL = RAND5TOTAL + 1
IF RANDOMNUM = 6 THEN RAND6TOTAL = RAND6TOTAL + 1
IF RANDOMNUM = 7 THEN RAND7TOTAL = RAND7TOTAL + 1
IF RANDOMNUM = 8 THEN RAND8TOTAL = RAND8TOTAL + 1
IF RANDOMNUM = 9 THEN RAND9TOTAL = RAND9TOTAL + 1
COUNT = COUNT + 1
IF COUNT = TMSTR THEN GOTO ENDOFPROGRAM
GOTO START
REM **********************************************************
ENDOFPROGRAM:
CLS
PRINT: PRINT
PRINT " RAND0TOTAL = "; RAND0TOTAL
PRINT " RAND1TOTAL = "; RAND1TOTAL
PRINT " RAND2TOTAL = "; RAND2TOTAL
PRINT " RAND3TOTAL = "; RAND3TOTAL
PRINT " RAND4TOTAL = "; RAND4TOTAL
PRINT " RAND5TOTAL = "; RAND5TOTAL
PRINT " RAND6TOTAL = "; RAND6TOTAL
PRINT " RAND7TOTAL = "; RAND7TOTAL
PRINT " RAND8TOTAL = "; RAND8TOTAL
PRINT " RAND9TOTAL = "; RAND9TOTAL
PRINT
RAND09TOTAL = RAND09TOTAL + RAND0TOTAL + RAND1TOTAL
RAND09TOTAL = RAND09TOTAL + RAND2TOTAL + RAND3TOTAL
RAND09TOTAL = RAND09TOTAL + RAND4TOTAL + RAND5TOTAL
RAND09TOTAL = RAND09TOTAL + RAND6TOTAL + RAND7TOTAL
RAND09TOTAL = RAND09TOTAL + RAND8TOTAL + RAND9TOTAL
PRINT " TOTAL = "; RAND09TOTAL
PRINT: PRINT
INPUT " PRESS (ENTER TO RUN AGAIN "; RUNAGAIN
CLEAR
RUN
REM -------------------------------------------------