wgboy 发表于 2011-1-13 15:49:05

年会抽奖工具

本帖最后由 wgboy 于 2011-1-13 15:50 编辑

想要个可以从数据库中读取员工信息（员式号、姓名），然后进行抽奖。界面最好能全屏，喜庆点。带个FlASh动画和喜庆音乐。上面可以加上个自定义标题。

3mile 发表于 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=["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)
        $temp=Random(0,UBound($ini)-1,1)
        GUICtrlSetData($lable,$ini[$temp])       
        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

nxbigdaddy 发表于 2011-1-13 16:57:30

我正在工公司做年会抽奖的，flash不知道如何加，再说加了也没啥效果。
很简单的，自己做啊，我做的带照片滚动播放

水木子 发表于 2011-1-13 17:46:10

哎！前几天才帮同事做了一个，和楼主的要求一样，可惜源码被我删了。。。{:face (207):}

xowen 发表于 2011-1-13 19:08:37

呃.....谁发源码一下，我也想要哎！

vipanjintian 发表于 2011-1-13 20:08:10

这个提议很好，很不错。

微雨湿黄昏 发表于 2011-1-13 20:26:15

我也想要啊

水木子 发表于 2011-1-13 20:34:42

才发现我的显示器挺大的，全屏图片这么大一张，燥蛋。

cxm23 发表于 2011-1-14 09:31:12

{:face (197):}
这样是不是可以暗箱操作

3mile 发表于 2011-1-14 09:50:29

本帖最后由 3mile 于 2011-1-14 10:19 编辑

回复 7# 水木子
图片下面的是动态歌词吗？对这个有点兴趣。
顺便问下楼主，不知道员工总人数，不知道抽奖规则，不知道中奖概率。。。。这代码要如何写啊！想帮忙也没有办法啊

kodin 发表于 2011-1-14 11:24:38

{:face (125):} 8楼的主意很不错~~~~

auto 发表于 2011-1-14 13:48:11

回复水木子
图片下面的是动态歌词吗？对这个有点兴趣。
顺便问下楼主，不知道员工总人数，不知道抽奖规 ...
3mile 发表于 2011-1-14 09:50 http://www.autoitx.com/images/common/back.gif

动态歌词似乎是KUGOO的

为抽奖规则公平，循环所有未有中奖人在滚动显示应该可以了

botanycc 发表于 2011-1-14 16:24:59

看起来很不错，厉害

微雨湿黄昏 发表于 2011-1-15 00:44:46

期待源码啊

wgboy 发表于 2011-1-17 10:22:33

源码呢？谁有个好点的源码啊。。
页: [1] 2
查看完整版本: 年会抽奖工具