小工具---年级卫生评比

原创 2012年03月21日 16:24:22

小工具---年级卫生评比

外面那雨下的正紧,边上两个同学正在“梦三国”激战,我开始回忆起大一制作的一个小工具。

刚上大学的时候,老师竟然选择我成为四个年级负责人之一,竟然成了年级负责人,按照俞敏洪的说法,管他是什么荣誉,先拿了再说,其实这个负责人还是很难做的,现在给大家介绍我为做好这个职务而制作的小工具,大家一定会感慨,这年头干啥都不容易。

首先贴一张制作成功的图:


大家可以看到,情况是这样的,一共有22个寝室(包括女寝),一共从系里挑出12名评委(默认是这样的,有些时候有人没办法到),每个评委对22个寝室各打一个分数。在没有开发这个程序之前,是用手算的。我虽然下面有手下,但是这也太麻烦了,即使我们使用各种算法来简化,也很麻烦,任何人算错就挂了,特别是,当你正算的时候,寝室长过来收寝室费,“那个,谁,你上次交了多少”,当时就崩溃了,重算。。。。。

这个程序是非常简单的,为啥写上来呢,主要记录这段历史。对于一个热爱计算机事业的人来讲,生活中点滴的应用编程,都如珍珠一般。另外,这个程序写好,我一个人在数分钟内要在12个评委的目视下,正确敲击>528下的数字,来计算,可见这个工作真心没那么好做,年终,我给老师递交了一份20多页的记录。。。绝对是苦力。。

程序实现的功能是:输入12个评委对22个寝室的分数,计算出排名,并按照排名显示,后得出一个报表。

以下是代码:(下面是分析)

Dim i As Long
Dim n As Long
Dim check As Long
Dim t() As Integer
Private Sub Command1_Click()
i = i + 1
Label13.Caption = "寝室数:" & i
If i = check + 1 Then
Command1.Enabled = False
Cls
Label13.Caption = "寝室数:" & n
Print "总分:"
For S = 0 To n - 1
Print S + 1, t(S)
Next
For i = n To 1 Step -1
For j = 0 To i - 1
If t(j) > t(j + 1) Then
l = t(j): t(j) = t(j + 1): t(j + 1) = l
End If
Next j
Next i
Print "排序:"
For i = 1 To n
Print t(i)
Next
Else
For y = 0 To n - 1
t(y) = t(y) + Text1(y).Text
Next
For h = 0 To n - 1
Text1(h).Text = ""
Next
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
n = Text2.Text
ReDim t(n) As Integer //使用控件组
For j = 0 To 21
Text1(j).Enabled = False
Next
For i = 0 To n - 1
Text1(i).Enabled = True
Next
Cls
Command1.Enabled = True
i = 0
End Sub
Private Sub Form_Load()
i = 0
n = 22
check = 12
ReDim t(n) As Integer
End Sub
Private Sub Timer1_Timer()
check = Text3.Text
If Text2.Text = 22 Then
Command3.Enabled = False
Else
Command3.Enabled = True
End If
End Sub


从这里的代码我们可以看到有以下几个问题:

1、命名不够规范-----这个程序设计目的是一次性使用的

2、对于许多的临界条件没有进行过滤和保护---异常机制没有做的很好

3、控件不够简约,流程不够方便

Python小工具之文件夹下搜索包含关键字的文件

今天由于要解决一个前台问题,有个图片不知道哪里冒出来的。 由于我的前端知识太差了,忘记到对应的css文件去找那个图片路径。 直接根据这几天的python学习,写了一个搜索文件。 然后感慨到Python...
  • Sum_ck
  • Sum_ck
  • 2014年03月03日 21:51
  • 1184

自己写的UnitY实用小工具或脚本——AR阴影以及Mask遮挡

首先要说一下问题:Unity+高通Vuforia实现增强现实的应用时候,是不能现实出阴影的。参考了网上的一个帖子做的非常好,而且实现步骤写的也非常详细点击打开链接,如果没有注册这个网站的可以点作者的个...

自制【CAN数据解析小工具】

一、功能介绍 这是软件主界面,它能够实现: 1.解析dbc文件  2.解析由CANTest        保存的CAN数据,翻译成可以直接看懂的数据 如图...

利用java小工具-----统计项目代码量

package com.util; import java.io.BufferedReader; import java.io.File; import java.io.FileNotFoundEx...

用WordPress短代码在侧栏小工具中调用不同分类的文章

本文介绍如何简单的在Wordpress主题中用短代码(shortcode)在侧栏的小工具里调用不同分类的若干最新文章。 在Wordpress主题functions.php中添加短代码 add_sho...

仿iPhone assistivetouch小工具实现详解1

今天我们接着昨天的继续 1、实现控制球的点击拖动 2、点击控制球后弹出菜单选择界面 3、菜单选择功能 其实这几个都不难,思路如下: 1、要实现我们的控制球悬浮在所有App界面...

JavaWeb自动建包小工具

Package Util - Java Web自动建包小工具自动建包工具类前言以前每次开发新模块的时候总是要new package(controller service dao entity), n...

javaweb开发过程中小工具系列之带事务的QueryRunner

带事务的事务的QueryRunner

spring boot 学习(七)小工具篇:表单重复提交

学习 Spring Boot 中,我想将我在项目中添加几个我在 SpringMVC 框架中常用的工具类(主要都是涉及到 Spring AOP 部分知识)。接下来的时间,我尝试将这些框架整合到 Spri...

身份证小工具,知道身份证号,可以解析出身份证号是否通过校验、性别、年龄和出生所在地

闲得没事儿,写了个身份证小工具。身份证包含哪些信息呢?众所周知,身份证由18个号组成。 身份证编码规则: 公民身份号码是由17位数字码和1位校验码组成。排列顺序从左至右分别为:6位地址码,8位出生...
  • yunsyz
  • yunsyz
  • 2013年12月26日 22:40
  • 4763
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:小工具---年级卫生评比
举报原因:
原因补充:

(最多只允许输入30个字)