[管理学]通用心理测系统的设计和开发.ppt

4、系统实现方法——代码编程 测试窗体代码 showQuestion过程 显示题目及选项 Private Sub showQuestion() 利用lbl试题控件显示试题内容 Me.lbl试题.Caption = rs.Fields(试题编号) 、 rs.Fields(试题内容) ? 如果该题的选项A字段不为空，则利用控件Option1显示选项A，并使Option1可见，并将选项A对应的分值保存在scores数组的对应元素中。 如果该选项为空，则隐藏对应控件 选项B到选项H都按此方法判断和设置。 ? If rs.Fields(选项A) Then Me.Option1.Caption = rs.Fields(选项A) scores(1) = rs.Fields(选项A分值) Me.Option1.Visible = True Else Me.Option1.Visible = False End If ? …… 设置默认选择为选项A Me.Option1.Value = True End Sub 4、系统实现方法——代码编程 测试窗体代码 开始测试按钮的Click事件 设置控件状态 启动计时器 Private Sub cmdStartTest_Click() 显示包含题目和选项的Frame3控件 Me.Frame3.Visible = True ? 使下一题按钮可用 Me.cmdNext.Enabled = True ? 使开始测试按钮不可用 Me.cmdStartTest.Enabled = False ? 初始化已用测试时间变量 usedTime = 0 ? 激活定时器,定时执行Timer1的Timer事件,显示测试时间信息 Me.Timer1.Enabled = True End Sub 4、系统实现方法——代码编程 测试窗体代码 定时器Timer1的Timer事件 设置控件状态 启动计时器 Private Sub Timer1_Timer() Timer1的Interval属性为1000,相对于1秒钟,因此每次执行Timer事件时将已用时间加1 usedTime = usedTime + 1 ? 将已用时间转换成分钟并显示,同时计算剩余时间并显示 Me.lbl已用时间.Caption = Format(usedTime / 60, 0) 分钟 Me.lbl剩余时间.Caption = Format(testTime - usedTime / 60, 0) 分钟 ? 如果剩余时间小于5分钟,则通过变换Frame2的背景颜色和时间信息控件的前景颜色提示测试者 If testTime - usedTime / 60 5 Then Me.lbl剩余时间.ForeColor = vbRed Me.Frame2.BackColor = QBColor(Int(Rnd() * 15) + 1) Me.lbl已用时间.ForeColor = RGB(0, 255, 0) Me.Label5.ForeColor = HFF0000 End If ? 如果测试时间到，提示测试者 If testTime - usedTime / 60 0 Then MsgBox 测试时间到，请单击确定按钮察看得分, vbInformation + vbOKOnly Me.Timer1.Enabled = False Me.cmdShowResult.Value = True End If End Sub 4、系统实现方法——代码编程 测试窗体代码 下一题按钮的Click事件 计算得分 显示下一题内容 Private Sub cmdNext_Click() 判断当前显示的是否是最后一题 如果不是最后一题,则根据测试者选择的项目,即哪个Option的Value为True,计算当前总分 ? If Not rs.EOF() Then If Me.Option1.Value = True Then totalScore = totalScore + scores(1) If Me.Option2.Value = True Then totalScore = totalScore + scores(2) …… 移动记录集的指针指向下一记录 rs.MoveNext End If ? …… 4、系统实现方法——代码编程 测试窗体代码 下一题按钮的Click事件 完成全部试题后的处理 If rs.EOF And rs.RecordCount 0 Then 已到记录集的最后,则返回最后一题 rs.MoveLast 禁用下一题按钮 Me.cmdNext