1000分求照片抽奖程序原码!!!急!!!(100)

  • 主题发起人 主题发起人 mmyl
  • 开始时间 开始时间
M

mmyl

Unregistered / Unconfirmed
GUEST, unregistred user!
年底单位要搞活动,准备对员工进行抽奖,员工在进入活动大厅前每人拍一张照片,然后通过程序抽奖,程序界面显示照片
 
………………………………你自己做一個隨機抽取數組下標的函數不就行了~~~~~~反正要么你就讀文件名,要么你就讀文件的啦你再對讀出來的這個數據結構進行隨機訪問不就行了~~~~~
 
一、将相片文件名改成顺序号码文件名放在一个目录中。二、程序中使用随机函数生成一个号码(随机范围设定在相片序号范围)。三、用这个号码打开对应这个号码的相片。四、显示相应的相片。五、完成。
 
这么简单的问题也问,用Delphi的果然不入流
 
不好意思,让大家见笑了,我是新手,刚自学一个月,什么都不太会,还请各位指教。
 
滚屏显示照片然后慢慢停下提点难度~~~
 
LoveRuby估计就是一个不入流的,这点相信大家都同意吧。提点个人的浅见:1、[xiaopei]的方法比较简单,先用随即函数得到一个号,如5,然后加载5号照片到界面上即可;2、龙之吻 的方法也不难,可以用几个Image在界面上,然后遍历照片文件加载到Image里,然后随机停止,选定某个Image的照片即可
 
[xiaopei]的方法有一個很大的bug ,就是會顯示重複的圖片,比如抽中了 1 以後,可能下一次隨機又會出現 1 的,這樣的話就要必須要加上一些記錄那些號碼已經讀過的數據記錄,所以還不如一開始就自己建立一個數據結構,從根本上解決這個問題!
 
呵呵,这么巧,刚帮朋友写了一个,也是抽奖用的:)还有一个倒计时这个你不能用简单应用随机函数,否则,会照成有些人实际上存在抽不到的弊端,不合理。把人排序,循环一遍显示图片。显示完一遍以后,把人再次随机排序,然后再循环,理论上,每个人被抽中的几率一样,比较合理
 
楼上各位,能提供关键原码吗?我是新手,你们说的我也知道应该那么做,但是关键是不知道怎么做?
 
我邮箱hanyuhen1@163.com ,俺有一套源码,功能不强,但忽悠人够了
 
随机当然可能重复啦,只不过是抽中后不能再出现,没抽中再出现有什么要紧呢,最主要的问题是相片显示速度的问题
 
把照片加到imagelist上 然后滚屏就可以! 或者直接在acdsee上直接安空格滚屏!
 
100=1000分?大富翁缩水咯~~~1,选取多个图片文件,opendialog多选就行;2,把图片路径添加到listbox里,如 员工名.jpg;3,抽奖开始后,开始滚动显示listbox中的内容,边滚动边显示文件名;4,在按下抽奖键后,暂停滚动,弹出一个小窗口,显示图片文件名及图片,将当前行记录添加到获奖列表中,然后删除listbox中的当前行记录。OK,不管你抽奖品还是抽人的头像,都搞定了。楼上说的滚动慢慢慢下来,也简单,不过还是直接让人按一个键刺激啊!
 
很多年前在盒子上发过一个例子,叫来宾抽奖,自己去下载来看看。www.delphibox.com
 
来自:郭玉梁, 时间:2009-1-6 18:31:50, ID:3938614 呵呵,这么巧,刚帮朋友写了一个,也是抽奖用的:)还有一个倒计时这个你不能用简单应用随机函数,否则,会照成有些人实际上存在抽不到的弊端,不合理。把人排序,循环一遍显示图片。显示完一遍以后,把人再次随机排序,然后再循环,理论上,每个人被抽中的几率一样,比较合理 郭兄:对随机函数不是很了解。你说直接用随机函数会有些人抽不到。请帮我讲解一下。因为我写过一个就是用的随机函数抽取的。嘻嘻。。。。。。
 
用程序抽奖,最不公平,别人不信的, 这个东西,建议还是搞个透明的桶,每人一张票,扔进去,再让客人用手抓,这就公平,我们厂以前也是程序抽,后来大家闹情绪,就改为手工了.
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
825
DelphiTeacher的专栏
D
D
回复
0
查看
712
DelphiTeacher的专栏
D
后退
顶部