[-AI-] 樂透選號程式（原始碼）
買樂透不知道要買哪些號碼嗎？
分組時不知道該怎麼排嗎？
此程式是一個洗牌程式，簡單說就是一個固定範圍內取亂數不重複
;==================程式開始＝＝＝＝＝＝＝＝＝＝
#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)
EzHotKey 近期熱門文章
PTT數位生活區 即時熱門文章
