[原创]我的开山之作：“随机点名小助手.exe”

为了上课点名时做到比较公平，同时又给每个同学一点小小压力，我用delphi制作了这个点名软件，现与大家分享。文件有些大（472k），我想要是能再小些就好了！希望哪位大侠给我提点建议！

附件: 您所在的用户组无法下载或查看附件

不知道你的点名具体是如何操作的◎

“names.txt”和“点名助手.exe”必须在同一个目录内。要改名字直接改“names.txt”即可。点名过程是随机化的。打开程序直接点击“发射”按钮或按键盘上的空格或回车即可。

嗯，是个好东西！

提示: 作者被禁止或删除 内容自动屏蔽

我用VB也编过，只是28K而已。

附件: 您所在的用户组无法下载或查看附件

引用:下面引用由Bill6189在 2006/03/12 11:36pm 发表的内容：
我用VB也编过，只是28K而已。
嘘，遇到高手了！能不能把程序共享一下，谢了先！

引用:下面引用由penglaoshi在 2006/03/13 05:02pm 发表的内容：
嘘，遇到高手了！能不能把程序共享一下，谢了先！
　　我也在等待。

提示: 作者被禁止或删除 内容自动屏蔽

[这个贴子最后由王山而在 2006/03/16 05:12am 第 2 次编辑]

