發表於 : 週五 2月 22, 2002 1:08 am
別怕，樂透也不是很亂…這樣說不定還會比較準ㄜ...算是吧
我知道C有 不知道作者有沒有加進去
因為只用rand出來的東西 還不會說很.."亂"..（不知道該怎麼說^^||）
第 1 頁 (共 1 頁)
發表於 : 週四 2月 21, 2002 5:13 am
另一隻開獎程式,我自己寫的...夜半無聊加消遣.XD
var1=0
var2=0
var3=0
say "電腦運算中,請稍候..."
delay(1000)
while var1<36
extvar[var1]=0
var1=var1+1
wend
while var2<6
var2=var2+1
var3=rand[36]
if extvar[var3]=0
extvar[var3]=1
else
var2=var2-1
end if
wend
say "電腦算出開獎號碼是...."
delay(2000)
var3=0
while var3<36
if extvar[var3]=1
say "$[var3+1]!!"
delay(1000)
end if
var3=var3+1
wend
say "祝您中大獎!!"
stop
var1=0
var2=0
var3=0
say "電腦運算中,請稍候..."
delay(1000)
while var1<36
extvar[var1]=0
var1=var1+1
wend
while var2<6
var2=var2+1
var3=rand[36]
if extvar[var3]=0
extvar[var3]=1
else
var2=var2-1
end if
wend
say "電腦算出開獎號碼是...."
delay(2000)
var3=0
while var3<36
if extvar[var3]=1
say "$[var3+1]!!"
delay(1000)
end if
var3=var3+1
wend
say "祝您中大獎!!"
stop
發表於 : 週一 2月 18, 2002 5:53 pm
ㄜ...算是吧在 2002-02-17 06:30, KleMenT 寫了:srand? 妳是說rand? 那個是取亂數的@@"在 2002-02-14 17:56, lksodin 寫了:ezsII有沒有srand可以用啊?@@在 2002-02-10 14:20, KleMenT 寫了: 沒孕哃@ 用來玩的而已~ 主要是"我"用來玩@@
加上uop.dll 就有啦^^
我也只用過一次用決定買幾號~ 哈哈 玩玩而已~
很麻煩說~
我知道C有 不知道作者有沒有加進去
因為只用rand出來的東西 還不會說很.."亂"..（不知道該怎麼說^^||）
發表於 : 週日 2月 17, 2002 6:30 am
srand? 妳是說rand? 那個是取亂數的@@"在 2002-02-14 17:56, lksodin 寫了:ezsII有沒有srand可以用啊?@@在 2002-02-10 14:20, KleMenT 寫了:沒孕哃@ 用來玩的而已~ 主要是"我"用來玩@@在 2002-02-10 13:36, sub 寫了:
呃...
這有什麼孕庤???
加上uop.dll 就有啦^^
我也只用過一次用決定買幾號~ 哈哈 玩玩而已~
很麻煩說~
發表於 : 週四 2月 14, 2002 5:56 pm
ezsII有沒有srand可以用啊?@@在 2002-02-10 14:20, KleMenT 寫了:沒孕哃@ 用來玩的而已~ 主要是"我"用來玩@@在 2002-02-10 13:36, sub 寫了:
呃...
這有什麼孕庤???
發表於 : 週日 2月 10, 2002 2:20 pm
沒孕哃@ 用來玩的而已~ 主要是"我"用來玩@@在 2002-02-10 13:36, sub 寫了:
呃...
這有什麼孕庤???
發表於 : 週日 2月 10, 2002 1:36 pm
呃...
這有什麼孕庤
這有什麼孕庤
發表於 : 週日 2月 10, 2002 6:19 am
//要用uop.dll
//先說明沒中別扁我喔@.@|| klement 留...
say "預測今期樂透彩卷號碼"
delay(3500)
say "電腦正在運算結果"
delay(1000)
say " 請稍候....."
var1=0
var2=0
var3=0
var4=0
var5=0
var6=0
repeat 50
if var1=0 || var1=var2 || var1=var3 || var1=var4 || var1=var5 || var1=var6
var1=Rand[36]
end if
if var2=0 || var2=var1 || var2=var3 || var2=var4 || var2=var5 || var2=var6
var2=Rand[36]
end if
if var3=0 || var3=var2 || var3=var1 || var3=var4 || var3=var5 || var3=var6
var3=Rand[36]
end if
if var4=0 || var4=var2 || var4=var3 || var4=var1 || var4=var5 || var4=var6
var4=Rand[36]
end if
if var5=0 || var5=var2 || var5=var3 || var5=var4 || var5=var1 || var5=var6
var5=Rand[36]
end if
if var6=0 || var6=var2 || var6=var3 || var6=var4 || var6=var5 || var6=var1
var6=Rand[36]
end if
end repeat
delay(5000)
say "電腦預測今期樂透彩卷號碼為$[var1], $[var2], $[var3], $[var4], $[var5], $[var6]"
delay(1000)
STOP
_________________
現在我活在黑暗中...
怕見到藍名怕見到紅名@@
乾脆什麼人也不見~ 躲在家裡~ 嗚嗚
倒數4天中@.@||
<font size=-1>[ 這篇文章被編輯過: KleMenT 在 2002-02-10 06:54 ]</font>
//先說明沒中別扁我喔@.@|| klement 留...
say "預測今期樂透彩卷號碼"
delay(3500)
say "電腦正在運算結果"
delay(1000)
say " 請稍候....."
var1=0
var2=0
var3=0
var4=0
var5=0
var6=0
repeat 50
if var1=0 || var1=var2 || var1=var3 || var1=var4 || var1=var5 || var1=var6
var1=Rand[36]
end if
if var2=0 || var2=var1 || var2=var3 || var2=var4 || var2=var5 || var2=var6
var2=Rand[36]
end if
if var3=0 || var3=var2 || var3=var1 || var3=var4 || var3=var5 || var3=var6
var3=Rand[36]
end if
if var4=0 || var4=var2 || var4=var3 || var4=var1 || var4=var5 || var4=var6
var4=Rand[36]
end if
if var5=0 || var5=var2 || var5=var3 || var5=var4 || var5=var1 || var5=var6
var5=Rand[36]
end if
if var6=0 || var6=var2 || var6=var3 || var6=var4 || var6=var5 || var6=var1
var6=Rand[36]
end if
end repeat
delay(5000)
say "電腦預測今期樂透彩卷號碼為$[var1], $[var2], $[var3], $[var4], $[var5], $[var6]"
delay(1000)
STOP
_________________
現在我活在黑暗中...
怕見到藍名怕見到紅名@@
乾脆什麼人也不見~ 躲在家裡~ 嗚嗚
倒數4天中@.@||
<font size=-1>[ 這篇文章被編輯過: KleMenT 在 2002-02-10 06:54 ]</font>