课堂点名设计报告（推荐）_课堂考勤系统设计报告
课堂点名设计报告（推荐）由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“课堂考勤系统设计报告”。
课堂点名课程设计报告（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．对本次设计的意见和建议
课堂点名课程设计报告（VB）编号：37 该次设计旨在提高培养学生综合利用VB语言进行程序设计，解决实际问题的能力。有利于学生的发展与进步。
