找回密码
 加入
搜索
查看: 21731|回复: 23

[系统综合] 年会抽奖工具

 火... [复制链接]
发表于 2011-1-13 15:49:05 | 显示全部楼层 |阅读模式
悬赏30金钱已解决
本帖最后由 wgboy 于 2011-1-13 15:50 编辑

想要个可以从数据库中读取员工信息(员式号、姓名),然后进行抽奖。界面最好能全屏,喜庆点。带个FlASh动画和喜庆音乐。上面可以加上个自定义标题。
附件: 您需要 登录 才可以下载或查看,没有账号?加入

最佳答案

查看完整内容

回复 1# wgboy 无聊中,简单做个抽奖器。 非常非常的简陋。 [au3]#include #include #include #Include #include Opt("GUIOnEventMode", 1) Global $gui, $guiPos, $pic, $picPos Local $n, $msg Local $Prize[10]=["10000元","5000元","2000元","1000元","500元","400元","300元","200元","100元","50元"] Local $ini=IniReadSection("test.ini","name") Global $stop=1,$temp $form1=GUICreate("My GUI picture", @Desk ...
发表于 2011-1-13 15:49:06 | 显示全部楼层
回复 1# wgboy
无聊中,简单做个抽奖器。
非常非常的简陋。
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#Include <GuiToolBar.au3>
#include <array.au3>

Opt("GUIOnEventMode", 1)

Global $gui, $guiPos, $pic, $picPos
Local $n, $msg
Local $Prize[10]=["10000元","5000元","2000元","1000元","500元","400元","300元","200元","100元","50元"]
Local $ini=IniReadSection("test.ini","name")
Global $stop=1,$temp

$form1=GUICreate("My GUI picture", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetBkColor(0xE0FFFF)
$n = GUICtrlCreatePic(@ScriptDir & "\狂欢.jpg", 0, 0, @DesktopWidth, @DesktopHeight)
GUICtrlSetState(-1, $gui_disable)
$lable = GUICtrlCreateLabel("已经准备完成", @DesktopWidth / 16 * 8 - 100, @DesktopHeight / 10 * 5 - 100, 500, 40);,bitOr($SS_SUNKEN, $SS_CENTER,$TBSTYLE_EX_DOUBLEBUFFER))
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 16, 800, Default, '黑体')
GUICtrlSetColor(-1, 0xffffff)

$lable3 = GUICtrlCreateLabel("名单", @DesktopWidth / 16 * 8 - 100, @DesktopHeight / 10 * 7 - 100, 200, 40);,bitOr($SS_SUNKEN, $SS_CENTER,$TBSTYLE_EX_DOUBLEBUFFER))
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 24, 800, Default, '黑体')
GUICtrlSetColor(-1, 0xffffff)

$lable1 = GUICtrlCreateLabel("抽奖参与人数:"&UBound($ini), @DesktopWidth / 16 * 1, @DesktopHeight / 10 * 1, 100, 200)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 12, 800, Default, '黑体')
GUICtrlSetColor(-1, 0xffffff)

$lable2 = GUICtrlCreateLabel("已抽奖人数:", @DesktopWidth / 16 * 12, @DesktopHeight / 10 * 1, 200, 40)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 12, 800, Default, '黑体')
GUICtrlSetColor(-1, 0xffffff)

$button1 = GUICtrlCreateButton("开始", @DesktopWidth / 16 * 5, @DesktopHeight / 10 * 8, 80, 40)
GUICtrlSetOnEvent(-1,'_start')
$button2 = GUICtrlCreateButton("退出", @DesktopWidth / 16 * 9, @DesktopHeight / 10 * 8, 80, 40)
GUICtrlSetOnEvent(-1,'_exit')
GUISetState()


While 1
        Sleep(10)        
        If Not $stop Then
        GUICtrlSetData($lable3,$prize[Random(0,9,1)])
        $temp=Random(0,UBound($ini)-1,1)
        GUICtrlSetData($lable,$ini[$temp][1])        
        EndIf
WEnd

Func _start()
        If GUICtrlRead($button1)='停止' Then 
                $stop=1
                GUICtrlSetData($button1,'开始')                
                _ArrayDelete($ini,$temp)
                GUICtrlSetData($lable2,"剩余抽奖人数:"&UBound($ini))
        Else
                $stop=0
                GUICtrlSetData($button1,'停止')
        EndIf
EndFunc

Func _exit()
        Exit
EndFunc

评分

参与人数 1金钱 +40 贡献 +10 收起 理由
KLU3K + 40 + 10 好!

查看全部评分

发表于 2011-1-13 16:57:30 | 显示全部楼层
我正在工公司做年会抽奖的,flash不知道如何加,再说加了也没啥效果。
很简单的,自己做啊,我做的带照片滚动播放
发表于 2011-1-13 17:46:10 | 显示全部楼层
哎!前几天才帮同事做了一个,和楼主的要求一样,可惜源码被我删了。。。
发表于 2011-1-13 19:08:37 | 显示全部楼层
呃.....谁发源码一下,我也想要哎!
发表于 2011-1-13 20:08:10 | 显示全部楼层
这个提议很好,很不错。
发表于 2011-1-13 20:26:15 | 显示全部楼层
我也想要啊
发表于 2011-1-13 20:34:42 | 显示全部楼层
才发现我的显示器挺大的,全屏图片这么大一张,燥蛋。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2011-1-14 09:31:12 | 显示全部楼层

这样是不是可以暗箱操作
发表于 2011-1-14 09:50:29 | 显示全部楼层
本帖最后由 3mile 于 2011-1-14 10:19 编辑

回复 7# 水木子
图片下面的是动态歌词吗?对这个有点兴趣。
顺便问下楼主,不知道员工总人数,不知道抽奖规则,不知道中奖概率。。。。这代码要如何写啊!想帮忙也没有办法啊
发表于 2011-1-14 11:24:38 | 显示全部楼层
8楼的主意很不错~~~~
发表于 2011-1-14 13:48:11 | 显示全部楼层
回复  水木子
图片下面的是动态歌词吗?对这个有点兴趣。
顺便问下楼主,不知道员工总人数,不知道抽奖规 ...
3mile 发表于 2011-1-14 09:50


动态歌词似乎是KUGOO的

为抽奖规则公平,循环所有未有中奖人在滚动显示应该可以了
发表于 2011-1-14 16:24:59 | 显示全部楼层
看起来很不错,厉害
发表于 2011-1-15 00:44:46 | 显示全部楼层
期待源码啊
 楼主| 发表于 2011-1-17 10:22:33 | 显示全部楼层
源码呢?谁有个好点的源码啊。。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-15 07:04 , Processed in 0.086661 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表