项目设计与制作教案(1).docVIP

《VB项目设计与制作》课程教学安排 信息服务学院 褚洪彦 教学内容 教学周次 第一讲 通用控件的使用 第一周 第二讲 基本算法 第二周 第三讲 窗体界面 第三周 第四讲 图形图像处理 第四周 第五讲 多媒体技术 第五周 第六讲 系统编程 第六周 第七讲 游戏编程 第七周 第八讲 网络应用 第八周 第九讲 文件处理 第九周 第十讲 使用数据库（access） 第十周 第十一讲 网络数据库（SQL Server） 第十一周 第十二讲 综合项目设计（1） 第十二周 第十三讲 综合项目设计（2） 第十三周 第十四讲 综合项目设计（3） 第十四周 第十五讲 综合项目设计（4）（答辩及总评） 第十五周 第一讲 通用控件的使用 知识复习： VB控件有： 1、标准控件（内部控件），共20个。 2、ActiveX控件，约1000种：通用对话框（CommonDialog）、工具条(Toolbar)、状态栏(StatusBar)等。 3、可插入对象，如Excel图表、 Word文档、Flash文件、音效等。 通用控件：标准控件及ActiveX控件。 标准控件：标签、文本框、命令按钮、单选按钮、复选按钮、列表框、组合框、图片框、图像框、垂直滚动条、水平滚动条、时钟（定时器）、框架、驱动器列表框、目录列表框、文件列表框、形状、画线工具、数据工具、对象链接和嵌入工具。 项目设计一：会动眼睛的小熊 一、设计目的： 1、学习基本的判断和循环流程； 2、熟悉定时器和形状控件的使用。 二、设计步骤： 1、新建“标准EXE”工程； 2、建立程序用户界面，如图1-1所示。 图1-1 添加控件及属性设置如下表1-1； 控件类型 控件名称 主要属性设置 控件功能 Shape Shape1 Shape属性设置为3 小熊的头 Shape2 Shape属性设置为2 FillStyle属性设置为7 小熊的左眼 Shape3 Shape属性设置为2 FillStyle属性设置为7 小熊的右眼 Shape4 Shape属性设置为2 小熊的左耳 Shape5 Shape属性设置为2 小熊的右耳 Shape6 Shape属性设置为3- FillStyle属性设置为1-Solid 小熊的鼻子 Shape7 Shape属性设置为2 FillStyle属性设置为1-Solid 小熊的左眼珠 Shape8 Shape属性设置为2 FillStyle属性设置为1-Solid 小熊的右眼珠 Line Line1 默认值 小熊的嘴 Line2 默认值 Line3 默认值 Timer Timer1 Enabled属性设置为False, Interval=500 时间控制 CommandButton CommandButton1 Caption=”动眼睛” 小熊动眼睛 3、打开代码窗口，添加如下代码： Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Static i As Integer If i = 16 Then i = 1 If Shape7.Left Shape2.Left Or Shape7.Top Shape2.Top + 70 Then Shape7.Left = Shape7.Left - 10 Shape7.Top = Shape7.Top - 10 End If If Shape8.Left Shape3.Left Or Shape8.Top Shape3.Top + 70 Then Shape8.Left = Shape8.Left - 10 Shape8.Top = Shape8.Top - 10 End If Shape2.FillColor = QBColor(i) Shape3.FillColor = QBColor(i) i = i + 1 End Sub 三、运行效果 如下图1-2： 图1-2 四 知识学习： 1、选择结构 1）单分支结构 2）双分支结构 3）多分支结构 2、循环结构 1）计数循环（For--Next） 2）While循环（While--Wend） 3）DO循环（Do--Loop） 3、静态变量 Static 变量名 [ As 类型] 4、Timer(定时器)控件 计时器(Timer)每隔一定的时间间隔产生一次Timer事件(或称报时)。可以根据这个特性来定时控制某些操作，或进行计时 运行时计时器不显示 Enabled属性：确定计时器是否可用 True：有效计时 False：停止时钟工