网站 › 『编程语言区』 › 【原创】一个简单的抽奖程序

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

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

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

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

这是代码窗口

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

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
自定对象吧？

对 就是作弊 设定中奖者

查看完整版本: 【原创】一个简单的抽奖程序