qq有很多的抽奖小程序,基本类别都是差不多的,可以自己创建抽签,玩法很多,你可以根据人数,创建抽签,输入主题,可以设置参与人,然后发布到群里,进行抽签活动,但是不能指定人中奖,都是系统进行随机抽签,选出中奖人的。
抽签是中国的民间习俗,是坦灶喊占卜的其中一种形式。现今的道观、寺庙和民间的庙宇,大多摆上签筒供人抽取签条问卜。抽签同八卦一样,是我国古代民间为了判断问事项让野吉凶、祸福的一种通俗预测方式。而判断吉凶的依据辩孙是所得到其中第几签的签诗和其签诗的典故内容。
一、界面设计
新建一个标准的exe工岩帆程。在form1窗体中放置一个定时器(timer1)、两个文本框(label1,label2)、两个命令按钮(command1,command2)和包含7个元素的控件数组(label3(0)—label3(6))。
二、属性设置
label3控件数组中的所有元素皆采用相同设置。
三、代码编写
本程序的实现原理是:当用户单击“开始”按钮时,打开定时器,利用定时器控件同时产生两个随机数sj1、sj2,sj1的范围是1~32,sj2的范围是0~49。当sj1=24的时侯,用sj2与前面产生的中奖号码作比较,若与前面的中奖带数相同,则退出本过程;若与前面的中奖号码不同,则将此随机数作为中奖号码。当产生了7个中奖蠢枣首号码时,关闭定时器控件,停止产生随机数。
本程序用到的函数简介:
(1)randomize:初始化随机数的种子数。
(2)int():返回一个非整形数字取整后的整数。
(3)rnd:产生一个0~1之间的随机数(大于等于0,但小于1)。
(4)qbcolor():返回参数(0~15)对应的颜色。
(5)val:将一个字符形变量转化为一个数值型变量。
(6)format:格式化一个表达式。
以下是程序的完整代码:
dim sy as integer
′命令按钮1的单击事件
private sub command1_click()
′清除label3控件数组的内容
for i=0 to 6
label3(i).caption=″″
next
timer1.enabled=true′打开定时器
command1.enabled=false′使开始按钮失效
sy=-1′索引值初始化为-1
end sub
′命令按钮2的单击事件
电脑抽奖可以设置谁中奖吗可以的,我们有内定奖品设置,可以指定某个参与活动的用户获得卖侍困指定奖品。
打开活动设置页面选择【高级设置】→【奖品内中念谈哗定设置】
2、开启设置在需要内定的奖项输入内定人手机号既可。
【注意】
1、开启【用户报名】功能,才能使用内定功能。
2、内定的中奖人,第一次抽取就会中奖。
3.一个奖项同一个手机只能内定一次,可内定多个奖项。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)