rndseed.bmx 258 B

1234567891011121314151617181920
  1. ' RndSeed.bmx and SeedRnd.bmx ( one example for both )
  2. ' Get/Set random number seed.
  3. SeedRnd MilliSecs()
  4. seed=RndSeed()
  5. Print "Initial seed="+seed
  6. For k=1 To 10
  7. Print Rand(10)
  8. Next
  9. Print "Restoring seed"
  10. SeedRnd seed
  11. For k=1 To 10
  12. Print Rand(10)
  13. Next