课堂点名设计报告

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《课堂点名设计报告》，欢迎阅读！

课堂点名课程设计报告（VB） 编号：37



课堂点名设计报告



学院 土木工程学院 班级 测绘C111 学号 117543 姓名 陈军伟 成绩

一、设计思路

1.要达到的目的

① 点击“开始”后，开始显示学生信息。程序实现从Excel工作表中读取学生信息，显示在窗体控件上。

（“开始”按钮变为无效状态，防止反复点击创建多个Excel对象。） ② 按下空格键表示出勤、其他键表示缺勤，并用Y/N表示出勤/缺勤，记录到Excel工作表里。 ③ 点击缺勤时，会显示出缺勤人的学号和姓名。点击出寝室时不会出现数据显示。 ④ 回车键使点名过程暂停/继续。 ⑤ 点击退出，退出点名程序。 2.关键问题的解决

① 两个事件过程之间的通信。

② 在显示过程中要启动延时，延时需要Timer配合。

③ 在两个事件过程之间通过一个全局的Boolean变量TimeOu他通信 ④ 解决对excel对象的应用

二、模块之间的调用关系，或程序流程图（无） 三、部分程序关键源代码及注释

①Dim xlapp As New Excel.Application Dim xlbook As Excel.Workbook

Dim xlsheet As Excel.Worksheet '声明excel对象 Dim reach As Boolean, r As Integer 'reach是否出勤

②Set xlapp = CreateObject("Excel.Application") '创建Excel对象

Set xlbook = xlapp.Workbooks.Open(App.Path & "\VB名单.xls") '打开名单工作薄 xlapp.Visible = False '设置EXCEL对象不可见 ③Private Sub Command2_Click() '退出 Timer1.Enabled = False xlbook.Close (True) '关闭工作簿 Excel.Application.Quit '结束EXCEL对象 End

End Sub

④Private Sub Form_Initialize()

Set xlapp = CreateObject("Excel.Application") '创建Excel对象


课堂点名课程设计报告（VB） 编号：37

Set xlbook = xlapp.Workbooks.Open(App.Path & "\VB名单.xls") '打开名单工作薄 xlapp.Visible = False '设置EXCEL对象不可见

Set xlsheet = xlbook.Worksheets("Sheet1") '设置活动工作薄 End Sub

⑤Private Sub Option1_Click(Index As Integer) Print Label3 Print Text1 End Sub

⑥Private Sub Timer1_Timer() With xlsheet

Label2.Caption = .Range("C" & r).Value Label3.Caption = .Range("A" & r).Value Text1.Text = .Range("B" & r).Value If reach Then

.Range("D" & r).Value = "Y" Else

.Range("D" & r).Value = "N" End If

End With End Sub

四、设计方案的完善及目前存在的问题

1．设计方案要完善的地方

①待完善增加缺勤人数总和的统计和缺勤人数占总人数的比例。 ②界面比较粗糙，界面外观有待改善。 2. 目前存在的问题

① 退出时提示是否保存excel表格问题； ② 其它未知错误暂未发现。

五、本次设计的收获及心得体会

对vb又有了更深的了解，学到了更深层面的知识。 六、对该题目和VB设计的意见和建议

1. 对该题目的意见和建议

建议适当增加设计的趣味性，增加语音点名。 2．对本次设计的意见和建议

本文来源：https://www.dy1993.cn/WbQ4.html