用户界面设计实验.doc

《用户界面设计实验.doc》由会员分享，可在线阅读，更多相关《用户界面设计实验.doc（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第7章 用户界面设计实验2班级：俄语2班 学号： 姓名：孙晴一、 实验目的1掌握定时器等控件的重要属性、方法和事件，熟悉它们的使用。2掌握菜单设计与应用。二、实验内容（一）、实例解析：按 下列说明操作，完成程序调试。1、数字时钟设计。思路：在Timer事件中，获取当前时间，并显示在标签上 设计界面 运行界面【步骤】（1）设计应用程序界面：设置1个标签，1个定时器。属性设置：Timer1的Enabled为True，Interval为1000。（2）编写事件代码：Private Sub Timer1_Timer()Label1.Caption = TimeEnd Sub（3）程序的运行及保存。2、

2、闹钟。思路：在Timer事件中：获取当前时间、提取时分秒、将提取的时分秒与文本框中的时分秒进行比对 设计界面 运行界面【步骤】（1）设计应用程序的界面：在窗体上创建5个标签；3个文本框；1个定时器。属性设置：Timer1的Enabled为True，Interval为1000。（2）编写事件代码：Private Sub Form_Load()Text1.Text = : Text2.Text = : Text3.Text = End SubPrivate Sub Timer1_Timer()Label5.Caption = Time Now返回当前日期时间；Time返回当前时间s = Hour(

3、Now)f = Minute(Now)m = Second(Now)t = Times = 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. 从文本框获取目前的时分秒，转换为总秒数2. 将总秒数减1，然后再转换为时分秒放入文本框中3. 检查总秒数是否为0，即计时器结束 设计界面 运行界面【步骤】（1）设计应用程序界面：在窗体上创建4个标签；3个文本框；2

4、个命令按钮；1个定时器。属性设置：Timer1的Enabled为False，Interval为1000。（2）编写事件代码：Private Sub Form_Load()Text1.Text = : Text2.Text = : Text3.Text = End SubPrivate Sub Command1_Click()Timer1.Enabled = True End SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()zms = Val(Text1.Text) * 6

5、0 * 60 + Val(Text2.Text) * 60 + Val(Text3.Text)zms = zms - 1Text1.Text = zms (60 * 60)Text2.Text = (zms - Text1.Text * 60 * 60) 60Text3.Text = zms - Text1.Text * 60 * 60 - Text2 * 60If Text1.Text = 0 And Text2.Text = 0 And Text3.Text = 0 Then Timer1.Enabled = False MsgBox 记时结束！End IfEnd Sub或者：在设计时属性

6、设置为：Timer1的Enabled为True，Interval为0则代码为：Private Sub Command1_Click()Timer1.Interval = 1000End SubPrivate Sub Command2_Click()Timer1.Interval = 0End SubPrivate Sub Timer1_Timer()zms = Val(Text1.Text) * 60 * 60 + Val(Text2.Text) * 60 + Val(Text3.Text)zms = zms - 1Text1.Text = zms (60 * 60)Text2.Text =

7、(zms - Text1.Text * 60 * 60) 60Text3.Text = zms - Text1.Text * 60 * 60 - Text2 * 60If Text1.Text = 0 And Text2.Text = 0 And Text3.Text = 0 Then Timer1.Interval = 0 MsgBox 记时结束！End IfEnd Sub4、菜单设计-上课示例编一程序，进行两个操作数的算术运算练习。设计界面如下： 【步骤】 (1)创建应用程序的用户界面和设置对象属性：a)设计2标签；2文本框；2命令按钮b)利用菜单设计器设计菜单：工具菜单设计器 菜单栏向用

8、户提供功能选择，包括运算数的位数，运算符类型(加、减、乘)和退出程序各菜单项的名称分别为：位数 b1 一位数 b11 两位数 b12三位数 b13运算 b2 加法 b21 减法 b22 乘法 b23退出 b3（2）编写事件代码：Option Explicit 规定所有变量都要显式声明Dim sel1 As Integer, sel2 As StringDim r1 As LongPrivate Sub Form_Load() sel1 = 0 位数标记 sel2 = 运算标记 RandomizeEnd SubPrivate Sub b11_click() sel1 = 1 设置位数标记End

