RSS   



  可打印版本 | 推薦給朋友 | 訂閱主題 | 收藏主題 | 純文字版  


 
 24  2/2  <  1  2 


 
主題: [求助] [原創][求助]搖獎程式編寫   字型大小:||| 
dennischerry
青銅驢友
等級: 11等級: 11等級: 11等級: 11


 . 積分: 217
 . 文章: 644
 . 收花: 1551 支
 . 送花: 406 支
 . 比例: 0.26
 . 在線: 1603 小時
 . 瀏覽: 35851 頁
 . 註冊: 7042
 . 失蹤: 16
#16 : 2008-1-18 01:37 PM     只看本作者 引言回覆

設浮動布林陣列,用亂數產生號碼順位
當亂數產生號碼順位, 布林值改為0,
例如有100個人, 第一次出現8 , 則陣列8布林值為0
第二次以99為底產生號碼10, 用迴圈找陣列中布林值1的第10個順位(11)
第三次以98為底產生如果號碼又是10, 用迴圈找陣列中布林值1的第10個順位(12)



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  訪問主頁  發私人訊息  Blog  快速回覆 新增/修改 爬文標記
bonjacky
銅驢友〔中級〕
等級: 9等級: 9等級: 9


今日心情

 . 積分: 144
 . 文章: 327
 . 收花: 835 支
 . 送花: 131 支
 . 比例: 0.16
 . 在線: 4302 小時
 . 瀏覽: 36813 頁
 . 註冊: 7263
 . 失蹤: 1910
#17 : 2008-1-18 02:30 PM     只看本作者 引言回覆


引用:
atree寫到:
在重跑一次~~這個寫法比較簡單,但是得到結果的時間久
要跑太多次了

另一個陣列是儲存1~101or 1~?的數值
抽到那一號就把那一個陣列打掉後面的往前補

不過這樣寫的話
好複雜說
外觀還不難
主要是計算方式


反正是用完就丟的程式
用 JavaScript 隨便寫寫
就算是 JavaScript ,用這種陣列的做法,很快就得到答案了



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  快速回覆 新增/修改 爬文標記
atree
金驢友〔中級〕
等級: 17等級: 17等級: 17等級: 17等級: 17
敗金搖錢樹

今日心情

 . 積分: 2500
 . 精華: 1
 . 文章: 8422
 . 收花: 20599 支
 . 送花: 17748 支
 . 比例: 0.86
 . 在線: 6318 小時
 . 瀏覽: 91332 頁
 . 註冊: 7253
 . 失蹤: 0
 . 樹雷星球
#18 : 2008-1-18 03:45 PM     只看本作者 引言回覆

JavaScript沒寫過

以前都用C++來寫
我還在研究JavaScript陣列要怎麼用說



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  快速回覆 新增/修改 爬文標記
Jonson
金驢友〔初級〕
等級: 16等級: 16等級: 16等級: 16
藏雲

今日心情

 . 積分: 1796
 . 文章: 1756
 . 收花: 15380 支
 . 送花: 6709 支
 . 比例: 0.44
 . 在線: 5889 小時
 . 瀏覽: 77021 頁
 . 註冊: 7311
 . 失蹤: 3
#19 : 2008-1-18 04:34 PM     只看本作者 引言回覆

評分:+1   
簡單用 HTA 寫了一個 (請下載附件解壓縮)
不知 HTA 如何執行者,用 IE 開啟即可

PS:
稍做補充...
HTA 其實就像是網頁,可用文字編輯器開啟、修改

檔案中:
var numLength = 101; //陣列大小、員工人數
var endMessage = '所有獎項已抽出,搖獎結束。'; //陣列已空,搖獎結束
這兩行是可以隨意修改的

numLength 是員工人數
endMessage 是所有獎項都抽完後要顯示的訊息

[Jonson 在  2008-1-18 05:21 PM 作了最後編輯]


 附件: 您所在的用戶組無法下載或查看附件


