用戶界面设计实验2.docVIP

第7章 用户界面设计实验2 班级：俄语2班 学号 姓名：孙晴 一、 实验目的 1．掌握定时器等控件的重要属性、方法和事件，熟悉它们的使用。 2．掌握菜单设计与应用。 二、实验内容 （一）、实例解析：按 下列说明操作，完成程序调试。 1、数字时钟设计。 思路： 在Timer事件中，获取当前时间，并显示在标签上 设计界面 运行界面 【步骤】 （1）设计应用程序界面：设置1个标签，1个定时器。 属性设置：Timer1的Enabled为True，Interval为1000。 （2）编写事件代码： Private Sub Timer1_Timer() Label1.Caption = Time End Sub （3）程序的运行及保存。 2、闹钟。 思路：在Timer事件中：获取当前时间、提取时分秒、将提取的时分秒与文本框中的时分秒进行比对 设计界面 运行界面 【步骤】 （1）设计应用程序的界面：在窗体上创建5个标签；3个文本框；1个定时器。 属性设置：Timer1的Enabled为True，Interval为1000。 （2）编写事件代码： Private Sub Form_Load() Text1.Text = : Text2.Text = : Text3.Text = End Sub Private Sub Timer1_Timer() Label5.Caption = Time ‘Now返回当前日期时间；Time返回当前时间 s = Hour(Now) f = Minute(Now) m = Second(Now) t = Time s = Hour(t) f = Minute(t) m = Second(t) If Text1.Text = s And Text2.Text = f And Text3.Text = m Then MsgBox 闹钟时间到！ End Sub （3）程序的运行及保存。 3、计时器。 思路： 在Timer事件中 从文本框获取目前的时分秒，转换为总秒数 将总秒数减1，然后再转换为时分秒放入文本框中 检查总秒数是否为0，即计时器结束 设计界面 运行界面 【步骤】 （1）设计应用程序界面： 在窗体上创建4个标签；3个文本框；2个命令按钮；1个定时器。 属性设置：Timer1的Enabled为False，Interval为1000。 （2）编写事件代码： Private Sub Form_Load() Text1.Text = : Text2.Text = : Text3.Text = End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() zms = Val(Text1.Text) * 60 * 60 + Val(Text2.Text) * 60 + Val(Text3.Text) zms = zms - 1 Text1.Text = zms \ (60 * 60) Text2.Text = (zms - Text1.Text * 60 * 60) \ 60 Text3.Text = zms - Text1.Text * 60 * 60 - Text2 * 60 If Text1.Text = 0 And Text2.Text = 0 And Text3.Text = 0 Then Timer1.Enabled = False MsgBox 记时结束！ End If End Sub 或者：在设计时属性设置为：Timer1的Enabled为True，Interval为0 则代码为： Private Sub Command1_Click() Timer1.Interval = 1000 End Sub Private Sub Command2_Click() Timer1.Interval = 0 End Sub Private Sub Timer1_Timer() zms = Val(Text1.Text) * 60 * 60 + Val(Text2.Text) * 60 + Val(Text3.Text) zms = zms - 1 Text1.Text = zms \ (60 * 60)