9、SubPrivate Sub b12_click() sel1 = 10End SubPrivate Sub b13_click() sel1 = 100End SubPrivate Sub b21_click() sel2 = + 设置运算标记End SubPrivate Sub b22_click() sel2 = -End SubPrivate Sub b23_click() sel2 = *End SubPrivate Sub command1_click() 命题按钮单击事件 Dim a As Long, b As Long If sel1 = 0 Or sel2 = Then Ms

10、gBox 先选择运算数的位数和运算类型 Exit Sub End If 随机生成指定位数的操作数 a = sel1 + Int(9 * sel1 * Rnd) b = sel1 + Int(9 * sel1 * Rnd) 组成算式 Text1.Text = Str(a) + sel2 + Str(b) + = Select Case sel2 求运算结果r1 Case + r1 = a + b Case - r1 = a - b Case * r1 = a * b End Select Text2.Text = Text2.SetFocusEnd SubPrivate Sub command2

11、_click() 答题按钮单击事件 Dim r2 As Long If Text2.Text = Then MsgBox 请输入答案 Exit Sub End If r2 = Val(Text2.Text) 读取用户的答案 If r1 = r2 Then 判断答案 MsgBox 回答正确 Else MsgBox 回答错误 End IfEnd SubPrivate Sub b3_click() 结束按钮单击事件 EndEnd Sub（二）、见“三、实验题代码”描述（三）、提交完成后的实验报告：将文件名“张三第7章 用户界面设计 实验2”改名后上交。改名方法为，将“张三”换成你的“学号姓名”。三、

12、实验题代码1、设计如图所示的定时器程序，在Label3中显示当前时间，在Text1Text3中输入定时时间。单击定时按钮开始定时，当当前时间与定时时间一样时在Text4中显示“Good Bye!”（颜色为红色，字体大小为22）。 设计界面 运行界面提示：参见实例解析第2题“闹钟”；文本框的相关属性：ForeColor、FontBold、FontSize事件过程描述：Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Form_Load()Text1.Text = :

13、Text2.Text = : Text3.Text = End SubPrivate Sub Timer1_Timer()Label3.Caption = Timet = Times = Hour(t)f = Minute(t)m = Second(t)If Text1.Text = s And Text2.Text = f And Text3.Text = m ThenTimer1.Enabled = FalseText4.ForeColor = vbRedText4.Text = Good bye!Text4.FontSize = 22Text4.FontBold = TrueEnd If

14、End Sub2、菜单设计设计菜单界面，如下图所示。下拉菜单中的子菜单项用于对文本框Text1设置字体、字号。设计界面1 设计界面2 运行界面提示：参见实例解析第4题；文本框的相关属性：FontName、FontSize事件过程描述：Private Sub Form_Load()Text1.Text = 测试各菜单项的功能End SubPrivate Sub zh14_Click()Text1.FontSize = 14End SubPrivate Sub zh16_Click()Text1.FontSize = 16End SubPrivate Sub 黑体_Click()Text1.Fon

15、tName = 黑体End SubPrivate Sub 宋体_Click()Text1.FontName = 宋体End Sub四、选做题：有时间可选1、秒表。设计界面及运行界面如下图。各命令按钮的功能如下：开始按钮： 通过Enabled属性启用时钟计次按钮： 将标签中的时间放入文本框暂停按钮： 通过Enabled属性禁用时钟重置按钮： 将标签中的时间进行清零，文本框清空Timer事件： 对标签中显示的时间按照1秒进行递增 设计界面 运行界面提示：1）设计应用程序界面：在窗体上创建2个标签；1个文本框（MultiLine设为True；ScrollBars设为2）；4个命令按钮；1个定时器（E

16、nabled为False，Interval为1000）。2）代码提示：Dim cz As BooleanPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Text1.Text = Text1.Text & Label2.Caption & Chr(13) & Chr(10) VbCrLfEnd SubPrivate Sub Command3_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command4_Click()Text1

17、.Text = Label2.Caption = cz = TrueTimer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Static zmsIf cz = True Then zms = 0: cz = Falsezms = zms + 1s = zms (60 * 60)f = (zms - s * 60 * 60) 60m = zms - s * 60 * 60 - f * 60s1 = Format(s, 00)f1 = Format(f, 00)m1 = Format(m, 00)Label2.Caption = s1 & : & f1 & : & m1End Sub事件过程描述：