【原创】一个简单的抽奖程序

Makin丶 · 发表于 2017-12-27 19:52

由于本人是第一次接触delphi语言，所以很多的想法没有实现，程序功能也不是特别牛逼，希望大牛们不要喷

这是程序的主窗口，仅仅是在班级1-3 学号1-41之间取随机数作为幸运儿

这是代码窗口

里面留了少量的后门（指定中将对象），开发者嘛，你懂的
源码供大家学习使用，转载请注明出处

抽奖.zip (252.95 KB, 下载次数: 93)

Ashes · 发表于 2017-12-29 15:21

看你的截图, 我就不打算下载了, 文字居然还有那么大的锯齿. 一个字就是丑.
这个应该是用delphi7或更旧的编程工具做的.

但我不是来责怪你的, 我也是一个爱好者, 我建议你使用新版本的delphi工具,
最新的版本RAD Stadio 10.2.2, 虽然bug不断,但功能强大了不是一星半点.
Delphi的编译的是原生代码. 而且还可以做移动开发.
(ps. 网上有大神做的甚至开源的keygen.)

Makin丶 · 发表于 2018-1-4 18:14

peterq521 发表于 2017-12-28 16:38
对就是作弊设定中奖者

可以加上全局变量计算抽奖次数，如果前几次都没抽中，到指定的次数，固定显示中奖者ID（即固定的标签Caption）

小贺贺 · 发表于 2017-12-27 20:52

学习了这个是好东西

shaokui123 · 发表于 2017-12-27 21:59

有后门，哈哈哈

忆丿念 · 发表于 2017-12-27 21:59

可以，抱走

艾菲的独白 · 发表于 2017-12-27 22:42

好好学习一下。

lucka · 发表于 2017-12-27 23:13

好好学习一下。

e百年 · 发表于 2017-12-28 01:43

好，很好，非常好！

peterq521 · 发表于 2017-12-28 09:24

外行啊怎么才能设定制定对象啊

Makin丶 · 发表于 2017-12-28 16:25

peterq521 发表于 2017-12-28 09:24
外行啊怎么才能设定制定对象啊

自定对象吧？

peterq521 · 发表于 2017-12-28 16:38

Makin丶发表于 2017-12-28 16:25
自定对象吧？

对就是作弊设定中奖者

帐号		自动登录	找回密码
密码			注册[Register]

[其他原创] 【原创】一个简单的抽奖程序

免费评分

个人中心