VB课程设-测绘C111 魏宏杰.doc

小闹钟设计报告
学院土木工程学院班级测绘C111 学号117558 姓名魏宏杰成绩
一、设计思路

培养学生综合利用VB语言进行程序设计的能力,主要是利用VB的标准控件进行界面设计,灵活应用日期函数进行创新设计。

设计一个闹钟程序,详细要求如下:
添加提醒事件,包括事件的主题和内容
给提醒事件选择时间
用户可以通过复选框来选择是否要每天提醒
程序到了指定日期和时间后,弹出对话框提示用户,并把用户输入的主题和内容显示出来
二、模块之间的调用关系,或程序流程图
调用
调用
调用
调用
模块
模块
模块
模块
模块
三、部分程序关键源代码及注释
1 Private Sub Check1_Click()
B = '是否每天提醒
End Sub
2 Private mand1_Click()
For I = 0 To 50
If Save(I, 0) = "" Then
Save(I, 0) = & " " & '为数组P(i,0)赋值为"日期提醒时间" 样式
Save(I, 1) = & Chr(13) & '为数组P(i,1)赋值为"主题" 回车"内容" 样式
End If
Next
End Sub
3 Private Sub Timer1_Timer() '每秒钟执行一次
If B Then '如果每天提醒
For I = 0 To 50
If Save(I, 0) <> "" Then '如果提醒记录不为空
If Time = TimeValue(Save(I, 0)) Then MsgBox Save(I, 1) '如果现在时间等于P(i,0)存储的时间,则弹出消息框“主题<回车> 内容”,timevalue函数将P(i,0)文本转化成时间值

Else
Exit For '如果提醒记录为空则退出循环
End If
Next
Else
For I = 0 To 50
If Save(I, 0) <> "" Then
If CDate(Save(I, 0)) = Now Then MsgBox Save(I, 1) '将P(i,0)强制转化成日期格式,如果等于现在日期,则弹出消息框
Else
Exit For
End If
Next
End If

End Sub
4. Private mand1_Click()
For I = 0 To 50
If Save(I, 0) = "" Then
Save(I, 0) = & " " & '为数组P(i,0)赋值为"日期提醒时间" 样式
Save(