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

蚅 For pers onal use only in study and research;not for commercial use 羄 蒀《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 所示 ? ? ForKl 薀图1-1 芈添加控件及属性设置如下表 1-1 ； 膅控件类型 袁控件名称 羀主要属性设置 罿控件功能 膆 莂 Shape1 袈Shape属性设置为3 芅小熊的头 芃 蒀 Shape2 芈Shape属性设置为2 肆小熊的左眼 葿 羆FillStyle属性设置为7 蝿 羁 Shape3 蚆Shape属性设置为2 羁小熊的右眼 羃Shape 袃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 螄小熊的右眼珠 莃 罿 Line1 螅默认值 蒁 芁 Li ne 祎 Line2 袄默认值 蚀小熊的嘴 蚄 Line3 羂默认值 祎 Timer 蚅 Timer1 肁Enabled属性设置为 False, 蚆时间控制 羈 Interval=500 螇 Comma ndButt on 蒃 Comma ndButt on1 莈Caption=动眼睛” 莇小熊动眼睛 薄3、打开代码窗口，添加如下代码: 薁 Private Sub Comma nd1_Click() 肁 Timerl.E nabled = 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) 聿 End Sub 莃 蚁三、运行效果 膈如下图1-2: 莄图1-2 肄四 知识学习 ： 袁1、选择结构 芅 1 )单分支结构 蒆 2 )双分支结构 膂 3 )多分支结构 莁2