VFP 愛用者社區

Batman · 註冊時間: 2003-11-15 文章: 348 第 1 樓

nRandomVal=INT(RAND()*10)
以上開發時沒問題, Compile後卻一直出現相同數字 ( Cool

, 不知各孤友有沒踫到以上惰況?

perry · 註冊時間: 2014-07-20 文章: 203 第 2 樓

亂數種子是固定的,所以每次執行都一樣順序@@
在主程式執行一次以秒為亂數種子可解決!!
=RAND(SECO())

Batman · 註冊時間: 2003-11-15 文章: 348 第 3 樓

謝謝 perry, 問題解決了

perry · 註冊時間: 2014-07-20 文章: 203 第 4 樓

下面這個當亂數種子,應該不會有重複的可能!!
priv rand_var
rand_var=val(sys(1))*10^5+seco()
=rand(rand_var)

syntech · 發表於: 星期一十月 12, 2015 4:55 pm 文章主題:

lygcw9603 · 註冊時間: 2011-12-25 文章: 129 第 6 樓

程序始置RAND(-1)
真看看RAND()的用法

perry · 註冊時間: 2014-07-20 文章: 203 第 7 樓

RAND(-1) -> used system clock
RAND(-1) 應該是等於 RAND(SECO())