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

蚅Forpersonaluseonlyinstudyandresearch;mercialuse羄蒀《VB项目设计与制作》课程教学安排袇信息服务学院褚洪彦蒃肂教学内容羀教学周次薈第一讲通用控件的使用蒄第一周膀第二讲基本算法荿第二周莈第三讲窗体界面薅第三周薃第四讲图形图像处理蝿第四周聿第五讲多媒体技术莃第五周蚁第六讲系统编程膈第六周衿第七讲游戏编程莄第七周肄第八讲网络应用袁第八周芅第九讲文件处理蒆第九周膂第十讲使用数据库(access)莁第十周肆第十一讲网络数据库(SQLServer)芃第十一周芀第十二讲综合项目设计(1)螀第十二周螆第十三讲综合项目设计(2)芄第十三周蚃第十四讲综合项目设计(3)腿第十四周薆第十五讲综合项目设计(4)(答辩及总评)莆第十五周螁第一讲通用控件的使用蕿知识复****芇VB控件有:膃1、标准控件(内部控件),共20个。膄2、ActiveX控件,约1000种:monDialog)、工具条(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=mandButton1莈Caption=”动眼睛”莇小熊动眼睛薄3、打开代码窗口,添加如下代码:mand1_Click()=True肇EndSub蚅羄PrivateSubTimer1_Timer()蒀StaticiAsInteger袇Ifi=16Theni=>>+=-=->>+=-=-=QBColor(i)=QBColor(i)蝿i=i+1聿EndSub莃蚁三、运行效果膈如下图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:停止时钟工作蕿Interval属性:设置两个Timer事件之间的时间间隔,其值以毫秒(1ms=1/1000s)为单位。芇单位:ms(),。膃Interval=0:屏蔽计时器。膄例如,如果希望每半秒钟产生一个Timer事件,那么Interval属性值应设置为500,这