|
|
[ 變換順序 ]
[我要回覆]
1
|
|||||
|
|||||
樓主 Andy 
 發送站內信 |
小弟目前急需一套簡易的抽獎程式，可藉由程式亂數取得4組號碼，而號碼是自行提供該項資料，透過此提供的資料，按下抽獎鈕後亂數得到此項中獎號碼，同時可對應到中獎人名 不知各位先進可否相關程式供參考 謝謝幫忙！
本篇文章發表於2003-11-12 18:22
|
||||
27
20
140
20
| 別忘捐VP感謝幫助你的人 | 新手會員瞧一瞧 |
| 1樓 |
這是一組很簡單的抽獎程式,但是沒有去判斷重複,在這裡先將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樓 |
我覺得藍色小舖裡討論的應該要是你自己去做的時候所出現的問題提出來討論,給你的只是一個方向,而並非是所有的程式碼.這樣才能提升自己的程式能力...
如題給你的方向便是由亂數取的資料庫的資料,例如你資料庫的變號已經排到1000那在你可以跑For迴圈先去取得1000以下的亂數在下SQL的WHERE指令這樣不是也可以解決了!!
本篇文章回覆於2003-11-13 10:22
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔-- |
| 4樓
作者回應
Andy
|
謝謝你的指導，很抱歉造成各位的困擾
我會嘗試看看，爾後若有問題，請在協助之。 初學者留
本篇文章回覆於2003-11-13 18:00
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔-- |
| 5樓 |
請問學長能將上面抽獎的VB程式
用c#解釋ㄇ 這是我從VB網站轉的C# 不過不能跑 也看不太懂
本篇文章回覆於2008-09-15 18:36
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔-- |
[ 變換順序 ]
1
| 回覆 |
| 如要回應,請先登入. |
|
|
