面向对象程序设计实用第2章.ppt

本章学习目标 应知： 工程的概念 变量的作用及类型 流程控制 应会： 使用日期函数 使用Timer控件 定义变量 条件判断语句 项目1 制作显示时钟的程序 制作一个用以显示时间的程序，程序的运行效果如图所示 任务1 新建一个工程 运行VisualBasic 6.0，在弹出的“新建工程”对话框中选择“标准EXE” 更改工程的名称 任务2 设计程序界面 更改窗口的BorderStyle 添加Label1和Command控件 更改Font和ForeColor颜色 任务3 编写显示时间的代码 在命令按钮的Click事件过程中输入以下代码： Private Sub Command1_Click() Label1.Caption = Time End Sub 运行结果界面 项目2 动态显示时间 能不能够让程序自动地更新标签上的时间呢？在这个项目里我们就是要做一个能够自动更新时间的程序，让程序看起来更像一个时钟。 任务1 使用Timer控件更新时间 Enabled属性：决定Timer事件是否发生。 Interval属性：决定了两次 Timer事件发生的时间 间隔。以毫秒为单位， 属性值在0到65535之间。 编写代码 双击Timer1控件，在“Timer1_Timer()”事件过程里输入下列代码：Private Sub Timer1_Timer() Label1.Caption = Time ‘用Time函数获取得当前的系统时间，End Sub 修改命令按钮Command1的Click事件过程的代码：Private Sub Command1_Click() Timer1.Enabled = True 设置Timer1的Enable属性为TrueEnd Sub 任务2 增加显示上下午的功能 在Timer事件过程中，添加下面一段代码： Dim lhour As Long ‘定义一个lhour变量，用来记录当前时间的小时数。lhour = Hour(Time) ’用Hour函数获得系统时间的小时数，并赋值给lhour变量。If lhour = 0 And lhour 12 Then 判断当前的小时数， ‘如果在0到12之间则是上午。  Label2.Caption = “上午” Else 如果不是上午说明现在是下午。 Label2.Caption = “下午” End If 2.3 程序中的知识点 变量 赋值语句：变量名 = 值 函数 判断语句