vb课程设-测绘c111魏宏杰

vb课程设-测绘c111魏宏杰

ID:25806076

大小:59.40 KB

页数:3页

时间:2018-11-22

vb课程设-测绘c111魏宏杰_第1页
vb课程设-测绘c111魏宏杰_第2页
vb课程设-测绘c111魏宏杰_第3页
资源描述:

《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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。