易語言自帶的取隨機數,取小范圍的數字還行,大了就不行了,后面的根本取不到,所以我們需要借且JS來取隨機數
1、啟動易語言新建一個空白的程序或者模塊都可以
2、雙擊界面,進入代碼編輯,在代碼界面新建一個子程序,修改為子程序_取隨機數_JS
3、讓鼠標指針放在上面,按回車添加2個整數型參數,分別命名為【起始值】【終止值】
4、可以把公開勾上,這樣可以復制到模塊里面進行調用。第一個參數【起始值】設置為可空,如果沒有傳入參數,默認就是為0
5、添加其他JS代碼,完成編寫,純代碼在最后,直接復制到易語言界面可以直接調用
6、測試功能是否正確。OK,此代碼即使是上百萬上千萬的隨機,也能取到,不像易語言的隨機取不到后面的。
純代碼為:
.版本 2.子程序 子程序_取隨機數_JS, 整數型, 公開.參數 起始值, 整數型, 可空.參數 終止值, 整數型.局部變量 Js, 對象.局部變量 結果, 整數型CoInitialize (0) ' 初始化COM對象,多線程調用才不會失敗Js.創建 (“ScriptControl”, )Js.寫屬性 (“Language”, “JScript”).判斷開始 (起始值 = 0) 結果 = 到整數 (Js.文本方法 (“eval”, “parseInt(Math.random()*(” + 到文本 (終止值) + “+1),10)”)).判斷 (起始值 = 1) 結果 = 到整數 (Js.文本方法 (“eval”, “parseInt(Math.random()*” + 到文本 (終止值) + “+1)”)).默認 結果 = 到整數 (Js.文本方法 (“eval”, “parseInt(Math.random()*(” + 到文本 (終止值) + “-” + 到文本 (起始值) + “+1)+” + 到文本 (起始值) + “,10)”)).判斷結束Js.清除 ()CoUninitialize () ' 清除返回 (結果)
|
新聞熱點
疑難解答