vb课程设-课堂点名设计报告

《vb课程设-课堂点名设计报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、课堂点名课程设计报告（VB）编号：37课堂点名设计报告学院土木工程学院班级测绘C111学号117543姓名陈军伟成绩一、设计思路1.要达到的目的①点击“开始”后，开始显示学生信息。程序实现从Excel工作表中读取学生信息，显示在窗体控件上。（“开始”按钮变为无效状态，防止反复点击创建多个Excel对象。）②按下空格键表示出勤、其他键表示缺勤，并用Y/N表示出勤/缺勤，记录到Excel工作表里。③点击缺勤时，会显示出缺勤人的学号和姓名。点击出寝室时不会出现数据显示。④回车键使点名过程暂停/继续。⑤点击退出，退出点名程序

2、。2.关键问题的解决①两个事件过程之间的通信。②在显示过程中要启动延时，延时需要Timer配合。③在两个事件过程之间通过一个全局的Boolean变量TimeOu他通信④解决对excel对象的应用二、模块之间的调用关系，或程序流程图（无）三、部分程序关键源代码及注释①DimxlappAsNewExcel.ApplicationDimxlbookAsExcel.WorkbookDimxlsheetAsExcel.Worksheet'声明excel对象DimreachAsBoolean,rAsInteger'reach是否

3、出勤②Setxlapp=CreateObject("Excel.Application")'创建Excel对象Setxlbook=xlapp.Workbooks.Open(App.Path&"VB名单.xls")'打开名单工作薄xlapp.Visible=False'设置EXCEL对象不可见③PrivateSubCommand2_Click()'退出Timer1.Enabled=Falsexlbook.Close(True)'关闭工作簿Excel.Application.Quit'结束EXCEL对象EndEndSu

4、b④PrivateSubForm_Initialize()Setxlapp=CreateObject("Excel.Application")'创建Excel对象课堂点名课程设计报告（VB）编号：37Setxlbook=xlapp.Workbooks.Open(App.Path&"VB名单.xls")'打开名单工作薄xlapp.Visible=False'设置EXCEL对象不可见Setxlsheet=xlbook.Worksheets("Sheet1")'设置活动工作薄EndSub⑤PrivateSubOption

5、1_Click(IndexAsInteger)PrintLabel3PrintText1EndSub⑥PrivateSubTimer1_Timer()WithxlsheetLabel2.Caption=.Range("C"&r).ValueLabel3.Caption=.Range("A"&r).ValueText1.Text=.Range("B"&r).ValueIfreachThen.Range("D"&r).Value="Y"Else.Range("D"&r).Value="N"EndIfEndWithEndS

6、ub四、设计方案的完善及目前存在的问题1．设计方案要完善的地方①待完善增加缺勤人数总和的统计和缺勤人数占总人数的比例。②界面比较粗糙，界面外观有待改善。2.目前存在的问题①退出时提示是否保存excel表格问题；②其它未知错误暂未发现。五、本次设计的收获及心得体会对vb又有了更深的了解，学到了更深层面的知识。六、对该题目和VB设计的意见和建议1.对该题目的意见和建议建议适当增加设计的趣味性，增加语音点名。2．对本次设计的意见和建议课堂点名课程设计报告（VB）编号：37该次设计旨在提高培养学生综合利用VB语言进行程序设计

7、，解决实际问题的能力。有利于学生的发展与进步。