Pete's QBASIC Site

Code: Select all

INPUT "Enter an integer for randoms limit:", VARIABLE%
'capture second hand
VALUESEC$ = MID$(TIME$, 7, 2)
VALUESCND% = VAL(VALUESEC$)
IF VALUESCND% < 25 THEN VALUESCND% = VALUESCND% + 24
ATTAINED = (((VALUESCND% * 4) + 32) / 17.63) - 5
Numbersought% = INT(ATTAINED * (VARIABLE% / 10))
PRINT Numbersought%
END

Code: Select all

INPUT "Enter an integer for randoms limit:", VARIABLE%
'capture second hand
VALUE1$ = MID$(TIME$, 7, 2)
VALUE2% = VAL(VALUE1$)
IF VALUE2% < 25 THEN VALUE2% = VALUE2% + 24
ATTAIN1 = (((VALUE2% * 4) + 32) / 17.63) - 5
VALUE3$ = MID$(TIME$, 4, 2)
VALUE4% = VAL(VALUE3$)
IF VALUE4% < VALUE2% THEN VALUE4% = VALUE2% * 1.0018
IF VALUE4% < 25 THEN VALUE4% = VALUE4% + 16
ATTAIN2 = (((VALUE4% * 3) + 25) / 15) - 4
VALUE2N4% = INT((VAL(VALUE1$) + VAL(VALUE3$)) / 2)
IF VALUE2N4% < 25 THEN VALUE2N4% = VALUE2N4% + 21
ATTAIN3 = (((VALUE2N4% * 3.48) + 34) / 16.17) - 5
OBTAIN1% = INT(ATTAIN3 * .3104)
SELECT CASE OBTAIN1
    CASE 1
        Numbersought% = INT(ATTAIN1 * (VARIABLE% / 10))
    CASE 2
        Numbersought% = INT(ATTAIN2 * (VARIABLE% / 10))
    CASE ELSE
        Numbersought% = INT((ATTAIN1 + ATTAIN2) * .5722 * (VARIABLE% / 10)) - 1
END SELECT
PRINT Numbersought%
END

Code: Select all

Code Example 1

The following is an example of the linear congruential method for generating
pseudo-random numbers:

' To try this example in VBDOS.EXE:
' 1. From the File menu, choose New Project.
' 2. Copy the code example to the Code window.
' 3. Press F5 to run the program.

DEFDBL A-Z ' Requires double-precision intermediate variables. a = 214013
             c = 2531011 z = 2 ^ 24

INPUT "Input any seed value: ", x0

FOR count = 1 TO 25   ' print 25 random numbers between 0.0 and 1.0:
  temp = x0 * a + c
' Calculate (temp MOD z) and assign to x1:
  temp = temp / z
  x1 = (temp - FIX(temp)) * z
' Print the result as value between 0.0000000 and 1.0000000:
  result = x1 / z
  PRINT result
' Reseed the calculation before the next iteration:
  x0 = x1   ' x0 and x1 range from 0 to 16777216 (2^24)
NEXT