Admin: 1 revision

2013-02-15T19:15:48Z

1 revision

Admin: Created page with "= Action = Returns a random number. =
2013-02-11T22:37:12Z

Created page with "= Action = Returns a random number. = Action =

Returns a random number.

 

 

= Syntax =

var = RND( limit )

 

 

= Remarks =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="523" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="12%" style="width: 59px; border: 1px solid rgb(0, 0, 0);" |
Limit

| valign="top" width="100%" style="width: 455px; border: 1px solid rgb(0, 0, 0);" |
Word that limits the returned random number.

|- style="vertical-align: top;"
| valign="top" width="12%" style="width: 59px; border: 1px solid rgb(0, 0, 0);" |
Var

| valign="top" width="100%" style="width: 455px; border: 1px solid rgb(0, 0, 0);" |
The variable that is assigned with the random number.

|}
</div>
 

The RND() function returns an Integer/Word and needs an internal storage of 2 bytes. (_RSEED). Each new call to Rnd() will give a new positive random number.

 

[[File:Notice.jpg|left|Notice.jpg]] Notice that it is a software based generated number. And each time you will restart your program the same sequence will be created.

 

 

You can use a different SEED value by dimensioning and assigning _RSEED yourself:

Dim _rseed as word : _rseed = 10234

Dim I as word : I = rnd(10)

 

When your application uses a timer you can assign ___RSEED with the timer value. This will give a better random number.

 

 

= See also =

NONE

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : rnd.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo : RND() function
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim I As Word ' dim variable
Do
I = Rnd(40) 'get random number (0-39)
Print I 'print the value
Wait 1 'wait 1 second
Loop 'for ever
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]