作者wait999 (-.-)
看板EzHotKey
標題[-AI-] 樂透選號程式（原始碼）
時間Sat Jun 26 12:50:24 2010
買樂透不知道要買哪些號碼嗎？
分組時不知道該怎麼排嗎？
此程式是一個洗牌程式，簡單說就是一個
固定範圍內取亂數不重複
;==================程式開始＝＝＝＝＝＝＝＝＝＝
#include <Array.au3>
Global $nn = 49
;亂數範圍 1～$nn
Global $pp2 = 6
;取出幾個數
Global $gg2 = 10
;輸出幾組
Global $X[$nn],$I
Run("Notepad.exe")
WinWaitActive("記事本", "",1)
For $I = 0 To $nn-1 Step 1
$X[$I] = $I+1
Next
;_ArrayDisplay($X, "$avArray ")
For $gg = 1 To $gg2
For $I = $nn-1 To 0 Step -1
$rr = Random(0,$I,1)
_ArraySwap($x[$I], $x[$rr])
Next
For $pp = 1 to $pp2
Send($x[$nn-$pp] & ",")
Next
Send("{BACKSPACE}")
Send("{ENTER}")
Next
;~ _ArrayDisplay($X, "$avArray ")
;================程式結束＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.60.254.83
※ 編輯: wait999 來自: 111.242.2.206 (12/05 19:19)