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

我用多线程写的，你可以参考下。

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

代码：

    public partial class Form1 : Form

    {

        public Form1()

        {

            InitializeComponent();

        }

        SystemThreadingThread g_Thread = null;

        List<int> g_list = new List<int>();

        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_listCount==100)

            {

                MessageBoxShow("所有数字已使用，请重置！");

                return;

            }

            button3Enabled = true;

            Random r = new Random();

            g_delegate dele= ChangeTxt;

            g_Thread = new SystemThreadingThread(() =>

            {

                while(thisIsDisposed==false)

                {

                    g_Num = rNext(1, 100);

                    if(g_listContains(g_Num))

                    {

                          g_Num =  1;

                    }

                    while(g_listContains(g_Num))

                    {

                        g_Num++;

                    }

                    thisInvoke(dele);

                    SystemThreadingThreadSleep(50);

                }

            });

            g_ThreadStart();

        }

        void ChangeTxt()

        {

            label2Text = g_NumToString();

        }

        /// <summary>

        /// 停止

        /// </summary>

        /// <param name="sender"></param>

        /// <param name="e"></param>

        private void button3_Click(object sender, EventArgs e)

        {

            //if(g_ThreadThreadState==SystemThreadingThreadStateRunning)

            {

                g_ThreadAbort();

                g_listAdd(ConvertToInt32(label2Text));

            }

            button3Enabled = false;

        }

        /// <summary>

        /// 重置

        /// </summary>

        /// <param name="sender"></param>

        /// <param name="e"></param>

        private void button1_Click(object sender, EventArgs e)

        {

            g_listClear();

        }

        private void Form1_FormClosed(object sender, FormClosedEventArgs e)

        {

            SystemEnvironmentExit(0);

        }

    }

1、晚会抽奖之星

适用场合：可用于晚会抽奖(电脑外接投影仪)。 抽奖模式：含文字抽奖、照片抽奖两种模式。 重复中奖：采用禁止重复中奖算法，自动滤除已经中奖的参选者。 随机抽取：随机滚动显示参选者(姓名、号码、照片等)。 按键方便：按回车开始滚动，按空格停止滚动，按Tab键播放颁奖音乐。 名单导入：导入文本文件，或导入文件夹，最多可导入高达2万条。 抽奖结果：自动保存抽奖结果，不惧死机断电，支持缺席等的作废处理。 灵活易用：无需预先固定中奖数量，手动切换当前奖项，设置每次抽取个数(1-50)。 背景音乐：支持滚动音乐、中奖音乐、颁奖音乐，并附带了相关音乐资源。辅助工具：附带了批量缩小、号码座位号批量生成、强大的纯文本编辑、多列表格数据导入导出、格式转换等免费工具。

2、长信抽奖软件

1采用计算机随机算法，每个参加抽奖人员的中奖机率一致，保证公平性。 系统每次抽取均是从第一个到最后一个之间随机抽取，绝对不会出现中奖结果扎堆的情况。

2已中奖人员自动排除，每个人只有一次中奖机会，绝对不会出现重复中奖情况。 （奖项抽取范围为某一奖项中奖结果时除外）

3可指定中奖人员（本功能仅限于娱乐使用）。

4支持按顺序抽奖无顺序抽奖相片抽奖普通抽奖(文字、号码、手机号等文本型抽奖) 4种抽奖方式。支持各种风格自由设置。

5支持照相功能，与摄像头、摄像机连接即可为参与人员照相，参与相片模式抽奖。

6可以设置欢迎界面，欢迎界面的背景、音乐、欢迎辞均可以自由设置。音乐支持wavmp3wma等多种格式

7背景音乐、中奖提示音乐、背景、标题样式、抽奖区背景色、抽奖区标题样式、抽奖区按钮样式、中奖人员样式、设置区背景色、中奖人员信息字体色、奖品大小、位置等均可自由设置。可以根据不同的场合需要随时更换。

8可设置参与抽奖范围，如三年以上工龄的员工才能参加一等奖抽取等。

9抽奖布局、部件尺寸可以拖动。部件可以选择是否显示，可设置按分辨率自动适应各控制布局。

10可设置文字行距。

3、世新抽奖软件

世新照片抽奖软件是一款适合晚会、会议、婚礼、联欢庆典等各种场合使用的照片抽奖软件。使用世新照片抽奖软件，您可以建立并管理多个抽奖活动，每个抽奖活动由一系列有顺序的场景组成,一个抽奖活动最多可以包含99个场景， 每个场景拥有自己的照片源，标题，背景以及背景音乐。抽奖过程中已中奖照片在下一场景中自动被剔除，不会出现重复中奖照片。

灵活的场景设置可以帮助您创建各种风格的照片抽奖活动，每个场景可以设置不同的照片源使您能够实现一些特殊性的抽奖需要，世新照片抽奖软件是您举办抽奖活动的有力助手。

4、复用抽奖软件

软件适合婚庆,主体活动,年会,司庆等重要场合，抽奖使用。支持抽奖，号码抽奖，人员抽奖。界面完全可以自定义配置，音乐，字体，演示，功能都可以随心所欲的配置。后台有人员和照片的批量导入导出功能。有中奖人名单管理，可以导出。支持弃奖功能。抽奖人数：可以达到5000人抽奖效果： 40副轮转 背景摇奖音乐，点燃会场情绪。 中奖者字幕显示，方便中奖者了解信息。 运行稳定，对电脑配置要求低。

以上就是关于vb.net 多次滚动抽奖的程序代码全部的内容，包括:vb.net 多次滚动抽奖的程序代码、抽奖程序的其他程序、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！