AutoIt3实现随机数算法

AutoIt3 10/26 阅读 1021 views次 人气 0
摘要:

AutoIt3实现了产生随机数的算法,封装成函数_Random()后提供使用,通过调用该函数产生一定范围的随机数。

实现代码:

MsgBox(64, "随机数", _Random(1))
MsgBox(64, "随机数", _Random(10)) 
MsgBox(64, "随机数", _Random(100)) 
MsgBox(64, "随机数", _Random(1000)) 
MsgBox(64, "随机数", _Random(10000)) 

;;产生随机数函数
Func _Random($nNum1 = 0, $nNum2 = 0, $iFlag = 0)
	; Invalid 1st parameter
    If Not IsNumber($nNum1) Then Return SetError(1, 0, 0) 
    Switch @NumParams
        Case 0
            Return Random()
        Case 1
            If $nNum1 < 0 Then Return -Random(-$nNum1)
            Return Random($nNum1)
        Case Else
			; Invalid 2nd or 3rd parameter
            If Not IsNumber($nNum1) Or ($iFlag <> 0 And $iFlag <> 1) Then Return SetError(2, 0, 0) 
            If $nNum1 = $nNum2 Then Return $nNum1
            If $nNum2 > $nNum1 Then Return Random($nNum1, $nNum2, $iFlag)
            Return Random($nNum2, $nNum1, $iFlag)
    EndSwitch
EndFunc


评论

该文章不支持评论!

分享到: