別怕，樂透也不是很亂…這樣說不定還會比較準ㄜ...算是吧
我知道C有 不知道作者有沒有加進去
因為只用rand出來的東西 還不會說很.."亂"..（不知道該怎麼說^^||）
電腦預測樂透彩卷程式
版主: GM Saga
-
escape
- 中級玩家
- 文章: 282
- 註冊時間: 週四 7月 12, 2001 8:00 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
-
lksodin
- 高級玩家
- 文章: 697
- 註冊時間: 週日 10月 14, 2001 8:00 am
-
KleMenT
- 高級玩家
- 文章: 589
- 註冊時間: 週三 12月 26, 2001 8:00 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>
誰在線上
正在瀏覽這個版面的使用者：沒有註冊會員 和 5 位訪客