VB数字时钟供参习.doc

《多媒体软件设计技术》 实验报告书 课程名称： 多媒体软件设计技术 班 级： 自动化2009级1班 学 号： 200904134028 姓 名： 汪胜 指导教师： 杨 岚 二○一一 年 四 月 一．实验的目的 使学生通过试验，掌握界面的设计方法，掌握常用控件的属性、事件、方法，理解 事件驱动的概念。 2．掌握图形、图像程序设计方法； 3．掌握多媒体音频、视频程序的设计方法； 二．实验项目 实验一 常用控件与界面、菜单设计 1、实验目的 通过本实验，要求掌握常用控件的属性、事件、方法，理解事件驱动的概念。掌握界面的基本设计方法，掌握下拉式菜单的设计方法 2、实验内容 实验1：指法练习 1）界面设计 2）运行界面 3）属性设置： 控件名称 属性名称 属性值 窗体 Caption 指法练习 Startupposition 2－屏幕中心 backcolor H0000FF00(绿色) 标签框数组 label1 共10个 Caption 空 autosize true 标签框label2 caption 你的得分： font 宋体、粗体、四号 forecolor H00FF0000(蓝色) 标签框label3 caption 0 autosize true font 宋体、粗体、四号 定时器timer1 interval 60 Enabled True 定时器timer2 interval 60 Enabled True 4)程序源代码 1.判断是否击中窗体上的字母： Private Sub Form_KeyPress(KeyAscii As Integer) 当按下键时，判断是否击中，并做相应处理 Dim temp, height As Integer height = -1 记录击中字母的位置 temp = -1 记录击中字母的下标 For i = 0 To Label1.Count - 1 If Label1.Item(i).Caption = Chr(KeyAscii) Then 循环用于判断是否击中字母，记录被击中字母的高度下标 If height Label1.Item(i).Top Then temp = i height = Label1.Item(i).Top End If End If Next If temp -1 Then 表示击中字母，（temp的值为0~9-1） Label1.Item(temp).Top = -500 score = score + 1 Label3.Caption = score End If If KeyAscii = 27 Then 若按下ESc键，显示成绩，并提示是否退出 If MsgBox(你的得分： score 分 + Chr(13) + Chr(10) + 真的要退出吗？, vbYesNo, 成绩) = vbYes Then End End If End Sub 2.窗体加栽 Private Sub Form_Load() Dim i As Integer Dim j As Single score = 0 Label3.Caption = 0 初始化个标签的位置和显示字符 For j = 0 To Label1.Count - 1 Label1.Count:统计控件数组共有多少个元素 Label1(j).Top = 0 - j * 380 Top属性：控件最顶端到容器（本例为窗体）的距离 Randomize 初始化随机函数 i = Int((122 - 97 + 1) * Rnd + 97) Int():取整函数；Rnd():随机函数；表示：取a～z的字符 Label1.Item(j).Caption = Chr(i) Label1.Item(j):控件数组的第j个元素；Chr(i)：字符转换函数 Next j End Sub 3. 定时器控件Timer1：控制字符的下落速度，