　　我也试着做一个“随机提问”(4k）

附件: 您所在的用户组无法下载或查看附件

[这个贴子最后由Bill6189在 2006/03/16 07:01pm 第 1 次编辑]

这是随机选学号，如是选人名的就用一个过程将每一个号“翻译”成人名即可。
另外，楼上的那个随机提问中数字变化速度太慢了，可以看中某个再按停止，就变成“随人”而不是“随机”了。

附件: 您所在的用户组无法下载或查看附件

  　　怎么解压不成功啊？这是解压后的信息——

附件: 您所在的用户组无法下载或查看附件

　　让10楼那个转得快点——

附件: 您所在的用户组无法下载或查看附件

引用:下面引用由王山而在 2006/03/17 05:22am 发表的内容：
　　怎么解压不成功啊？这是解压后的信息——
不知道了，我自己解压可是成功的。

　　我现在用的是98系统。是不是系统的事？

这个我不清楚，毕竟我没有装98。

引用:下面引用由Bill6189在 2006/03/16 06:58pm 发表的内容：
这是随机选学号，如是选人名的就用一个过程将每一个号“翻译”成人名即可。
另外，楼上的那个随机提问中数字变化速度太慢了，可以看中某个再按停止，就变成“随人”而不是“随机”了。
　　解压成功啦！好！
　　怎么把“每一个号‘翻译’成人名”？传上来好吗？

就是If 输入=号码 then 输出=名字，就是这么简单而已。

引用:下面引用由Bill6189在 2006/03/19 11:11pm 发表的内容：
就是If 输入=号码 then 输出=名字，就是这么简单而已。
　　我那个也是用的这种方法，可以同时显示序号和人名，但是太麻烦呀！
　　人家PengLaoShi 那个是将人名输入文本中，不同的班级可改成不同的人名，改文本就行。系统中有无VB程序的人都可以用，尽管占用的空间多一点。我那个虽然占用的空间小，但是不会修改VB程序的人用起来困难。
　　希望知道PengLaoShi 是怎么编写的！

Bill6189:
下面是你原程序中关于Command1_Click()：
~~~~~~~
Private Sub Command1_Click()
If Timer1.Enabled Then
     Command1.Caption = "START"
    Timer1.Enabled = False
    cNum(Val(SelNum)) = 1
     If SelNum = 5 Then Image1.Visible = True
Else
     Command1.Caption = "STOP"
    Choose True
    Timer1.Enabled = True
End If
End Sub
~~~~~~

我去掉了其中的几行后：
Private Sub Command1_Click()
If Timer1.Enabled Then
    Timer1.Enabled = False
    cNum(Val(SelNum)) = 1
Else
   Timer1.Enabled = True
End If
End Sub
程序照样运行。请问多出那几行的作用？

改天在论坛搞一个比赛,语言不限,来实现某个功能

引用:下面引用由王山而在 2006/03/20 06:45am 发表的内容：
Bill6189:
下面是你原程序中关于Command1_Click()：
~~~~~~~
Private Sub Command1_Click()
...
死，我原来修改过这个程序去掉1号这个号码的，就是cNum(Val(SelNum)) = 1这句，忘记改回了。
Command1.Caption = "START"这句纯粹是改个按钮标题而已。
If SelNum = 5 Then Image1.Visible = True这句纯粹是玩了，不要也行。

欢迎访问我的第二个作品：chat.pep.com.cn/lb50...81&topic=956&show=0: chat.pep.com.cn/lb50...=81&topic=956&show=0

penglaoshi:
    您的《随机点名》做得很好，能不能把源程序传上来，大家学习学习？

引用:下面引用由王山而在 2006/03/26 03:50pm 发表的内容：
penglaoshi:
    您的《随机点名》做得很好，能不能把源程序传上来，大家学习学习？
我用VB6.0改写一下再上传，请王老师稍等几天。

[这个贴子最后由penglaoshi在 2006/03/27 11:24am 第 1 次编辑]

随机点名助手VB版
这是我用VB6.0改的版本，主程序的大小只有20K，呵呵。

附件: 您所在的用户组无法下载或查看附件

    谢谢王老师的一贯关注和支持，否则我不会想到用VB来编写这个程序的。delphi好是好，但缺点就是编写再小的程序也得大于300K。

[这个贴子最后由王山而在 2006/03/27 05:30am 第 1 次编辑]

　　占用空间32Ｋ,确实小得很多.　　
　　谢谢!学习啦!

[这个贴子最后由王山而在 2006/03/27 09:47am 第 1 次编辑]

　　我修改了一下——
双按钮

附件: 您所在的用户组无法下载或查看附件

程序这个东西，是仁者见仁、智者见智的。
我也做了一个，20k。

附件: 您所在的用户组无法下载或查看附件

双按钮的几个程序，如果按两次“停止”的话，名字会有变化。

[这个贴子最后由王山而在 2006/03/28 10:00am 第 1 次编辑]引用:下面引用由笨巧果在 2006/03/27 08:17pm 发表的内容：
双按钮的几个程序，如果按两次“停止”的话，名字会有变化。
　　是的。程序中就是这样编的。
  　再来一个叫停就停的——

附件: 您所在的用户组无法下载或查看附件

引用:下面引用由笨巧果在 2006/03/27 08:10pm 发表的内容：
程序这个东西，是仁者见仁、智者见智的。
我也做了一个，20k。
　　相互交流，思路更宽。

引用:下面引用由王山而在 2006/03/28 04:51am 发表的内容：
　　是的。程序中就是这样编的。
  　再来一个叫停就停的——
我觉得这个好。
个人观点。

引用:下面引用由王山而在 2006/03/28 05:02am 发表的内容：
　　相互交流，思路更宽。
哪天，应该来个程序比赛。
大家一起编一道程序题，实现同一功能。
最好是公布源代码。

[这个贴子最后由Bill6189在 2006/03/28 06:11pm 第 1 次编辑]

最近又弄了一个随机选学号，体积庞大很多的，但是精美很多，功能也多点。

附件: 您所在的用户组无法下载或查看附件

引用:下面引用由Bill6189在 2006/03/28 06:04pm 发表的内容：
最近又弄了一个随机选学号，体积庞大很多的，但是精美很多，功能也多点。
我做了一个可以读取文件的随机选人名，体积还是24K。
第一个没看，第二个连续点击按钮，会有一些意外情况哦。
我觉得属于小bug。

呵呵！第一个程序好漂亮的。

引用:下面引用由Bill6189在 2006/03/28 06:04pm 发表的内容：
最近又弄了一个随机选学号，体积庞大很多的，但是精美很多，功能也多点。
我做了一个可以读取文件的随机选人名，体积还是24K。
　　随机选学号那个更好些。

　　也来一个按钮变化的——
　　开始－停止－重启

附件: 您所在的用户组无法下载或查看附件

想投稿,还要等600秒,什么意思吗?

O(∩_∩)O谢谢分享，下载下来看看。

我是一个专业酱油王

nimaba