vb.net抽奖转盘 抽奖转盘html

VBNET编写抽奖软件程序

先把所有电话名单放在一个List泛型集合中，取出一个就Remove掉一个，这样就不会重复了。

几等奖几个按照你的需求来循环即可。

给文本框添加内容：TextBox1.Text = 字符串

换行用vbCrLf常量表示。

详细的可以私信

相关问答

Q1: 我想用VB制作一个抽奖型的转盘

这是一个转盘 转到的位置是随机的 具体奖品需要你自己定 我就不帮你了..... 这一句 If c 95 Then Timer1.Interval = 0 这个95 改的越小 停的越快,转到的位置重复的几率也就越大 . 代码细看看, 数值都是活的 可以根据自己需要改.

'添加控件 timer1 command1 line1

Dim x1%, y1%

Dim a As String

Private Sub Command1_Click()

a = 0

Timer1.Interval = 50

End Sub

Private Sub form_load()

Me.AutoRedraw = True

x1 = Me.Width \ 2

y1 = (Me.Height - 405) \ 2

Line1.x1 = x1: Line1.y1 = y1

Me.DrawWidth = 5

Me.Circle (x1, y1), 3000

Line1.BorderWidth = 5

Line1.BorderColor = QBColor(14)

End Sub

Private Sub Timer1_Timer()

Randomize

c = Int((100) * Rnd + 1)

a = a + 1

If a 24 Then Timer1.Interval = 100

If a 40 Then Timer1.Interval = 200

If a 48 Then

Timer1.Interval = 300

If c 95 Then Timer1.Interval = 0

End If

b = (3.14 / 8) * a

Line1.X2 = Line1.x1 + (3000 * Sin(b))

Line1.Y2 = Line1.y1 - (3000 * Cos(b))

End Sub

Q2: vb.net 多次滚动抽奖的程序代码

我用多线程写的vb.net抽奖转盘，你可以参考下。

系统界面图如下：（注：重置功能为清除已经中奖号码，回归1-100都可以中奖状态。）

代码：

    public partial class Form1 : Form

    {

        public Form1()

        {

            InitializeComponent();

        }

        System.Threading.Thread g_Thread = null;

        Listint g_list = new Listint();

        int g_Num = 0;

        delegate void g_delegate();

        /// summary

        /// 开始

        /// /summary

        /// param name="sender"/param

        /// param name="e"/param

        private void button2_Click(object sender, EventArgs e)

        {

            if(g_list.Count==100)

            {

                MessageBox.Show("所有数字已使用，请重置vb.net抽奖转盘！");

                return;

            }

            button3.Enabled = true;

            Random r = new Random();

            g_delegate dele= ChangeTxt;

            g_Thread = new System.Threading.Thread(() =

            {

                while(this.IsDisposed==false)

                {

                    g_Num = r.Next(1, 100);

                    if(g_list.Contains(g_Num))

                    {

                          g_Num =  1;

                    }

                    while(g_list.Contains(g_Num))

                    {

                        g_Num++;

                    }

                    this.Invoke(dele);

                    System.Threading.Thread.Sleep(50);

                }

            });

            g_Thread.Start();

        }

        void ChangeTxt()

        {

            label2.Text = g_Num.ToString();

        }

        /// summary

        /// 停止

        /// /summary

        /// param name="sender"/param

        /// param name="e"/param

        private void button3_Click(object sender, EventArgs e)

        {

            //if(g_Thread.ThreadState==System.Threading.ThreadState.Running)

            {

                g_Thread.Abort();

                g_list.Add(Convert.ToInt32(label2.Text));

            }

            button3.Enabled = false;

        }

        /// summary

        /// 重置

        /// /summary

        /// param name="sender"/param

        /// param name="e"/param

        private void button1_Click(object sender, EventArgs e)

        {

            g_list.Clear();

        }

        private void Form1_FormClosed(object sender, FormClosedEventArgs e)

        {

            System.Environment.Exit(0);

        }

    }

Q3: 用VB怎么做出那个快乐大转盘抽奖的程序

随机数~~

定义数据结构

type 格子

奖品

编号

end type

定义一个转函数

sub 转()

转按钮.enable=false

格子=rnd()*最大格数

播放转的动画

定位到格子

if 有奖品 then

播放欢呼声音

else

播放失望声音

end if

转按钮.enable=true

end sub

关于vb.net抽奖转盘和抽奖转盘html的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。