抽獎程式分享- 藍色小舖 BlueShop

台灣最具影響力的-資訊專家社群 - 讓您成為最有價值的IT專業人才

∣登入

∣回首頁∣

線上人數
1586

會員總數：229131
接案會員：6761
文章總數：2320
討論主題：175195

登入

購買VP

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

網站/多媒體

系統/應用軟體

數位新天地

生活綜合資訊

IT職涯/認證

小舖站務區

討論區列表 >> ASP.NET >> 抽獎程式分享

[變換順序]

[我要回覆]

抽獎程式分享
價值 : 0 QP 點閱數:15860 回應數:5

點圖分享到Plurk吧!

樓主

Andy

27	20
140	20

發送站內信

各位先進
小弟目前急需一套簡易的抽獎程式，可藉由程式亂數取得4組號碼，而號碼是自行提供該項資料，透過此提供的資料，按下抽獎鈕後亂數得到此項中獎號碼，同時可對應到中獎人名
不知各位先進可否相關程式供參考
謝謝幫忙！

本篇文章發表於2003-11-12 18:22

什麼是iT Power資訊報

2010年藍色小舖認證專家風雲榜完全名單

1樓回應 Stanley	這是一組很簡單的抽獎程式,但是沒有去判斷重複,在這裡先將HTML程式碼貼在<body></body>中間: <form id="Form1" method="post" runat="server"> <FONT face="新細明體"> <TABLE id="Table1" style="Z-INDEX: 101; LEFT: 208px; WIDTH: 266px; POSITION: absolute; TOP: 42px; HEIGHT: 119px" cellSpacing="1" cellPadding="1" width="266" border="1"> <TR> <TD align="right">請輸入開始號碼</TD> <TD><asp:TextBox id="tbOpenID" runat="server" Width="70px"></asp:TextBox></TD> </TR> <TR> <TD align="right">請輸入結束的號碼</TD> <TD><asp:TextBox id="tbEndID" runat="server" Width="70px"></asp:TextBox></TD> </TR> <TR> <TD align="right">請輸入輸入你要幾個號碼</TD> <TD><asp:TextBox id="tbCount" runat="server" Width="70px"></asp:TextBox></TD> </TR> <tr> <td align="right" colspan="2"> <asp:Button id="Button1" runat="server" Text="開獎"></asp:Button></td> </tr> </TABLE> <TABLE id="Table2" style="Z-INDEX: 102; LEFT: 205px; POSITION: absolute; TOP: 198px" cellSpacing="1" cellPadding="1" width="300" border="1" runat="server"> <TR> </TR> </TABLE> </FONT> </form> 在來是Server端的部分是Button1_OnClick事件: Dim intCount As Integer For intCount = 1 To tbCount.Text Randomize() Dim i As Integer play: i = Fix(Rnd() * (tbEndID.Text + 1)) If i > tbOpenID.Text And i < tbEndID.Text Then Dim cell As New HtmlTableCell() : Dim row As New HtmlTableRow() cell.InnerHtml = "第" & intCount & "組號碼：" & i row.Cells.Add(cell) : cell = Nothing Table2.Rows.Add(row) : row = Nothing Else GoTo play End If : i = Nothing Next intCount = Nothing 本篇文章回覆於2003-11-12 21:11 --未登入的會員無法查看對方簽名檔--
2樓作者回應 Andy	感謝各位提供此訊息，但是如果我希望藉由4組號碼亂數取得，但是亂數取的的號碼是透過資料庫裡提供的資料？？？好疑惑喔本篇文章回覆於2003-11-13 08:37 --未登入的會員無法查看對方簽名檔--
3樓回應 Stanley	我覺得藍色小舖裡討論的應該要是你自己去做的時候所出現的問題提出來討論,給你的只是一個方向,而並非是所有的程式碼.這樣才能提升自己的程式能力... 如題給你的方向便是由亂數取的資料庫的資料,例如你資料庫的變號已經排到1000那在你可以跑For迴圈先去取得1000以下的亂數在下SQL的WHERE指令這樣不是也可以解決了!! 本篇文章回覆於2003-11-13 10:22 --未登入的會員無法查看對方簽名檔--
4樓作者回應 Andy	謝謝你的指導，很抱歉造成各位的困擾我會嘗試看看，爾後若有問題，請在協助之。初學者留本篇文章回覆於2003-11-13 18:00 --未登入的會員無法查看對方簽名檔--
5樓回應 stanley	請問學長能將上面抽獎的VB程式用c#解釋ㄇ這是我從VB網站轉的C# 不過不能跑也看不太懂 { int intCount; for (intCount = 1; intCount <= tbCount.Text; intCount++) { VBMath.Randomize(); int i; play: i = Conversion.Fix(VBMath.Rnd() * (tbEndID.Text + 1)); if (i > tbOpenID.Text & i < tbEndID.Text) { HtmlTableCell cell = new HtmlTableCell(); HtmlTableRow row = new HtmlTableRow(); cell.InnerHtml = "第" + intCount + "組號碼：" + i; row.Cells.Add(cell); cell = null; Table2.Rows.Add(row); row = null; } else { goto play; } i = null; } intCount = null; } 本篇文章回覆於2008-09-15 18:36 --未登入的會員無法查看對方簽名檔--

