随机推门听课系统设计与分析

黄涛

（湖北省大冶市第一中学，湖北黄石435100）

随机推门听课系统设计与分析

黄涛

（湖北省大冶市第一中学，湖北黄石435100）

推门听课是许多学校采用的一种教师管理制度，可以很好地约束教师备好课、上好课、提高课堂教学水平、加强教学过程管理。文章使用VFP为编程环境来实现随机推广听课系统制作和开发的技术，该系统是通过可行性分析、需求分析和设计开发的，具备方便、随机的特点，为学校采取推门听课制度提拱了基础，保障了课堂的建全发展。

推门听课；随机；VFP

一、系统分析与设计

1.需求分析

在电脑普及之前，学校听课采取的是手工的安排，这样会导致有的教师、有的科目重复，更有可能造成被听课的教师提前知道，以做好准备。使用随机听课系统，可以快速、简便地确定要听的科目和教师，而且可以避免重复听一个教师的课和科目。这样可以很好地提高课堂效率，提升教师的课堂教学效果。

2.功能设计

根据需求分析的结果，“随机听课系统”主要由随机抽取、清空、次数归零、采用、重新抽取等五大功能组成，同时被抽取听课的教师有三位。基本设计概念及处理流程如图1所示。

在整个系统中，随机抽取和重新抽取的设计是难点，它涉及随机函数的应用。如果该教师以前被抽取过，或该次被听课的三人有相同学科，那么再用重新抽取功能再次抽取，以求达到最佳的平衡，使学校可以对教师和学科的管理更加普及。

二、数据库与功能代码实现

1.数据库设计

通过VFP 自带的数据库，建立如图2所示DBF格式数据表，该表取名为“教师名单”，包含字段有“序号”、“年级”、“学科”、“被抽次数”。

2.代码设计

在主窗体初始化中，我们使用以下代码，其中rand()是随机函数，而m=RAND(-1)的作用是，每次使用系统时，我们使用的随机函数种子是时钟，这样生成的随机数序列将不重复。在m=int(t*rand()%r+ 1)中，t的值取决于r,如果教师在百人以下，则为100，如果在千人以下百人以上，则取1000，以此类推，在这个实例中，我们取的是1000。这样，m就会是在0至r中随机取值，m代表是“教师名单”数据表中某一位教师的指针。

SET exact ON

PUBLIC f,h1,h2,h3,k1,k2,k3,m

f=0

h1=0

h2=0

h3=0

k1=''

k2=''

k3=''

thisform.command2.Enabled=.F.

thisform.command4.Enabled=.F.

thisform.command5.Enabled=.F.

thisform.command6.Enabled=.F.

thisform.command7.Enabled=.F.

m=RAND(-1)

在随机抽取功能中使用以下主要代码，实现第一次随机抽取抽出三位不同的教师。

USE教师名单

COUNT FOR序号<1000 to r

if r<1000 and r>100 then

t=1000

ENDIF

x=1

DOWHILE x<4

m=int(t*rand()%r+1)

gotom

IF x=1 THEN

h1=序号

x1=ALLTRIM(姓名)

k1=ALLTRIM(学科)

n1=ALLTRIM(年级)

c1=被抽次数

ENDIF

IF x=2 THEN

k2=ALLTRIM(学科)

IF k2<>k1 THEN

h2=序号

x2=ALLTRIM(姓名)

k2=ALLTRIM(学科)

n2=ALLTRIM(年级)

c2=被抽次数

ELSE

k2=''

ENDIF

ENDIF

IF x=3 THEN

k3=ALLTRIM(学科)

IF k3<>k1 AND k3<>k2 THEN

h3=序号

x3=ALLTRIM(姓名)

k3=ALLTRIM(学科)

n3=ALLTRIM(年级)

c3=被抽次数

ELSE

k3=''

ENDIF

ENDIF

ENDDO

USE

在重新抽取功能中，主要使用以下代码，如果第一次抽取的三位教师中有相同学科或以前被抽取过多次，则使用该功能，就会重新随机抽取另一位教师。

USE教师名单

COUNT FOR序号<1000 to r

if r<1000 and r>100 then

t=1000

ENDIF

x=1

DOWHILE x<2

m=int(t*rand()%r+1)

gotom

IF x=1 THEN

h1=序号

x1=ALLTRIM(姓名)

k1=ALLTRIM(学科)

n1=ALLTRIM(年级)

c1=被抽次数

IF k1<>k2 AND k1<>k3 AND x1<>'黄涛'THEN

x=x+1

ENDIF

ENDIF

ENDDO

USE

在清空和次数归零功能中，实现把抽取的三位教师信息清空，再重新抽取，而数据归零则为把所有教师都重新设为零次。

清空主要代码：

tk.xm1.caption=''

tk.xm2.caption=''

tk.xm3.caption=''

tk.xk1.caption=''

tk.xk2.caption=''

tk.xk3.caption=''

tk.nj1.caption=''

tk.nj2.caption=''

tk.nj3.caption=''

tk.cq1.caption=''

tk.cq2.caption=''

tk.cq3.caption=''

次数归零主要代码：

USE教师名单

REPLACEALL被抽次数WITH0

use

在采用功能中，如果已选定了三位被听课的教师，那么该三位教师将会在被抽次数上累加一次：

REPLACE ALL被抽次数WITH被抽次数+1 FOR序号=h1 OR序号=h2 OR序号=h3

三、运行环境

1.硬件设备

本软件运行所需硬件设备（计算机）的最低配置为：

CPU：奔腾3（主频500MHz及以上）

内存：128M或以上

硬盘：6G或以上

2.开发环境

本系统在MicrosoftWindows XP下进行设计开发及调试，程序以Visual Foxpro 9.0为软件来完成程序的开发。

结束语

随机推门听课是一项严谨又非常细致的工作，有利于学校课堂教学和教师的发展，可以促使教师提升自身的业务能力，对一个学校的长远发展有着重要的作用。本文介绍了以Visual Foxpro 9.0为编程环境制作的随机听课系统，该系统操作简便，界面友好，灵活、安全，经过实际使用证明，该系统完全满足学校听课制度的实施。

（编辑：鲁利瑞）

TP315

B

1673-8454（2011）02-0081-03