数字抽奖网页代码（数字抽奖网页代码是什么）

今天给各位分享数字抽奖网页代码的知识，其中也会对数字抽奖网页代码是什么进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、C#用timer控件实现1~100随机数抽奖，已经抽中的不参与下一次循环，求代码
• 2、抽奖程序（用vb编写）
• 3、急 VB随机抽取数字代码

C#用timer控件实现1~100随机数抽奖，已经抽中的不参与下一次循环，求代码

直接Random.Next(1, 101)可产生随机数，用一个Listint存起来，每次新随机就会去这个List中找，如果找到就再随机，自到随机出新的数。

1、放一个TextBox框、要把MultiLine属性改成True。（模拟输出结果）

2、放个Timer

3、放个Button。

4、定义两个全局对象

int inTimer = 0;  //原子锁对象

Listint DBList = new Listint(); //集合

写Button的_Click事件就一句话了

private void button1_Click(object sender, EventArgs e)

{

    timer1.Enabled = true;  //开Timer

}

写Timer的Tick事件

private void timer1_Tick(object sender, EventArgs e)

{

    //加原子锁，由于随机可能时间过长，造成多线程进入，污染DBList对象

    if (Interlocked.Exchange(ref inTimer, 1) == 0)

    {

        Random rand = new Random(); //随机器

        int nums = 0;

        do

        {

            nums = rand.Next(1, 101); //1~100之间一个int

        } while (DBList.Where(a = a == nums).Count()  0);

        DBList.Add(nums); //放到集合中

        //在textbox1中输入

        textBox1.Text = String.Join("\r\n", DBList.ToArray());

        if (DBList.Count == 100)  //100个数都出现了就关Timer

        {

            timer1.Enabled = false;

            MessageBox.Show("结束！");

        }

        Interlocked.Exchange(ref inTimer, 0);  //解原子锁

    }

}

抽奖程序（用vb编写）

在窗体上添加一个command1，一个timer1，label1(0~5)

控件数组（添加一个label1,然后再复制5个，共6个，用来显示数字），代码如下：

Private

Sub

Command1_Click()

If

Command1.Caption

=

"抽奖"

Then

Command1.Caption

=

"停止"

Timer1.Enabled

=

True

Else

Timer1.Enabled

=

False

Command1.Caption

=

"抽奖"

End

If

End

Sub

Private

Sub

Form_Load()

Command1.Caption

=

"抽奖"

Timer1.Interval

=

50

Timer1.Enabled

=

False

End

Sub

Private

Sub

Timer1_Timer()

Randomize

For

i

=

To

5

Label1(i)

=

Int(10

*

Rnd)

Select

Case

Label1(i).Caption

Case

Label1(i).BackColor

=

RGB(0,

0,

0)

Label1(i).ForeColor

=

RGB(255,

255,

255)

Case

1

Label1(i).BackColor

=

RGB(128,

42,

42)

Label1(i).ForeColor

=

RGB(127,

213,

213)

Case

2

Label1(i).BackColor

=

RGB(255,

0,

0)

Label1(i).ForeColor

=

RGB(0,

255,

255)

Case

3

Label1(i).BackColor

=

RGB(255,

97,

0)

Label1(i).ForeColor

=

RGB(0,

158,

255)

Case

4

Label1(i).BackColor

=

RGB(255,

255,

0)

Label1(i).ForeColor

=

RGB(0,

0,

255)

Case

5

Label1(i).BackColor

=

RGB(0,

255,

0)

Label1(i).ForeColor

=

RGB(255,

0,

255)

Case

6

Label1(i).BackColor

=

RGB(0,

0,

255)

Label1(i).ForeColor

=

RGB(255,

0,

0)

Case

7

Label1(i).BackColor

=

RGB(160,

32,

240)

Label1(i).ForeColor

=

RGB(95,

223,

15)

Case

8

Label1(i).BackColor

=

RGB(192,

192,

192)

Label1(i).ForeColor

=

RGB(63,

63,

63)

Case

9

Label1(i).BackColor

=

RGB(255,

255,

255)

Label1(i).ForeColor

=

RGB(0,

0,

0)

End

Select

Next

End

Sub

急 VB随机抽取数字代码

在窗体上增加两个Command1和Command2，一个文本框Text1和一个时间控件Timer1，代码如下：Private Sub Command1_Click() '开始抽奖

If Command1.Caption = "开始" Then '判断按钮是否为开始

Command1.Caption = "停止" '是则更改按钮为停止

Timer1.Enabled = True '开启时钟

Else

If Command1.Caption = "停止" Then '否则判断按钮是否是停止

Timer1.Enabled = False '是则停止时间控件

Command1.Caption = "开始" '将Command1更改成开始

End If

End If

End SubPrivate Sub Command2_Click() '清空文本框内容

Text1.Text = ""

End SubPrivate Sub Form_Load() '窗体加载事件对一些控件进行初始化

Text1.Text = "" '清空文本框内容

Timer1.Interval = 10 '设置时间控件周期为10ms

Timer1.Enabled = False '默认时间控件不开启

Command1.Caption = "开始" '默认Command1的名称为开始

Command2.Caption = "清空" '默认Command1的名称为清空End Sub Private Sub Timer1_Timer() '时间控件事件执行滚动随机提取数据

Text1.Text = Int((42 - 1 + 1) * Rnd + 1) '随机数读取方法：Int((upperbound（上限） - lowerbound（下限） + 1) * Rnd + lowerbound)

End Sub

数字抽奖网页代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于数字抽奖网页代码是什么、数字抽奖网页代码的信息别忘了在本站进行查找喔。