vb课程设-测绘c111魏宏杰

《vb课程设-测绘c111魏宏杰》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、小闹钟课程设计报告（VB）编号：50小闹钟设计报告学院土木工程学院班级测绘C111学号117558姓名魏宏杰成绩一、设计思路1.要达到的目的培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进行界面设计，灵活应用日期函数进行创新设计。2.关键问题的解决设计一个闹钟程序，详细要求如下：l添加提醒事件，包括事件的主题和内容l给提醒事件选择时间l用户可以通过复选框来选择是否要每天提醒l程序到了指定日期和时间后，弹出对话框提示用户，并把用户输入的主题和内容显示出来二、模块之间的调用关系，或程序流

2、程图调用调用调用调用模块模块模块模块模块三、部分程序关键源代码及注释1PrivateSubCheck1_Click()B=Check1.Value'是否每天提醒EndSub2PrivateSubCommand1_Click()ForI=0To50IfSave(I,0)=""ThenSave(I,0)=Text1.Text&""&Text2.Text'为数组P(i,0)赋值为"日期提醒时间"样式Save(I,1)=Text3.Text&Chr(13)&Text4.Text'为数组P(i,1)赋值为"主题"回

3、车"内容"样式EndIfNextEndSub3小闹钟课程设计报告（VB）编号：503PrivateSubTimer1_Timer()'每秒钟执行一次IfBThen'如果每天提醒ForI=0To50IfSave(I,0)<>""Then'如果提醒记录不为空IfTime=TimeValue(Save(I,0))ThenMsgBoxSave(I,1)'如果现在时间等于P(i,0)存储的时间，则弹出消息框“主题<回车>内容”,timevalue函数将P(i,0)文本转化成时间值ElseExitFor'如果提醒记录

4、为空则退出循环EndIfNextElseForI=0To50IfSave(I,0)<>""ThenIfCDate(Save(I,0))=NowThenMsgBoxSave(I,1)'将P(i,0)强制转化成日期格式，如果等于现在日期，则弹出消息框ElseExitForEndIfNextEndIfEndSub4.PrivateSubCommand1_Click()ForI=0To50IfSave(I,0)=""ThenSave(I,0)=Text1.Text&""&Text2.Text'为数组P(i,0)赋

5、值为"日期提醒时间"样式Save(I,1)=Text3.Text&Chr(13)&Text4.Text'为数组P(i,1)赋值为"主题"回车"内容"样式EndIfNextEndSub5PrivateSubCommand2_Click()DimIAsInteger'循环引用变量ForI=3To4Controls("Text"&I).Text=""'利用控件对象集合引用控件名称NextIEndSub四、设计方案的完善及目前存在的问题1．设计方案要完善的地方没能添加声音创新内容需完善代码不够简便3小闹钟课程设计

6、报告（VB）编号：502.目前存在的问题创新部分内容运行存在问题五、本次设计的收获及心得体会真正学到了一些有关vb设计的知识，比如：timer控件的使用等六、对该题目和VB设计的意见和建议1.对该题目的意见和建议（1）界面可以更形象些(2)只能考察学生部分知识的运用(3)代码应足够简便2．对本次设计的意见和建议意见（1）真正动手实践时间短（2）只能考察学生部分知识的运用建议（1）划分小组，锻炼学生团结合作的意识与能力（2）不要安排在考试月3