[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  快速回覆 新增/修改 爬文標記
atree
金驢友〔中級〕
等級: 17等級: 17等級: 17等級: 17等級: 17
敗金搖錢樹

今日心情

 . 積分: 2500
 . 精華: 1
 . 文章: 8422
 . 收花: 20599 支
 . 送花: 17748 支
 . 比例: 0.86
 . 在線: 6318 小時
 . 瀏覽: 91332 頁
 . 註冊: 7253
 . 失蹤: 0
 . 樹雷星球
#20 : 2008-1-18 04:43 PM     只看本作者 引言回覆


引用:
Jonson寫到:
簡單用 HTA 寫了一個 (請下載附件解壓縮)
不知 HTA 如何執行者,用 IE 開啟即可


行家果然寫的比較快



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  快速回覆 新增/修改 爬文標記
Jonson
金驢友〔初級〕
等級: 16等級: 16等級: 16等級: 16
藏雲

今日心情

 . 積分: 1796
 . 文章: 1756
 . 收花: 15380 支
 . 送花: 6709 支
 . 比例: 0.44
 . 在線: 5889 小時
 . 瀏覽: 77021 頁
 . 註冊: 7311
 . 失蹤: 3
#21 : 2008-1-18 05:01 PM     只看本作者 引言回覆

只是個玩家而已啦^^

不過程式沒有在搖獎後暫時凍結搖獎鈕
要慎防有人不小心連按兩下

PS: 附件已更改,新增: 搖獎後暫鎖搖獎鈕約 1 秒

[Jonson 在  2008-1-18 05:24 PM 作了最後編輯]



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  快速回覆 新增/修改 爬文標記
Moffatt
銅驢友〔高級〕
等級: 10等級: 10等級: 10


今日心情

 . 積分: 176
 . 文章: 205
 . 收花: 1605 支
 . 送花: 435 支
 . 比例: 0.27
 . 在線: 1088 小時
 . 瀏覽: 4590 頁
 . 註冊: 7127
 . 失蹤: 1037
#22 : 2008-1-18 05:21 PM     只看本作者 引言回覆

評分:+1   
剛剛閒著沒事, 手癢用 VC++ 寫了一個....

電腦抽奬程式



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  快速回覆 新增/修改 爬文標記
guo_shlan
鐵驢友〔初級〕
等級: 4


今日心情

 . 積分: 37
 . 文章: 233
 . 收花: 153 支
 . 送花: 92 支
 . 比例: 0.6
 . 在線: 100 小時
 . 瀏覽: 4210 頁
 . 註冊: 7202
 . 失蹤: 2006
 . 桃園
#23 : 2008-1-18 10:52 PM     只看本作者 引言回覆

謝謝各位大大的支援及教導..


[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  快速回覆 新增/修改 爬文標記
innova
銀驢友〔高級〕
等級: 14等級: 14等級: 14等級: 14


十週年紀念徽章(五級)  

今日心情

 . 積分: 916
 . 文章: 2714
 . 收花: 7188 支
 . 送花: 1461 支
 . 比例: 0.2
 . 在線: 2182 小時
 . 瀏覽: 15182 頁
 . 註冊: 6985
 . 失蹤: 16
 . 火星
#24 : 2008-1-21 11:29 PM     只看本作者 引言回覆

如果是 尾牙要用的?
還是用 實際的 抽獎箱 會比較好吧?

用程式...   難免會有人懷疑 程式碼裡面有鬼 作假!?

尤其是...  當 抽出來的獎  大部分落在某部門人員身上的時候......
或是 程式提供/攥寫者 抽到大獎時!!



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  訪問主頁  發私人訊息  Blog  快速回覆 新增/修改 爬文標記

 24  2/2  <  1  2 
   

快速回覆
表情符號

更多 Smilies

字型大小 : |||      [完成後可按 Ctrl+Enter 發佈]        

溫馨提示:本區開放遊客瀏覽。
選項:
關閉 URL 識別    關閉 表情符號    關閉 Discuz! 代碼    使用個人簽名    接收新回覆信件通知
發表時自動複製內容   [立即複製] (IE only)


 



所在時區為 GMT+8, 現在時間是 2024-5-17 01:27 PM
清除 Cookies - 連絡我們 - TWed2k © 2001-2046 - 純文字版 - 說明
Discuz! 0.1 | Processed in 0.026954 second(s), 8 queries , Qzip disabled