RANDOM

 
語法

        RANDOM Variable

 

操作

        產生隨機數。

  • Variable 產生的隨機數會置於之前所定義的變數。

 

說明

        這個指令會產生虛擬隨機數然後放置於定義的變數中。虛擬隨機數並非是完全的隨機而是以一個序列的形式在一段時間後本身會重覆。然而這個方式所產生的隨機數在大多數應用目的上都是合適的。要產生一個真正的隨機數一些外部控制的事件必須在數目產生中被考慮到。隨機數序列也需倚賴所選擇的起始數去開始產生。這些可以藉由為變數設定初始值加以控制。這個值將會被視為隨機數產生的基礎。這就是我們所知的隨機數產生種子值。

 

範例 

        下列程式顯示如何去組合一個外接按鈕和RANDOM指令去產生隨機數。

 

Sub Main()
   
Dim Key As Byte
   
Dim Seed As Dword = 10
   
Dim X, Y As Byte
   
Dim Temp As Dword
   
Dim NumArray(5) As Dword
   
   
Do 
       
Debug "Press push button to get your lucky numbers.", CR
WAIT:
       
RANDOM(Seed)
       
       
If IN(0)<>0 Then Goto WAIT
       
Debug "The lucky numbers are "
       
       
For Y=0 To 5
GENRANDOM:
           
RANDOM(Seed)
            Temp = Seed
Mod 47
            Temp +=
1            
           
           
For X = 0 To 5
               
If Temp=NumArray(X) And X<>Y Then
                   
Goto GENRANDOM
               
End If
           
Next           
           
            NumArray(Y) = Temp
           
Debug NumArray(Y), " "
       
Next
       
       
Debug CR
   
Loop
End Sub