[變換順序]

回覆

如要回應,請先登入.

1樓回應 Stanley	這是一組很簡單的抽獎程式,但是沒有去判斷重複,在這裡先將HTML程式碼貼在<body></body>中間: <form id="Form1" method="post" runat="server"> <FONT face="新細明體"> <TABLE id="Table1" style="Z-INDEX: 101; LEFT: 208px; WIDTH: 266px; POSITION: absolute; TOP: 42px; HEIGHT: 119px" cellSpacing="1" cellPadding="1" width="266" border="1"> <TR> <TD align="right">請輸入開始號碼</TD> <TD><asp:TextBox id="tbOpenID" runat="server" Width="70px"></asp:TextBox></TD> </TR> <TR> <TD align="right">請輸入結束的號碼</TD> <TD><asp:TextBox id="tbEndID" runat="server" Width="70px"></asp:TextBox></TD> </TR> <TR> <TD align="right">請輸入輸入你要幾個號碼</TD> <TD><asp:TextBox id="tbCount" runat="server" Width="70px"></asp:TextBox></TD> </TR> <tr> <td align="right" colspan="2"> <asp:Button id="Button1" runat="server" Text="開獎"></asp:Button></td> </tr> </TABLE> <TABLE id="Table2" style="Z-INDEX: 102; LEFT: 205px; POSITION: absolute; TOP: 198px" cellSpacing="1" cellPadding="1" width="300" border="1" runat="server"> <TR> </TR> </TABLE> </FONT> </form> 在來是Server端的部分是Button1_OnClick事件: Dim intCount As Integer For intCount = 1 To tbCount.Text Randomize() Dim i As Integer play: i = Fix(Rnd() * (tbEndID.Text + 1)) If i > tbOpenID.Text And i < tbEndID.Text Then Dim cell As New HtmlTableCell() : Dim row As New HtmlTableRow() cell.InnerHtml = "第" & intCount & "組號碼：" & i row.Cells.Add(cell) : cell = Nothing Table2.Rows.Add(row) : row = Nothing Else GoTo play End If : i = Nothing Next intCount = Nothing 本篇文章回覆於2003-11-12 21:11 --未登入的會員無法查看對方簽名檔--
2樓作者回應 Andy	感謝各位提供此訊息，但是如果我希望藉由4組號碼亂數取得，但是亂數取的的號碼是透過資料庫裡提供的資料？？？好疑惑喔本篇文章回覆於2003-11-13 08:37 --未登入的會員無法查看對方簽名檔--
3樓回應 Stanley	我覺得藍色小舖裡討論的應該要是你自己去做的時候所出現的問題提出來討論,給你的只是一個方向,而並非是所有的程式碼.這樣才能提升自己的程式能力... 如題給你的方向便是由亂數取的資料庫的資料,例如你資料庫的變號已經排到1000那在你可以跑For迴圈先去取得1000以下的亂數在下SQL的WHERE指令這樣不是也可以解決了!! 本篇文章回覆於2003-11-13 10:22 --未登入的會員無法查看對方簽名檔--
4樓作者回應 Andy	謝謝你的指導，很抱歉造成各位的困擾我會嘗試看看，爾後若有問題，請在協助之。初學者留本篇文章回覆於2003-11-13 18:00 --未登入的會員無法查看對方簽名檔--
5樓回應 stanley	請問學長能將上面抽獎的VB程式用c#解釋ㄇ這是我從VB網站轉的C# 不過不能跑也看不太懂 { int intCount; for (intCount = 1; intCount <= tbCount.Text; intCount++) { VBMath.Randomize(); int i; play: i = Conversion.Fix(VBMath.Rnd() * (tbEndID.Text + 1)); if (i > tbOpenID.Text & i < tbEndID.Text) { HtmlTableCell cell = new HtmlTableCell(); HtmlTableRow row = new HtmlTableRow(); cell.InnerHtml = "第" + intCount + "組號碼：" + i; row.Cells.Add(cell); cell = null; Table2.Rows.Add(row); row = null; } else { goto play; } i = null; } intCount = null; } 本篇文章回覆於2008-09-15 18:36 --未登入的會員無法查看對方簽名檔--