找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
儲值後自動升級用戶組認識好友、聊天,分享生活趣事你準備好成為出色的版主了嗎?
juliamega無碼259luxu3dmg高中按摩
日本少女マウマウ無碼流出宮藤ゆみ真愛の百unnamed abracada

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]女王的手術刀09-

[繁]異修羅10-

[繁]藥師少女的獨語22

[簡]SHAMAN KING FLOW

[繁]治癒魔法的錯誤使

[繁]不死不運23-
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 8682|回復: 6

[求助] 我如何在賓果的程式中再加一個25個號碼選一個好碼抽出且每次都不重覆[複製鏈接]

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
11
積分
1171 點
潛水值
39120 米
發表於 2017-4-23 06:00 AM|顯示全部樓層
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。
我如何在賓果的程式中再加一個25個號碼選一個好碼抽出且每次都不重覆
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊

使用道具檢舉

Rank: 2Rank: 2

帖子
241
積分
299 點
潛水值
22810 米
發表於 2017-4-26 10:26 AM|顯示全部樓層
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。
建立一個數字pool, 亂數取出一筆, 取出後就消失, 自然不會有重複.
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2017-5-1 05:23 PM|顯示全部樓層
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。
本帖最後由 tryit244178 於 2017-5-10 04:31 PM 編輯

呃…編輯一下整個程式碼都噴掉了…
算了…宣告個陣列紀錄已經取出過的數字就行了
來補程式碼,先建立一個物件類別模組
  1. '物件類別模組 Class1
  2. Private bingoNumberLog(1 To 25) As Boolean

  3. Public Sub Reset()
  4.     Dim i As Integer
  5.    
  6.     For i = 1 To 25
  7.         bingoNumberLog(i) = False
  8.     Next i
  9. End Sub

  10. Public Function GetNumber() As Integer
  11.     Do
  12.         GetNumber = GetRndNumber(25)
  13.     Loop Until Not IsRepeat(GetNumber)
  14.    
  15.     bingoNumberLog(GetNumber) = True
  16. End Function

  17. Private Function GetRndNumber(ByVal value As Integer) As Integer
  18.     Randomize
  19.     GetRndNumber = Int(Rnd() * value) + 1
  20. End Function

  21. Private Function IsRepeat(ByVal value As Integer) As Boolean
  22.     IsRepeat = False
  23.     If bingoNumberLog(value) = True Then IsRepeat = True
  24. End Function
複製代碼

範例是這個。參考看看吧
  1. 'Demo
  2. Private Sub CommandButton1_Click()
  3.     Dim i As Integer
  4.     Dim bingo As New Class1
  5.    
  6.     bingo.Reset
  7.     TextBox1.Text = ""
  8.    
  9.     For i = 1 To 25
  10.         TextBox1.Text = TextBox1.Text & bingo.GetNumber & " , "
  11.     Next i
  12. End Sub
複製代碼

...
瀏覽完整內容,請先 註冊登入會員

點評

darkjack 這網站就是這樣有時候打好好的,按到某功能就會整個消失掉....  發表於 2017-5-2 10:32 AM
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。

使用道具檢舉

Rank: 2Rank: 2

帖子
1113
積分
495 點
潛水值
35510 米
發表於 2017-12-6 06:25 AM|顯示全部樓層
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。
把25個數存入一個陣列a(25),將a(1)到a(25)打亂,再將a(1)到a(25)的數讀出,自然不重復!
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

使用道具檢舉

Rank: 1

帖子
68
積分
196 點
潛水值
21468 米
發表於 2017-12-7 02:25 AM|顯示全部樓層
1. 土法練鋼法:
跑1個1~25的For迴圈,然後產生亂數後跑一個 While 去找這個數字是否使用過,如是,則繼續產生並繼續執行迴圈
此方法最大的圈點是可能會執行多次多餘的迴圈
2. 往後遞衍:
先定義25個 Slot ,再 Rnd 一個值看該 Slot 有沒有塞值了,有的話繼續往後遞衍,再將陣列從頭讀到尾就會是一個不重覆的亂數了!
3. 透過 LinkList 結構的串列
先產生 1~25 個數字到串列上
...
瀏覽完整內容,請先 註冊登入會員





使用道具檢舉

Rank: 1

帖子
29
積分
30 點
潛水值
4370 米
發表於 2018-6-1 11:58 AM|顯示全部樓層
早期我也是土法練鋼型。

把抽過的號碼比對一下之前抽出的號碼。

有抽過,系統就再抽。反正處理的速度很快,user 不會感覺得出來

不過還是建議用比較進階的方法處理啦。不然讓別人看到這種程式碼會被笑。XD

使用道具檢舉

Rank: 1

帖子
29
積分
30 點
潛水值
4370 米
發表於 2019-1-7 08:36 AM|顯示全部樓層
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。
不是在取數之前 加上Randomize Timer 就好了嗎?
為何要這麼辛苦?

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部